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