*

: x x .5 - 2.4 * ;
: y y .7 - 2.4 * ;
: dot dup * swap dup * + ;
: l
dup -0.04 *
r> r>
2dup * 2 * x + >r
2dup z* drop y + r>
2dup >r >r dot
+ abs
rot min swap
rot over 1.32457 * t +
r> r> 2dup >r >r
rot
dup cos -2 * swap sin -2 *
z+ dot
min
-rot 1 +
;
y x >r >r

4 4 0 l l l l l l l l l

drop

log 8 / negate
swap log 8 / negate
swap dup >r 2 **
over 3 ** + r> 3 **

r> r> drop drop
( based on shader by Guil )

comments powered by Disqus