N×M
20個のの回転色相環。虹の輪が異なるスピードで回転します。
n*m 回転色相環
http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_4.html
// n*m 回転色相環
screen! (color! 0 0 0 create) paint.
img="http://etext-music.com/img/hsb.png".
n=0. x=-400. y=300. h=5. v=4.
pen=array! create.
[[
pen！（turtle! create (img) setshape 0.25 scale penup (x)(y) position）add.
x=x+200.
]! (h) repeat。
x=-400. y=y-200.
]! (v) repeat.
s=array! create。
[s! (random(10)) add]! (h*v) repeat.
timer! create 0.1 interval (60*60) times [
[|i|（pen! (i) get）!（s! (i) get）rightturn]！(h*v) repeat.
] execute.
