DIRECTORY
FeedbackTypes, GGBasicTypes, GGFont, GGHistoryTypes, GGModelTypes, GGSegmentTypes, Imager, ImagerTransformation, Interpress, Rope, TextNode, TiogaImager;

GGSlice: CEDAR DEFINITIONS IMPORTS Imager = BEGIN

OPEN GGModelTypes;

BoundBox: TYPE = GGModelTypes.BoundBox;
Color: TYPE = Imager.Color;
Camera: TYPE = GGModelTypes.Camera;
DisplayStyle: TYPE = GGModelTypes.DisplayStyle;
MsgRouter: TYPE = FeedbackTypes.MsgRouter;
FontData: TYPE = GGFont.FontData;
HistoryEvent: TYPE = GGHistoryTypes.HistoryEvent;
Point: TYPE = GGBasicTypes.Point;
PointGenerator: TYPE = GGModelTypes.PointGenerator;
PointPairGenerator: TYPE = GGModelTypes.PointPairGenerator;
Segment: TYPE = GGSegmentTypes.Segment;
SegmentGenerator: TYPE = GGModelTypes.SegmentGenerator;
SelectionClass: TYPE = GGSegmentTypes.SelectionClass;
Slice: TYPE = GGModelTypes.Slice;
SliceClass: TYPE = GGModelTypes.SliceClass;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
SliceGenerator: TYPE = GGModelTypes.SliceGenerator;
SliceParts: TYPE = GGModelTypes.SliceParts;
StrokeEnd: TYPE = Imager.StrokeEnd;
Vector: TYPE = GGBasicTypes.Vector;
WalkProc: TYPE = GGModelTypes.WalkProc;

NotFound: SIGNAL;
FontNameError: SIGNAL;


RegisterSliceClass: PROC [class: SliceClass];
FetchSliceClass: PROC [name: ATOM] RETURNS [class: SliceClass];


DescriptorFromParts: PROC [slice: Slice, parts: SliceParts] RETURNS [sliceD: SliceDescriptor];
EntitiesInSlice: PROC [slice: Slice] RETURNS [entityGenerator: SliceGenerator];

ClusterData: TYPE = REF ClusterDataObj;
ClusterDataObj: TYPE = RECORD [
frozen: BOOL _ TRUE
];

CreateCluster: PROC [frozen: BOOL _ TRUE] RETURNS [parent: Slice];
AddChildToCluster: PROC [parent: Slice, child: Slice, priority: INT];
AddChildrenToCluster: PROC [parent: Slice, children: LIST OF Slice, priority: INT];
RemoveChild: PROC [parent: Slice, child: Slice] RETURNS [newParent: Slice];
PruneNullClusters: PROC [scene: Scene, cluster: Slice];
SetFrozen: PROC [cluster: Slice, frozen: BOOL];
GetFrozen: PROC [cluster: Slice] RETURNS [frozen: BOOL];

