_; scale to fit brillig in bbox of current path pathbbox points2rect 4 2 roll translate 2 copy div % w h w/h /brillig_dimensions load aload pop % w h w/h bx by bw bh div 3 1 roll pop pop % w h w/h bw/bh le { % this is wrong, but I don't understand why 0 exch 2 div translate % w h w/h /brillig_dimensions load 2 get div % w h w/h/bw dup scale % w h w/h/bw } { 1 index 2 div 1 index 2 div translate % w h bw/bh /brillig_dimensions load 3 get div % w h bw/bh/bh dup scale pop % w h /brillig_dimensions load 2 get 2 div neg 0 translate % w h } ifelse } def end % userdict { { % 0 0 1 1 rectpath % scale_to_fit 0 .5 translate 1 380 div 1 200 div scale newpath 1 setlinequality 4 setlinewidth 1 setlinecap 0 setgray lig } dlist } 330 80 ]]>