四季

0

四つの回転色相環。それぞれの環が異なる速度で回転します。

四季
http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_3.html

// 回転色相環
screen! (color! 0 0 0 create) paint.
ring=turtle! create "http://etext-music.com/img/hsb.png" setshape hide.
rng1=ring! create 0.5 scale -200 200 position.
rng2=ring! create 0.5 scale +200 200 position.
rng3=ring! create 0.5 scale -200 -200 position.
rng4=ring! create 0.5 scale +200 -200 position.
timer! create 0.1 interval (60*60) times [
 rng1! 4 rightturn.
 rng2! 10 rightturn.
 rng3! 20 rightturn.
 rng4! 2 rightturn.
] execute.

Default