%% 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