BuildClusterSliceClass: PROC [] RETURNS [class: SliceClass];
BuildMoreClusterSliceClass: PROC [class: SliceClass]; -- for internal communication only
BuildTextSliceClass: PROC [] RETURNS [class: SliceClass];
MakeTextSlice: PROC [text: Rope.ROPE, color: Imager.Color, displayStyle: DisplayStyle, amplifySpace: REAL _ 1.0, dropShadowsOn: BOOL _ FALSE, dropShadowOffset: Vector _ [0.0, 0.0], shadowColor: Imager.Color _ Imager.black] RETURNS [slice: Slice];
SetTextFont: PROC [slice: Slice, fontData: FontData, router: MsgRouter, history: HistoryEvent] RETURNS [ success: BOOL _ TRUE];
SetTextFontAndTransform: PROC [slice: Slice, fontData: FontData, router: MsgRouter, history: HistoryEvent] RETURNS [ success: BOOL _ TRUE];
GetFontData: PROC [slice: Slice] RETURNS [fontData: FontData];
GetFontDataRope: PROC [slice: Slice] RETURNS [Rope.ROPE];
GetFontLiteralDataRope: PROC [slice: Slice] RETURNS [Rope.ROPE];
GetLooksDataRope: PROC [slice: Slice] RETURNS [Rope.ROPE];
IsWhitespace: PROC [slice: Slice] RETURNS [BOOL];
GetText: PROC [slice: Slice] RETURNS [text: Rope.ROPE];
SetText: PROC [slice: Slice, text: Rope.ROPE];
AppendText: PROC [slice: Slice, text: Rope.ROPE];
BackspaceText: PROC [slice: Slice, word: BOOL _ FALSE];
SetTextAmplifySpace: PROC [slice: Slice, amplifySpace: REAL, router: MsgRouter, history: HistoryEvent];
GetTextAmplifySpace: PROC [slice: Slice] RETURNS [amplifySpace: REAL];
SetTextColors: PROC [slice: Slice, textColor: Imager.Color, useTextColor: BOOL _ TRUE, shadowColor: Imager.Color, useShadowColor: BOOL _ FALSE, history: HistoryEvent];
GetTextColors: PROC [slice: Slice] RETURNS [textColor, shadowColor: Imager.Color];
GetTextDropShadow: PROC [slice: Slice] RETURNS [dropShadowOn: BOOL, dropShadow: Vector, color: Imager.Color];
DropShadowOn: PROC [slice: Slice, offset: Vector, history: HistoryEvent];
DropShadowOff: PROC [slice: Slice, history: HistoryEvent];
GetTextLineSpacing: PROC [slice: Slice] RETURNS [REAL];
SetTextLineSpacing: PROC [slice: Slice, lineSpacing: REAL, history: HistoryEvent];
SetTextDisplayStyle: PROC [slice: Slice, displayStyle: DisplayStyle, history: HistoryEvent];
OutlinesFromTextString: PROC [slice: Slice] RETURNS [shadowOutlines, outlines: LIST OF Slice];

Corner: TYPE = {none, ll, ul, ur, lr}; -- lower left, upper left, upper right, lower right
Edge: TYPE = {none, left, right, top, bottom};

BuildBoxSliceClass: PROC [] RETURNS [class: SliceClass];
MakeBoxFromMaskPixel: PROC [pa: Imager.PixelArray, color: Color, router: MsgRouter, transform: ImagerTransformation.Transformation _ NIL] RETURNS [slice: Slice];
MakeBoxSlice: PROC [box: BoundBox, corner: Corner, transform: ImagerTransformation.Transformation] RETURNS [sliceD: SliceDescriptor];
BoxFetchSegment: PROC [slice: Slice, index: NAT] RETURNS [seg: Segment];
SetBoxText: PROC [slice: Slice, loc: TextNode.Location, screenStyle: BOOL _ FALSE, history: HistoryEvent];
GetBoxText: PROC [slice: Slice] RETURNS [loc: TextNode.Location, screenStyle: BOOL];
GetBoxNodes: PROC [slice: Slice] RETURNS [nodes: TiogaImager.FormattedNodes];
RenderText: PROC [dc: Imager.Context, slice: GGModelTypes.Slice, camera: Camera, quick: BOOL];

BuildCircleSliceClass: PROC [] RETURNS [class: SliceClass];
MakeCircleSlice: PROC [origin: Point, outerPoint: Point] RETURNS [sliceD: SliceDescriptor];
CircleGetParams: PROC [slice: Slice] RETURNS [origin: Point, outerPoint: Point, transform: ImagerTransformation.Transformation]; -- used by MatchTool

BuildIPSliceClass: PROC [] RETURNS [class: SliceClass];
MakeIPSliceFromMaster: PROC [ipMaster: Interpress.Master, pixelsPerUnit: REAL _ 2834.646, fullName: Rope.ROPE _ NIL, router: MsgRouter, transform: ImagerTransformation.Transformation _ NIL, localTightBox: BoundBox _ NIL, localBox: BoundBox _ NIL, includeByValue: BOOL] RETURNS [slice: Slice];
MakeIPSliceFromMaskPixel: PROC [pa: Imager.PixelArray, color: Color, router: MsgRouter, transform: ImagerTransformation.Transformation _ NIL] RETURNS [slice: Slice];
MakeIPSliceFromMaskBits: PROC [base: LONG POINTER, wordsPerLine: NAT, 
sMin, fMin, sSize, fSize: NAT, tx, ty: INTEGER _ 0, color: Color, router: MsgRouter, transform: ImagerTransformation.Transformation _ NIL] RETURNS [slice: Slice];
SetIncludeByValue: PROC [slice: Slice, includeByValue: BOOL, history: HistoryEvent];
GetIncludeByValue: PROC [slice: Slice] RETURNS [includeByValue: BOOL];

