Duality

Leo

: 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 < ;
: c2 xc yc len r1 - dup .008 > swap .012 < and ;
: lr x .5 < ;
: wb xc yt len r2 < ;
: bb xc yb len r2 > ;
: ws xc yb len r3 < ;
: bs xc yt len r3 > ;

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

dup dup