Keskustelu: Koodit: Logo-ohjelmointia

to kuvio :kerta
cs                     ;Tyhjää näyttö
make "matka 100        ;Asetetaan matka muuttuja arvoksi 100
repeat :kerta [        ;Suorita koodi :kerta kertaa
make "matka :matka + 1 ;lisää matka muuttujan arvoa yhdellä
forward :matka         ;piirrä :matka muuttujan pituinen suora
right 90               ;Käännytään 90 astetta oikealle
]
end

to kuvio2 :kerta
cs                     ;Tyhjää näyttö
make "matka 100        ;Asetetaan matka muuttuja arvoksi 100
repeat :kerta [        ;Toistetaan koodi :kerta kertaa
setpc random 256       ;Arvotaan väriksi luku väliltä 0-255
forward :matka         ;Liikutaan
right 90               ;Käännytään
make "matka :matka + 1 ;Ja pidennetään matkaa
]
end

to spiraali :kerta
cs                     ;Tyhjää näyttö
make "matka 1          ;Asetetaan tälläkertaa matkan pituudeksi 1
repeat :kerta [        ;Suorita hakasuluissa oleva osa :kerta kertaa
forward :matka         ;Eteenpäin :matka askelta
right 90               ;Käännytään
make "matka :matka + 10;Lisää matkaa kymmenellä
]
end

to rndSpiraali
spiraali random 29     ;arvo spiraalin pituus väliltä 0-28
end