home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / util / screensa / afterdar / 3dbounci.cpt / 3D Bouncing Ball ƒ / FixedThreeDeeCalls.p < prev    next >
Encoding:
Text File  |  1992-06-03  |  1.0 KB  |  40 lines
  1. UNIT FixedThreeDeeCalls;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         MemTypes, Memory, Packages, FixMath, QuickDraw, ToolIntf, Sound, GraphicsModuleTypes, Sounds;
  7.  
  8. TYPE
  9.     ThreeDeePoint = RECORD
  10.         x        : fixed;
  11.         y        : fixed;
  12.         z        : fixed;
  13.     end;
  14.     
  15.     ThreeDeeWorld = RECORD
  16.         eyeLocation        : ThreeDeePoint;
  17.         screenCenter    : ThreeDeePoint;
  18.         screenRect        : rect;
  19.         frontTopLeft        : ThreeDeePoint;
  20.         frontTopRight    : ThreeDeePoint;
  21.         frontBotLeft        : ThreeDeePoint;
  22.         frontBotRight    : ThreeDeePoint;
  23.         backTopLeft        : ThreeDeePoint;
  24.         backTopRight    : ThreeDeePoint;
  25.         backBotLeft        : ThreeDeePoint;
  26.         backBotRight        : ThreeDeePoint;
  27.         plutoScaling        : real;
  28.     end;
  29.     WorldPtr        = ^ThreeDeeWorld;
  30.     WorldHdl        = ^WorldPtr;
  31.  
  32. PROCEDURE SetThreeDeePoint (var tempPt : ThreeDeePoint; x, y, z : real);
  33. PROCEDURE ThreeDeeToTwoDee(theWorld : ThreeDeeWorld; aThreeDeePoint : ThreeDeePoint; var a2DPoint : point);
  34. PROCEDURE ScaleRect (var tempRect : rect; scaleFactor : real);
  35. PROCEDURE SetupThreeDeeWorld (var tempWorld : ThreeDeeWorld; monitorRect : rect);
  36. IMPLEMENTATION
  37.  
  38. {$I FixedThreeDeeCalls.inc1.p }
  39.  
  40. END.