*

: xc x .5 - ;
: yc y .5 - ;
: yt y .7 - ;
: yb y .3 - ;
: r1 .16 ;
: r2 .04 ;
: r3 .005 ;
: len dup * swap dup * + ;
: c1 xc yc len r1 swap / ;
: c2 xc yc len r1 - dup .008 / swap .012 swap / min ;
: lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ;
: wb xc yt len r2 swap / ;
: bb xc yb len r2 / ;
: ws xc yb len r3 swap / ;
: bs xc yt len r3 / ;

c1 lr min
bb min wb max bs min ws max
c2 max

0.1 -
dup dup x 0.6 + *