Lisa Juice

FSD

: offset >r swap >r - r> r> - ;
: norm dup * swap dup * + sqrt ;
: shine 80 * 2 ** 1 + 1 swap / ;
: lisa t 2 * pi * dup >r 2 * cos 2 / r> pi 4 / + sin 2 / ;
: juice >r x y .5 .5 offset rot r> offset norm shine ;
lisa juice