DIRECTORY
CoordSys,
CSGGraphics,
Imager,
SVMatrix2d,
Matrix3d,
SV2d,
SV3d,
SVBoundBox,
SVBoundSphere,
SVDraw3d,
SVModelTypes,
SVRayTypes,
SVVector2d,
SVVector3d;

SVDraw3dImpl: PROGRAM
IMPORTS CoordSys, CSGGraphics, Imager, SVBoundBox, SVBoundSphere, Matrix3d, SVVector2d, SVVector3d
EXPORTS SVDraw3d =
BEGIN

Camera: TYPE = SVModelTypes.Camera;
Composite: TYPE = SVRayTypes.Composite;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
CSGTree: TYPE = SVRayTypes.CSGTree;
Matrix4by4: TYPE = SV3d.Matrix4by4;
Point2d: TYPE = SV2d.Point2d;
Point3d: TYPE = SV3d.Point3d;
Primitive: TYPE = SVRayTypes.Primitive;
Vector: TYPE = SV3d.Vector;
Vector2d: TYPE = SV2d.Vector2d;

DrawCoordSys: PUBLIC PROC [dc: Imager.Context, csCAMERA: Matrix4by4, camera: Camera] = {
origin: Point3d;
xAxis, yAxis, zAxis: Vector;
length: REAL = 50.0;
origin _ Matrix3d.OriginOfMatrix[csCAMERA];
xAxis _ SVVector3d.Normalize[Matrix3d.XAxisOfMatrix[csCAMERA]];
yAxis _ SVVector3d.Normalize[Matrix3d.YAxisOfMatrix[csCAMERA]];
zAxis _ SVVector3d.Normalize[Matrix3d.ZAxisOfMatrix[csCAMERA]];
xAxis _ SVVector3d.Scale[xAxis, length];
yAxis _ SVVector3d.Scale[yAxis, length];
zAxis _ SVVector3d.Scale[zAxis, length];
DrawVector[dc, xAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'x, camera];
DrawVector[dc, yAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'y, camera];
DrawVector[dc, zAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'z, camera];
};

DrawTargetCoordSys: PUBLIC PROC [dc: Imager.Context, csCAMERA: Matrix4by4, camera: Camera] = {
origin: Point3d;
xAxis, yAxis, zAxis: Vector;
upLeftVector, upRightVector, downRightVector, downLeftVector: Vector;
length: REAL = 50.0;
scalar: REAL = 0.8;
origin _ Matrix3d.OriginOfMatrix[csCAMERA];
xAxis _ SVVector3d.Normalize[Matrix3d.XAxisOfMatrix[csCAMERA]];
yAxis _ SVVector3d.Normalize[Matrix3d.YAxisOfMatrix[csCAMERA]];
zAxis _ SVVector3d.Normalize[Matrix3d.ZAxisOfMatrix[csCAMERA]];
xAxis _ SVVector3d.Scale[xAxis, length];
yAxis _ SVVector3d.Scale[yAxis, length];
zAxis _ SVVector3d.Scale[zAxis, length];
DrawVector[dc, xAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'x, camera];
DrawVector[dc, yAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'y, camera];
DrawVector[dc, zAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'z, camera];
upLeftVector _ SVVector3d.Sub[yAxis, xAxis];
upRightVector _ SVVector3d.Add[yAxis, xAxis];
downRightVector _ SVVector3d.Negate[upLeftVector];
downLeftVector _ SVVector3d.Negate[upRightVector];
upLeftVector _ SVVector3d.Scale[upLeftVector, scalar];
upRightVector _ SVVector3d.Scale[upRightVector, scalar];
downRightVector _ SVVector3d.Scale[downRightVector, scalar];
downLeftVector _ SVVector3d.Scale[downLeftVector, scalar];
CSGGraphics.SetCPAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
};

DrawJack: PUBLIC PROC [dc: Imager.Context, cs: CoordSystem, camera: Camera] = {
csCAMERA: Matrix4by4 _ CoordSys.FindInTermsOfCamera[cs, camera.coordSys];
DrawCoordSys[dc, csCAMERA, camera];
};

DrawMovee: PUBLIC PROC [dc: Imager.Context, cs: CoordSystem, camera: Camera] = {
origin: Point3d;
xAxis, yAxis, zAxis: Vector;
csCAMERA: Matrix4by4 _ CoordSys.FindInTermsOfCamera[cs, camera.coordSys];
upLeftVector, upRightVector, downRightVector, downLeftVector: Vector;
length: REAL = 50.0;
scalar: REAL = 0.2;
origin _ Matrix3d.OriginOfMatrix[csCAMERA];
xAxis _ SVVector3d.Normalize[Matrix3d.XAxisOfMatrix[csCAMERA]];
yAxis _ SVVector3d.Normalize[Matrix3d.YAxisOfMatrix[csCAMERA]];
zAxis _ SVVector3d.Normalize[Matrix3d.ZAxisOfMatrix[csCAMERA]];
xAxis _ SVVector3d.Scale[xAxis, length];
yAxis _ SVVector3d.Scale[yAxis, length];
zAxis _ SVVector3d.Scale[zAxis, length];
DrawVector[dc, xAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'x, camera];
DrawVector[dc, yAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'y, camera];
DrawVector[dc, zAxis, origin, camera];
CSGGraphics.DrawChar[dc, 'z, camera];
upLeftVector _ SVVector3d.Sub[yAxis, xAxis];
upRightVector _ SVVector3d.Add[yAxis, xAxis];
downRightVector _ SVVector3d.Negate[upLeftVector];
downLeftVector _ SVVector3d.Negate[upRightVector];
upLeftVector _ SVVector3d.Scale[upLeftVector, scalar];
upRightVector _ SVVector3d.Scale[upRightVector, scalar];
downRightVector _ SVVector3d.Scale[downRightVector, scalar];
downLeftVector _ SVVector3d.Scale[downLeftVector, scalar];
CSGGraphics.SetCPAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
};

DrawPlaneSelection: PUBLIC PROC [dc: Imager.Context, cs: CoordSystem, planeNum: NAT, camera: Camera] = {
origin: Point3d;
csCAMERA: Matrix4by4 _ CoordSys.FindInTermsOfCamera[cs, camera.coordSys];
xAxis, yAxis, zAxis: Vector;
tightRopeStart, tightRopeEnd: Point3d;
upLeftVector, upRightVector, downRightVector, downLeftVector: Vector;
length: REAL = 50.0;
SELECT planeNum FROM
1 => { -- x = 0 plane
csCAMERA _ Matrix3d.LocalRotateAboutYAxis[csCAMERA, -90];
};
2 => { -- y = 0 plane
csCAMERA _ Matrix3d.LocalRotateAboutXAxis[csCAMERA, 90];
};
3 => { -- z = 0 plane
};
ENDCASE => ERROR;
origin _ Matrix3d.OriginOfMatrix[csCAMERA];
xAxis _ SVVector3d.Normalize[Matrix3d.XAxisOfMatrix[csCAMERA]];
yAxis _ SVVector3d.Normalize[Matrix3d.YAxisOfMatrix[csCAMERA]];
zAxis _ SVVector3d.Normalize[Matrix3d.ZAxisOfMatrix[csCAMERA]];
xAxis _ SVVector3d.Scale[xAxis, length];
yAxis _ SVVector3d.Scale[yAxis, length];
zAxis _ SVVector3d.Scale[zAxis, length];
upLeftVector _ SVVector3d.Sub[yAxis, xAxis];
upRightVector _ SVVector3d.Add[yAxis, xAxis];
downRightVector _ SVVector3d.Negate[upLeftVector];
downLeftVector _ SVVector3d.Negate[upRightVector];
CSGGraphics.SetCPAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downRightVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, downLeftVector], camera];
CSGGraphics.DrawToAbsolute[dc, SVVector3d.Add[origin, upLeftVector], camera];
tightRopeStart _ SVVector3d.Sub[origin, zAxis];
tightRopeEnd _ SVVector3d.Add[origin, zAxis];
CSGGraphics.SetCPAbsolute[dc, tightRopeStart, camera];
CSGGraphics.DrawToAbsolute[dc, tightRopeEnd, camera];
};

DrawXPlane: PUBLIC PROC [dc: Imager.Context, left, right, down, up: REAL, cs: CoordSystem, camera: Camera] = {
CSGGraphics.SetCP[dc, [0, up, left], camera, cs];
CSGGraphics.DrawTo[dc, [0, up, right], camera, cs];
CSGGraphics.DrawTo[dc, [0, down, right], camera, cs];
CSGGraphics.DrawTo[dc, [0, down, left], camera, cs];
CSGGraphics.DrawTo[dc, [0, up, left], camera, cs];
};

DrawVector: PUBLIC PROC [dc: Imager.Context, v: Vector, origin: Point3d, camera: Camera] = {
tip: Point3d;
originOnScreen, tipOnScreen, textOnScreen: Point2d;
vProjected: Vector2d;
mag: REAL;
epsilon: REAL = 1.0e-3;
tip _ SVVector3d.Add[origin, v];
CSGGraphics.SetCPAbsolute[dc, origin, camera];
CSGGraphics.DrawToAbsolute[dc, tip, camera];
originOnScreen _ CSGGraphics.DoProjection[origin, camera];
tipOnScreen _ CSGGraphics.DoProjection[tip, camera];
vProjected _ SVVector2d.Sub[tipOnScreen, originOnScreen];
mag _ SVVector2d.Magnitude[vProjected];
IF mag < epsilon  THEN vProjected _ [-7.0, 0.0]
ELSE vProjected _ SVVector2d.Scale[vProjected, 7.0/mag];
textOnScreen _ SVVector2d.Add[tipOnScreen, vProjected];
CSGGraphics.SetCPAbsolute[dc, [textOnScreen[1], textOnScreen[2], 0.0],  camera];
};

DrawLocalVector: PUBLIC PROC [dc: Imager.Context, v: Vector, origin: Point3d, camera: Camera, localCS: CoordSystem] = {
tip: Point3d;
tip _ SVVector3d.Add[origin, v];
CSGGraphics.SetCP[dc, origin, camera, localCS];
CSGGraphics.DrawTo[dc, tip, camera, localCS];
};

Draw2dCoordSys: PUBLIC PROC [dc: Imager.Context, origin: Point2d, camera: Camera] = {
originScreen: Point2d;
big: REAL = 9999.0;
originScreen _ CoordSys.CameraToScreen[origin, camera.screenCS];

Imager.MaskVector[dc, [originScreen[1]-big, originScreen[2]],

[originScreen[1]+big, originScreen[2]]];

Imager.MaskVector[dc, [originScreen[1], originScreen[2] + big], [originScreen[1], originScreen[2] - big]];
};
DrawX: PUBLIC PROC [dc: Imager.Context, point: Point2d, camera: Camera] = {
origin: Point2d;
side: REAL _ 7.0;
origin _ CoordSys.CameraToScreen[point, camera.screenCS];
Imager.MaskVector[dc, [origin[1]-side, origin[2] + side], [origin[1]+side, origin[2] - side]];
Imager.MaskVector[dc, [origin[1] + side, origin[2] + side], [origin[1]-side, origin[2] - side]];
};

DrawBoundBoxes: PUBLIC PROC [dc: Imager.Context, tree: CSGTree, camera: Camera] = {
DrawBoundBoxNode[dc, tree.son, camera];
};

DrawBoundBoxNode: PROC [dc: Imager.Context, node: REF ANY, camera: Camera] = {
IF node = NIL THEN RETURN;
WITH node SELECT FROM
composite: Composite => {
SVBoundBox.DrawBoundBox[dc, composite.boundBox, camera.screenCS];
DrawBoundBoxNode[dc, composite.leftSolid, camera];
DrawBoundBoxNode[dc, composite.rightSolid, camera];
};
prim: Primitive => {
SVBoundBox.DrawBoundBox[dc, prim.boundBox, camera.screenCS];
};
ENDCASE => ERROR;
};

DrawBoundBox: PUBLIC PROC [dc: Imager.Context, node: REF ANY, camera: Camera, xor: BOOL] = {};

DrawBoundSpheres: PUBLIC PROC [dc: Imager.Context, tree: CSGTree, camera: Camera] = {
DrawBoundSphereNode[dc, tree.son, camera];
};
DrawBoundSphereNode: PROC [dc: Imager.Context, node: REF ANY, camera: Camera] = {
IF node = NIL THEN RETURN;
WITH node SELECT FROM
composite: Composite => {
SVBoundSphere.DrawBoundSphere[dc, composite.boundSphere, camera];
DrawBoundSphereNode[dc, composite.leftSolid, camera];
DrawBoundSphereNode[dc, composite.rightSolid, camera];
};
prim: Primitive => {
SVBoundSphere.DrawBoundSphere[dc, prim.boundSphere, camera];
};
ENDCASE => ERROR;
};




END.

ยFile: SVDraw3dImpl.mesa
Last edited by Bier on December 18, 1982 1:19 am
Author: Eric Bier on August 1, 1985 0:25:48 am PDT
Reconstructed from memory on July 18, 1985 1:02:55 pm PDT
Contents: Some useful combinations of Imager operations
Now draw the landing pad (in the z = 0 plane).
Now draw the landing pad (in the z = 0 plane).
Now draw the landing pad (in the z = 0 plane).
Now draw the tightrope (along the z axis).
Draw the square bounded by left, right, down, and up (left-right = z, down-up = y) in the x = 0 plane of cs.  In other words, draw the square [left, up], [right, up], [right, down], [left, down] defined in the coordinates of cs.

DrawYPlane: PUBLIC 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: PUBLIC 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.
Assumes v and origin are in camera coords.
Now set current position in case the caller wants to draw a character after this vector.
Assumes v and origin are in localCS coords.

Poorly named.  This function draws cross hairs.  origin is in camera coordinates.

Used by Draw Point to indicate a point of interest.  Would be in SVDraw, except that the point is in camera coordinates.
สร˜Iheadš
œ™Iprocš
œ0™0Lš
œ2™2L™9Lš
œ7™7L˜š
ฯk	˜	L˜	L˜Lš
œ˜L˜L˜	Lš
œ˜Lš
œ˜L˜L˜Lš
œ	˜	Lš
œ
˜
Lš
œ˜Lš
œ˜Lš
œ˜—L˜šœ˜Lšœ[˜bLšœ˜—Lš
˜˜Lšœœ˜#Lšœœ˜'Lšœ
œ˜-Lšœ	œ˜#Lšœœ˜#Lšœ	œ˜Lšœ	œ˜Lšœœ˜'Lšœœ˜Lšœ
œ˜L˜—šฯnœœ
œฯuœ!˜XL˜Lš
œ˜Lšœœ˜Lšœ#Ÿœ˜+Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lš
œ(˜(Lš
œ(˜(Lš
œ(˜(Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&Lš
œ%˜%L˜L˜—šžœœ
œŸœ!˜^L˜Lš
œ˜L˜ELšœœ˜Lšœœ˜Lšœ#Ÿœ˜+Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lš
œ(˜(Lš
œ(˜(Lš
œ(˜(Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&š
œ%˜%L™.—Lš
œ,˜,Lš
œ-˜-Lš
œ2˜2Lš
œ2˜2Lš
œ6˜6Lš
œ8˜8Lš
œ<˜<Lš
œ:˜:Lš
œL˜LLš
œN˜NLš
œP˜PLš
œO˜OLš
œM˜ML˜L˜—šžœœ
œ:˜OLšœŸœA˜ILšœŸœ
˜#L˜L˜—šž	œœ
œ:˜PL˜Lš
œ˜LšœŸœA˜IL˜ELšœœ˜Lšœœ˜Lšœ#Ÿœ˜+Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lš
œ(˜(Lš
œ(˜(Lš
œ(˜(Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&Lš
œ%˜%Lš
œ&˜&š
œ%˜%L™.—Lš
œ,˜,Lš
œ-˜-Lš
œ2˜2Lš
œ2˜2Lš
œ6˜6Lš
œ8˜8Lš
œ<˜<Lš
œ:˜:Lš
œL˜LLš
œN˜NLš
œP˜PLš
œO˜OLš
œM˜ML˜L˜—šžœœ
œ1œ˜hL˜LšœŸœA˜ILš
œ˜Lš
œ&˜&L˜ELšœœ˜Lšœ
˜šœฯc˜LšœŸœ$Ÿœ˜9L˜—šœ ˜LšœŸœ$Ÿœ˜8L˜—šœ ˜L˜—Lšœœ
˜Lšœ#Ÿœ˜+Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lšœ6Ÿœ˜?Lš
œ(˜(Lš
œ(˜(š
œ(˜(L™.—Lš
œ,˜,Lš
œ-˜-Lš
œ2˜2Lš
œ2˜2Lš
œL˜LLš
œN˜NLš
œP˜PLš
œO˜Oš
œM˜ML™*—Lš
œ/˜/Lš
œ-˜-Lš
œ6˜6Lš
œ5˜5L˜L˜—šž
œœ
œ-œ&˜nL™ไ
Lš
œ1˜1Lš
œ3˜3Lš
œ5˜5Lš
œ4˜4Lš
œ2˜2L˜L™—šž
œœ-œ#™kL™l—šž
œœ-œ#™kL™l—L˜šž
œœ
œE˜\Lš œ ™*L˜
Lš
œ3˜3Lš
œ˜Lšœœ
˜
L˜Lš
œ ˜ Lš
œ.˜.š
œ,˜,L™X—Lš
œ:˜:Lš
œ4˜4Lš
œ9˜9Lš
œ'˜'Lšœœ˜/Lšœ4˜8Lš
œ7˜7Lš
œP˜PL˜L˜—šžœœ
œ[˜wLš
œ+™+L˜
Lš
œ ˜ Lš
œ/˜/Lš
œ-˜-L˜L™—L˜šžœœ
œ:˜ULš
œQ™QLšœŸœ
˜Lšœœ
˜LšœŸœ4˜@L˜Lš
œ=˜=˜LšœŸœŸœ˜(—L˜LšœGŸœŸœ˜jL˜L™—šžœœ
œ9˜KL™xL˜Lšœœ˜Lš
œ9˜9Lš
œ^˜^Lš
œ`˜`L˜L˜—šžœœ
œ8˜SLš
œ'˜'Lš
œ˜L˜—šžœœœ
œ˜NLšœœ
œ
œ
˜Lšœœ
˜˜Lš
œA˜ALš
œ2˜2Lš
œ3˜3L˜—š
œ˜Lš
œ<˜<L˜—Lšœœ
˜˜L˜——Lšžœœ
œœ
œœ˜^L˜šžœœ
œ8˜ULš
œ*˜*Lš
œ˜—šžœœœ
œ˜QLšœœ
œ
œ
˜Lšœœ
˜˜Lš
œA˜ALš
œ5˜5Lš
œ6˜6L˜—š
œ˜Lš
œ<˜<L˜—Lšœœ
˜˜L˜——˜L˜—L˜Lšœ
˜J˜—…—'า6W