%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

openwinversion 0 get 51 eq { % XXX: V3
    /NeWS 3 0 findpackage beginpackage
    /TNTCore 3 0 findpackage beginpackage
    /TNT 3 0 findpackage dup beginpackage
    dup beginautoload begin
} { % XXX: V2
    systemdict begin
} ifelse

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/ClassCompassMenu ClassPieMenu []
classbegin
    /Background null def

    /ThrowPie { % - => -
	    /Background self newcanvas def
	    c /Mapped false put
	    c /Transparent false put
	    c /Retained true put
	    self setcanvas
	    clippath
	    c reshapecanvas
	    c setcanvas
	    /PaintedValue null store
	    Radius dup translate
	    TextFont setfont
	    /PaintFrame self send
	    /PaintItems self send
	    /map self send
	    self setcanvas
	    Radius dup translate

	    /top? /CurrentMenu PieMenuService send self eq def
	    /t0 currenttime def
	    /spin 0 def
	    top? {
		currentcursorlocation
		1 index dup mul 1 index dup mul add sqrt
		InactiveRadius le {
		    /spin 360 def
		    pop pop 90
		} { exch atan } ifelse
	    } {
		Direction
	    } ifelse
	    /a exch def
	    {   /i
		  currenttime t0 SUBTIMEVAL CVSEC ThrowSec div
		  .9 mul .1 add
		def
		i 1 ge { exit } if
		gsave
		    a rotate
		    i i mul .02 max
		    i .02 max
		    scale
		    1 i sub spin mul a sub rotate
		    Radius neg dup translate
		    newpath Radius dup dup 0 360 arc closepath
		    clip newpath
		    c imagecanvas
		grestore
	    } loop

	    Radius neg dup translate
	    c imagecanvas c /Retained false put

	    self setcanvas Radius dup translate
	    top? {
		currentcursorlocation /SetCurrentValue self send
	    } if
	    /PaintCurrentValue self send
	    unblockinputqueue
	} fork pop
    } def
classend def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

openwinversion 0 get 51 eq { % XXX: V3
    currentdict endautoload end % TNT
    endpackage endpackage endpackage
} { % XXX: V2
    end % systemdict
} ifelse

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%