DIRECTORY
Imager, ImagerBackdoor, ImagerBox, ImagerPath, ImagerScanConverter, PathToBox, Real, SF, Vector2;

PathToBoxImpl: CEDAR PROGRAM
IMPORTS ImagerBackdoor, ImagerBox, ImagerPath, ImagerScanConverter, Real
EXPORTS PathToBox
~ BEGIN OPEN PathToBox;

VEC: TYPE ~ Vector2.VEC;

PathToBox: PUBLIC PROC [context: Imager.Context, path: PathProc, precision: BoxPrecision м device] RETURNS [box: Box] ~ {

PathBoundPoint: PROC [boxIn: Box, p: VEC] RETURNS [boxOut: Box] ~ {
width: REAL м ImagerBackdoor.GetReal[context, strokeWidth];
newbox: Box м [
xmin: p.x - Real.Ceiling[width/2], 
xmax: p.x + Real.Ceiling[width/2],
ymin: p.y - Real.Ceiling[width/2], 
ymax: p.y + Real.Ceiling[width/2]];
boxOut м ImagerBox.BoundingBox[boxIn, newbox];
};

SELECT precision FROM
conic => { 
p0: VEC м [0, 0]; -- in path's coordinates, not transformed
first: BOOL м TRUE;
ConicBoxMoveTo: PROC [p: VEC] ~ {
IF first THEN { first м FALSE; box м [p.x, p.y, p.x, p.y]; };
box м PathBoundPoint[box, p];
p0 м p;
};
ConicBoxLineTo: PROC [p1: VEC] ~ {
IF first THEN ConicBoxMoveTo[p0] ELSE box м PathBoundPoint[box, p0];
box м PathBoundPoint[box, p1];
p0 м p1;
};
ConicBoxCurveTo: PROC [p1, p2, p3: VEC] ~ {
IF first THEN ConicBoxMoveTo[p0] ELSE box м PathBoundPoint[box, p0];
box м PathBoundPoint[box, p1];
box м PathBoundPoint[box, p2];
box м PathBoundPoint[box, p3];
p0 м p3;
};
ConicBoxConicTo: PROC [p1, p2: VEC, r: REAL] ~ {
IF first THEN ConicBoxMoveTo[p0] ELSE box м PathBoundPoint[box, p0];
box м PathBoundPoint[box, p1];
box м PathBoundPoint[box, p2];
p0 м p2;
};
ConicBoxArcTo: PROC [p1, p2: VEC] ~ {
IF first THEN ConicBoxMoveTo[p0];
ImagerPath.ArcToConics[p0, p1, p2, ConicBoxConicTo];
p0 м p2;
};
box м [0,0,0,0];
path[moveTo: ConicBoxMoveTo, lineTo: ConicBoxLineTo, curveTo: ConicBoxCurveTo, conicTo: ConicBoxConicTo, arcTo: ConicBoxArcTo];
};
curve => { 
p0: VEC м [0, 0]; -- in path's coordinates, not transformed
first: BOOL м TRUE;
CurveBoxMoveTo: PROC [p: VEC] ~ {
IF first THEN { first м FALSE; box м [p.x, p.y, p.x, p.y]; };
box м PathBoundPoint[box, p];
p0 м p;
};
CurveBoxLineTo: PROC [p1: VEC] ~ {
IF first THEN CurveBoxMoveTo[p0] ELSE box м PathBoundPoint[box, p0];
box м PathBoundPoint[box, p1];
p0 м p1;
};
CurveBoxCurveTo: PROC [p1, p2, p3: VEC] ~ {
IF first THEN CurveBoxMoveTo[p0] ELSE box м PathBoundPoint[box, p0];
box м PathBoundPoint[box, p1];
box м PathBoundPoint[box, p2];
box м PathBoundPoint[box, p3];
p0 м p3;
};
CurveBoxConicTo: PROC [p1, p2: VEC, r: REAL] ~ {
IF first THEN CurveBoxMoveTo[p0];
ImagerPath.ConicToCurves[p0, p1, p2, r, CurveBoxCurveTo];
p0 м p2;
};
CurveBoxArcTo: PROC [p1, p2: VEC] ~ {
IF first THEN CurveBoxMoveTo[p0];
ImagerPath.ArcToConics[p0, p1, p2, CurveBoxConicTo];
p0 м p2;
};
box м [0,0,0,0];
path[moveTo: CurveBoxMoveTo, lineTo: CurveBoxLineTo, curveTo: CurveBoxCurveTo, conicTo: CurveBoxConicTo, arcTo: CurveBoxArcTo];
};
device => {
sfBox: SF.Box;
devicePath: ImagerScanConverter.DevicePath м ImagerScanConverter.Create[];
ImagerScanConverter.SetPath[devicePath, path];
sfBox м ImagerScanConverter.BoundingBox[devicePath];
box.xmin м sfBox.min.f;
box.ymin м sfBox.min.s;
box.xmax м sfBox.max.f;
box.ymax м sfBox.max.s;
};
ENDCASE;
};
END.
   ▓  
PathToBoxImpl.mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Contents:  Returns a bounding box of a Path.
Blair MacIntyre July 2, 1992 11:49 am PDT


 Э╩Й  ХNewlineDelimiter
Щ ЩIcodeЪЬ	╧eЬ0Щ<KЩ,KЩ)KЩ ЧЪ╧k	Ш	KЪЬUЮЬ
ШaЧKШ KЪ╨lnЮЬЮШKЪЮЬ;ЬШHKЪЮЬ
ШKЪЬЮЬЮЬ
ЬШKШ KЪЮЬЮЬЮЬШKШ Ъ╧n	ЬЮЬMЮЬШyKШ ЪаЬЮЬЮЬЮЬШCKЪЬЮЬ0Ш;ШKШ#KШ"KШ#KШ#ЧKШ.KШKШ ЧЪЮЬЮШШKЪЬЮЬ╧c)Ш;KЪЬЮЬЮЬШЪаЬЮЬЮЬШ!KЪЮЬЮЬЮЬ Ш=KШKШKЪЬШЧЪаЬЮЬЮЬШ"KЪЮЬЮЬЮЬШDKШKШKЪЬШЧЪаЬЮЬЮЬШ+KЪЮЬЮЬЮЬШDKШKШKШKШKЪЬШЧЪаЬЮЬ
ЮЬЮЬШ0KЪЮЬЮЬЮЬШDKШKШKШKЪЬШЧЪаЬЮЬ
ЮЬШ%KЪЮЬЮЬШ!KШ4KШKЪЬШЧKШKШKШЧШKЪЬЮЬб)Ш;KЪЬЮЬЮЬШЪаЬЮЬЮЬШ!KЪЮЬЮЬЮЬ Ш=KШKШKЪЬШЧЪаЬЮЬЮЬШ"KЪЮЬЮЬЮЬШDKШKШKЪЬШЧЪаЬЮЬЮЬШ+KЪЮЬЮЬЮЬШDKШKШKШKШKЪЬШЧЪаЬЮЬ
ЮЬЮЬШ0KЪЮЬЮЬШ!KШ9KШKЪЬШЧЪаЬЮЬ
ЮЬШ%KЪЮЬЮЬШ!KШ4KШKЪЬШЧKШKШKШЧШKЪЬЮЬШKШJKШ.KШ4KШKШKШKШKШЧЧKЪЮЬШKШKЩ ЧKЪЮЬШKЩ Ч ЕЧ    p  л  