22 lines
402 B
Plaintext
22 lines
402 B
Plaintext
|
fn ngon! (sides, size) -> repeat sides { fd!(size); lt!(inv(sides)) }
|
||
|
|
|
||
|
|
let cpal = [(100,255,100,100),(80,100,200,170)]
|
||
|
|
|
||
|
|
fn spingon! (sides, size, count) -> {
|
||
|
|
if eq? (count, 0) then {
|
||
|
|
"enough!"
|
||
|
|
} else {
|
||
|
|
rt!(inv(sides))
|
||
|
|
pencolor!(random(cpal))
|
||
|
|
ngon! (sides, size)
|
||
|
|
spingon! (sides, inc(size), dec(count))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
& spingon!(8, 40, 50)
|
||
|
|
|
||
|
|
repeat 5 {
|
||
|
|
spingon!(8, 40, 50)
|
||
|
|
rt!(0.3)
|
||
|
|
}
|