| % | |
| % Stuff used to draw or set text along a baseline specified by parametric equations | |
| % for x and y. | |
| % | |
| /left -1 def | |
| /center 0 def | |
| /right 1 def | |
| /baselinedict 50 dict def | |
| /newbaseline { | |
| baselinedict begin | |
| /g' exch bind def | |
| /f' exch bind def | |
| /g exch bind def | |
| /f exch bind def | |
| counttomark 2 eq {/hoffset exch def} if | |
| /res exch def | |
| /t 0 def | |
| /s 0 def | |
| /voffset false def | |
| cleartomark | |
| end | |
| } bind def | |
| /drawfunnytext { | |
| baselinedict begin | |
| /t exch def | |
| /mode exch def | |
| /str exch def | |
| mode left eq { | |
| /leftstring emptystring def | |
| /rightstring str def | |
| } if | |
| mode right eq { | |
| /leftstring str reversestring def | |
| /rightstring emptystring def | |
| } if | |
| mode center eq { | |
| str splitstring | |
| /rightstring exch def | |
| /leftstring exch reversestring def | |
| } if | |
| gsave currentpoint translate leftstring left t baselineshow grestore | |
| gsave currentpoint translate rightstring right t baselineshow grestore | |
| /t 0 def | |
| /s 0 def | |
| /voffset false def | |
| cleartomark | |
| end | |
| } bind def | |
| /setfunnytext { | |
| baselinedict begin | |
| /vpos exch def | |
| /hpos exch def | |
| /str exch def | |
| voffset vpos ne { | |
| /voffset vpos def | |
| /t 0 def | |
| /s hoffset def | |
| } if | |
| gsave | |
| hoffset voffset translate | |
| 0 0 moveto | |
| /ds hpos s sub def | |
| /dt ds t f' dup mul t g' dup mul add sqrt res mul div def | |
| /s s ds add def | |
| /t t dt add def | |
| str right t baselineshow | |
| grestore | |
| end | |
| } bind def | |
| baselinedict begin | |
| /f {} bind def | |
| /g {pop 0} bind def | |
| /f' {pop 1} bind def | |
| /g' {pop 0} bind def | |
| /s 0 def | |
| /t 0 def | |
| /res 72 def | |
| /onecharstring ( ) def | |
| /emptystring () def | |
| /baselineshow { | |
| /t exch def | |
| /mode exch def | |
| /str exch def | |
| gsave | |
| t f res mul t g res mul translate | |
| 0 0 moveto | |
| t g' t f' atan rotate | |
| { | |
| mode right eq {pop} if | |
| grestore gsave | |
| onecharstring 0 3 -1 roll put onecharstring stringwidth pop | |
| /ds exch mode mul def | |
| /dt ds t f' dup mul t g' dup mul add sqrt res mul div def | |
| /t t dt add def | |
| /s s ds add def | |
| t f res mul t g res mul translate | |
| 0 0 moveto | |
| t g' t f' atan rotate | |
| mode left eq {pop} if | |
| } str kshow | |
| grestore | |
| } bind def | |
| /reversestring { | |
| /str1 exch def | |
| /str2 str1 length string def | |
| /i 0 def | |
| /n str1 length 1 sub def | |
| { | |
| str1 n get str2 exch i exch put | |
| /i i 1 add def | |
| /n n 1 sub def | |
| n 0 lt {exit} if | |
| } loop | |
| str2 | |
| } bind def | |
| /splitstring { | |
| /str1 exch def | |
| /len str1 stringwidth pop def | |
| /s 0 def | |
| /n 0 def | |
| str1 length { | |
| str1 n get onecharstring exch 0 exch put | |
| /s onecharstring stringwidth pop s add def | |
| s len 2 div ge {exit} if | |
| /n n 1 add def | |
| } repeat | |
| str1 0 n 1 add getinterval | |
| str1 n str1 length n sub getinterval | |
| } bind def | |
| end |