SetDefaultUseLatestIPVersion: PROC [useLatestIPVersion: BOOL];
GetDefaultUseLatestIPVersion: PROC [] RETURNS [useLatestIPVersion: BOOL];

BuildTrajSliceClass: PROC [] RETURNS [class: SliceClass];
BuildMoreTrajSliceClass: PROC [class: SliceClass]; -- for internal communication only
BuildOutlineSliceClass: PROC [] RETURNS [class: SliceClass];
BuildMoreOutlineSliceClass: PROC [class: SliceClass]; -- for internal communication only
TrajShapeChangeNotify: PROC [slice: Slice]; -- calls KillBoundBox and invalidates the polyline approximation
copyRestore: BOOL; -- temporary for test Restore procs. in GGSliceImplA.copyRestore

KillBoundBox: PROC [slice: Slice]; -- invalidate cached bound box and tight box in ancestor caches
KillBoundBoxOnly: PROC [slice: Slice]; -- invalidate cached bound box in ancestor caches
KillTightBoxOnly: PROC [slice: Slice]; -- invalidate cached tight box in ancestor caches
UnlinkSlice: PROC [slice: Slice];

NoOpBoundBox: SliceBoundBoxProc;
NoOpTransformedBoundBox: SliceTransformedBoundBoxProc;
NoOpTightBox: SliceTightBoxProc;
NoOpCopy: SliceCopyProc;
NoOpBuildPath: SliceBuildPathProc;
NoOpDrawBorder: SliceDrawBorderProc;
NoOpDrawParts: SliceDrawPartsProc;
NoOpDrawTransform: SliceDrawTransformProc;
NoOpDrawSelectionFeedback: SliceDrawSelectionFeedbackProc;
NoOpDrawAttractorFeedback: SliceDrawAttractorFeedbackProc;
NoOpAttractorFeedbackBoundBox: SliceAttractorFeedbackBoundBoxProc;
NoOpSaveSelections: SliceSaveSelectionsProc;
NoOpRemakeSelections: SliceRemakeSelectionsProc;
NoOpTransform: SliceTransformProc;
NoOpDescribe: SliceDescribeProc;
NoOpDescribeHit: SliceDescribeHitProc;
NoOpFileout: SliceFileoutProc;
NoOpFilein: SliceFileinProc;
NoOpEmptyParts: SliceIsEmptyPartsProc;
NoOpIsCompleteParts: SliceIsCompletePartsProc;
NoOpNewParts: SliceNewPartsProc;
NoOpUnionParts: SliceUnionPartsProc;
NoOpDifferenceParts: SliceDifferencePartsProc;
NoOpMovingParts: SliceMovingPartsProc;
NoOpAugmentParts: SliceAugmentPartsProc;
NoOpAlterParts: SliceAlterPartsProc;
NoOpSetSelectedFields: SliceSetSelectedFieldsProc;
NoOpPointsInDescriptor: SlicePointsInDescriptorProc;
NoOpPointPairsInDescriptor: SlicePointPairsInDescriptorProc;
NoOpSegmentsInDescriptor: SliceSegmentsInDescriptorProc;
NoOpWalkSegments: SliceWalkSegmentsProc;
NoOpNextPoint: SliceNextPointProc;
NoOpNextPointPair: SliceNextPointPairProc;
NoOpNextSegment: SliceNextSegmentProc;
NoOpClosestPoint: SliceClosestPointProc;
NoOpClosestJointToHitData: SliceClosestJointToHitDataProc;
NoOpClosestPointAndTangent: SliceClosestPointAndTangentProc;
NoOpClosestSegment: SliceClosestSegmentProc;
NoOpFilledPathsUnderPoint: SliceFilledPathsUnderPointProc;
NoOpLineIntersection: SliceLineIntersectionProc;
NoOpCircleIntersection: SliceCircleIntersectionProc;
NoOpHitDataAsSimpleCurve: SliceHitDataAsSimpleCurveProc;
NoOpSetDefaults: SliceSetDefaultsProc;
NoOpSetStrokeWidth: SliceSetStrokeWidthProc;
NoOpGetStrokeWidth: SliceGetStrokeWidthProc;
NoOpSetStrokeEnd: SliceSetStrokeEndProc;
NoOpGetStrokeEnd: SliceGetStrokeEndProc;
NoOpSetStrokeJoint: SliceSetStrokeJointProc;
NoOpGetStrokeJoint: SliceGetStrokeJointProc;
NoOpSetStrokeColor: SliceSetStrokeColorProc;
NoOpGetStrokeColor: SliceGetStrokeColorProc;
NoOpSetFillColor: SliceSetFillColorProc;
NoOpGetFillColor: SliceGetFillColorProc;
NoOpSetArrows: SliceSetArrowsProc;
NoOpGetArrows: SliceGetArrowsProc;
NoOpSetDashed: SliceSetDashedProc;
NoOpGetDashed: SliceGetDashedProc;
NoOpSetOrientation: SliceSetOrientationProc;
NoOpGetOrientation: SliceGetOrientationProc;

