%mathpiper,def="SinNum"

/// low-level numerical calculations of elementary functions.
/// These are only called if InNumericMode() returns True

SinNum(x) :=
[
  If(x<0 Or 113*x>710, x:=TruncRadian(x));	// 710/113 is close to 2*Pi
  SinN(x);
];

%/mathpiper