/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
Encoding 117 /d_u put
Encoding 100 /d_d put
Encoding 108 /d_l put
Encoding 114 /d_r put
Encoding 46 /d_n put

Encoding 85 /d_U put
Encoding 68 /d_D put
Encoding 76 /d_L put
Encoding 82 /d_R put
Encoding 14 /d_N put

/CharProcs 10 dict def
CharProcs begin
 /.notdef { } def
 /d_u {ngsh ngsh ngo add nprad 0 360 arc closepath fill}!
 /d_d {ngsh ngsh ngo sub nprad 0 360 arc closepath fill}!
 /d_l {ngsh ngo sub ngsh nprad 0 360 arc closepath fill}!
 /d_r {ngsh ngo add ngsh nprad 0 360 arc closepath fill}!
 /d_n {ngsh ngsh nprad 0 360 arc closepath fill}!
 /d_U {ngsh ngsh ngo add nprad2 0 360 arc closepath fill}!
 /d_D {ngsh ngsh ngo sub nprad2 0 360 arc closepath fill}!
 /d_L {ngsh ngo sub ngsh nprad2 0 360 arc closepath fill}!
 /d_R {ngsh ngo add ngsh nprad2 0 360 arc closepath fill}!
 /d_N {ngsh ngsh nprad2 0 360 arc closepath fill}!
end

/BuildGlyph
{
ngs 0
0 0 ngs ngs
setcachedevice
exch /CharProcs get exch
2 copy known not {pop /.notdef} if
get exec
} bind def
/BuildChar {1 index /BuildGlyph get exec} bind def
currentdict
end

/AnotoFont exch definefont pop
/AnotoFont ffi fst