*

: q 2 ** ;
0 0
4 push
: l
x .5 - r@ 1 + *
r@ 3 - t 1.9 / cos t 1.9 / sin z*
y .5 - r@ 1 + *
swap
t 2.7 / cos t 2.7 / sin z*
-rot
q swap q +
dup
8 *
swap
rot
q + 1.8 + q
-
abs .03 <
r@ /
pop .2 - push
max
;
: j l l l l ; j j j j
pop
+ + push
x y sample
r@ * rot
r@ * rot
r@ * rot
pop drop

Based on: 3D Wire Torus - Manwe


comments powered by Disqus