home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Modula / Source / ThreeDee / ThreeDee.DEF next >
Text File  |  1984-12-31  |  682b  |  32 lines
  1. DEFINITION MODULE ThreeDee;
  2.  
  3. (*
  4.   Chapter 5: three dimensional transforms
  5. *)
  6.  
  7. FROM QuickDrawTypes IMPORT Point;
  8.  
  9. EXPORT QUALIFIED Point3D, SetPoint3D,
  10.          SetRot, SetScale, SetTranslation, 
  11.          SetPerspective, TransformSRT, Project;
  12.  
  13. TYPE
  14.   Point3D = RECORD
  15.           X, Y, Z: REAL;
  16.         END;
  17.         
  18. PROCEDURE SetPoint3D( x, y, z: REAL; VAR p: Point3D );
  19.  
  20. PROCEDURE SetRot( rotX, rotY, rotZ: REAL );
  21.  
  22. PROCEDURE SetScale( scaleX, scaleY, scaleZ: REAL );
  23.  
  24. PROCEDURE SetTranslation( transX, transY, transZ: REAL );
  25.  
  26. PROCEDURE SetPerspective( screenZ, sourceZ: REAL );
  27.  
  28. PROCEDURE TransformSRT( in: Point3D; VAR out: Point3D );
  29.  
  30. PROCEDURE Project( in: Point3D; VAR out: Point );
  31.  
  32. END ThreeDee.