
rebol[]
maxx: 1000
maxy: 1000
x0: maxx / 2
y0: maxy / 2
kulmia: 0
r: x0
kulmia: 0
until [
dkulma: 360 / (kulmia + 1)
plot: copy[]
append plot compose [
line-width 5
line
]
for alfa 0 360 dkulma [
x: x0 + (r * cosine alfa)
y: y0 + (r * sine alfa) + 40
append plot compose [
(as-pair x y)
]
]
main: layout [
box (as-pair (maxx) (maxy)) white effect reduce ['draw plot]
]
kuva: copy/part skip to-image main 20x20 (as-pair maxx maxy)
save/png to-file rejoin ["kulmia_" kulmia ".png"] kuva
print kulmia
kulmia: kulmia + 1
false
]
halt
