( 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