rebol[] maxx: 3500 maxy: 2500 plot: copy[line-width 2] print "odota" säde: 0.5 * maxy x0: maxx / 2 y0: maxy / 2 append plot compose [line] lkm: 0 ; tätä kasvatetaan joka viivan piirron jälkeen maxlkm: 1000 ;kun lkm on saavuttanut tämän arvotaan uusi väri for kulma 0 (7000 * 360) 10 [ ;nyt kulma käy 0:sta 7000 * 360:aan 10:n välein eli 7000 täyttä kierrosta x: x0 + (säde * cosine kulma) y: y0 + (säde * sine kulma) append plot compose [ (as-pair x y) ] säde: säde * 0.99996 ; kun sädettä hieman pienennetään jokaisen viivan jälkeen saadaan spiraali x0: x0 + 0.01 ;nyt myös spiraalin keskipisteen x-koordinaattia hieman kasvatetaan y0: y0 - 0.01 ;ja y-koordiaanttaa piennetään lkm: lkm + 1 if lkm = maxlkm [ ; jos lkm on saavuttanut maximiarvonsa, niin asetaaan se takaksin 0:ksi ja arvotaan uusi väri lkm: 0 append plot compose [ ;Arvotaan uusi värä pen (random 255.255.255.255) line ;tarvitaan uudestaan pen käskyn jälkeen uusi line käsky ] ] ] main: layout [ box (as-pair (maxx) (maxy)) white effect reduce ['draw plot] ] kuva: to-image main save/png to-file "spiraali2.png" kuva halt