DIRECTORY CADTypes USING [ScadSequence, VariableRec, VisibleMaskSequence], LightingModels USING [Model], MultiPolynomial USING [MultiPolSequence], Rope USING [ROPE], ShadingModels USING [ShadingSequence], Geometry3dVector USING [Triple]; SurfaceTracer: CEDAR DEFINITIONS ~ BEGIN TraceSurfaces: PROC [ surfaces: REF MultiPolynomial.MultiPolSequence, variables: CADTypes.VariableRec, colors: REF ShadingModels.ShadingSequence, screenCenter, screenU, screenV: Geometry3dVector.Triple, pixelsU, pixelsV: NAT, lightingModel: LightingModels.Model, filename: Rope.ROPE]; TraceCells: PROC [ surfaces: REF CADTypes.ScadSequence, variables: CADTypes.VariableRec, colors: REF ShadingModels.ShadingSequence, masks: REF CADTypes.VisibleMaskSequence, screenCenter, screenU, screenV: Geometry3dVector.Triple, pixelsU, pixelsV: NAT, lightingModel: LightingModels.Model, filename: Rope.ROPE]; END. J SurfaceTracer.mesa James Rauen, July 17, 1986 8:40:19 pm PDT Surface: TYPE ~ RECORD[ equation: MultiPolynomial.Ref, gradientX: MultiPolynomial.Ref, gradientY: MultiPolynomial.Ref, gradientZ: MultiPolynomial.Ref, shading: ShadingModels.Model]; SurfaceSequence: TYPE ~ RECORD[ surfaces: SEQUENCE length: NAT OF Surface]; Κ©˜J™™J™)J™—codešΟk ˜ Kšœ œ2˜@Kšœœ ˜Kšœœ˜)Kšœœœ˜Kšœœ˜&Kšœœ ˜ K˜—K˜šΠln œœ ˜ K˜Kšœ˜K˜šœ œœ™K™K™K™K™Kšœ™K™—šœœœ™Kšœ œ œœ ™+K™—šΟn œœ˜Kšœ œ"˜/Kšœ ˜ Kšœœ˜*Kšœ8˜8Kšœœ˜Kšœ$˜$Kšœœ˜—K˜šŸ œœ˜Kšœ œ˜$Kšœ ˜ Kšœœ˜*Kšœœ˜(Kšœ8˜8Kšœœ˜Kšœ$˜$Kšœœ˜—K˜K˜Kšœ˜——…—zm