
DIRECTORY G2dBasic, G2dVector, Imager, ImagerSample, IO, Rope, ViewerClasses;

G2dContour: CEDAR DEFINITIONS
IMPORTS Imager

~ BEGIN

Error:						ERROR [code: ATOM, reason: ROPE];
Contour:					TYPE ~ REF ContourRep;
ContourRep:				TYPE ~ RECORD [
t:									REAL м 0.0,					-- curve parameter, if known
closed:							BOOL м FALSE,				-- if true, last point connects to 1st
circle:								BOOL м TRUE,				-- if true, normals = points
pairs:								PairSequence м NIL,		-- 2d points on contour
normals:							PairSequence м NIL,		-- 2d normals of contour points
percents:							RealSequence м NIL,		-- % along contour for each point
clientData:						REF м NIL			
];

ContourSequence:		TYPE ~ REF ContourSequenceRep;
ContourSequenceRep: 	TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Contour
];

Span:						TYPE ~ RECORD [y, x0, x1: INTEGER];

SpanSequence:			TYPE ~ REF SpanSequenceRep;
SpanSequenceRep:		TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Span
];

RealIndex:				TYPE ~ RECORD [n: NAT м 0, alpha: REAL м 0.0];
ROPE:						TYPE ~ Rope.ROPE;
STREAM:					TYPE ~ IO.STREAM;

Viewer:					TYPE ~ ViewerClasses.Viewer;
Context: 					TYPE ~ Imager.Context;
SampleMap:				TYPE ~ ImagerSample.SampleMap;
Rectangle:				TYPE ~ Imager.Rectangle;
Color:						TYPE ~ Imager.Color;

Border:					TYPE ~ G2dBasic.Border;
Pair:						TYPE ~ G2dBasic.Pair;						-- RECORD [x, y: REAL]
PairSequence:			TYPE ~ G2dBasic.PairSequence;
PairSequenceRep:		TYPE ~ G2dBasic.PairSequenceRep;
IntegerPair:				TYPE ~ G2dBasic.IntegerPair;				-- RECORD [x, y: INTEGER]
IntegerPairSequence:	TYPE ~ G2dBasic.IntegerPairSequence;
IntegerPairSequenceRep: TYPE ~ G2dBasic.IntegerPairSequenceRep;
NatPair:					TYPE ~ G2dBasic.NatPair;					-- RECORD [x, y: Nat]
NatPairSequence:		TYPE ~ G2dBasic.NatPairSequence;
NatPairSequenceRep:	TYPE ~ G2dBasic.NatPairSequenceRep;
RealSequence:			TYPE ~ G2dBasic.RealSequence;
RealSequenceRep:		TYPE ~ G2dBasic.RealSequenceRep;
FromPairs: PROC [pairs: PairSequence, closed: BOOL м FALSE, t: REAL м 0.0]
RETURNS [Contour];

FromIntegerPairs: PROC [
integerPairs: IntegerPairSequence, closed: BOOL м FALSE, t: REAL м 0.0]
RETURNS [Contour];
IntegerPairsFromPairs: PROC [pairs: PairSequence] RETURNS [IntegerPairSequence];
PairsFromIntegerPairs: PROC [integerPairs: IntegerPairSequence] RETURNS [PairSequence];
ShiftPairs: PROC [pairs: PairSequence, shift: INTEGER];
Scale: PROC [contour: Contour, scale: Pair] RETURNS [Contour];
Offset: PROC [contour: Contour, offset: Pair] RETURNS [Contour];
Center: PROC [contour: Contour] RETURNS [Contour];
Orient: PROC [contour: Contour] RETURNS [Contour];
ContourOK: PUBLIC PROC [contour: Contour] RETURNS [BOOL];
MinMax: PROC [contour: Contour] RETURNS [min, max: Pair];
Centroid: PROC [contour: Contour] RETURNS [Pair];
Area: PROC [contour: Contour] RETURNS [REAL];
SmoothPairs: PROC [src: PairSequence, dst: PairSequence м NIL] RETURNS [PairSequence];
Smooth: PROC [contour: Contour] RETURNS [Contour];
Thin: PROC [contour: Contour, epsilon: REAL м 3.0] RETURNS [Contour];
ResampleNats: PROC [src: NatPairSequence, dstnum: NAT, dst: PairSequence м NIL]
RETURNS [PairSequence];

ResamplePairs: PROC [src: PairSequence, dstnum: NAT, dst: PairSequence м NIL]
RETURNS [PairSequence];
Interpolate: PROC [contour0, contour1: Contour, alpha: REAL] RETURNS [Contour];
Sample: PROC [contour: Contour, nPairs: INTEGER] RETURNS [Contour];
Similar: PROC [contour0, contour1: Contour] RETURNS [REAL];
InsideContour: PROC [p: Pair, pairs: PairSequence] RETURNS [Border];
CirclePairs: PROC [nPairs: INTEGER] RETURNS [PairSequence];
Circle: PROC [nPairs: INTEGER] RETURNS [Contour];
Normals: PROC [contour: Contour] RETURNS [PairSequence];
Percents: PROC [contour: Contour] RETURNS [RealSequence];
AtPercent: PROC [contour: Contour, percent: REAL] RETURNS [RealIndex];

