MenuTarget
"compass-menu"
{}
{ /Menu 
    [(N) (NE) (E) (SE) (S) (SW) (W) (NW)]
    [{}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}