DIRECTORYGGBasicTypes, GGModelTypes, GGSegmentTypes, ImagerTransformation, MatchViewer;MatchTurtle: CEDAR DEFINITIONSIMPORTS MatchViewer = BEGINPoint: TYPE = GGBasicTypes.Point;Segment: TYPE = GGSegmentTypes.Segment;Slice: TYPE = GGModelTypes.Slice;Traj: TYPE = GGModelTypes.Traj;TurtleInfo: TYPE = REF TurtleInfoObj;TurtleInfoObj: TYPE = RECORD [length: REAL,start: Point, -- start and end used during constructionend: Point];TurtleHeader: TYPE = REF TurtleHeaderObj;TurtleHeaderObj: TYPE = RECORD [length: REAL,center: Point, -- center of mass of curve (assuming a uniform wire density)closed: BOOL,radius: REAL, -- really the max distance from the curve to the center of masstform: ImagerTransformation.Transformation _ NIL,originalStart: Point,originalCenter: Point,tail: LIST OF TurtleInfo];Matcher: TYPE = REF MatcherObj;MatcherObj: TYPE = RECORD [turtle1, turtle2: TurtleHeader _ NIL,maxError: REAL _ 0.0,noMatch: BOOL _ TRUE,checkFirst: BOOL _ TRUE,checkSecond: BOOL _ FALSE,turtleCopy: TurtleHeader _ NIL,tailSoFar: LIST OF TurtleInfo _ NIL];PositionDescriptor: TYPE = REF PositionDObj;PositionDObj: TYPE = RECORD [valid: BOOL _ FALSE, -- specifies whether tform1 and tform2 are to be taken seriouslysettable: BOOL _ TRUE, -- specifies whether tform1 and tform2 can be settform1, tform2: ImagerTransformation.Transformation _ NIL,others: Matcher _ NIL -- a generator for other position descriptors which may match];GetShapeOfSlice: PROC [slice: Slice] RETURNS [TurtleHeader];TrajToTurtle: PROC [traj: Traj] RETURNS [turtle: TurtleHeader];SegmentToTurtle: PROC [seg: Segment, soFar: LIST OF TurtleInfo, reverse: BOOL _ FALSE] RETURNS [path: LIST OF TurtleInfo];CopyTurtleTail: PROC [turtleTail: LIST OF TurtleInfo] RETURNS [newTail: LIST OF TurtleInfo _ NIL];PackageTurtleTail: PROC [tail: LIST OF TurtleInfo] RETURNS [turtle: TurtleHeader];FlipTurtle: PROC [turtle: TurtleHeader] RETURNS [newTurtle: TurtleHeader];TurtleEqual: PROC [turtle1, turtle2: TurtleHeader, tol: REAL _ MatchViewer.GetMatchTolerance[], posD: PositionDescriptor _ NIL] RETURNS [BOOL _ FALSE];TurtleEqualEitherWay: PROC [turtle1, turtle2: TurtleHeader, tol: REAL _ MatchViewer.GetMatchTolerance[], posD: PositionDescriptor _ NIL] RETURNS [BOOL];CreateMatcher: PROC [turtle1, turtle2: TurtleHeader, tol: REAL _ -1.0, oneWay: BOOL] RETURNS [m: Matcher];NextMatch: PROC [m: Matcher] RETURNS [PositionDescriptor _ NIL];END.   N  Last edited by: David Kurlander - September 6, 1987 5:59:18 pm PDTBier, September 4, 1987 11:20:22 pm PDTType DefinitionsMaking TurtlesPublic for making turtles on the fly (for efficiency).  Also used internally.Modifying TurtlesComparing TurtlesMakes a generator of the orientations which match turtle1 to turtle2. ‌تi  ک codeڑœ?دk™BKڑœ$‌™'—K™ ڑ‌	ک	KکNKک —Kک ڑدnœ‌œ‌کKڑ‌œکKڑœ‌ک—™ Kڑœ‌œک!Kڑœ	‌œک'Kڑœ‌œک!Kڑœ‌œکKک —Kڑœ™Kک Kڑœ‌œ‌œک%ڑœ‌œ‌œکKڑœ‌œکKڑœدc)ک7Kک
Kک—Kڑœ‌œ‌œک)ڑœ‌œ‌œک Kڑœ‌œکKڑœں<کKKڑœ‌œکKڑœ‌œں?کMKڑœ-‌œک1KکKکKڑœ‌œ‌œکKک—Kڑœ	‌œ‌œکڑœ‌œ‌œکKڑœ!‌œک%Kڑœ
‌œکKڑœ	‌œ‌œکKڑœ‌œ‌œکKڑœ‌œ‌œکKڑœ‌œکKڑœ‌œ‌œ‌ک#Kک—Kڑœ‌œ‌œک,ڑœ‌œ‌œکKڑœ‌œ‌œں@کUKڑœ
‌œ‌œں1کHKڑœ6‌œک:Kڑœ‌œں=کSKک—Kک K™Kک Kڑ‍œ‌œ‌œک<Kڑ‍œ‌œ‌œک?Kڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکzKڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکbڑ
‍œ‌œ‌œ‌œ‌œکRK™M—Kک K™K™ Kڑ‍
œ‌œ‌œکJKک K™K™ Kڑ‍œ‌œ'‌œ?‌œ‌œ‌œ‌œک—Kڑ‍œ‌œ'‌œ?‌œ‌œ‌œککKک ڑ
‍œ‌œ'‌œ‌œ‌œکjKڑœE™E—Kڑ‍	œ‌œ‌œ‌œک@Kک Kڑ‌œک— …—    	¢  Y  