supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/FixMath.p

92 lines
1.8 KiB
OpenEdge ABL
Raw Normal View History

2019-06-29 15:17:50 +00:00
{
Created: Thursday, March 15, 1990 at 8:43 AM
FixMath.p
Pascal Interface to Fixed Point Math
Copyright Apple Computer, Inc. 1985-1991
All rights reserved
This file is used in these builds: BigBang
Change History (most recent first):
<4> 8/8/91 JL Updated Copyright.
<3> 11/7/90 VL (&dba) Moved the necessary inline out of the MC68881
conditional.
<2> 11/5/90 JL Adding conditional for MC6881
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT FixMath;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingFixMath}
{$SETC UsingFixMath := 1}
{$I+}
{$SETC FixMathIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$SETC UsingIncludes := FixMathIncludes}
FUNCTION Fix2Frac(x: Fixed): Fract;
INLINE $A841;
FUNCTION Fix2Long(x: Fixed): LONGINT;
INLINE $A840;
FUNCTION FixATan2(x: LONGINT;y: LONGINT): Fixed;
INLINE $A818;
FUNCTION Long2Fix(x: LONGINT): Fixed;
INLINE $A83F;
FUNCTION Frac2Fix(x: Fract): Fixed;
INLINE $A842;
{$IFC OPTION(MC68881)}
FUNCTION Frac2X(x: Fract): Extended;
FUNCTION Fix2X(x: Fixed): Extended;
FUNCTION X2Fix(x: Extended): Fixed;
FUNCTION X2Frac(x: Extended): Fract;
{$ELSEC}
FUNCTION Frac2X(x: Fract): Extended;
INLINE $A845;
FUNCTION Fix2X(x: Fixed): Extended;
INLINE $A843;
FUNCTION X2Fix(x: Extended): Fixed;
INLINE $A844;
FUNCTION X2Frac(x: Extended): Fract;
INLINE $A846;
{$ENDC}
FUNCTION FracMul(x: Fract;y: Fract): Fract;
INLINE $A84A;
FUNCTION FixDiv(x: Fixed;y: Fixed): Fixed;
INLINE $A84D;
FUNCTION FracDiv(x: Fract;y: Fract): Fract;
INLINE $A84B;
FUNCTION FracSqrt(x: Fract): Fract;
INLINE $A849;
FUNCTION FracSin(x: Fixed): Fract;
INLINE $A848;
FUNCTION FracCos(x: Fixed): Fract;
INLINE $A847;
{$ENDC} { UsingFixMath }
{$IFC NOT UsingIncludes}
END.
{$ENDC}