
<<ThreeDMisc.mesa >>
<<Last Edited by: Crow, May 22, 1986 6:20:24 pm PDT>>
DIRECTORY
IO                        USING [STREAM],
Terminal                USING [Virtual],
Rope                    USING [ROPE],
Imager                USING [Context],
ImagerColor            USING [RGB],
Vector3d                USING [Triple, Pair, Quad],
Pixels                    USING [Extent, BYTE, SampleSet],
ScanConvert            USING [RealSequence, GetColorProc, IntRGB],
ThreeDScenes        USING [ClipState, Context, VtxToRealSeqProc];
ThreeDMisc: CEDAR DEFINITIONS

~ BEGIN

<<Types>>
Context: TYPE ~ ThreeDScenes.Context;
Triple: TYPE ~ Vector3d.Triple;
Pair: TYPE ~ Vector3d.Pair;                                            -- RECORD [ x, y: REAL];
RGB: TYPE ~ ImagerColor.RGB;
IntRGB: TYPE ~ ScanConvert.IntRGB;
Rectangle: TYPE ~ Pixels.Extent;
RealSequence: TYPE ~ ScanConvert.RealSequence;

<<Utility Procedures>>
RGBtoPixelValue: PROC[context: REF ThreeDScenes.Context, clr: RGB, values: Pixels.SampleSet]
                        RETURNS[ Pixels.SampleSet ];            -- get color for low-level functions
PutPixel: PROC[context: REF Context, x, y: NAT, clr: RGB];    -- a very slow way to set a pixel
ClipLineWithPlane: PROC[plane: Vector3d.Quad, p1, p2: Triple] 
                         RETURNS[ insidePt, clippedPt: Triple, state: ThreeDScenes.ClipState ];
DrawRGBLine: PROC[context: REF Context, inP1, inP2: Triple, clr: RGB];    -- 3D lines, clipped
PrependWorkingDirectory: PROC[context: REF Context, file: Rope.ROPE]                                   RETURNS[Rope.ROPE];
GetImagerContext: PROC[context: REF Context] RETURNS[Imager.Context];
SetViewPortFromImager: PROC[context: REF Context, 
                                       imagerCtx: Imager.Context];
CopyContextData: PROC [dstCtx, srcCtx: REF Context];
RegisterSurfaceType: PROC[context: REF Context, type: ATOM];
StartLog: PROC [context: REF Context] RETURNS[IO.STREAM];
FlushLog: PUBLIC PROC [context: REF Context];
CloseLog: PUBLIC PROC [context: REF Context];
<<Colors and Text>>
GetMappedColor: PROC[context: REF Context, clr: IntRGB]
                      RETURNS[Pixels.BYTE];
SetNamedColor: PROC [context: REF Context, color: Rope.ROPE];
SetRGBColor: PROC [context: REF Context, clr: RGB];
LoadStd8BitClrMap: PROC [vt: Terminal.Virtual];
Rotate8BitClrMap: PROC [vt: Terminal.Virtual, firstValue, lastValue, duration: NAT _ 0];
Show8BitClrMap: PROC [context: REF Context];
LoadColorRamp: PROC [vt: Terminal.Virtual, clr1, clr2, exponent: RGB];
LoadMultiRamps: PROC [vt: Terminal.Virtual, colors: LIST OF RGB];
AdjustValueRamp: PROC[context: REF Context, exponent: RGB];
AdjustSaturation: PROC[context: REF Context, percent: REAL];
LoadOldStd8BitClrMap: PUBLIC PROC [vt: Terminal.Virtual];
SetUpTerrainColors: PROC[vt: Terminal.Virtual];
ShowRope: PROC[context: REF Context, x, y: REAL, rope: Rope.ROPE, 
                    fontRope: Rope.ROPE _ NIL, size: REAL _ 20];
<<AIS Files and Texture Images>>
DitherImage: PROC[dstContext, rgbContext: REF Context];
ScaleImage: PROC[dstContext, srcContext: REF Context];
MakeStripes: PROC[context: REF Context, numStripes, min, max, power: REAL];
MakeStretchedSpots: PROC[context: REF Context, 
                                spotsAcross, min, max, power: REAL, stretched: BOOLEAN _ FALSE];