GenericTransformedBoundBox: SliceTransformedBoundBoxProc;

END.
	GGSlice.mesa
Contents: Public access to instances of each slice class.
Copyright Σ 1987 by Xerox Corporation.  All rights reserved.
Pier, August 15, 1991 9:36 pm PDT
Bier, December 2, 1991 11:07 am PST
Kurlander, August 6, 1987 11:17:31 am PDT
Eisenman, September 28, 1987 5:57:33 pm PDT

Creation and Queries about Slice Classes
Creation, Modification and Queries about Slices
Clusters
Disconnects the named child from parent (to which it presumably belongs).  Does not affect selections.

Text Slices

MakeTextSlice MUST BE FOLLOWED BY A CALL TO SetTextFont !!
The text slice's font will be set using fontData.  The translation component of the existing slice transform will be used.  If fontData.transform=NIL, the scale component of the new transform is set to fontData.scale and the rotation component to 0.
The text slice's font will be set using fontData.  fontData.transform will be used.
A fontName is a font designation with family, size, and face, like Helvetica23BI or TimesRoman6. A colorName is a name from the color naming system in the Cedar ColorTool.
may raise FontStringError
Box Slices

A box is a slice which maintains its rectilinear properties. It is possible to select/drag one of four corners, one of four edges, or the entire box. When a corner is dragged, box is rubberbanded to keep its box shape. When an edge is dragged, only the perpendicular component of the drag vector is used to move the edge, thus maintaining box shape.  When the entire box is selected (traj or topLevel), it can be translated and rotated.

transform defaults to the identity.
used by parent to render text after rendering fill and outline

Circle Slices
Interpress Slices

pixelsPerUnit explains what the unit was when the interpress master was made.  The default value is for meters.
A duplicate of GGUserProfile.SetDefaultUseLatestIPVersion, for the modelling level.
A duplicate of GGUserProfile.GetDefaultUseLatestIPVersion, for the modelling level.
Outline and Trajectory Slices


Slice Utility Routines

For use ONLY to destroy REFs in slices so that Cedar garbage collector can collect storage.  Only for wizards.
NoOp Class Routines
In GGSliceImplC.NoOpBoundBox

