;
;	File:		Graf3D.a
;
; 	Assembler Interface to the Macintosh Libraries
;
;	Copyright:	© 1984-1992 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <8>	  7/1/92	DCL		Obsoleted Graf3DEqu.a which now includes this file.
;		 <7>	 8/15/91	MH		re-format Import declarations and Pascal function prototype
;									comments
;		 <6>	 1/30/91	gbm		sab, #38: Change the Ôalready including this fileÕ variable to
;									all uppercase (for security reasons)

;
; 1.0	CCH 11/ 9/1988 Adding to EASE.
; END EASE MODIFICATION HISTORY 
;¥1.1	CCH 9/14/1988 Updated EASE with the current rev of this file.
;-------------------------------------------------------------------------

	IF &TYPE('__INCLUDINGGRAF3D__') = 'UNDEFINED' THEN
__INCLUDINGGRAF3DEQU__	SET	1

; Equates for Graf3D
; Three-dimensional graphics routines layered on top of QuickDraw
FixRad			EQU 		3754936       			;radConst = 57.29578
FracRad   		EQU 		1073741824
;offsets
;Point3D and Point2D
x 				EQU 		0         				;Fixed
y 				EQU 		4         				;Fixed
z 				EQU 		8         				;Fixed
;XfMatrix = ARRAY[0..3,0..3] OF fixed
xf00  			EQU 		0
xf01  			EQU 		4
xf02  			EQU 		8
xf03  			EQU 		12
xf10  			EQU 		16
xf11  			EQU 		20
xf12  			EQU 		24
xf13  			EQU 		28
xf20  			EQU 		32
xf21  			EQU 		36
xf22  			EQU 		40
xf23  			EQU 		44
xf30  			EQU 		48
xf31  			EQU 		52
xf32  			EQU 		56
xf33  			EQU 		60
;Port3D
GrPort			EQU 		0         				;GrafPtr
viewRect  		EQU 		4         				;Rect
xLeft 			EQU 		12        				;Fixed
yTop  			EQU 		16        				;Fixed
xRight			EQU 		20        				;Fixed
yBottom   		EQU 		24        				;Fixed
pen   			EQU 		28        				;Point3D
penPrime  		EQU 		40        				;Point3D
eye   			EQU 		52        				;Point3D
hSize 			EQU 		64        				;Fixed
vSize 			EQU 		68        				;Fixed
hCenter   		EQU 		72        				;Fixed
vCenter   		EQU 		76        				;Fixed
xCotan			EQU 		80        				;Fixed
yCotan			EQU 		84        				;Fixed
ident 			EQU 		88        				;BOOLEAN
xForm 			EQU 		90        				;XfMatrix
szPort3D  		EQU 		154       				;size of Port3D

;PROCEDURE InitGrf3D (globalPtr: Ptr);
         IMPORT   InitGrf3D
;PROCEDURE Open3DPort (port: Port3DPtr);
         IMPORT   Open3DPort
;PROCEDURE SetPort3D (port: Port3DPtr);
         IMPORT   SetPort3D
;PROCEDURE GetPort3D (VAR port: Port3DPtr);
         IMPORT   GetPort3D
;PROCEDURE MoveTo2D (x,y: Fixed);
         IMPORT   MoveTo2D
;PROCEDURE MoveTo3D (x,y,z: Fixed);
         IMPORT   MoveTo3D
;PROCEDURE LineTo2D (x,y: Fixed);
         IMPORT   LineTo2D
;PROCEDURE LineTo3D (x,y,z: Fixed);
         IMPORT   LineTo3D
;PROCEDURE Move2D (dx,dy: Fixed);
         IMPORT   Move2D
;PROCEDURE Move3D (dx,dy,dz: Fixed);
         IMPORT   Move3D
;PROCEDURE Line2D (dx,dy: Fixed);
         IMPORT   Line2D
;PROCEDURE Line3D (dx,dy,dz: Fixed);
         IMPORT   Line3D
;PROCEDURE ViewPort (r: Rect);
         IMPORT   ViewPort
;PROCEDURE LookAt (left,top,right,bottom: Fixed);
         IMPORT   LookAt
;PROCEDURE ViewAngle (angle: Fixed);
         IMPORT   ViewAngle
;PROCEDURE Identity;
         IMPORT   Identity
;PROCEDURE Scale (xFactor,yFactor,zFactor: Fixed);
         IMPORT   Scale
;PROCEDURE Translate (dx,dy,dz: Fixed);
         IMPORT   Translate
;PROCEDURE Pitch (xAngle: Fixed);
         IMPORT   Pitch
;PROCEDURE Yaw (yAngle: Fixed);
         IMPORT   Yaw
;PROCEDURE Roll (zAngle: Fixed);
         IMPORT   Roll
;PROCEDURE Skew (zAngle: Fixed);
         IMPORT   Skew
;PROCEDURE TransForm (src: Point3D; VAR dst: Point3D);
         IMPORT   TransForm
;FUNCTION Clip3D (src1,src2: Point3D; VAR dst1,dst2: POINT): BOOLEAN;
         IMPORT   Clip3D
;PROCEDURE SetPt3D (VAR pt3D: Point3D; x,y,z: fixed);
         IMPORT   SetPt3D
;PROCEDURE SetPt2D (VAR pt2D: Point2D; x,y: fixed);
  		 IMPORT   SetPt2D

	ENDIF	; ...already included