DrawQuad: PROC[context: REF Context, intensity: REAL, 
                     x1, y1, x2, y2, x3, y3, x4, y4: REAL];

<<View and Lighting control>>
    SetAmbientLight: PROC [context: REF Context, color: Rope.ROPE];
    SetBackground: PROC [context: REF Context, color: Rope.ROPE];
    GetBackground: PUBLIC PROC [context: REF Context] RETURNS [color: RGB];
<<Shape Manipulation>>
Hide: PROC[context: REF Context, shapeName: Rope.ROPE];    -- maintain data but don't display
Reveal: PROC[context: REF Context, shapeName: Rope.ROPE];    -- undo Hide
MakePlane: PROC[context: REF Context, shapeName: Rope.ROPE, 
                     squaresPerSide: NAT];
AddShapeAt: PROC[context: REF Context, shapeName: Rope.ROPE, fileName: Rope.ROPE, 
                        position: Triple _ [0.,0.,0.], 
                        type: ATOM _ $ConvexPolygon, insideVisible: BOOLEAN _ FALSE ]; 
SetFacetedColor: PROC[context: REF Context, shapeName: Rope.ROPE, color: RGB];
SetSmoothColor: PROC[context: REF Context, shapeName: Rope.ROPE, color: RGB];
SetLinesColor: PUBLIC PROC[context: REF Context, shapeName: Rope.ROPE, color: RGB];
SetShininess: PROC[context: REF Context, shapeName: Rope.ROPE, shininess: REAL _ 12.0];
SetTransmittance: PROC[context: REF Context, shapeName: Rope.ROPE, t: REAL];
ShadingProcName: PROC[context: REF Context, shapeName, procName: Rope.ROPE ];
GetShadingProcs: PROC[context: REF Context, shapeName: Rope.ROPE, 
                             storeProc: ThreeDScenes.VtxToRealSeqProc,
                             shadeProc: ScanConvert.GetColorProc];
GetNormals: PROC[context: REF Context, shapeName, normalFile: Rope.ROPE];
GetVertexColors: PROC[context: REF Context, shapeName, colorFile: Rope.ROPE];
GetPolygonColors: PROC[context: REF Context, shapeName, colorFile:Rope.ROPE];
GetTextureCoords: PROC[context: REF Context, shapeName, coordinateFile: Rope.ROPE];
<<Scene Manipulation>>
SaveOnFile: PROC[context: REF Context, fileName: Rope.ROPE];
RestoreFromFile: PROC[context: REF Context, fileName: Rope.ROPE];
MakeFrameFromFile: PROC[context: REF Context, fileName: Rope.ROPE];
<<Renders a scene described by a file without disturbing the current scene>>
<<Frame Generation and Animation>>
MakeFrame: PROC[context: REF Context];                -- makes new frame from context
MakeHiResFrame: PROC[context: REF ThreeDScenes.Context,         -- makes new context and
                              width, height: NAT, name: Rope.ROPE];            -- outputs AIS file
<<Implemented in DistributedDisplayImpl.mesa>>
RemoteMakeFrame: PROC[context: REF ThreeDScenes.Context, numForksHint: NAT _ 0];
ShowShapes: PROC[context: REF Context];                -- adds to existing frame
ShowWireFrameShapes: PROC[context: REF Context];    -- for quick linedrawings
OrbitEye: PROC[ context: REF Context, 
                    lookingFrom, lookingAt, axis: Triple, framesPerRev: NAT, 
                    filename: Rope.ROPE _ NIL, numFrames: NAT _ 32767, startAt: NAT _ 0]; 
MakeFramesFromTo: PROC[context: REF Context, 
                                  lookingFrom, lookingAt, toLookingFrom, toLookingAt: Triple,  
                                  numFrames: NAT, startAt: NAT _ 0, filename: Rope.ROPE _ NIL];

END.