traffic light


  
  :-object object_trafficlights : [bcilib].
  
  var id = 'tl'.
  var url = './-trafficlights.wrl'.
  var choice = 0.
  
  main:-
          loadURL(url),
          delay(3000),
          lights_1(2000).

lights_1


  lights_1(Delay):-
          repeat,
                  lights_g(Delay),
                  lights_a(Delay),
                  lights_r(Delay),
                  nl,
          fail.

green & amber & red


  
  lights_g(Delay) :-
          sleep(Delay),
          format('~ttraffic lights, case 1~n'),
          setSFColor(id, 'RLight', 1.0, 1.0, 1.0),
          setSFColor(id, 'GLight', 0.0, 1.0, 0.0).
  lights_a(Delay) :-
          sleep(Delay),
          format('~ttraffic lights, case 2~n'),
          setSFColor(id, 'ALight', 1.0, 0.9, 0.0),
          setSFColor(id, 'GLight', 1.0, 1.0, 1.0).
  lights_r(Delay) :-
          sleep(Delay),
          format('~ttraffic lights, case 3~n'),
          setSFColor(id, 'RLight', 1.0, 0.0, 0.0),
          setSFColor(id, 'ALight', 1.0, 1.0, 1.0).
  
  :-end_object object_trafficlights.

[] readme course preface 1 2 3 4 5 6 7 reference examples resources

draft version 0.3 (17/9/2001)