PercentPair: PROC [contour: Contour, percent: REAL] RETURNS [Pair];
PercentNormal: PROC [contour: Contour, percent: REAL] RETURNS [Pair];
Spans: PROC [contour: Contour, rectangle: Rectangle] RETURNS [SpanSequence];
FillSpans: PROC [map: SampleMap, spans: SpanSequence, color: CARDINAL];
Fill: PROC [context: Context, contour: Contour, color: Color м Imager.black];
Outline: PROC [context: Context, contour: Contour, color: Color м Imager.black];
OutlineMap: PROC [map: SampleMap, contour: Contour, color: CARDINAL м 0];
FillMap: PROC [map: SampleMap, contour: Contour, color: CARDINAL];
Copy: PROC [contour: Contour] RETURNS [Contour];
CopySequence: PROC [contour: ContourSequence] RETURNS [ContourSequence];
Paint: PUBLIC PROC [contour: Contour, context: Context, paintNormals: BOOL м FALSE];
Write: PROC [stream: STREAM, contour: Contour];
Read: PROC [stream: STREAM] RETURNS [Contour];

END.


    
G2dContour.mesa
Copyright ╙ 1985, 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 1, 1992 7:04 pm PDT
Glassner, March 18, 1990 3:28:34 pm PST
Note
The contour type supported by this interface is, simply, a sequence of two-dimensional points; there is no higher or analytic representation for the contour.  The contour may be closed, in which case the last point of the sequence connects to the first point.
Local Types
Imported Types
Contour Creation
Return the contour given the input sequence.
Return the contour given the input sequence.
General Operations
Convert the sequence.

Convert the sequence.

Barrel shift of the sequence; positive shift is to the left, negative to the right.

Return the input contour scaled by the given amount.

Return the input contour offset by the given amount.

Return the input contour centered about [0, 0].

Return the input contour after orienting it to start at the lowest point in y.
Attributes
Return true if contour and contour.pairs are non-nil.

Return the minimum and maximum of the contour.

Return the center of the contour.

Return contour area: + if clockwise, - if counterclockwise, 0 if not closed.
Smoothing and Thinning 
Compute weighted local average of src; use dst if # NIL and long enough.

Replace contour points with weighted local average.

Remove redundant points (epsilon is the permissible angular degree deviation from straight).
Interpolation/Resampling/Comparing
Resample src curve to have dstnum (approx) equally spaced points; nats in, reals out.
Avoids new allocation if dst # NIL and is long enough.
Resample src curve to have dstnum (approx) equally spaced points; reals in, reals out.
Avoids new allocation if dst # NIL and is long enough.

Return the contour that is alpha*contour0+(1.0-alpha)*contour1.

Return a sampled copy of contour.

Return a measure of the similarity between the two g2dContour: 0 => dissimilar, 1 => similar.
Inside/Outside Test
Determine whether p is within the closed boundary defined by pairs. 
Circles
Return the points of a circle.

Return a circular contour of nPairs number of points.
Normals 
Return the set of two-dimensional normals for the contour.
Percents 
Set the percentages of each point according to its distance along the contour.

Return the index into contour.pairs which is percent percentage around the contour.
Return the contour point at percent percentage around the contour.

Return the (unitized) contour normal at percent percentage around the contour.
Spans
Create a sequence of scanline segments which constitue the pixelated contour region.

Color the spans.
Filling/Outlining
Fill the contour with the current Imager color.

Outline the contour with the current Imager color.

Outline the contour with the given color.

Fill the contour with the given color.
Copying
Return a copy of the input contour; the contour points and normals are copied.

Return a copy of the input sequence.
Painting
Paint the given contour.
IO
Write the given contour to the given stream.

Read the given contour from the given stream.

 Э╩▌  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЪЬЩJЪЬ
