

    <<SVState.mesa>>
    <<Copyright © 1986 by Xerox Corporation.  All rights reserved.>>
    <<Last edited by Bier on March 30, 1987 12:52:26 pm PST>>
    <<Contents:  Routines for getting and setting the state or "modes" of the Solidviews interface.>>
    <<>>
    DIRECTORY
        Imager, SVInterfaceTypes, SVModelTypes, SVSceneTypes;

    SVState: CEDAR DEFINITIONS =
    BEGIN

    DisplayStyle: TYPE = SVModelTypes.DisplayStyle;
    ExtendMode: TYPE = SVSceneTypes.ExtendMode;
    FeatureCycler: TYPE = SVInterfaceTypes.FeatureCycler;
    GravityType: TYPE = SVInterfaceTypes.GravityType;
    SearchDepth: TYPE = SVSceneTypes.SearchDepth;
    SelectMode: TYPE = SVSceneTypes.SelectMode;
    Skitter: TYPE = SVSceneTypes.Skitter;
    Slice: TYPE = SVSceneTypes.Slice;
    SliceDescriptor: TYPE = SVSceneTypes.SliceDescriptor;
    SVData: TYPE = SVInterfaceTypes.SVData;

    GetAzimuthValue: PROC [svData: SVData] RETURNS [degrees: REAL, success: BOOL _ TRUE];
    GetAzimuthAlignments: PROC [svData: SVData] RETURNS [values: LIST OF REAL, on: LIST OF BOOL];
    GetAzimuth: PROC [svData: SVData] RETURNS [degrees: REAL]; -- the selected azimuth
    AddAzimuth: PROC [svData: SVData, degrees: REAL, on: BOOL _ TRUE] RETURNS [alreadyThere: BOOL];
    DeleteAzimuth: PROC [svData: SVData]; -- delete the selected azimuth


    GetSlopeValue: PROC [svData: SVData] RETURNS [degrees: REAL, success: BOOL _ TRUE];
    GetSlopeAlignments: PROC [svData: SVData] RETURNS [values: LIST OF REAL, on: LIST OF BOOL];
    GetSlope: PROC [svData: SVData] RETURNS [degrees: REAL]; -- the selected slope
    AddSlope: PROC [svData: SVData, degrees: REAL, on: BOOL _ TRUE] RETURNS [alreadyThere: BOOL];
    DeleteSlope: PROC [svData: SVData]; -- delete the selected slope

    GetRadiusValue: PROC [svData: SVData] RETURNS [radius: REAL, success: BOOL _ TRUE];
    GetRadiusAlignments: PROC [svData: SVData] RETURNS [values: LIST OF REAL, on: LIST OF BOOL];
    GetRadius: PROC [svData: SVData] RETURNS [radius: REAL]; -- the selected radius
    AddRadius: PROC [svData: SVData, radius: REAL, on: BOOL _ TRUE] RETURNS [alreadyThere: BOOL];
    DeleteRadii: PROC [svData: SVData]; -- delete the selected radii

    GetSlopeLineAlignments: PROC [svData: SVData] RETURNS [azimuths: LIST OF REAL, slopes: LIST OF REAL, on: LIST OF BOOL];
    AddSlopeLine: PROC [svData: SVData, azimuth: REAL, slope: REAL, on: BOOL _ TRUE] RETURNS [alreadyThere: BOOL];
    DeleteSlopeLines: PROC [svData: SVData]; -- delete the selected slope lines

    GetSlopePlaneAlignments: PROC [svData: SVData] RETURNS [azimuths: LIST OF REAL, slopes: LIST OF REAL, on: LIST OF BOOL];
    AddSlopePlane: PROC [svData: SVData, azimuth: REAL, slope: REAL, on: BOOL _ TRUE] RETURNS [alreadyThere: BOOL];
    DeleteSlopePlanes: PROC [svData: SVData]; -- delete the selected slope planes


    <<Refresh Parameters>>
    GetDisplayStyle: PROC [svData: SVData] RETURNS [DisplayStyle];
    SetDisplayStyle: PROC [svData: SVData, displayStyle: DisplayStyle];
    GetShowAlignments: PROC [svData: SVData] RETURNS [BOOL];
    SetShowAlignments: PROC [svData: SVData, showAlignments: BOOL];
    GetShowColors: PROC [svData: SVData] RETURNS [BOOL];
    SetShowColors: PROC [svData: SVData, showColors: BOOL];
    GetViewport: PROC [svData: SVData] RETURNS [Imager.Rectangle];
    GetSuppressRefresh: PROC [svData: SVData] RETURNS [BOOL];
    SetSuppressRefresh: PROC [svData: SVData, suppressRefresh: BOOL];
        <<Returns the viewer extent in screen coordinates.>>

    <<Gravity and Alignments>>
    GetAnchor: PROC [svData: SVData] RETURNS [Skitter];
    GetGravity: PROC [svData: SVData] RETURNS [gravityOn: BOOL];
    SetGravity: PROC [svData: SVData, gravityOn: BOOL];
    ToggleGravity: PROC [svData: SVData];
    GetGravityExtent: PROC [svData: SVData] RETURNS [inches: REAL];
    SetGravityExtent: PROC [svData: SVData, inches: REAL];
    GetGravityType: PROC [svData: SVData] RETURNS [gravityType: GravityType];
    SetGravityType: PROC [svData: SVData, gravityType: GravityType];
    CycleGravityType: PROC [svData: SVData, forward: BOOL];
    GetHeuristics: PROC [svData: SVData] RETURNS [BOOL];
    SetHeuristics: PROC [svData: SVData, heuristicsOn: BOOL];
    GetMidpoints: PROC [svData: SVData] RETURNS [BOOL];
    SetMidpoints: PROC [svData: SVData, midpointsOn: BOOL];
    ToggleMidpoints: PROC [svData: SVData];
    GetScaleUnit: PROC [svData: SVData] RETURNS [REAL]; -- in units of 1/72 of an inch
    SetScaleUnit: PROC [svData: SVData, unit: REAL]; -- in units of 1/72 of an inch

    <<Other>>
    GetSliceToExtend: PROC [svData: SVData] RETURNS [sliceD: SliceDescriptor];
    SetSliceToExtend: PROC [svData: SVData, sliceD: SliceDescriptor];
    GetSelectionCycler: PROC [svData: SVData] RETURNS [featureCycler: FeatureCycler];
    SetSelectionCycler: PROC [svData: SVData, featureCycler: FeatureCycler];
    <<>>
    <<Hidden State (yuk)>>
    GetSelectMode: PROC [svData: SVData] RETURNS [selectMode: SelectMode];
    SetSelectMode: PROC [svData: SVData, selectMode: SelectMode];
    GetExtendMode: PROC [svData: SVData] RETURNS [extendMode: ExtendMode];
    SetExtendMode: PROC [svData: SVData, extendMode: ExtendMode];

    GetQuickClickMode: PROC RETURNS [on: BOOL];
    SetQuickClickMode: PROC [on: BOOL];
    <<>>
    <<Peculiar to 3D>>
    GetSearchDepth: PROC [svData: SVData] RETURNS [searchDepth: SearchDepth];
    SetSearchDepth: PROC [svData: SVData, searchDepth: SearchDepth];
    GetSelectedAzimuth: PROC [svData: SVData] RETURNS [azimuth: REAL];
    SetSelectedAzimuth: PROC [svData: SVData, azimuth: REAL];
    GetSelectedSlope: PROC [svData: SVData] RETURNS [slope: REAL];
    SetSelectedSlope: PROC [svData: SVData, slope: REAL];

    <<Defaults>>
    GetDefaultHeuristics: PROC [] RETURNS [BOOL];

    END.