rebol[] maxx: 3500 maxy: 2500 plot: copy[line-width 10] print "odota" säde: 0.5 * maxy x0: maxx / 2 y0: maxy / 2 append plot compose [line] for kulma 0 (4 * 360) 10 [ ;nyt kulma käy 0:sta 4 * 360:aan 10:n välein eli neljä 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.96 ; kun sädettä hieman pienennetään jokaisen viivan jälkeen saadaan spiraali ] main: layout [ box (as-pair (maxx) (maxy)) white effect reduce ['draw plot] ] kuva: to-image main save/png to-file "spiraali.png" kuva halt