0,0 → 1,34 |
program Orbis; |
|
var line, Rychlost, Zataceni; |
|
#define L 1 |
#define S 2 |
#define R 3 |
|
line:=2; |
|
Rychlost:=15; # omezeni rychlosti (hlavne pro ladici ucely) |
Zataceni:=0.75; |
|
while true |
do |
if LEYE=0 and CEYE = 1 and REYE=0 then |
LMOT:=Rychlost;RMOT:=Rychlost; |
line:=2; |
continue; |
end; |
|
if REYE = 0 then # Cara pod levim sensorem |
LMOT:=0;RMOT:=Rychlost*Zataceni; # jed rovne |
line:=1; # zaznamenej, kdes videl caru |
continue; |
end; |
|
if LEYE = 0 then |
LMOT:=Rychlost*Zataceni;RMOT:=0; |
line:=3; |
continue; |
end; |
|
end; |