%! Simon font
%%BoundingBox: 0 -10 40 50
%%Was: 0 -5 40 40
%%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_letter_x
(
gsave
initclip
newpath
0     0    M
0     1000 L
1000  1000 L
1000  0	L
0     0    L
%new path
 192 488 M
  22  -2 44  -2 66  -2 c
   0   2 l
  28   0 54   0 82   2 c
  -2  -2 l
-148   0 l
closepath
%end path
%erase
%new path
 404 180  M
 146   0  l
 -22   2  -44   2  -66   2  c
   0  -2  l
-82   0 l
closepath
%end path
%erase
%new path
 410 488 M
  24  -2 48  -2 72  -2 c
   0   2 l
  20   0 38   0 58   2 c
  -2  -2 l
-130   0 l
closepath
%end path
%erase
%new path
 188 180  M
 128   0  l
 -24   2  -48   2  -72   2  c
   0  -2  l
-58   0 l
closepath
%end path
%erase
eoclip
newpath
%new path
 280 486 M
  -2   2  -6   4  -8   4 c
   0  -2 l
 -38   0 l
  -2   0  -2   0  -4  -2 c
   0  -2 l
   2   0 l
   0  -4 l
  76 -100 154 -198 230 -298 c
   2  -2   6  -2   8  -2 c
  38   0 l
   2   0   2   0   4   2 c
   0   2 l
  -2   0 l
   0   4 l
 -76 100 -154 198 -230 298 c
closepath
%end path
fill
%new path
 230 180 M
  10   0 l
   6   0  12   2  16   6 c
   0   0   2   2   2   2 c
  80 100 160 198 238 298 c
   2   0   2   2   2   2 c
  -2   0 l
   0   0   0   0  -2   2 c
  -2   0 l
   0  -2 l
  -6   0 l
  -6   0 -12  -2 -16  -6 c
   0   0  -2  -2  -2  -2 c
 -80 -100 -160 -198 -238 -298 c
  -2   0  -2  -2  -2  -2 c
closepath
%end path
fill
%new path
 264 442 M
  24   0 l
 -10  16 -22  32 -32  48 c
   0  -2 l
 -66   0 l
   0 -22 l
   2   0 l
  16   0  34   0  46  -4 c
   6  -2  10  -6  16 -10 c
   2  -4   6  -8  10 -12 c
closepath
%end path
fill
%new path
 314 442 M
  -2   2  -2   6  -2   8 c
   2   0 l
   0   4   0   6   4  10 c
   6   6  14   8  22   8 c
   0  22 l
  -2  -2 l
 -80   0 l
  10 -16  22 -32  32 -48 c
   0   2 l
 26   0 l
closepath
%end path
fill
%new path
 428 226 M
   2  -2   2  -6   2  -8 c
  -2   0 l
   0  -4   0  -6  -4 -10 c
  -6  -6 -14  -8 -22  -8 c
   0 -20 l
  82   0 l
 -10  16 -22  32 -32  48 c
   0  -2 l
-26   0 l
closepath
%end path
fill
%new path
 478 226 M
 -24   0 l
  10 -16  22 -32  32 -46 c
  66   0 l
   0  22 l
  -2   0 l
 -16   0 -34   0 -46   4 c
  -6   2 -10   6 -16  10 c
  -2   4  -6   8 -10  12 c
closepath
%end path
fill
%new path
 422 422 M
  12   0 l
  16  22  32  46  48  68 c
  -2  -2 l
 -72   0 l
   0 -22 l
   2   0 l
   6   0  12  -2  16  -6 c
   2  -2   4  -6   4 -10 c
   2  -2   2  -4   2  -6 c
  -2   0 l
   0  -8  -4 -18 -10 -24 c
closepath
%end path
fill
%new path
 446 422 M
   2   4   6   8  10  12 c
   8   8  20  16  32  22 c
  16   8  34  12  52  12 c
   0  22 l
  -2  -2 l
 -58   0 l
 -16 -22 -32 -46 -48 -68 c
   2   2 l
 12   0 l
closepath
%end path
fill
%new path
 280 246 M
  -2  -4  -6  -8 -10 -12 c
  -8  -8 -20 -16 -32 -22 c
 -16  -8 -34 -12 -52 -12 c
   0 -20 l
  60   0 l
  16  22  32  46  48  68 c
  -2  -2 l
-12   0 l
closepath
%end path
fill
%new path
 304 246 M
 -12   0 l
 -16 -22 -32 -46 -48 -66 c
  74   0 l
   0  22 l
  -2   0 l
  -6   0 -12   2 -16   6 c
  -2   2  -4   6  -4  10 c
  -2   2  -2   4  -2   6 c
   2   0 l
   0   8   4  18  10  24 c
closepath
%end path
fill
grestore
) def

end % of CharDefs dictionary

Encoding        120 /The_letter_x put

Metrics
 begin
/The_letter_x 367 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
%was: 		0 -180
 		0 -200
 		charwdth 1000
 		setcachedevice
                -186 fudge add 0 translate
         	charproc cvx exec
 	grestore
       end
     } def
%was:   /FontBBox [186 fudge sub 180 552 490] def
   /FontBBox [186 fudge sub 200 552 490] def

 end 

 /Simon SimonFont definefont pop

 /Simon findfont 40 scalefont setfont
 0 0 moveto (x) show