#
#
Aspect: red
   IconE: sbloc_b_r_b_E.xpm 
   IconW: sbloc_b_r_b_W.xpm 
   IconN: sbloc_b_r_b_N.xpm 
   IconS: sbloc_b_r_b_S.xpm 
   Action: stop

Aspect: yellow
   IconE: sbloc_y_b_b_E.xpm
   IconW: sbloc_y_b_b_W.xpm
   IconN: sbloc_y_b_b_N.xpm
   IconS: sbloc_y_b_b_S.xpm
   Action: proceed

Aspect: green
   IconE: sbloc_b_b_g_E.xpm
   IconW: sbloc_b_b_g_W.xpm
   IconN: sbloc_b_b_g_N.xpm
   IconS: sbloc_b_b_g_S.xpm
   Action: proceed

OnInit:
   .aspect = red
   .fleeted = 1
end

OnCleared:
   if .aspect = red or .aspect = double_red 
      if next.aspect = red or next.aspect = double_red 
         .aspect = yellow
      else
         if next.aspect = yellow or next.aspect = yellow_fix_yellow_sw_blinking
            .aspect = green
         else
            .aspect = green
         end 
      end 
   end
end

OnUpdate:
   if .aspect = red or .aspect = double_red 
     return
   end
   if next.aspect = red or next.aspect = double_red 
      .aspect = yellow
   else
     if next.aspect = yellow or next.aspect = yellow_fix_yellow_sw_blinking
        .aspect = green
      else
         .aspect = green
      end 
   end  
end