Drawing
Transforming
Textual Description
Hit Testing
Style
this proc is an expensive way to calculate the bound box of a transformed object
Κ
-˜Icodeš
œ™™9K™<Kš
œ!™!Kš
œ#™#K™)K™+—K™š
Οk	˜	Jš
Ϫ
˜™
—K˜KšΟnœœ
œ
˜1˜KšΠbkΟb˜K˜Kšœ
œ˜'Kšœœ˜Kšœœ˜#Kšœœ˜/Kšœœ˜*Kšœ
œ˜!Kšœœ˜1Kšœœ˜!Kšœœ˜3Kšœœ#˜;Kšœ	œ˜'Kšœœ!˜7Kšœœ!˜5Kšœœ˜!Kšœœ˜+Kšœœ ˜5Kšœœ˜3Kšœœ˜+Kšœœ˜#Kšœœ˜#Kšœ
œ˜'—K˜Kšžœœ
˜Kšž
œœ
˜K˜Kš
œ(™(K˜Kšžœœ˜-Kšžœœœœ˜?K˜š
œ/™/K˜—Kšžœœ#œ˜^Kšžœœœ#˜OK˜K™Iprocšœ
œœ˜'šœœœ˜Lšœœ˜L˜L˜—Kš
ž
œœ
œœœ˜BKšžœœ)œ˜EKš
žœœœ
œœ˜SKšžœœœ˜KKšžœœ ˜7Kšž	œœœ˜/šž	œœœ
œ˜8K™f—K˜Kšžœœœ˜<KšžœœΟc"˜XK™™K™—Kšžœœœ˜9šž
œœ
œAœœœSœ˜φ
Kš
œœ
œ
œ
œœ
œ™:—š
žœœNœœœ˜Kšœ’
œd™ω
—š
žœœNœœœ˜‹
Kš
œS™S—Kšžœœœ˜>Kšžœœœœ˜9Kšžœœœœ˜@Kšžœœœœ˜:Kšžœœœœ˜1Kšžœœœ
œ˜7Kšžœœœ˜.Kšž
œœœ˜1Kšž
œœœœ˜7Kšžœœœ,˜gKšžœœœœ˜FKšž
œœ7œœ-œœ˜§
Kšž
œœœ(˜RKšžœœœœ+˜mKšžœœ7˜Išž
œœ'˜:Kš
œ«
™«
K™—Kšžœœœœ˜7Kšžœœœ˜RKšžœœC˜\Kš
žœœœœ
œ˜^K˜™
K™—Kš
œ΄™΄K™Kšœœ‘3˜ZKšœœ$˜.K˜šžœœœ˜8Kš
œ#™#—Kšžœœkœœ˜‘
KšžœœQœ˜…
Kšžœœœœ˜HKšž
œœ5œœ˜jKšž
œœœ'œ˜TKšžœœœ%˜Mšž
œœHœ˜^K™>—K™™
K˜—Kšžœœœ˜;Kšžœœ$œ˜[KšžœœœU‘˜•
K˜™K™—Kšžœœœ˜7šžœœ.œœœFœœœœœ˜€Kš
œo™o—Kšžœœkœœ˜₯
Kšžœœœ
œœœ
œXœœ˜ι
Kšžœœ œ˜Tšžœœœœ˜FK˜—šžœœœ˜>Kš
œS™S—šžœœœœ˜IKš
œS™S—K˜™K™—Kšžœœœ˜9Kšžœœ‘"˜UKšžœœœ˜<Kšžœœ‘"˜XKšžœœ‘@˜lK™™K™—Kš œœ‘@˜SK˜Kšžœœ‘?˜bKšžœœ‘1˜XKšžœœ‘1˜Xšžœœ˜!K™n—K˜™Kš
œ™K™—Kšžœ˜ Kšžœ˜6Kšžœ˜ šžœ˜Kš
œ™—Kšž
œ˜"Kšžœ˜$Kšž
œ˜"Kšžœ˜*Kšžœ!˜:Kšžœ!˜:šžœ%˜BKš
œ™—Kšž œ˜,Kšž œ˜0šž
œ˜"Kš
œ™—Kšžœ˜ Kšžœ˜&Kšžœ˜šž
œ˜Kš
œ™—Kšžœ˜&Kšžœ˜.Kšžœ˜ Kšžœ˜$Kšžœ˜.Kšžœ˜&Kšžœ˜(Kšžœ˜$Kšžœ˜2Kšžœ˜4Kšžœ"˜<Kšžœ ˜8Kšžœ˜(Kšž
œ˜"Kšžœ˜*Kšžœ˜&Kšžœ˜(Kšžœ!˜:Kšžœ"˜<Kšžœ˜,Kšžœ!˜:Kšžœ˜0Kšžœ˜4šžœ ˜8Kš
œ™—Kšžœ˜&Kšžœ˜,Kšžœ˜,Kšžœ˜(Kšžœ˜(Kšžœ˜,Kšžœ˜,Kšžœ˜,Kšžœ˜,Kšžœ˜(Kšžœ˜(Kšž
œ˜"Kšž
œ˜"Kšž
œ˜"Kšž
œ˜"Kšž œ˜,Kšž œ˜,K˜šžœ˜9K™P—K˜Kšœ
˜—…—&ψ:7