*

: x' x 2 - ;
: y' y 0.5 - ;
: iterate 2dup z* x' y' z+ ;
: fract dup floor - ;
0.0 0.0
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
iterate
2dup z* dup * swap dup * + 0.1 pow fract
dup fract swap
dup sqrt fract

comments powered by Disqus