--1G 2A 4R
   loop
      --if button pressed
      if Pedestrian_Button(North) = 1 then
         --Pedestrian wait light on
         Pedestrian_Wait(North) :=1;
         Pedestrian_Wait(South) :=1;
         Pedestrian_Wait(East) :=1;
         Pedestrian_Wait(West) :=1;
         --Red & Amber
         Traffic_Light(North) := 6;
         Traffic_Light(South) := 6;
         delay 2.0;
         --Green
         Traffic_Light(North) := 1;
         Traffic_Light(South) := 1;
         delay 5.0;
         --Amber
         Traffic_Light(North) := 2;
         Traffic_Light(South) := 2;
         delay 3.0;
         --Red
         Traffic_Light(North) := 4;
         Traffic_Light(South) := 4;
         delay 2.0;
         --Predestrian wait light off
         Pedestrian_Wait(North) :=0;
         Pedestrian_Wait(South) :=0;
         Pedestrian_Wait(East) :=0;
         Pedestrian_Wait(West) :=0;
         --Pedestrian green light
         Pedestrian_Light(North) :=1;
         Pedestrian_Light(South) :=1;
         Pedestrian_Light(East) :=1;
         Pedestrian_Light(West) :=1;
         delay 6.0;
         --Pedestrian red light
         Pedestrian_Light(North) :=2;
         Pedestrian_Light(South) :=2;
         Pedestrian_Light(East) :=2;
         Pedestrian_Light(West) :=2;
         delay 2.0;

         Traffic_Light(East) := 6;
         Traffic_Light(West) := 6;
         delay 2.0;
         Traffic_Light(East) := 1;
         Traffic_Light(West) := 1;
         delay 5.0;

         Traffic_Light(East) := 2;
         Traffic_Light(West) := 2;
         delay 3.0;

         Traffic_Light(East) := 4;
         Traffic_Light(West) := 4;
         delay 2.0;

      end if;
   Traffic_Light(North) := 6;
   Traffic_Light(South) := 6;
   delay 2.0;
   Traffic_Light(North) := 1;
   Traffic_Light(South) := 1;
   delay 5.0;
   Traffic_Light(North) := 2;
   Traffic_Light(South) := 2;
   delay 3.0;
   Traffic_Light(North) := 4;
   Traffic_Light(South) := 4;
   delay 2.0;

   Traffic_Light(East) := 6;
   Traffic_Light(West) := 6;
   delay 2.0;
   Traffic_Light(East) := 1;
   Traffic_Light(West) := 1;
   delay 5.0;

   Traffic_Light(East) := 2;
   Traffic_Light(West) := 2;
   delay 3.0;

   Traffic_Light(East) := 4;
   Traffic_Light(West) := 4;
   delay 2.0;


   end loop;