mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
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.
115 lines
2.5 KiB
OpenEdge ABL
115 lines
2.5 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 9:26 PM
|
|
Graf3D.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1991
|
|
All rights reserved
|
|
This file is used in these builds: Mac32 BigBang Sys606
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 7/30/91 JL Updated Copyright.
|
|
<2> 1/27/91 LN Checked in Database generate file from DSG.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Graf3D;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingGraf3D}
|
|
{$SETC UsingGraf3D := 1}
|
|
|
|
{$I+}
|
|
{$SETC Graf3DIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := Graf3DIncludes}
|
|
|
|
CONST
|
|
radConst = 3754936;
|
|
|
|
TYPE
|
|
XfMatrix = ARRAY [0..3,0..3] OF Fixed;
|
|
|
|
Point3D = RECORD
|
|
x: Fixed;
|
|
y: Fixed;
|
|
z: Fixed;
|
|
END;
|
|
|
|
Point2D = RECORD
|
|
x: Fixed;
|
|
y: Fixed;
|
|
END;
|
|
|
|
Port3DPtr = ^Port3D;
|
|
Port3DHandle = ^Port3DPtr;
|
|
Port3D = RECORD
|
|
grPort: GrafPtr;
|
|
viewRect: Rect;
|
|
xLeft: Fixed;
|
|
yTop: Fixed;
|
|
xRight: Fixed;
|
|
yBottom: Fixed;
|
|
pen: Point3D;
|
|
penPrime: Point3D;
|
|
eye: Point3D;
|
|
hSize: Fixed;
|
|
vSize: Fixed;
|
|
hCenter: Fixed;
|
|
vCenter: Fixed;
|
|
xCotan: Fixed;
|
|
yCotan: Fixed;
|
|
ident: BOOLEAN;
|
|
xForm: XfMatrix;
|
|
END;
|
|
|
|
|
|
PROCEDURE InitGrf3d(port: Port3DHandle);
|
|
PROCEDURE Open3DPort(port: Port3DPtr);
|
|
PROCEDURE SetPort3D(port: Port3DPtr);
|
|
PROCEDURE GetPort3D(VAR port: Port3DPtr);
|
|
PROCEDURE MoveTo2D(x: Fixed;y: Fixed);
|
|
PROCEDURE MoveTo3D(x: Fixed;y: Fixed;z: Fixed);
|
|
PROCEDURE LineTo2D(x: Fixed;y: Fixed);
|
|
PROCEDURE Move2D(dx: Fixed;dy: Fixed);
|
|
PROCEDURE Move3D(dx: Fixed;dy: Fixed;dz: Fixed);
|
|
PROCEDURE Line2D(dx: Fixed;dy: Fixed);
|
|
PROCEDURE Line3D(dx: Fixed;dy: Fixed;dz: Fixed);
|
|
PROCEDURE ViewPort(r: Rect);
|
|
PROCEDURE LookAt(left: Fixed;top: Fixed;right: Fixed;bottom: Fixed);
|
|
PROCEDURE ViewAngle(angle: Fixed);
|
|
PROCEDURE Identity;
|
|
PROCEDURE Scale(xFactor: Fixed;yFactor: Fixed;zFactor: Fixed);
|
|
PROCEDURE Translate(dx: Fixed;dy: Fixed;dz: Fixed);
|
|
PROCEDURE Pitch(xAngle: Fixed);
|
|
PROCEDURE Yaw(yAngle: Fixed);
|
|
PROCEDURE Roll(zAngle: Fixed);
|
|
PROCEDURE Skew(zAngle: Fixed);
|
|
PROCEDURE Transform(src: Point3D;VAR dst: Point3D);
|
|
FUNCTION Clip3D(src1: Point3D;src2: Point3D;VAR dst1: Point;VAR dst2: Point): INTEGER;
|
|
PROCEDURE SetPt3D(VAR pt3D: Point3D;x: Fixed;y: Fixed;z: Fixed);
|
|
PROCEDURE SetPt2D(VAR pt2D: Point2D;x: Fixed;y: Fixed);
|
|
PROCEDURE LineTo3D(x: Fixed;y: Fixed;z: Fixed);
|
|
|
|
|
|
{$ENDC} { UsingGraf3D }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|