TubeRender.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, November 21, 1986 10:45:25 pm PST
DIRECTORY Render3d, ThreeDBasics, TubeDefs;
TubeRender:
CEDAR
DEFINITIONS
~
BEGIN
OPEN TubeDefs;
Context3d:
TYPE ~
REF ThreeDBasics.Context;
RenderStyle:
TYPE ~ Render3d.RenderStyle;
Converting from a Tube
AddTube:
PUBLIC
PROC [
tube: Tube, context3d: Context3d, renderStyle: RenderStyle ← faceted, matrix: Matrix ←
NIL];
Add the tube to the ThreeDWorld context.
END.