╧eЬ=ЩHJЩ%JЩ'JШ JЪ╧k	Ь,ЮЬШMJШ ЧЪ╨bl
ЬЮЬЮШJЪЮЬШJШ ЧЪЬЮШJШ JЪЬЮЬЮЬ
ЮЬШ-ЧheadЪ╧lЩJЩГЧЪаЩJЪЬЮЬЮЬШ#ЪЬЮЬЮЬШJЪЬЮЬ╧cШ7JЪЬЮЬЮЬб&ШEJЪЬЮЬЮЬбШ;JЪЬЮЬбШ:JЪЬЮЬбШCJЪЬЮЬб!ШFJЪЬЮЬЮЬШЪЬШJШ ЧЧJЪЬЮЬЮЬШ0ЪЬЮЬЮЬШ$JЪЬЮ	ЬШJЪЬЮ	ЬЮЬЮЬШ6ШJШ ЧЧЪЬ
ЮЬЮЬЮЬШ.JШ ЧJЪЬЮЬЮЬШ+ЪЬЮЬЮЬШ!JЪЬЮЬШJЪЬЮЬЮЬЮЬШ3JШJШ ЧJЪ	ЬЮЬЮЬЮЬЮЬШ<ЧЪаЩJЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШJШ ЧJЪЬ
ЮЬШ(JЪЬЮЬШ$JЪЬЮЬШ,JЪЬЮЬШ&ЪЬЮЬШ JШ ЧJЪЬЮЬШ#JЪЬЮЬб╨csбвШ<JЪЬЮЬШ-JЪЬЮЬШ2JЪЬЮЬбвбвШIJЪЬЮЬ Ш9JЪЬ╧sЮЬ#Ш?JЪЬЮЬбвб	вШ?JЪЬЮЬШ2JЪЬЮЬШ7JЪЬЮЬШ-JЪЬЮЬШ2ЧЪаЩЪ
╧n	ЬЮЬЮЬЮЬЮЬШJJЪЮЬШJЩ,JШ ЧЪдЬЮЬШJЪЬ+ЮЬЮЬЮЬШGJЪЮЬШJЩ,ЧЧЪаЩЪдЬЮЬЮЬШPJЩJЩ ЧЪдЬЮЬ%ЮЬШWJЩJЩ ЧЪд
ЬЮЬЮЬШ7JЩSJЩ ЧЪдЬЮЬ!ЮЬШ>JЩ4JЩ ЧЪдЬЮЬ"ЮЬШ@JЩ4JЩ ЧЪдЬЮЬЮЬШ2JЩ/JЩ ЧЪдЬЮЬЮЬШ2JЩNЧЧЪа
Щ
Ъ
д	ЬЮЬЮЬЮЬЮЬШ9JЩ5JЩ ЧЪдЬЮЬЮЬШ9JЩ.JЩ ЧЪдЬЮЬЮЬШ1JЩ!JЩ ЧЪдЬЮЬЮЬЮЬШ-JЩLЧЧЪаЩЪдЬЮЬ)ЮЬЮЬШVJЪЬ4гЬЩHJЩ ЧЪдЬЮЬЮЬШ2JЩ3JЩ ЧЪдЬЮЬЮЬЮЬШEJЩ\ЧЧЪа"Щ"ЪдЬЮЬ ЮЬЮЬШOJЪЮЬШJЩUJЪЬ╨ksЬеЬЩ6JШ ЧЪдЬЮЬЮЬЮЬШMJЪЮЬШJЩVJЪЬеЬеЬЩ6JЩ ЧЪдЬЮЬ&ЮЬЮЬШOJЩ?JЩ ЧЪдЬЮЬЮЬЮЬШCJЩ!JЩ ЧЪдЬЮЬЮЬЮЬШ;JЩ]ЧЧЪаЩЪдЬЮЬ ЮЬ
ШDJЩDЧЧЪаЩЪдЬЮЬ
ЮЬЮЬШ;JЩJЩ ЧЪдЬЮЬ
ЮЬЮЬШ1JЪЬ5Щ5ЧЧЪаЩЪдЬЮЬЮЬШ8JЩ:ЧЧЪа	Щ	ЪдЬЮЬЮЬШ9JЩNJЩ ЧЪд	ЬЮЬЮЬЮЬШFJЩSJШ ЧЪдЬЮЬЮЬЮЬШCJЩBJЩ ЧЪдЬЮЬЮЬЮЬШEJЩNЧЧЪаЩЪдЬЮЬ*ЮЬШLJЩTJЩ ЧЪд	ЬЮЬ.ЮЬШGJЩЧЧЪаЩЪдЬЮЬCШMJЩ/JЩ ЧЪдЬЮЬCШPJЩ2JЩ ЧЪд
ЬЮЬ+ЮЬШIJЩ)JЩ ЧЪдЬЮЬ+ЮЬШBJЩ&ЧЧЪаЩЪдЬЮЬЮЬШ0JЩNJЩ ЧЪдЬЮЬЮЬШHJЩ$ЧЧЪаЩЪ
дЬЮЬЮЬ4ЮЬЮЬШTJЩЧЧЪаЩЪдЬЮЬ
ЮЬШ/JЩ,JЩ ЧЪдЬЮЬ
ЮЬЮЬ
Ш.JЩ-JЩ ЧЧJШ JЪЮЬШJШ JШ Ч ЕЧ    ┤  &Щ  