to spoke
params [x y]
repeat :x [fd :y left 360/:x]
end
to demo
while (1=1) [
home
penup
back 70
pendown
cs
paint
setpencolor 242 0 0
repeat 20 [ spoke 3 45 left 18]
fd 140
setpencolor 0 255 0
repeat 20 [ spoke 3 45 left 18]
pause 4000
]
end
demo