mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
124 lines
3.8 KiB
Plaintext
124 lines
3.8 KiB
Plaintext
;
|
||
; 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 |