DIRECTORY ImagerBox USING [Box, Extents, Rectangle, VEC];

ImagerBoxImpl: CEDAR PROGRAM
EXPORTS ImagerBox
~ BEGIN OPEN ImagerBox;

BoxFromRectangle: PUBLIC PROC [r: Rectangle] RETURNS [b: Box] ~ {
Pt: PROC [x, y: REAL] ~ INLINE {
IF x > b.xmax THEN b.xmax м x ELSE IF x < b.xmin THEN b.xmin м x;
IF y > b.ymax THEN b.ymax м y ELSE IF y < b.ymin THEN b.ymin м y;
};
b м [r.x, r.y, r.x, r.y];
Pt[r.x+r.w, r.y+r.h];
};

RectangleFromBox: PUBLIC PROC [b: Box] RETURNS [Rectangle] ~ {
IF b.xmin > b.xmax THEN {t: REAL м b.xmin; b.xmin м b.xmax; b.xmax м t};
IF b.ymin > b.ymax THEN {t: REAL м b.ymin; b.ymin м b.ymax; b.ymax м t};
RETURN [[x: b.xmin, y: b.ymin, w: b.xmax-b.xmin, h: b.ymax-b.ymin]];
};

BoxFromExtents: PUBLIC PROC [e: Extents] RETURNS [b: Box] ~ {
Pt: PROC [x, y: REAL] ~ INLINE {
IF x > b.xmax THEN b.xmax м x ELSE IF x < b.xmin THEN b.xmin м x;
IF y > b.ymax THEN b.ymax м y ELSE IF y < b.ymin THEN b.ymin м y;
};
b м [e.rightExtent, e.ascent, e.rightExtent, e.ascent];
Pt[-e.leftExtent, -e.descent];
};

ExtentsFromBox: PUBLIC PROC [b: Box] RETURNS [Extents] ~ {
IF b.xmin > b.xmax THEN {t: REAL м b.xmin; b.xmin м b.xmax; b.xmax м t};
IF b.ymin > b.ymax THEN {t: REAL м b.ymin; b.ymin м b.ymax; b.ymax м t};
RETURN [[leftExtent: -b.xmin, descent: -b.ymin, rightExtent: b.xmax, ascent: b.ymax]];
};

IntersectBox: PUBLIC PROC [a: Box, b: Box] RETURNS [c: Box] ~ {
IF a.xmin > a.xmax THEN {t: REAL м a.xmin; a.xmin м a.xmax; a.xmax м t};
IF a.ymin > a.ymax THEN {t: REAL м a.ymin; a.ymin м a.ymax; a.ymax м t};
IF b.xmin > b.xmax THEN {t: REAL м b.xmin; b.xmin м b.xmax; b.xmax м t};
IF b.ymin > b.ymax THEN {t: REAL м b.ymin; b.ymin м b.ymax; b.ymax м t};
c м [xmin: MAX[a.xmin, b.xmin], ymin: MAX[a.ymin, b.ymin], xmax: MIN[a.xmax, b.xmax], ymax: MIN[a.ymax, b.ymax]];
IF c.xmin>=c.xmax OR c.ymin>=c.ymax THEN c м [0, 0, 0, 0];
};

BoundingBox: PUBLIC PROC [a: Box, b: Box] RETURNS [c: Box] ~ {
IF a.xmin > a.xmax THEN {t: REAL м a.xmin; a.xmin м a.xmax; a.xmax м t};
IF a.ymin > a.ymax THEN {t: REAL м a.ymin; a.ymin м a.ymax; a.ymax м t};
IF b.xmin > b.xmax THEN {t: REAL м b.xmin; b.xmin м b.xmax; b.xmax м t};
IF b.ymin > b.ymax THEN {t: REAL м b.ymin; b.ymin м b.ymax; b.ymax м t};
c м [xmin: MIN[a.xmin, b.xmin], ymin: MIN[a.ymin, b.ymin], xmax: MAX[a.xmax, b.xmax], ymax: MAX[a.ymax, b.ymax]];
};

BoundPoint: PUBLIC PROC [a: Box, b: VEC] RETURNS [Box] ~ {
IF a.xmin > a.xmax THEN {t: REAL м a.xmin; a.xmin м a.xmax; a.xmax м t};
IF a.ymin > a.ymax THEN {t: REAL м a.ymin; a.ymin м a.ymax; a.ymax м t};
RETURN [[xmin: MIN[a.xmin, b.x], ymin: MIN[a.ymin, b.y], xmax: MAX[a.xmax, b.x], ymax: MAX[a.ymax, b.y]]];
};

END.

   Т  
ImagerBoxImpl.mesa
Copyright ╙ 1985, 1986, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, August 20, 1986 4:46:22 pm PDT

Э╩Т  Ц(cedarcode) styleХNewlineDelimiter
Щ ЩIcodeЪЬ	╧eЬ<ЩHKЩ-JЩ ЧЪ╧k	ЬЮЬЮЬШ9KШ ЧЪ╨blЬЮШKЪЮЬ
ШKЪЬЮЬЮЬШKШ Ъ╧nЬЮЬЮЬЮЬШAЪаЬЮЬЮЬЮЬШ KЪ
ЮЬЮЬЮЬЮЬЮЬШAKЪ
ЮЬЮЬЮЬЮЬЮЬШAKЪЬШЧKШKШKЪЬШKШ ЧЪаЬЮЬЮЬ
ЮЬШ>KЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬ>ШDKЪЬШЧKШ ЪаЬЮЬЮЬЮЬШ=ЪаЬЮЬЮЬЮЬШ KЪ
ЮЬЮЬЮЬЮЬЮЬШAKЪ
ЮЬЮЬЮЬЮЬЮЬШAKЪЬШЧKШ7KЪЬШKЪЬШKШ ЧЪаЬЮЬЮЬ
ЮЬШ:KЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬPШVKЪЬШЧKШ ЪаЬЮЬЮЬЮЬШ?KЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪ	ЬЮЬЮЬЮЬЮЬШqKЪЮЬЮЬЮЬШ:KЪЬШKШ ЧЪаЬЮЬЮЬЮЬШ>KЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪ	ЬЮЬЮЬЮЬЮЬШqKЪЬШKШ ЧЪ
а
ЬЮЬЮЬЮЬЮЬ
Ш:KЪЮЬЮЬЮЬ(ШHKЪЮЬЮЬЮЬ(ШHKЪ
ЮЬ	ЮЬЮЬЮЬЮЬШjKЪЬШKШ ЧKЪЮЬШЧKШ Ч ЕЧ    
T  x  