| 1,7 → 1,6 |
|---|
| # naportovany algoritmus Callis, ovsem nefunguje. |
| program Callis; |
| program Orbis; |
| |
| var movement, line; |
| var line, Rychlost, Zataceni; |
| |
| #define L 1 |
| #define S 2 |
| 9,28 → 8,33 |
|---|
| |
| line:=2; |
| |
| Rychlost:=15; # omezeni rychlosti (hlavne pro ladici ucely) |
| Zataceni:=0.75; |
| |
| while true |
| do |
| if LEYE > 0 or CEYE > 0 then # Cara pod levim sensorem |
| LMOT:=30;RMOT:=30; # jed rovne |
| if LEYE = 1 and CEYE = 1 then # Cara pod levim sensorem |
| LMOT:=0;RMOT:=Rychlost*Zataceni; # jed rovne |
| line:=1; # zaznamenej, kdes videl caru |
| continue; |
| end; |
| |
| if REYE > 0 or CEYE > 0 then |
| LMOT:=30;RMOT:=30; |
| if REYE = 1 and CEYE = 1 then |
| LMOT:=Rychlost*Zataceni;RMOT:=0; |
| line:=3; |
| continue; |
| end; |
| |
| if CEYE = 1 then |
| LMOT:=Rychlost;RMOT:=Rychlost; |
| line:=2; |
| continue; |
| end; |
| |
| if line=1 then |
| LMOT:=0; |
| movement:=1; |
| break; |
| if LEYE = 0 and CEYE = 0 and REYE = 0 then |
| LMOT:=Rychlost;RMOT:=0; |
| line:=2; |
| continue; |
| end; |
| |
| elif line=3 then |
| RMOT:=0; |
| movement:=3; |
| break; |
| end; |
| end; |