/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

/CharProcs 6 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}!
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