TO SPI :KROK :UHEL :ZMENA›IF :KROK > 150 [STOP] ›FD :KROK ›RT :UHEL ›SPI :KROK + :ZMENA :UHEL :ZMENA›END››TO ZMENA›SETBG 0 WAIT 20 ›SETBG 35 WAIT 20 ›SETBG 48 WAIT 20 ›SETBG 60 WAIT 20 ›SETBG 98 WAIT 20 ›SETBG 126 WAIT 20 ›SETBG 74›END››TO VICE :KROK :UHEL›FD :KROK ›RT :UHEL ›VICE :KROK :UHEL›END››TO LABUT :VELIKOST›TELO :VELIKOST ›KRK :VELIKOST / 2 ›HLAVA :VELIKOST / 4›END››TO TELO :VELIKOST›RT 45 KVET :VELIKOST LT 45›END››TO KRK :VELIKOST›LT 45 ›OBLOUKP :VELIKOST 90 ›OBLOUKL :VELIKOST 90 ›RT 45›END››TO HLAVA :VELIKOST›LT 135 ›KVET :VELIKOST ›RT 135›END››TO OBLOUKP :POLOMER :STUPNE›OBLOUK.PRAVY :POLOMER :STUPNE›END››TO OBLOUKL :POLOMER :STUPNE›OBLOUK.LEVY :POLOMER :STUPNE›END››TO KVET :VELIKOST›OBLOUKP :VELIKOST 90 RT 90 ›OBLOUKP :VELIKOST 90 RT 90›END››TO KVET1›REPEAT 8 [KVET 40 KVET 30 RT 45]›END››TO KRUHP :POLOMER›OBLOUKP1 0.174532 * :POLOMER 36›END››TO KRUHL :POLOMER›OBLOUKL1 0.174532 * :POLOMER 36›END››TO A›FD 10 ›RT 45 ›FD 3 ›RT 45 ›FD 5 ›RT 45 ›FD 3 ›RT 45 ›FD 10 ›BK 5 ›RT 90 ›FD 7›END››TO VLAJKAP :STRANA›FD :STRANA KRABICEP :STRANA BK :STRANA›END››TO 18VLAJEK :STRANA›REPEAT 18 [VLAJKAP :STRANA RT 20]›END››TO VLAJKOLO :STRANA›18VLAJEK :STRANA ›18VLAJEK :STRANA - 20›END››TO KOSOCTVERCE›RT 45 ›REPEAT 4 [CTVERCE RT 90]›END››TO KRABICEP :STRANA›FD :STRANA ›RT 90 ›FD :STRANA ›RT 90 ›FD :STRANA ›RT 90 ›FD :STRANA ›RT 90›END››TO CTVERCE›KRABICEP 10 ›KRABICEP 20 ›KRABICEP 30 ›KRABICEP 40›END››TO PAVOUK›LEVA.STRANA ›PRAVA.STRANA ›FD 10 BK 10 ›HT›END››TO LEVA.STRANA›LT 90 ›REPEAT 4 [LEVA.NOHA RT 20] ›RT 10›END››TO PRAVA.STRANA›RT 90 ›REPEAT 4 [PRAVA.NOHA LT 20] ›LT 10›END››TO LEVA.NOHA›FD 30 LT 90 FD 30 BK 30 RT 90 BK 30›END››TO PRAVA.NOHA›FD 30 RT 90 FD 30 BK 30 LT 90 BK 30›END››TO KRIZ›REPEAT 4 [VLAJKA RT 90]›END››TO KOSOCTVEREC›RT 45 FD 50 RT 135 FD 50 RT 45 FD 50 RT 135 FD 50›END››TO VLAJKY.VLAJKY›VLAJKY ›RT 45 ›VLAJKY›END››TO VLAJKY›REPEAT 4 [VLAJKA.ZPET RT 90]›END››TO VLAJKA›FD 30 CTVEREC›END››TO VLAJKA.ZPET›VLAJKA ›BK 30›END››TO CTVEREC›FD 50 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50 RT 90›END››TO TROJUHELNIK›REPEAT 3 [FD 30 RT 120]›END››TO STAN›RT 30 ›TROJUHELNIK›END››TO STROM›STAN RT 60 FD 15 RT 90 FD 15 RT 180›END››TO STROMY›REPEAT 30 [STROM RT 90 PU FD 30 LT 90 PD]›END››TO OBLOUKP1 :KROK :KOLIKRAT›REPEAT :KOLIKRAT [RT 5 FD :KROK RT 5]›END››TO OBLOUK.PRAVY :POLOMER :STUPNE›OBLOUKP1 0.174532 * :POLOMER :STUPNE / 10 ›IF 0 = REMAINDER :STUPNE 10 [STOP] ›FD 0.174532 * :POLOMER / 10 * REMAINDER :STUPNE 10 ›RT REMAINDER :STUPNE 10›END››TO OBLOUKL1 :KROK :KOLIKRAT›REPEAT :KOLIKRAT [LT 5 FD :KROK LT 5]›END››TO OBLOUK.LEVY :POLOMER :STUPNE›OBLOUKL1 0.174532 * :POLOMER :STUPNE / 10 ›IF 0 = REMAINDER :STUPNE 10 [STOP] ›FD 0.174532 * :POLOMER / 10 * REMAINDER :STUPNE ›LT REMAINDER :STUPNE 10›END››TO OBLOUK :KROK :STUPNE›REPEAT :STUPNE / 10 [FD :KROK RT 10]›END››TO MRIZ›REPEAT 16 [RT 90 FD 340 LT 90 FD 260]›END››TO MRIZ1›MRIZ RT 90 FD 10 LT 90 FD 10 MRIZ›END››TO KRUH :KROK›REPEAT 36 [FD :KROK RT 10]›END››TO ZELVY :KROK›TELL [0 1 2 3] PU HOME ›TELL 0 RT 90 FD 80 + :KROK LT 90 ›TELL 1 RT 90 FD 0 + :KROK LT 90 ›TELL 2 LT 90 FD 80 + :KROK RT 90 ›TELL 3 LT 90 FD 160 + :KROK RT 90 ›TELL [0 1 2 3] PD›END››TO ORNAMENT›CS ZELVY 0 KRUH 10 REPEAT 11 [FD 20 KRUH 10]›END››TO TRI :STRANA1 :STRANA2›MAKE "START POS ›FD :STRANA1 ›RT 90 ›FD :STRANA2 ›SETPOS :START›END››MAKE "START [0 0]›