immutable class ANGLE < $ANGLES{FLT,CPX}, $BINARY, $ORDERED{ANGLE}, $IS_EQ |
---|
$IS_EQ | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL | $BINARY | $ANGLES{_,_} |
const Half_Circle : FLT := 180.0 ; |
---|
const Two_Pi : FLT := FLT::pi * 2.0 ; |
---|
**** |
const asize : CARD := 32 ; |
---|
**** | --FUDGE for asize! |
priv_radians( |
---|