immutable class ANGLED < $ANGLES{FLTD,CPXD}, $BINARY , $ORDERED{ANGLED}, |
---|
$IS_EQ | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL | $BINARY | $ANGLES{_,_} |
const Half_Circle : FLTD := 180.0d ; |
---|
const Two_Pi : FLTD := FLTD::pi * 2.0d ; |
---|
**** |
const asize : CARD := 64 ; |
---|
**** | --FUDGE for asize! |
priv_radians( |
---|