mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-29 07:29:15 +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.
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 |