*

( hope you're doing well! )
( classic amiga effect not so faithfully recreated )

: z .71 * 4 mod 2 - abs 1 - ;
: x x 4 * 2 - t z + ;
: y y 4 * 1 - t 2 * sin abs - ;
: r x dup * y dup * + sqrt ;
: m r 1 < * ;
: n r 1 >= * ;
: m m rot m rot m rot ;
: n n rot n rot n rot ;
: h rot r> + ;
: v >r >r >r h h h ;
1 1 r - sqrt - r / dup x * 1.5 * 1 mod swap y * 1.5 * 1 mod
swap t z 2 * + swap 2 * floor swap 2 * floor + 2 mod 1 swap dup
m 0.1 0.1 0.7 n v

comments powered by Disqus