File: SVDraw3d.mesa
Last edited by Bier on December 18, 1982 1:19 am
Author: Eric Bier on July 31, 1985 11:42:39 pm PDT
Contents: Some useful combinations of Imager operations
DIRECTORY
Imager,
SV2d,
SV3d,
SVModelTypes,
SVRayTypes;
SVDraw3d: DEFINITIONS =
BEGIN
Camera: TYPE = SVModelTypes.Camera;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
CSGTree: TYPE = SVRayTypes.CSGTree;
Matrix4by4: TYPE = SV3d.Matrix4by4;
Point2d: TYPE = SV2d.Point2d;
Point3d: TYPE = SV3d.Point3d;
Vector: TYPE = SV3d.Vector;
DrawCoordSys: PROC [dc: Imager.Context, csCAMERA: Matrix4by4, camera: Camera];
DrawTargetCoordSys: PROC [dc: Imager.Context, csCAMERA: Matrix4by4, camera: Camera];
DrawJack: PROC [dc: Imager.Context, cs: CoordSystem, camera: Camera];
DrawMovee: PROC [dc: Imager.Context, cs: CoordSystem, camera: Camera];
DrawPlaneSelection: PROC [dc: Imager.Context, cs: CoordSystem, planeNum: NAT, camera: Camera];
DrawXPlane: PROC [dc: Imager.Context, left, right, down, up: REAL, cs: CoordSystem, camera: Camera];
Draw the square bounded by left, right, down, and up (left-right = z, down-up = y) in the x = 0 plane of cs.
DrawYPlane: PROC [dc: Imager.Context, left, right, down, up: REAL, cs: CoordSystem, camera: Camera];
Draw the square bounded by left, right, down, and up (left-right = x, down-up = z) in the y = 0 plane of cs.
DrawZPlane: PROC [dc: Imager.Context, left, right, down, up: REAL, cs: CoordSystem, camera: Camera];
Draw the square bounded by left, right, down, and up (left-right = x, down-up = y) in the z = 0 plane of cs.
DrawVector: PROC [dc: Imager.Context, v: Vector, origin: Point3d, camera: Camera]; -- assumes v is in camera coords.
DrawLocalVector: PROC [dc: Imager.Context, v: Vector, origin: Point3d, camera: Camera, localCS: CoordSystem]; -- assumes v and origin are in localCS coords.
Draw2dCoordSys: PROC [dc: Imager.Context, origin: Point2d, camera: Camera];
DrawX: PROC [dc: Imager.Context, point: Point2d, camera: Camera];
DrawBoundBoxes: PROC [dc: Imager.Context, tree: CSGTree, camera: Camera];
DrawBoundBox: PROC [dc: Imager.Context, node: REF ANY, camera: Camera, xor: BOOL];
DrawBoundSpheres: PROC [dc: Imager.Context, tree: CSGTree, camera: Camera];
END.