%! Simon font %%BoundingBox: 0 0 70 70 %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_letter_Y ( gsave initclip newpath 0 0 M 0 1000 L 1000 1000 L 1000 0 L 0 0 L %new path 180 670 0.5 add M 28 -2 0.5 add 58 -2 0.5 add 88 -2 0.5 add c 0 2 0.5 add l 38 0 0.5 add 74 0 0.5 add 110 2 0.5 add c -2 -2 0.5 add l -198 0 l closepath %end path %erase %new path 550 670 0.5 add M 28 -2 0.5 add 56 -2 0.5 add 84 -2 0.5 add c 0 2 0.5 add l 24 0 0.5 add 46 0 0.5 add 68 2 0.5 add c -2 -2 0.5 add l -152 0 l closepath %end path %erase %new path 334 180 0.5 sub M 208 0 0.5 sub l -34 2 0.5 sub -70 2 0.5 sub -104 2 0.5 sub c 0 -2 0.5 sub l -106 0 l closepath %end path %erase eoclip newpath %new path 462 406 M 54 86 106 172 160 258 c 0 2 2 2 2 4 c 4 2 8 4 12 4 c 8 0 l 0 -2 l 0 0 2 0 2 -2 c 2 0 2 -2 2 -4 c -2 0 l 0 -2 l -60 -96 -118 -192 -178 -288 c 0 -188 l 0 -2 0 -4 -2 -6 c -52 0 l -2 0 -4 0 -6 2 c -2 2 -2 4 -2 6 c 2 0 l 0 188 l -2 0 l -58 96 -118 192 -176 288 c 0 2 l 2 0 l 0 2 0 4 2 4 c 0 2 2 2 2 2 c 54 0 l 0 -2 l 6 0 10 -2 12 -4 c 2 -2 2 -2 4 -4 c 52 -86 104 -172 156 -258 c closepath %end path %new path 256 624 M 36 0 l -8 16 -18 32 -26 48 c 0 -2 l -88 0 l 0 -22 l 2 0 l 16 0 40 0 54 -4 c 4 -2 10 -6 14 -10 c 2 -4 6 -8 8 -12 c closepath %end path %new path 328 624 M -2 2 -2 6 -2 8 c 2 0 l 0 4 0 8 2 10 c 2 0 2 0 4 2 c 12 6 28 6 44 6 c 0 22 l -2 -2 l -108 0 l 8 -16 18 -32 26 -48 c 0 2 l 36 0 l closepath %end path %new path 584 604 M 14 0 l 12 22 24 46 36 68 c -2 -2 l -84 0 l 0 -22 l 2 0 l 12 0 24 -2 32 -10 c 2 -2 2 -2 4 -4 c 2 -4 4 -8 4 -14 c -2 0 l 0 -6 -2 -12 -6 -18 c closepath %end path %new path 610 604 M 4 6 10 12 14 18 c 8 6 14 12 24 16 c 16 8 34 12 54 12 c 0 22 l -2 -2 l -68 0 l -12 -22 -24 -46 -36 -68 c 2 2 l 12 0 l closepath %end path %new path 406 226 M 0 -6 -2 -14 -6 -18 c -2 -2 -4 -2 -6 -4 c -12 -4 -42 -4 -62 -4 c 0 -20 l 108 0 l 0 48 l -2 -2 l -32 0 l closepath %end path %new path 468 226 M -30 0 l 0 -46 l 106 0 l 0 22 l -2 0 l -20 0 -50 0 -62 4 c -2 2 -4 2 -6 4 c -4 4 -6 12 -6 18 c closepath %end path fill grestore ) def end % of CharDefs dictionary Encoding 81 /The_letter_Q put Encoding 89 /The_letter_Y put Metrics begin /The_letter_Q 527 fudge add def /The_letter_Y 525 fudge add def /.notdef 400 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 -178 fudge add 0 translate charproc cvx exec grestore end } def /FontBBox [178 fudge sub 40 704 688] def end /Simon SimonFont definefont pop /Simon findfont 70 scalefont setfont 0 0 moveto (Y) show