DIRECTORY
GGBasicTypes, GGBoundBox, GGCaret, GGInterfaceTypes, GGModelTypes, GGSegmentTypes, GGSliceOps;

GGCaretImpl: CEDAR PROGRAM
IMPORTS GGBoundBox, GGSliceOps
EXPORTS GGCaret = BEGIN

Caret: TYPE = REF CaretObj;
CaretObj: TYPE = GGInterfaceTypes.CaretObj;
GGData: TYPE = GGInterfaceTypes.GGData;
Joint: TYPE = GGModelTypes.Joint;
Point: TYPE = GGBasicTypes.Point;
Segment: TYPE = GGSegmentTypes.Segment;
Sequence: TYPE = GGModelTypes.Sequence;
Slice: TYPE = GGModelTypes.Slice;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
Traj: TYPE = GGModelTypes.Traj;
TrajData: TYPE = GGModelTypes.TrajData;
TrajPartType: TYPE = GGModelTypes.TrajPartType;
Vector: TYPE = GGBasicTypes.Vector;

NotYetImplemented: PUBLIC SIGNAL = CODE;

Create: PUBLIC PROC RETURNS [caret: Caret] = {
caret ¬ NEW[CaretObj];
};
Copy: PUBLIC PROC [to, from: Caret] = {
to­ ¬ from­;
};

Kill: PUBLIC PROC [caret: Caret] = {
caret.exists ¬ FALSE;
};
Exists: PUBLIC PROC [caret: Caret] RETURNS [BOOL] = {
RETURN[caret.exists];
};

BoundBoxOfCaret: PUBLIC PROC [caret: Caret, ggData: GGData] RETURNS [box: GGBoundBox.BoundBox ¬ NIL] = {
fudge: REAL ¬ 4.0; -- needed to make control points erase properly
leftOffset, rightOffset, topOffset, bottomOffset: REAL ¬ 0.0;
IF caret=NIL OR ggData=NIL THEN ERROR;
SELECT TRUE FROM
caret=ggData.caret => {
leftOffset ¬ GGCaret.caretWidth/2.0;
rightOffset ¬ leftOffset;
topOffset ¬ 0.0;
bottomOffset ¬ GGCaret.caretHeight;
};
caret=ggData.anchor => {
leftOffset ¬ GGCaret.anchorWidth/2.0;
rightOffset ¬ leftOffset;
topOffset ¬ GGCaret.anchorHeight/2.0;
bottomOffset ¬ topOffset;
};
ENDCASE => RETURN[NIL];
leftOffset ¬ leftOffset+fudge;
rightOffset ¬ rightOffset+fudge;
bottomOffset ¬ bottomOffset+fudge;
topOffset ¬ topOffset+fudge;
RETURN[GGBoundBox.CreateBoundBox[ caret.point.x-leftOffset, caret.point.y-bottomOffset, caret.point.x+rightOffset, caret.point.y+topOffset ]];
};

SitOn: PUBLIC PROC [caret: Caret, chair: SliceDescriptor ¬ NIL] = {
caret.chair ¬ chair;
};

GetChair: PUBLIC PROC [caret: Caret] RETURNS [chair: SliceDescriptor] = {
chair ¬ caret.chair;
};

SittingOnEnd: PUBLIC PROC [caret: Caret] RETURNS [BOOL] = {
IF caret.chair = NIL  THEN RETURN[FALSE];
RETURN[GGSliceOps.IsDescriptorOfEnd[caret.chair]];
};

NoAttractor: PUBLIC PROC [caret: Caret] = {
caret.attractor ¬ NIL;
};

SetAttractor: PUBLIC PROC [caret: Caret, point: Point, normal: Vector, attractor: REF ANY] = {
caret.exists ¬ TRUE;
caret.point ¬ point;
caret.normal ¬ normal;
caret.attractor ¬ attractor;
};

GetAttractor: PUBLIC PROC [caret: Caret] RETURNS [attractor: REF ANY] = {
attractor ¬ caret.attractor;
};

GetPoint: PUBLIC PROC [caret: Caret] RETURNS [point: Point] = {
point ¬ caret.point;
};

GetNormal: PUBLIC PROC [caret: Caret] RETURNS [normal: Vector] = {
normal ¬ caret.normal;
};

END.


   ¸  
GGCaretImpl.mesa
Copyright س 1985, 1992 by Xerox Corporation.  All rights reserved.
Pier, February 3, 1988 9:58:53 am PST
Bier, November 1, 1988 4:01:05 pm PST
Contents:  Facilities for moving the caret and storing information about the neighborhood it inhabits (such as what trajectory it is sitting on).

Used for dropping the anchor.
This caret no longer exists.  It should disappear from the screen.

The Chair.


The Attractor.
‌ت  •NewlineDelimiter
–(cedarcode) style™ code™Kڑœ	دeœ6™BKڑœ%™%K™%Kڑدnœ‰™‘K™ —ڑدk	ک	Kڑœ^ک^Kک —ڑ‍œںœںکKڑںœکKڑںœںک—ک Kڑœںœںœ
کKڑœ
ںœک+Kڑœںœک'Kڑœںœک!Kڑœںœک!Kڑœ	ںœک'Kڑœ
ںœک'Kڑœںœک!Kڑœںœ ک5KڑœںœکKڑœ
ںœک'Kڑœںœک/Kڑœںœک#—Kک Kڑ‍œںœںœںœک(Kک ڑ‍œںœںœںœک.KڑœںœکKک—ڑ‍œںœںœک'K™KکKکKک —ڑ‍œںœںœک$K™BKڑœںœکKکK™ —ڑ
‍œںœںœںœںœک5KڑںœکKکKک —ڑ
‍œںœںœ ںœںœکhKڑœںœدc/کBKڑœ2ںœک=Kڑںœںœںœںœںœںœک&ڑںœںœںکڑœکKک$KکKکKک#Kک—ڑœکKک%KکKک%KکKک—Kڑںœںœںœک—KکKک Kک"KکKڑںœˆکژKک—Kک ™
K™ —ڑ‍œںœںœ)ںœکCKڑœدtœ،کKکKک —ڑ‍œںœںœںœکIKکKکKک —ڑ
‍œںœںœںœںœک;Kڑ
ںœںœںœںœںœک)Kڑںœ,ک2Kک—K™ ™Kک —ڑ‍œںœںœک+KڑœںœکKکKک —ڑ
‍œںœںœ9ںœںœک^KڑœںœکKکKکKکKکKک —ڑ‍œںœںœںœںœںœکIKکKکKک —ڑ‍œںœںœںœک?KکKکKک —ڑ‍	œںœںœںœکBKکKک—Kک KڑںœکKک Kک Kک — …—    
ّ  ¼  