*

: norm dup * >r dup * r> + ;
: r x 0.5 - y 0.5 - norm ;
: wave pi * 2 * cos ;
: wiggle over swap / wave 0.5 * + ;
: c1 r 4 * t 3 wiggle - 1 mod wave ;
: c2 r 2 * t 5 wiggle - 1 mod wave ;
: c3 r 1 * t 7 wiggle - 1 mod wave ;
c1 c2 c3

comments powered by Disqus