*

( Black Hole: (c) 2019 by <darkstar> )
: n .5 - 2 * ;
: m 1 + 2 / ;
: x x n ; : y y n ;
: r x dup * y dup * + sqrt ;
: tor r 3.4 * sin 1.1 - exp 0.7 ** ;
: a >r y x atan2 t r> * + sin m ;
: q1 0.98 a r .8 ** 0.8 * r 2 * + 0.3 - sin 3 ** * ;
: q2 0.56 a r .8 ** 0.8 * r 2 * + 0.20 - sin 3 ** * ;
: q3 0.36 a r .8 ** 0.8 * r 2 * + 0.14 - sin 3 ** * ;
: rainbow ( .f - r g b )
dup 3 * 1 + sin 1.0 * swap
dup 3 * 0 + sin 1.0 * swap
dup 3 * 5 + sin 1.0 * swap drop ;

tor 0.5 * q1 3.1 * q2 2.3 * + q3 2.9 * + 0.05 * + 0.6 - rainbow