%! Simon font %%BoundingBox: 0 0 40 52 %%Was: 0 0 40 40 %0 serverdict begin exitserver /TBuildCharDict 10 dict def /SimonFont 10 dict def /fudge 110 def SimonFont begin %% /FontType 3 def /FontMatrix [0.001 0 0 0.001 0 0] def /Encoding 256 array def 0 1 255 {Encoding exch /.notdef put} for % Character definitions /Metrics 130 dict def /CharDefs 130 dict def CharDefs begin /.notdef () def /The_square ( gsave initclip newpath 0 0 moveto 0 1000 lineto 1000 1000 lineto 1000 0 lineto 0 0 lineto 300 100 moveto 700 100 lineto 700 300 lineto 300 300 lineto 300 100 lineto 700 900 moveto 300 900 lineto 300 700 lineto 700 700 lineto 700 900 lineto eoclip newpath 100 100 moveto 900 100 lineto 900 900 lineto 100 900 lineto 100 100 lineto fill grestore ) def end % of CharDefs dictionary Encoding 120 /The_square put Metrics begin /The_square 1000 fudge add def /.notdef 0 def end /BuildChar { TBuildCharDict begin %% /char exch def /fontdict exch def /M {moveto} def /L {lineto} def /l {rlineto} def /C {curveto} def /c {rcurveto} def /charname fontdict /Encoding get char get def %% /charproc fontdict /CharDefs get charname get def /charwdth fontdict /Metrics get charname get def %% gsave 1.3 1.3 scale 0.2 setflat 0.2 setlinewidth charwdth 0 0 -180 charwdth 1000 setcachedevice -186 fudge add 0 translate charproc cvx exec grestore end } def /FontBBox [186 fudge sub 180 552 490] def end /Simon SimonFont definefont pop /Simon findfont 40 scalefont setfont 0 0 moveto (x) show