mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-14 02:29:29 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
92 lines
1.8 KiB
OpenEdge ABL
92 lines
1.8 KiB
OpenEdge ABL
{
|
|
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}
|
|
|