hg/stx-libbasic: Rectangle.st@3ff21a7f977d (annotated)

1 a27a279701f8 Initial revision claus parents: diff changeset	1	"
5 67342904af11 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	3	All Rights Reserved
1 a27a279701f8 Initial revision claus parents: diff changeset	4
a27a279701f8 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
a27a279701f8 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
a27a279701f8 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
a27a279701f8 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
a27a279701f8 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
a27a279701f8 Initial revision claus parents: diff changeset	10	hereby transferred.
a27a279701f8 Initial revision claus parents: diff changeset	11	"
a27a279701f8 Initial revision claus parents: diff changeset	12
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	13	Geometric subclass:#Rectangle
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	14	instanceVariableNames:'left top width height'
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	15	classVariableNames:''
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	16	poolDictionaries:''
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	17	category:'Graphics-Geometry'
1 a27a279701f8 Initial revision claus parents: diff changeset	18	!
a27a279701f8 Initial revision claus parents: diff changeset	19
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	20	!Rectangle class methodsFor:'documentation'!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	21
88 81dacba7a63a * empty log message * claus parents: 77 diff changeset	22	copyright
81dacba7a63a * empty log message * claus parents: 77 diff changeset	23	"
81dacba7a63a * empty log message * claus parents: 77 diff changeset	24	COPYRIGHT (c) 1989 by Claus Gittinger
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	25	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 77 diff changeset	26
81dacba7a63a * empty log message * claus parents: 77 diff changeset	27	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 77 diff changeset	28	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 77 diff changeset	29	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 77 diff changeset	30	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 77 diff changeset	31	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 77 diff changeset	32	hereby transferred.
81dacba7a63a * empty log message * claus parents: 77 diff changeset	33	"
81dacba7a63a * empty log message * claus parents: 77 diff changeset	34	!
81dacba7a63a * empty log message * claus parents: 77 diff changeset	35
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	36	documentation
6c38ca59927f * empty log message * claus parents: 59 diff changeset	37	"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	38	Rectangles represent a rectangular area in 2D space.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	39
6c38ca59927f * empty log message * claus parents: 59 diff changeset	40	notice, my implementation does not use origin/corner as instance objects
6c38ca59927f * empty log message * claus parents: 59 diff changeset	41	but left/top/width/height to save space and allocations. This means, that my
6c38ca59927f * empty log message * claus parents: 59 diff changeset	42	Rectangles cannot be used to represent Rectangles in a higher than 2D
6c38ca59927f * empty log message * claus parents: 59 diff changeset	43	space. (i.e. only valid if origin/corner are 2D Points)
6c38ca59927f * empty log message * claus parents: 59 diff changeset	44
6c38ca59927f * empty log message * claus parents: 59 diff changeset	45	(aside from that, you will not see any difference from the outside)
6c38ca59927f * empty log message * claus parents: 59 diff changeset	46
6c38ca59927f * empty log message * claus parents: 59 diff changeset	47	Instance variables:
6c38ca59927f * empty log message * claus parents: 59 diff changeset	48
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	49	left <Number> the left coordinate (i.e origin x)
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	50	top <Number> the top coordinate (i.e origin y)
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	51	width <Number> the width of the rectangle
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	52	height <Number> the height of the rectangle
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	53
6c38ca59927f * empty log message * claus parents: 59 diff changeset	54	I am not certain, if implementing Rectangle different was a good idea -
6c38ca59927f * empty log message * claus parents: 59 diff changeset	55	subclasses may expect things to be different ...
6c38ca59927f * empty log message * claus parents: 59 diff changeset	56	Therefore, this may change.
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	57
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	58	[author:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	59	Claus Gittinger
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	60
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	61	[see also:]
1355 ab14ef139343 doku Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	62	Point Polygon Circle EllipticalArc Spline
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	63	LayoutOrigin LayoutFrame AlignmentOrigin Layout
1390 64e57403f80d docu Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	64	View GraphicsContext StrokingWrapper FillingWrapper
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	65	"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	66	! !
6c38ca59927f * empty log message * claus parents: 59 diff changeset	67
1 a27a279701f8 Initial revision claus parents: diff changeset	68	!Rectangle class methodsFor:'instance creation'!
a27a279701f8 Initial revision claus parents: diff changeset	69
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	70	decodeFromLiteralArray:anArray
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	71	"create & return a new instance from information encoded in anArray.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	72	Redefined for faster creation."
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	73
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	74	\|l t w h\|
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	75
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	76	l := anArray at:2.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	77	t := anArray at:3.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	78	w := (anArray at:4) - l.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	79	h := (anArray at:5) - t.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	80	^ self left:l top:t width:w height:h
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	81
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	82	"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	83	Rectangle decodeFromLiteralArray:#(Rectangle 100 200 300 500)
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	84	"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	85
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	86	"Created: / 28.1.1998 / 17:46:52 / cg"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	87	!
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	88
4864 3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	89	encompassing:listOfPoints
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	90	"Return a rectangle, which encompasses all of the given points."
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	91
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	92	\|topLeft bottomRight\|
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	93
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	94	topLeft := bottomRight := nil.
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	95	listOfPoints do:[:p \|
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	96	topLeft == nil
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	97	ifTrue: [topLeft := bottomRight := p]
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	98	ifFalse: [topLeft := topLeft min: p.
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	99	bottomRight := bottomRight max: p]
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	100	].
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	101	^ topLeft corner: bottomRight
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	102
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	103	"
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	104	Rectangle encompassing:(Array with:10@10 with:50@0 with:0@50)
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	105	"
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	106	!
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	107
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	108	fromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	109	"let user specify a rectangle on the screen, return it"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	110
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	111	^ Screen current rectangleFromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	112
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	113	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	114	Rectangle fromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	115	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	116	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	117
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	118	left:left right:right top:top bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	119	"create and return a new Rectangle giving left, top, right and bottom coordinates"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	120
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	121	^ (self basicNew) left:left right:right top:top bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	122	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	123
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	124	left:left top:top extent:extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	125	"create and return a new Rectangle giving left, top, and
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	126	an extent point."
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	127
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	128	^ (self basicNew) left:left top:top extent:extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	129
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	130	"Created: 8.5.1996 / 20:56:29 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	131	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	132
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	133	left:left top:top right:right bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	134	"create and return a new Rectangle giving left, top, right and bottom coordinates"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	135
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	136	^ (self basicNew) left:left top:top right:right bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	137	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	138
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	139	left:left top:top width:w height:h
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	140	"create and return a new Rectangle giving left and top coordinates
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	141	and width, height"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	142
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	143	%{ /* NOCONTEXT */
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	144	REGISTER OBJ newRect;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	145	OBJ t;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	146	int spc;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	147
2894 344aec8ba014 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	148	if (__CanDoQuickNew(OHDR_SIZE + 4sizeof(OBJ))) { / OBJECT ALLOCATION */
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	149	if (self == Rectangle) {
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	150	/*
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	151	* short cut - rectangles are created so often ...
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	152	*/
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	153	__qCheckedAlignedNew(newRect, OHDR_SIZE + 4*sizeof(OBJ));
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	154
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	155	__InstPtr(newRect)->o_class = Rectangle;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	156	__InstPtr(newRect)->i_instvars[0] = left;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	157	__InstPtr(newRect)->i_instvars[1] = top;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	158	__InstPtr(newRect)->i_instvars[2] = w;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	159	__InstPtr(newRect)->i_instvars[3] = h;
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	160
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	161	if (! (__bothSmallInteger(left, top) &&
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	162	__bothSmallInteger(w, h))) {
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	163	spc = __qSpace(newRect);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	164	__STORE_SPC(newRect, left, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	165	__STORE_SPC(newRect, top, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	166	__STORE_SPC(newRect, w, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	167	__STORE_SPC(newRect, h, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	168	}
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	169
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	170	RETURN ( newRect );
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	171	}
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	172	}
1507 ac16087c0e95 * empty log message * Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	173	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	174	^ (self basicNew) left:left top:top width:w height:h
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	175	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	176
1 a27a279701f8 Initial revision claus parents: diff changeset	177	origin:origin corner:corner
a27a279701f8 Initial revision claus parents: diff changeset	178	"create and return a new Rectangle giving top-left and bottom-right points"
a27a279701f8 Initial revision claus parents: diff changeset	179
a27a279701f8 Initial revision claus parents: diff changeset	180	^ (self basicNew) origin:origin corner:corner
a27a279701f8 Initial revision claus parents: diff changeset	181	!
a27a279701f8 Initial revision claus parents: diff changeset	182
a27a279701f8 Initial revision claus parents: diff changeset	183	origin:origin extent:extent
a27a279701f8 Initial revision claus parents: diff changeset	184	"create and return a new Rectangle giving top-left point and extent point"
a27a279701f8 Initial revision claus parents: diff changeset	185
a27a279701f8 Initial revision claus parents: diff changeset	186	%{ /* NOCONTEXT */
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	187	REGISTER OBJ newRect;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	188	OBJ t;
31df3850e98c * empty log message * claus parents: 259 diff changeset	189	int spc;
1 a27a279701f8 Initial revision claus parents: diff changeset	190
2894 344aec8ba014 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	191	if (__CanDoQuickNew(OHDR_SIZE + 4sizeof(OBJ))) { / OBJECT ALLOCATION */
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	192	/*
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	193	* short cut - rectangles are created so often ...
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	194	*/
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	195	if (self == Rectangle) {
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	196	if (__isPoint(origin) && __isPoint(extent)) {
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	197	__qCheckedAlignedNew(newRect, OHDR_SIZE + 4*sizeof(OBJ));
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	198	__InstPtr(newRect)->o_class = Rectangle;
325 46bca6125b93 . claus parents: 308 diff changeset	199	spc = __qSpace(newRect);
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	200
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	201	t = __PointInstPtr(origin)->p_x;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	202	__InstPtr(newRect)->i_instvars[0] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	203	__STORE_SPC(newRect, t, spc);
31df3850e98c * empty log message * claus parents: 259 diff changeset	204
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	205	t = __PointInstPtr(origin)->p_y;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	206	__InstPtr(newRect)->i_instvars[1] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	207	__STORE_SPC(newRect, t, spc);
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	208
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	209	t = __PointInstPtr(extent)->p_x;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	210	__InstPtr(newRect)->i_instvars[2] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	211	__STORE_SPC(newRect, t, spc);
31df3850e98c * empty log message * claus parents: 259 diff changeset	212
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	213	t = __PointInstPtr(extent)->p_y;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	214	__InstPtr(newRect)->i_instvars[3] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	215	__STORE_SPC(newRect, t, spc);
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	216	RETURN ( newRect );
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	217	}
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	218	}
1 a27a279701f8 Initial revision claus parents: diff changeset	219	}
1507 ac16087c0e95 * empty log message * Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	220	%}.
1 a27a279701f8 Initial revision claus parents: diff changeset	221	^ (self basicNew) origin:origin extent:extent
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	222	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	223
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	224	origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	225	"create and return a new Rectangle giving top-left and extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	226	as individual width/height"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	227
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	228	^ (self basicNew) origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	229
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	230	"Created: 8.5.1996 / 20:55:53 / cg"
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	231	!
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	232
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	233	vertex:vertex1Point vertex:vertex2Point
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	234	"create and return a new instance of the receiver,
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	235	given two diagonally opposite vertices."
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	236
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	237	^ self
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	238	origin: (vertex1Point min: vertex2Point)
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	239	corner: (vertex1Point max: vertex2Point)
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	240
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	241	"Created: 10.2.1997 / 12:14:32 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	242	! !
a27a279701f8 Initial revision claus parents: diff changeset	243
a27a279701f8 Initial revision claus parents: diff changeset	244	!Rectangle methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	245
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	246	area
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	247	"return the area
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	248	- for screen Rectangles this is the number of pixels"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	249
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	250	^ width * height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	251	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	252
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	253	bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	254	"return the y coordinate of the bottom"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	255
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	256	^ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	257	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	258
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	259	bottom:aNumber
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	260	"set the bottom edge - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	261
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	262	height := aNumber - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	263	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	264
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	265	bottomCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	266	"return the bottom center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	267
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	268	^ (left + (width / 2)) @ (top + height)
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	269
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	270	"Modified: 4.6.1996 / 16:04:08 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	271	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	272
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	273	bottomLeft
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	274	"return the bottom-left point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	275
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	276	^ left @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	277	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	278
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	279	bottomRight
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	280	"return the bottom-right point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	281
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	282	^ (left + width) @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	283	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	284
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	285	center
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	286	"return the point in the center of the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	287
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	288	^ (left + (width / 2)) @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	289
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	290	"Modified: 4.6.1996 / 16:03:53 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	291	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	292
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	293	corner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	294	"return the corner"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	295
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	296	^ (left + width) @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	297	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	298
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	299	corner:aPoint
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	300	"set the bottom-right corner - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	301
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	302	width := aPoint x - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	303	height := aPoint y - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	304	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	305
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	306	extent
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	307	"return the extent"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	308
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	309	^ width @ height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	310	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	311
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	312	extent:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	313	"set the extent from the argument, aPoint with width taken from aPoint x
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	314	and height taken from aPoint y.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	315	warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	316
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	317	width := aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	318	height := aPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	319	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	320
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	321	height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	322	"return the height of the rectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	323
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	324	^ height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	325	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	326
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	327	height:aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	328	"change the height of the rectangle.
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	329	logically, this changes the corner to get the given height.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	330	warning: destructive"
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	331
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	332	height := aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	333
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	334	"Created: 3.3.1997 / 16:33:22 / cg"
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	335	!
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	336
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	337	left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	338	"return the x-coordinate of the top-left origin"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	339
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	340	^ left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	341	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	342
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	343	left:aNumber
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	344	"set the left edge - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	345
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	346	width := width + (left - aNumber).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	347	left := aNumber
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	348	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	349
1 a27a279701f8 Initial revision claus parents: diff changeset	350	left:newLeft right:right top:newTop bottom:bottom
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	351	"set the rectangle given left, top, right and bottom coordinates.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	352	warning: destructive"
1 a27a279701f8 Initial revision claus parents: diff changeset	353
a27a279701f8 Initial revision claus parents: diff changeset	354	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	355	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	356	width := right - left.
a27a279701f8 Initial revision claus parents: diff changeset	357	height := bottom - top
a27a279701f8 Initial revision claus parents: diff changeset	358	!
a27a279701f8 Initial revision claus parents: diff changeset	359
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	360	left:newLeft top:newTop extent:extent
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	361	"set the rectangle given left, top, coordinates and an extent.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	362	warning: destructive"
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	363
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	364	left := newLeft.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	365	top := newTop.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	366	width := extent x.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	367	height := extent y
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	368
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	369	"Created: 8.5.1996 / 20:55:10 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	370	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	371
1 a27a279701f8 Initial revision claus parents: diff changeset	372	left:newLeft top:newTop right:right bottom:bottom
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	373	"set the rectangle given left, top, right and bottom coordinates.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	374	warning: destructive"
1 a27a279701f8 Initial revision claus parents: diff changeset	375
a27a279701f8 Initial revision claus parents: diff changeset	376	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	377	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	378	width := right - left.
a27a279701f8 Initial revision claus parents: diff changeset	379	height := bottom - top
a27a279701f8 Initial revision claus parents: diff changeset	380	!
a27a279701f8 Initial revision claus parents: diff changeset	381
a27a279701f8 Initial revision claus parents: diff changeset	382	left:newLeft top:newTop width:newWidth height:newHeight
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	383	"set the rectangle given left, top coordinates and width, height.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	384	warning: destructive"
1 a27a279701f8 Initial revision claus parents: diff changeset	385
a27a279701f8 Initial revision claus parents: diff changeset	386	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	387	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	388	width := newWidth.
a27a279701f8 Initial revision claus parents: diff changeset	389	height := newHeight
a27a279701f8 Initial revision claus parents: diff changeset	390	!
a27a279701f8 Initial revision claus parents: diff changeset	391
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	392	leftCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	393	"return the left center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	394
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	395	^ left @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	396
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	397	"Modified: 4.6.1996 / 16:04:01 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	398	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	399
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	400	origin
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	401	"return the origin"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	402
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	403	^ left @ top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	404	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	405
1 a27a279701f8 Initial revision claus parents: diff changeset	406	origin:aPoint
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	407	"set the top-left origin. The corner remains unchanged.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	408	warning: destructive"
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	409
6c38ca59927f * empty log message * claus parents: 59 diff changeset	410	\|newTop newLeft\|
1 a27a279701f8 Initial revision claus parents: diff changeset	411
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	412	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	413	newLeft := aPoint x.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	414	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	415	width := width + (left - newLeft).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	416	left := newLeft.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	417	top := newTop
1 a27a279701f8 Initial revision claus parents: diff changeset	418	!
a27a279701f8 Initial revision claus parents: diff changeset	419
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	420	origin:origin corner:corner
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	421	"set both origin and corner - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	422
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	423	left := origin x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	424	top := origin y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	425	width := corner x - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	426	height := corner y - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	427	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	428
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	429	origin:origin extent:extent
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	430	"set both origin and extent - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	431
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	432	left := origin x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	433	top := origin y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	434	width := extent x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	435	height := extent y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	436	!
1 a27a279701f8 Initial revision claus parents: diff changeset	437
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	438	origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	439	"set both origin and extent;
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	440	the extent is given as individual width and height.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	441	warning: destructive"
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	442
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	443	left := origin x.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	444	top := origin y.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	445	width := w.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	446	height := h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	447
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	448	"Created: 8.5.1996 / 20:53:53 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	449	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	450
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	451	right
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	452	"return the x coordinate of the right"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	453
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	454	^ (left + width)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	455	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	456
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	457	right:aNumber
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	458	"set the right edge - warning: destructive"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	459
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	460	width := aNumber - left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	461	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	462
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	463	rightCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	464	"return the right center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	465
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	466	^ (left + width) @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	467
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	468	"Modified: 4.6.1996 / 16:09:05 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	469	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	470
3269 6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	471	setLeft:newLeft
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	472	"set left without adjusting width - warning: destructive"
3269 6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	473
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	474	left := newLeft.
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	475
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	476	"Modified: / 22.1.1998 / 09:40:35 / av"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	477	"Created: / 3.2.1998 / 19:01:06 / cg"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	478	!
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	479
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	480	setOrigin:newOrigin corner:newCorner
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	481	"set the rectangles dimensions - warning: destructive"
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	482
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	483	self origin:newOrigin corner:newCorner
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	484	!
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	485
3269 6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	486	setTop:newTop
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	487	"set top without adjusting height - warning: destructive"
3269 6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	488
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	489	top := newTop.
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	490
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	491	"Modified: / 20.1.1998 / 18:25:35 / av"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	492	"Created: / 3.2.1998 / 19:01:01 / cg"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	493	!
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	494
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	495	top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	496	"return the y-coordinate of the top-left"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	497
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	498	^ top
1 a27a279701f8 Initial revision claus parents: diff changeset	499	!
a27a279701f8 Initial revision claus parents: diff changeset	500
a27a279701f8 Initial revision claus parents: diff changeset	501	top:aNumber
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	502	"set the top edge - warning: destructive"
1 a27a279701f8 Initial revision claus parents: diff changeset	503
a27a279701f8 Initial revision claus parents: diff changeset	504	height := height + (top - aNumber).
a27a279701f8 Initial revision claus parents: diff changeset	505	top := aNumber
a27a279701f8 Initial revision claus parents: diff changeset	506	!
a27a279701f8 Initial revision claus parents: diff changeset	507
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	508	topCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	509	"return the top center point"
1 a27a279701f8 Initial revision claus parents: diff changeset	510
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	511	^ (left + (width / 2)) @ top
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	512
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	513	"Modified: 4.6.1996 / 16:09:09 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	514	!
a27a279701f8 Initial revision claus parents: diff changeset	515
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	516	topLeft
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	517	"return the top-left point - the same as origin"
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	518
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	519	^ left @ top
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	520	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	521
6c38ca59927f * empty log message * claus parents: 59 diff changeset	522	topLeft:aPoint
6c38ca59927f * empty log message * claus parents: 59 diff changeset	523	"Set the top and left edges.
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	524	The bottom right remains unchanged.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	525	warning: destructive"
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	526
6c38ca59927f * empty log message * claus parents: 59 diff changeset	527	\|newTop\|
6c38ca59927f * empty log message * claus parents: 59 diff changeset	528
6c38ca59927f * empty log message * claus parents: 59 diff changeset	529	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	530	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	531	top := newTop.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	532	width := aPoint x - left
6c38ca59927f * empty log message * claus parents: 59 diff changeset	533	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	534
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	535	topRight
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	536	"return the top-right point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	537
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	538	^ (left + width) @ top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	539	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	540
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	541	topRight:aPoint
6c38ca59927f * empty log message * claus parents: 59 diff changeset	542	"Set the top and right edges.
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	543	The bottom left remains unchanged.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	544	warning: destructive"
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	545
6c38ca59927f * empty log message * claus parents: 59 diff changeset	546	\|newTop\|
6c38ca59927f * empty log message * claus parents: 59 diff changeset	547
6c38ca59927f * empty log message * claus parents: 59 diff changeset	548	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	549	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	550	top := newTop.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	551	width := aPoint x - left
6c38ca59927f * empty log message * claus parents: 59 diff changeset	552	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	553
6c38ca59927f * empty log message * claus parents: 59 diff changeset	554	width
6c38ca59927f * empty log message * claus parents: 59 diff changeset	555	"return the width of the rectangle"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	556
6c38ca59927f * empty log message * claus parents: 59 diff changeset	557	^ width
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	558	!
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	559
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	560	width:aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	561	"change the width of the rectangle.
4860 ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	562	logically, this changes the corner to get the given width.
ac3a625492b2 comments Claus Gittinger <cg@exept.de> parents: 4859 diff changeset	563	warning: destructive"
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	564
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	565	width := aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	566
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	567	"Created: 3.3.1997 / 16:33:48 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	568	! !
a27a279701f8 Initial revision claus parents: diff changeset	569
a27a279701f8 Initial revision claus parents: diff changeset	570	!Rectangle methodsFor:'comparing'!
a27a279701f8 Initial revision claus parents: diff changeset	571
a27a279701f8 Initial revision claus parents: diff changeset	572	= aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	573	"return true, if the argument aRectangle represents the same
a27a279701f8 Initial revision claus parents: diff changeset	574	rectangle as the receiver"
a27a279701f8 Initial revision claus parents: diff changeset	575
a27a279701f8 Initial revision claus parents: diff changeset	576	%{ /* NOCONTEXT */
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	577	/*
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	578	* because rectangles are often compared in the graphics code,
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	579	* handle the common case quickly
4a86aad06603 * empty log message * claus parents: 32 diff changeset	580	*/
329 f14fc5ac11b7 . claus parents: 326 diff changeset	581	if (__isNonNilObject(aRectangle)
f14fc5ac11b7 . claus parents: 326 diff changeset	582	&& __qClass(aRectangle) == Rectangle) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	583	if ((__InstPtr(self)->i_instvars[0] == __InstPtr(aRectangle)->i_instvars[0])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	584	&& (__InstPtr(self)->i_instvars[1] == __InstPtr(aRectangle)->i_instvars[1])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	585	&& (__InstPtr(self)->i_instvars[2] == __InstPtr(aRectangle)->i_instvars[2])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	586	&& (__InstPtr(self)->i_instvars[3] == __InstPtr(aRectangle)->i_instvars[3])) {
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	587	RETURN ( true );
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	588	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	589	if (__bothSmallInteger(__InstPtr(self)->i_instvars[0], __InstPtr(aRectangle)->i_instvars[0])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	590	&& __bothSmallInteger(__InstPtr(self)->i_instvars[1], __InstPtr(aRectangle)->i_instvars[1])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	591	&& __bothSmallInteger(__InstPtr(self)->i_instvars[2], __InstPtr(aRectangle)->i_instvars[2])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	592	&& __bothSmallInteger(__InstPtr(self)->i_instvars[3], __InstPtr(aRectangle)->i_instvars[3])) {
325 46bca6125b93 . claus parents: 308 diff changeset	593	RETURN ( false );
46bca6125b93 . claus parents: 308 diff changeset	594	}
1 a27a279701f8 Initial revision claus parents: diff changeset	595	}
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	596	%}.
259 a5c9efa2ac05 claus parents: 217 diff changeset	597	(aRectangle species ~~ self species) ifTrue:[^ false].
1 a27a279701f8 Initial revision claus parents: diff changeset	598
a27a279701f8 Initial revision claus parents: diff changeset	599	left = aRectangle left ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	600	top = aRectangle top ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	601	width = aRectangle width ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	602	height = aRectangle height ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	603	^ true
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	604	!
4a86aad06603 * empty log message * claus parents: 32 diff changeset	605
4a86aad06603 * empty log message * claus parents: 32 diff changeset	606	hash
4a86aad06603 * empty log message * claus parents: 32 diff changeset	607	"return an integer useful for hashing -
4a86aad06603 * empty log message * claus parents: 32 diff changeset	608	redefined since = is redefined here"
4a86aad06603 * empty log message * claus parents: 32 diff changeset	609
4a86aad06603 * empty log message * claus parents: 32 diff changeset	610	^ ((left hash bitShift:16) bitXor:(top hash bitShift:16))
4a86aad06603 * empty log message * claus parents: 32 diff changeset	611	+ ((width hash) bitXor:(height hash))
1 a27a279701f8 Initial revision claus parents: diff changeset	612	! !
a27a279701f8 Initial revision claus parents: diff changeset	613
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	614	!Rectangle methodsFor:'converting'!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	615
6c5ce0e1e7a8 . claus parents: 329 diff changeset	616	asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	617	"return a layoutFrame in which fractions (top, left, bottom, right)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	618	are taken from corresponding edges of the receiver.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	619	You have to make certain that those are in 0..1."
6c5ce0e1e7a8 . claus parents: 329 diff changeset	620
6c5ce0e1e7a8 . claus parents: 329 diff changeset	621	\|l\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	622
6c5ce0e1e7a8 . claus parents: 329 diff changeset	623	l := LayoutFrame new.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	624	l
6c5ce0e1e7a8 . claus parents: 329 diff changeset	625	leftFraction:(self left);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	626	rightFraction:(self right);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	627	topFraction:(self top);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	628	bottomFraction:(self bottom).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	629	^ l
6c5ce0e1e7a8 . claus parents: 329 diff changeset	630
6c5ce0e1e7a8 . claus parents: 329 diff changeset	631	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	632	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	633	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	634	(0.5@0.5 corner:0.75@0.75) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	635	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	636	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	637
6c5ce0e1e7a8 . claus parents: 329 diff changeset	638	asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	639	"return a layoutFrame in which offsets (top, left, bottom, right)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	640	are taken from corresponding edges of the receiver.
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	641	If all values are between 0.0 .. 1.0, a fractionalLayout is created,
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	642	otherwise, an offsetLayout"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	643
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	644	\|newLayout l r t b\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	645
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	646	newLayout := LayoutFrame new.
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	647	l := left.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	648	r := (self right).
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	649	t := top.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	650	b := (self bottom).
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	651	((l between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	652	and:[(r between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	653	and:[(t between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	654	and:[(b between:0.0 and:1.0)]]]) ifTrue:[
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	655	newLayout
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	656	leftFraction:l;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	657	rightFraction:r;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	658	topFraction:t;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	659	bottomFraction:b.
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	660	] ifFalse:[
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	661	newLayout
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	662	leftOffset:l;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	663	rightFraction:0 offset:r;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	664	topOffset:t;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	665	bottomFraction:0 offset:b.
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	666	].
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	667	^ newLayout
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	668
6c5ce0e1e7a8 . claus parents: 329 diff changeset	669	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	670	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	671	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	672	(0.5@0.5 corner:0.75@0.75) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	673	(0@0 corner:1@1) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	674	(0@0 corner:1@1) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	675	(0@0 corner:1@1) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	676	"
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	677
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	678	"Modified: 5.6.1996 / 00:45:46 / cg"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	679	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	680
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	681	asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	682	"return a layoutFrame in which offsets (top, left, bottom, right)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	683	are taken from corresponding edges of the receiver.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	684	You have to make certain that those are in 0..1."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	685
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	686	\|newLayout\|
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	687
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	688	newLayout := LayoutFrame new.
7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	689	newLayout
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	690	leftOffset:(self left);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	691	rightFraction:0 offset:(self right);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	692	topOffset:(self top);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	693	bottomFraction:0 offset:(self bottom).
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	694	^ newLayout
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	695
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	696	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	697	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	698	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	699	(0.5@0.5 corner:0.75@0.75) asLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	700
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	701	(10@10 corner:20@20) asFractionalLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	702	(10@10 corner:20@20) asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	703	(10@10 corner:20@20) asLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	704	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	705
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	706	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	707
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	708	asPointArray
6c5ce0e1e7a8 . claus parents: 329 diff changeset	709	"return an array containing my corners (clockwise) and
6c5ce0e1e7a8 . claus parents: 329 diff changeset	710	the origin again as 5th element. Can be used to convert
6c5ce0e1e7a8 . claus parents: 329 diff changeset	711	a rectangle into a polygon."
6c5ce0e1e7a8 . claus parents: 329 diff changeset	712
6c5ce0e1e7a8 . claus parents: 329 diff changeset	713	\|org\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	714
6c5ce0e1e7a8 . claus parents: 329 diff changeset	715	^ Array with:(org := self origin)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	716	with:self topRight
6c5ce0e1e7a8 . claus parents: 329 diff changeset	717	with:self corner
6c5ce0e1e7a8 . claus parents: 329 diff changeset	718	with:self bottomLeft
6c5ce0e1e7a8 . claus parents: 329 diff changeset	719	with:org
6c5ce0e1e7a8 . claus parents: 329 diff changeset	720
6c5ce0e1e7a8 . claus parents: 329 diff changeset	721	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	722	(10@10 corner:100@100) asPointArray
6c5ce0e1e7a8 . claus parents: 329 diff changeset	723	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	724	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	725
1354 0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	726	asPolygon
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	727	"return a polygon from the receiver"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	728
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	729	^ Polygon vertices:self asPointArray
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	730
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	731	"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	732	(10@10 corner:100@100) asPolygon
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	733	"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	734
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	735	"Modified: 8.5.1996 / 20:14:44 / cg"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	736	!
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	737
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	738	fromLiteralArrayEncoding:encoding
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	739	"read my values from an encoding.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	740	The encoding is supposed to be of the form: (Rectangle orgX orgY cornX cornY)"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	741
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	742	left := encoding at:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	743	top := encoding at:3.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	744	width := (encoding at:4) - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	745	height := (encoding at:5) - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	746
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	747
6c5ce0e1e7a8 . claus parents: 329 diff changeset	748	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	749	Rectangle new fromLiteralArrayEncoding:#(Rectangle 100 200 300 500)
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	750	"
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	751	!
5b5a130ccd09 revision added claus parents: 362 diff changeset	752
421 a0807a38319d . claus parents: 384 diff changeset	753	literalArrayEncoding
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	754	"encode myself as an array, from which a copy of the receiver
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	755	can be reconstructed with #decodeAsLiteralArray.
421 a0807a38319d . claus parents: 384 diff changeset	756	The encoding is: (Rectangle orgX orgY cornX cornY)"
a0807a38319d . claus parents: 384 diff changeset	757
a0807a38319d . claus parents: 384 diff changeset	758	^ Array
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	759	with:#Rectangle
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	760	with:left
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	761	with:top
2426 3b04313af90e literalEncoding ca parents: 2381 diff changeset	762	with:(left + width)
3b04313af90e literalEncoding ca parents: 2381 diff changeset	763	with:(top + height)
421 a0807a38319d . claus parents: 384 diff changeset	764
a0807a38319d . claus parents: 384 diff changeset	765
a0807a38319d . claus parents: 384 diff changeset	766	"
a0807a38319d . claus parents: 384 diff changeset	767	Rectangle new fromLiteralArrayEncoding:#(Rectangle 100 200 300 500)
a0807a38319d . claus parents: 384 diff changeset	768	(100@200 corner:300@500) literalArrayEncoding
a0807a38319d . claus parents: 384 diff changeset	769	"
a0807a38319d . claus parents: 384 diff changeset	770
a0807a38319d . claus parents: 384 diff changeset	771	"Modified: 1.9.1995 / 02:16:54 / claus"
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	772	"Modified: 22.4.1996 / 13:00:36 / cg"
421 a0807a38319d . claus parents: 384 diff changeset	773	!
a0807a38319d . claus parents: 384 diff changeset	774
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	775	rectangleRelativeTo:aRectangle preferred:prefRectHolder
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	776	"compute a displayRectangle, treating the receiver like a
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	777	layoutFrame.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	778	This allows rectangles to be used interchangable with Layouts."
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	779
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	780	^ (self asLayout) rectangleRelativeTo:aRectangle preferred:prefRectHolder
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	781
5b5a130ccd09 revision added claus parents: 362 diff changeset	782	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	783	(10@20 corner:20@30) rectangleRelativeTo:(0@0 corner:100@100) preferred:(0@0 corner:50@50)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	784
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	785	(0.5@0.5) rectangleRelativeTo:(0@0 corner:100@100) preferred:(0@0 corner:50@50)
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	786	"
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	787
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	788	"Modified: / 27.5.1998 / 10:20:20 / cg"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	789	! !
6c5ce0e1e7a8 . claus parents: 329 diff changeset	790
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	791	!Rectangle methodsFor:'destructive rectangle operations'!
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	792
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	793	expandBy:delta
6c5ce0e1e7a8 . claus parents: 329 diff changeset	794	"destructively expanded the receiver in all directions
6c5ce0e1e7a8 . claus parents: 329 diff changeset	795	by amount, a Point, Rectangle or Number.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	796	Warning: this is a destructive operation, modifying the receiver
6c5ce0e1e7a8 . claus parents: 329 diff changeset	797	NOT returning a copy. You have to be certain to be the exclusive
6c5ce0e1e7a8 . claus parents: 329 diff changeset	798	owner of the receiver to avoid side effects. See also: #expandedBy:"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	799
6c5ce0e1e7a8 . claus parents: 329 diff changeset	800	\|amountPoint deltaLeft deltaTop deltaWidth deltaHeight\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	801
6c5ce0e1e7a8 . claus parents: 329 diff changeset	802	delta isNumber ifTrue:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	803	deltaLeft := deltaTop := delta.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	804	deltaWidth := deltaHeight := delta * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	805	] ifFalse:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	806	delta isRectangle ifTrue:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	807	deltaLeft := delta left.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	808	deltaTop := delta top.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	809	deltaWidth := deltaLeft + delta right.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	810	deltaHeight := deltaTop + delta bottom
6c5ce0e1e7a8 . claus parents: 329 diff changeset	811	] ifFalse:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	812	amountPoint := delta asPoint.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	813	deltaLeft := amountPoint x.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	814	deltaTop := amountPoint y.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	815	deltaWidth := deltaLeft * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	816	deltaHeight := deltaTop * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	817	]
6c5ce0e1e7a8 . claus parents: 329 diff changeset	818	].
6c5ce0e1e7a8 . claus parents: 329 diff changeset	819
6c5ce0e1e7a8 . claus parents: 329 diff changeset	820	left := (left - deltaLeft).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	821	top := (top - deltaTop).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	822	width := (width + deltaWidth).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	823	height := (height + deltaHeight).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	824
6c5ce0e1e7a8 . claus parents: 329 diff changeset	825	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	826	\|r\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	827	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	828	r expandBy:5.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	829
6c5ce0e1e7a8 . claus parents: 329 diff changeset	830	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	831	r expandBy:(5 @ 0).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	832
6c5ce0e1e7a8 . claus parents: 329 diff changeset	833	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	834	r expandBy:(10 @ 10).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	835
6c5ce0e1e7a8 . claus parents: 329 diff changeset	836	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	837	r expandBy:( 10@10 corner:20@20 )
6c5ce0e1e7a8 . claus parents: 329 diff changeset	838	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	839	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	840
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	841	moveBy:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	842	"destructively translate the rectangle by some distance.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	843	sorry for the name inconsistency - but GNU-ST named it that way"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	844
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	845	left := left + aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	846	top := top + aPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	847	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	848
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	849	moveTo:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	850	"destructively translate the rectangle to have its origin at aPoint."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	851
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	852	\|diff\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	853
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	854	diff := aPoint - self origin.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	855	self origin:aPoint corner:self corner + diff
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	856	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	857
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	858	scaleBy:scale
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	859	"scale the receiver rectangle by scale (a Number or Point).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	860	This is destructive (modifies the receiver, not a copy) and
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	861	should only be used if you know, that you are the exclusive owner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	862	of the receiver. (use scaledBy if in doubt)"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	863
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	864	\|scalePoint sx sy\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	865
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	866	(scale isMemberOf:Point) ifTrue:[ "type hint to stc"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	867	sx := scale x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	868	sy := scale y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	869	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	870	scalePoint := scale asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	871	sx := scalePoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	872	sy := scalePoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	873	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	874	width := width * sx.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	875	height := height * sy.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	876	left := left * sx.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	877	top := top * sy
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	878
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	879	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	880	(Rectangle origin:10@10 corner:50@50) scaleBy:2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	881	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	882
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	883	"its destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	884	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	885	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	886
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	887	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	888	r2 := r1 scaleBy:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	889	r1
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	890	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	891	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	892
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	893	translateBy:amount
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	894	"translate (i.e. move) the receiver rectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	895	by amount, a Point or Number.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	896	This is destructive (modifies the receiver, not a copy) and
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	897	should only be used if you know, that you are the exclusive owner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	898	of the receiver. (use translatedBy if in doubt)"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	899
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	900	\|amountPoint\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	901
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	902	(amount isMemberOf:Point) ifTrue:[ "type hint to stc"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	903	left := left + amount x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	904	top := top + amount y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	905	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	906	amountPoint := amount asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	907	left := left + amountPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	908	top := top + amountPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	909	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	910
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	911	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	912	(Rectangle origin:10@10 corner:50@50) translateBy:10
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	913	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	914
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	915	"its destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	916	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	917	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	918
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	919	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	920	r2 := r1 translateBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	921	r1
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	922	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	923	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	924
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	925	!Rectangle methodsFor:'displaying'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	926
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	927	displayFilledOn:aGC
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	928	"display a filled rectangle as represented by the receiver in
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	929	the graphicsContext, aGC"
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	930
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	931	aGC fillRectangleX:left y:top width:width height:height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	932
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	933	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	934	\|v\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	935
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	936	v := View new openAndWait.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	937
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	938	(Rectangle origin:10@10 corner:50@50) displayFilledOn:v
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	939	"
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	940
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	941	"Modified: 8.5.1996 / 14:40:42 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	942	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	943
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	944	displayStrokedOn:aGC
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	945	"display an unfilled rectangle as represented by the receiver in
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	946	the graphicsContext, aGC"
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	947
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	948	aGC displayRectangleX:left y:top width:width height:height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	949
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	950	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	951	\|v\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	952
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	953	v := View new openAndWait.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	954
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	955	(Rectangle origin:10@10 corner:50@50) displayStrokedOn:v
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	956	"
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	957
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	958	"Modified: 8.5.1996 / 14:40:53 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	959	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	960
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	961	!Rectangle methodsFor:'printing & storing'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	962
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	963	printOn:aStream
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	964	"print the receiver on aStream"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	965
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	966	aStream nextPutAll:(self class name).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	967	aStream nextPutAll:' origin:'.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	968	(self origin) printOn:aStream.
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	969	aStream nextPutAll:' extent:'.
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	970	(self extent) printOn:aStream
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	971
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	972	"Modified: 29.5.1996 / 00:17:39 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	973	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	974
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	975	storeOn:aStream
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	976	"store the receiver on aStream; i.e. print an expression which will
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	977	reconstruct the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	978
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	979	aStream nextPut:$(.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	980	aStream nextPutAll:(self class name).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	981	aStream nextPutAll:' origin:'.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	982	(self origin) storeOn:aStream.
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	983	aStream nextPutAll:' extent:'.
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	984	(self extent) storeOn:aStream.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	985	aStream nextPut:$)
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	986
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	987	"Modified: 29.5.1996 / 00:17:42 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	988	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	989
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	990	!Rectangle methodsFor:'queries'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	991
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	992	bounds
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	993	"return the smallest enclosing rectangle"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	994
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	995	^ self
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	996
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	997	"Created: 8.5.1996 / 13:56:24 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	998	"Modified: 8.5.1996 / 14:06:38 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	999	!
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1000
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1001	canBeFilled
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1002	"return true, if the receiver can be drawn as a filled geometric.
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1003	Always true here."
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1004
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1005	^ true
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1006
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1007	"Created: 8.5.1996 / 08:16:47 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1008	!
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	1009
2381 10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1010	computeBounds
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1011	"return the smallest enclosing rectangle"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1012
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1013	^ self
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1014
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1015	"Modified: 8.5.1996 / 14:06:38 / cg"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1016	"Created: 12.2.1997 / 11:44:45 / cg"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1017	!
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	1018
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1019	isRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1020	"return true, if the receiver is some kind of rectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1021
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1022	^ true
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1023	! !
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1024
1 a27a279701f8 Initial revision claus parents: diff changeset	1025	!Rectangle methodsFor:'rectangle operations'!
a27a279701f8 Initial revision claus parents: diff changeset	1026
a27a279701f8 Initial revision claus parents: diff changeset	1027	+ aPoint
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1028	"return a new rectangle with same extent as receiver but
1 a27a279701f8 Initial revision claus parents: diff changeset	1029	origin translated by the argument, aPoint"
a27a279701f8 Initial revision claus parents: diff changeset	1030
217 a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1031	\|amountPoint\|
a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1032
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1033	(aPoint isMemberOf:SmallInteger) ifTrue:[
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1034	"/ this is an stc optimization
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1035	^ Rectangle
2373 e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1036	left:(left + aPoint)
e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1037	top:(top + aPoint)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1038	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1039	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1040	].
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1041
217 a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1042	amountPoint := aPoint asPoint.
a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1043	^ Rectangle left:(left + amountPoint x)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1044	top:(top + amountPoint y)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1045	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1046	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1047
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1048	"Modified: 25.1.1997 / 17:29:53 / cg"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1049	!
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1050
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1051	- aPoint
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1052	"return a new rectangle with same extent as receiver but
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1053	origin translated by the argument, aPoint"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1054
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1055	\|amountPoint\|
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1056
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1057	(aPoint isMemberOf:SmallInteger) ifTrue:[
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1058	"/ this is an stc optimization
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1059	^ Rectangle
2373 e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1060	left:(left - aPoint)
e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1061	top:(top - aPoint)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1062	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1063	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1064	].
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1065
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1066	amountPoint := aPoint asPoint.
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1067	^ Rectangle left:(left - amountPoint x)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1068	top:(top - amountPoint y)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1069	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1070	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1071
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1072	"Modified: 25.1.1997 / 17:29:53 / cg"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1073	"Created: 25.1.1997 / 17:30:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1074	!
a27a279701f8 Initial revision claus parents: diff changeset	1075
326 d2902942491d * empty log message * claus parents: 325 diff changeset	1076	align:offset with:someCoordinate
d2902942491d * empty log message * claus parents: 325 diff changeset	1077	"return a new rectangle which is translated (i.e. moved)
d2902942491d * empty log message * claus parents: 325 diff changeset	1078	such that the point offset in mySelf is placed on someCoordinate."
d2902942491d * empty log message * claus parents: 325 diff changeset	1079
d2902942491d * empty log message * claus parents: 325 diff changeset	1080	^ Rectangle origin:(someCoordinate - offset + self origin)
d2902942491d * empty log message * claus parents: 325 diff changeset	1081	extent:(self extent)
d2902942491d * empty log message * claus parents: 325 diff changeset	1082	"
d2902942491d * empty log message * claus parents: 325 diff changeset	1083	\|r\|
d2902942491d * empty log message * claus parents: 325 diff changeset	1084
d2902942491d * empty log message * claus parents: 325 diff changeset	1085	r := Rectangle origin:10@10 corner:50@50.
d2902942491d * empty log message * claus parents: 325 diff changeset	1086	r align:(r center) with:100@100.
d2902942491d * empty log message * claus parents: 325 diff changeset	1087	"
d2902942491d * empty log message * claus parents: 325 diff changeset	1088	!
d2902942491d * empty log message * claus parents: 325 diff changeset	1089
1 a27a279701f8 Initial revision claus parents: diff changeset	1090	amountToTranslateWithin: aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	1091	"for GNU-ST compatibility"
a27a279701f8 Initial revision claus parents: diff changeset	1092
a27a279701f8 Initial revision claus parents: diff changeset	1093	^(aRectangle origin) - self origin
a27a279701f8 Initial revision claus parents: diff changeset	1094	!
a27a279701f8 Initial revision claus parents: diff changeset	1095
a27a279701f8 Initial revision claus parents: diff changeset	1096	areasOutside: aRectangle
4863 9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1097	"Answer an Array of Rectangles comprising the parts of the receiver not
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1098	intersecting aRectangle."
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1099
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1100	\| areas yOrigin yCorner origin corner\|
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1101
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1102	origin := self origin.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1103	corner := self corner.
1 a27a279701f8 Initial revision claus parents: diff changeset	1104
4863 9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1105	"Make sure the intersection is non-empty"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1106	(origin <= aRectangle corner and: [aRectangle origin <= corner])
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1107	ifFalse: [^ Array with: self].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1108	areas := OrderedCollection new.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1109	aRectangle origin y > origin y
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1110	ifTrue: [areas addLast: (origin corner: corner x @ (yOrigin := aRectangle origin y))]
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1111	ifFalse: [yOrigin := origin y].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1112	aRectangle corner y < corner y
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1113	ifTrue: [areas addLast: (origin x @ (yCorner := aRectangle corner y) corner: corner)]
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1114	ifFalse: [yCorner := corner y].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1115	aRectangle origin x > origin x
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1116	ifTrue: [areas addLast: (origin x @ yOrigin corner: aRectangle origin x @ yCorner)].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1117	aRectangle corner x < corner x
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1118	ifTrue: [areas addLast: (aRectangle corner x @ yOrigin corner: corner x @ yCorner)].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1119	^areas
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1120
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1121	"/ cg: the old code below was wrong ...
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 867 diff changeset	1122
4863 9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1123	"/ "----------------------------------------------------------------
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1124	"/ \| added for GNU-ST compatibility
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1125	"/ \|
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1126	"/ \| author: Doug McCallum <uunet!!ico.isc.com!!dougm>
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1127	"/ \|
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1128	"/ \|areasOutside: aRectangle
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1129	"/ \| most complicated of the Rectangle primitives
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1130	"/ \| The basic methodology is to first determine that there is an
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1131	"/ \| intersection by finding the overlapping rectangle. From the
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1132	"/ \| overlapping rectangle, first determine if it runs along an edge.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1133	"/ \| If it doesn't, extend the rectangle up to the top edge and add
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1134	"/ \| the new rectangle to the collection and start the rest of the
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1135	"/ \| process. If the left edge does not touch the left edge of self,
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1136	"/ \| extend it to the edge saving the new rectangle. Then do the
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1137	"/ \| same to the right edge. Then check top and bottom edges. Most
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1138	"/ \| of the time only 2 or 3 rectangles get formed, occasionally 4.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1139	"/ \| It should be possible to never get more than 3 but requires more
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1140	"/ \| work.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1141	"/ ----------------------------------------------------------------"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1142	"/
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1143	"/ \| collect iRect tmp \|
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1144	"/
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1145	"/ iRect := self intersect: aRectangle.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1146	"/ iRect isNil ifTrue: [^nil]. "case of no intersection"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1147	"/ "the collect collection gathers Rectangles"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1148	"/ collect := OrderedCollection new: 4.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1149	"/ "is it floating or on the edge?"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1150	"/ (((((iRect top) ~= self top)
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1151	"/ and: [ (iRect bottom) ~= self bottom ])
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1152	"/ and: [ (iRect left) ~= self left ])
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1153	"/ and: [ (iRect right) ~= self right ] )
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1154	"/ ifTrue: "entirely in the center."
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1155	"/ [tmp := Rectangle origin: (Point x: iRect left y: self top)
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1156	"/ corner: iRect bottomRight.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1157	"/ collect add: tmp.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1158	"/ iRect := iRect merge: tmp].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1159	"/ ((iRect left) ~= self left)
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1160	"/ ifTrue: "doesn't touch left edge so make it touch"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1161	"/ [tmp := Rectangle origin: (Point x: self left y: iRect top)
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1162	"/ corner: iRect bottomLeft.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1163	"/ collect add: tmp.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1164	"/ "merge new (tmp) with overlap to keep track"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1165	"/ iRect := iRect merge: tmp].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1166	"/ ((iRect right) ~= self right)
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1167	"/ ifTrue: "doesn't touch right edge so extend it"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1168	"/ [tmp := Rectangle origin: iRect topRight
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1169	"/ corner: (Point x: self right y: iRect bottom).
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1170	"/ collect add: tmp.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1171	"/ iRect := iRect merge: tmp].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1172	"/ (((iRect left) ~= self left) or: [(iRect top) ~= self top])
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1173	"/ ifTrue: "whole top part can be taken now"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1174	"/ [tmp := Rectangle origin: self origin corner: iRect topRight.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1175	"/ collect add: tmp].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1176	"/ (((iRect right) ~= self right) or: [(iRect bottom) ~= self bottom])
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1177	"/ ifTrue: "whole bottom open and can be taken"
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1178	"/ [tmp := Rectangle origin: iRect bottomLeft corner: self corner.
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1179	"/ collect add: tmp].
9544c9e5c17e fixed #areasOutside: Claus Gittinger <cg@exept.de> parents: 4861 diff changeset	1180	"/ ^collect
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1181	!
1 a27a279701f8 Initial revision claus parents: diff changeset	1182
4864 3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1183	encompass:aPoint
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1184	"return a Rectangle that contains both the receiver and aPoint."
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1185
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1186	^ Rectangle
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1187	origin: (self origin min: aPoint)
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1188	corner: (self corner max: aPoint)
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1189
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1190	!
3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1191
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1192	expandedBy:delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1193	"return a new rectangle which is expanded in all directions
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1194	by amount, a Point, Rectangle or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1195
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1196	^ self copy expandBy:delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1197
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1198	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1199	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1200	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1201	r expandedBy:5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1202	r expandedBy:(5 @ 0).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1203	r expandedBy:(10 @ 10).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1204	r expandedBy:( 10@10 corner:20@20 )
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1205	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1206	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1207
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1208	insetBy: delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1209	"return a new rectangle which is inset in all directions
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1210	by delta, a Point, Rectangle or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1211
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1212	\|amountPoint deltaLeft deltaTop deltaWidth deltaHeight\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1213
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1214	delta isNumber ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1215	deltaLeft := deltaTop := delta.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1216	deltaWidth := deltaHeight := delta * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1217	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1218	delta isRectangle ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1219	deltaLeft := delta left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1220	deltaTop := delta top.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1221	deltaWidth := deltaLeft + delta right.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1222	deltaHeight := deltaTop + delta bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1223	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1224	amountPoint := delta asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1225	deltaLeft := amountPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1226	deltaTop := amountPoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1227	deltaWidth := deltaLeft * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1228	deltaHeight := deltaTop * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1229	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1230	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1231
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1232	^ Rectangle left:(left + deltaLeft)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1233	top:(top + deltaTop)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1234	width:(width - deltaWidth)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1235	height:(height - deltaHeight)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1236	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1237	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1238	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1239	r insetBy:5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1240	r insetBy:(5 @ 0).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1241	r insetBy:(10 @ 10).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1242	r insetBy:( 10@10 corner:20@20 )
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1243	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1244	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1245
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1246	insetOriginBy:originDelta cornerBy:cornerDelta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1247	"return a new rectangle which is inset by originDelta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1248	and cornerDelta; both may be instances of Point or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1249
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1250	^ Rectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1251	origin:(left @ top) + originDelta asPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1252	corner:(self corner - cornerDelta asPoint)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1253	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1254	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1255	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1256	r insetOriginBy:5 cornerBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1257	r insetOriginBy:10@5 cornerBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1258	r insetOriginBy:10 cornerBy:10@5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1259	r insetOriginBy:10@10 cornerBy:20@20.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1260	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1261	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1262
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1263	intersect:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1264	"return a new rectangle covering the intersection of the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1265	and the argument, aRectangle.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1266	the rectangles must intersect for a valid return"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1267
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1268	^ Rectangle left:(left max:(aRectangle left))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1269	right:((left + width) min:(aRectangle right))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1270	top:(top max:(aRectangle top))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1271	bottom:((top + height) min:(aRectangle bottom))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1272
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1273	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1274	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1275
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1276	r1 := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1277	r2 := Rectangle origin:50@50 corner:150@75.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1278	r1 intersect:r2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1279	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1280	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1281
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1282	merge:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1283	"return a new rectangle covering both the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1284	and the argument, aRectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1285
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1286	^ Rectangle left:(left min:(aRectangle left))
4859 592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1287	right:((left + width) max:(aRectangle right))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1288	top:(top min:(aRectangle top))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1289	bottom:((top + height) max:(aRectangle bottom))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1290
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1291	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1292	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1293	merge:(Rectangle origin:20@20 corner:110@110)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1294
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1295	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1296	merge:(Rectangle origin:20@20 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1297	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1298	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1299
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1300	nonIntersections:aRectangle
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1301	"this is the same as areasOutside: - for ST/V compatibility only"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1302
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1303	^ self areasOutside:aRectangle
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1304	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1305
4859 592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1306	quickMerge: aRectangle
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1307	"return the receiver if it encloses the given rectangle,
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1308	or the merge of the two rectangles if it doesn't.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1309	This method is an optimization to reduce extra rectangle creations."
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1310
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1311	\| useRcvr rLeft rTop rRight rBottom Origin rCorner minX maxX minY maxY \|
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1312
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1313	useRcvr := true.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1314	rLeft := aRectangle left.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1315	rTop := aRectangle top.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1316	rRight := aRectangle right.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1317	rBottom := aRectangle bottom.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1318	minX := rLeft < left ifTrue: [useRcvr := false. rLeft] ifFalse: [left].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1319	maxX := rRight > self right ifTrue: [useRcvr := false. rRight] ifFalse: [self right].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1320	minY := rTop < top ifTrue: [useRcvr := false. rTop] ifFalse: [top].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1321	maxY := rBottom > self bottom ifTrue: [useRcvr := false. rBottom] ifFalse: [self bottom].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1322
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1323	useRcvr ifTrue: [^ self].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1324	^ Rectangle left:minX top:minY right:maxX bottom:maxY.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1325
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1326	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1327	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1328	quickMerge:(Rectangle origin:20@20 corner:110@110)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1329
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1330	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1331	quickMerge:(Rectangle origin:20@20 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1332	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1333
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1334	!
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1335
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1336	scaledBy:scale
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1337	"return a new rectangle which is the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1338	scaled by scale"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1339
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1340	\|scalePoint sx sy\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1341
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1342	scalePoint := scale asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1343	sx := scalePoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1344	sy := scalePoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1345	^ Rectangle left:left * sx
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1346	top:top * sy
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1347	width:(width * sx)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1348	height:(height * sy)
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1349	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1350	(Rectangle origin:10@10 corner:50@50) scaledBy:2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1351	"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1352
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1353	"its NOT destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1354	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1355	\|r1 r2\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1356
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1357	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1358	r2 := r1 scaledBy:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1359	r1
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1360	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1361	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1362
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1363	translatedBy:amount
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1364	"return a new rectangle which is translated (i.e. moved)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1365	by amount, aPoint or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1366
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1367	\|amountPoint\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1368
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1369	amountPoint := amount asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1370	^ Rectangle left:(left + amountPoint x)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1371	top:(top + amountPoint y)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1372	width:width
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1373	height:height
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1374	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1375	(Rectangle origin:10@10 corner:50@50) translatedBy:10
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1376	"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1377
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1378	"its NOT destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1379	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1380	\|r1 r2\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1381
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1382	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1383	r2 := r1 translatedBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1384	r1
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1385	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1386	! !
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1387
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1388	!Rectangle methodsFor:'testing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1389
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1390	contains:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1391	"return true, if the argument, aRectangle is equal to or
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1392	is contained fully within the receiver"
1 a27a279701f8 Initial revision claus parents: diff changeset	1393
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1394	%{ /* NOCONTEXT */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1395	/*
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1396	* claus: this may be often called by objectView
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1397	* the primitive code below (although lookung ugly)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1398	* speeds that up by almost a factor of 2 ...
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1399	*/
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1400	OBJ slf = self;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1401	OBJ rct = aRectangle;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1402
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1403	if (__isNonNilObject(rct)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1404	&& __qClass(rct) == Rectangle) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1405	OBJ r_l, r_w, r_t, r_h, l, w, t, h;
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1406	INT r_ir, r_il, r_ib, r_it;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1407	INT il, it, ir, ib, iw, ih;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1408
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1409	r_l = __OINST(rct, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1410	l = __OINST(slf, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1411	if (__bothSmallInteger(r_l, l)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1412	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1413	il = (INT)(l);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1414	r_il = (INT)(r_l);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1415	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1416	il = __intVal(l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1417	r_il = __intVal(r_l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1418	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1419	if (il > r_il) { RETURN (false); } /* left > aRectangle left */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1420
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1421	r_t = __OINST(rct, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1422	t = __OINST(slf, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1423	if (__bothSmallInteger(r_t, t)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1424	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1425	it = (INT)(t);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1426	r_it = (INT)(r_t);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1427	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1428	it = __intVal(t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1429	r_it = __intVal(r_t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1430	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1431	if (it > r_it) { RETURN (false); } /* top > aRectangle top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1432
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1433	r_w = __OINST(rct, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1434	w = __OINST(slf, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1435	if (__bothSmallInteger(r_w, w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1436	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1437	ir = il + (INT)(w);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1438	r_ir = r_il + (INT)(r_w);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1439	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1440	ir = il + __intVal(w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1441	r_ir = r_il + __intVal(r_w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1442	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1443	if (ir < r_ir) { RETURN (false); } /* (left + width) < aRectangle right */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1444
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1445	r_h = __OINST(rct, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1446	h = __OINST(slf, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1447	if (__bothSmallInteger(r_h, h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1448	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1449	ib = it + (INT)(h);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1450	r_ib = r_it + (INT)(r_h);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1451	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1452	ib = it + __intVal(h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1453	r_ib = r_it + __intVal(r_h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1454	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1455	if (ib < r_ib) { RETURN (false); } /* (top + height) < aRectangle bottom */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1456	RETURN (true);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1457	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1458	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1459	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1460	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1461	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1462	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1463	(left <= aRectangle left) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1464	((left + width) >= aRectangle right) ifTrue:[
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1465	(top <= aRectangle top) ifTrue:[
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1466	((top + height) >= aRectangle bottom) ifTrue:[
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1467	^ true
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1468	]
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1469	]
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1470	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1471	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1472	^ false
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1473
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1474	"
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1475	(0@0 corner:100@100) contains:(10@10 corner:90@90)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1476	(0@0 corner:100@100) contains:(10@10 corner:100@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1477	(0@0 corner:100@100) contains:(10@10 corner:110@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1478	(0@0 corner:100@100) contains:(10@10 corner:100@110)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1479	(10@10 corner:100@100) contains:(0@10 corner:100@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1480	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1481	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1482
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1483	containsPoint:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1484	"return true, if the argument, aPoint is contained in the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1485
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1486	\|px py\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1487
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1488	px := aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1489	(px < left) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1490	(px > (left + width)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1491	py := aPoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1492	(py < top) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1493	(py > (top + height)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1494	^ true
1 a27a279701f8 Initial revision claus parents: diff changeset	1495	!
a27a279701f8 Initial revision claus parents: diff changeset	1496
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1497	containsPointX:x y:y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1498	"return true, if the point defined by x@y is contained in the receiver.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1499	This is the same as containsPoint:, but can be used if the coordinates
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1500	are already available as separate numbers to avoid useless creation of a
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1501	temporary point."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1502
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1503	(x < left) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1504	(x > (left + width)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1505	(y < top) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1506	(y > (top + height)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1507	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1508	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1509
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1510	intersects:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1511	"return true, if the intersection between the argument, aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1512	and the receiver is not empty"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1513
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1514	\|b r\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1515
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1516	%{ /* NOCONTEXT */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1517	/*
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1518	* claus: this is one of the mostly called methods in
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1519	* the objectView - the primitive code below (although lookung ugly)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1520	* speeds up drawing by almost a factor of 2 ...
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1521	*/
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1522	OBJ slf = self;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1523	OBJ rct = aRectangle;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1524
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1525	if (__isNonNilObject(rct)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1526	&& __qClass(rct) == Rectangle) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1527	OBJ r_l, r_w, r_t, r_h, l, w, t, h;
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1528	INT r_ir, r_il, r_ib, r_it;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1529	INT il, it, ir, ib, iw, ih;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1530
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1531	r_l = __OINST(rct, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1532	r_w = __OINST(rct, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1533
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1534	if (__bothSmallInteger(r_l, r_w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1535	r_t = __OINST(rct, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1536	r_h = __OINST(rct, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1537
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1538	l = __OINST(slf, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1539	w = __OINST(slf, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1540
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1541	if (__bothSmallInteger(l, w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1542	t = __OINST(slf, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1543	h = __OINST(slf, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1544
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1545	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1546	r_il = (INT)(r_l);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1547	r_ir = r_il + (INT)(r_w) - 1;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1548	il = (INT)(l);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1549	if (r_ir < il) { RETURN (false); }
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1550	ir = il + (INT)(w) - 1;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1551	if (r_il > ir) { RETURN (false); }
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1552	#else /* tag in hi-bit */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1553	r_il = __intVal(r_l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1554	r_ir = r_il + __intVal(r_w); /* aRectangle right */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1555	il = __intVal(l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1556	if (r_ir < il) { RETURN (false); } /* (aRectangle right) < left */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1557
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1558	ir = il + __intVal(w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1559	if (r_il > ir) { RETURN (false); } /* (aRectangle left) > r */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1560	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1561
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1562	if (__bothSmallInteger(r_t, r_h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1563	if (__bothSmallInteger(t, h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1564	#ifndef POSITIVE_ADDRESSES
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1565	r_it = (INT)(r_t);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1566	r_ib = r_it + (INT)(r_h) - 1; /* aRectangle bottom */
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1567	it = (INT)(t);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1568	if (r_ib < it) { RETURN (false); } /* (aRectangle bottom) < top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1569
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1570	ib = it + (INT)(h) - 1;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1571	if (r_it > ib) { RETURN (false); } /* (aRectangle top) > b */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1572	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1573	r_it = __intVal(r_t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1574	r_ib = r_it + __intVal(r_h); /* aRectangle bottom */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1575	it = __intVal(t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1576	if (r_ib < it) { RETURN (false); } /* (aRectangle bottom) < top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1577
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1578	ib = it + __intVal(h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1579	if (r_it > ib) { RETURN (false); } /* (aRectangle top) > b */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1580	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1581	RETURN (true);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1582	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1583	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1584	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1585	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1586	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1587	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1588	(aRectangle right) < left ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1589	(aRectangle bottom) < top ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1590	r := left + width.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1591	(aRectangle left) > r ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1592	b := top + height.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1593	(aRectangle top) > b ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1594	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1595	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1596
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1597	isContainedIn:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1598	"return true, if the receiver is fully contained within
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1599	the argument, aRectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1600
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1601	(aRectangle left <= left) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1602	(aRectangle right >= (left + width)) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1603	(aRectangle top <= top) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1604	(aRectangle bottom >= (top + height)) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1605	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1606	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1607	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1608	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1609	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1610	^ false
1 a27a279701f8 Initial revision claus parents: diff changeset	1611	! !
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1612
4861 117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1613	!Rectangle methodsFor:'truncation and rounding'!
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1614
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1615	rounded
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1616	"return a copy of the receiver with rounded coordinates.
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1617	Return the receiver if its coordinates are already integral."
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1618
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1619	(left isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1620	and:[top isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1621	and:[width isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1622	and:[height isInteger]]])
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1623	ifTrue: [^ self].
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1624
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1625	^ Rectangle left:(left rounded)
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1626	top:(top rounded)
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1627	width:(width rounded)
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1628	height:(height rounded)
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1629	!
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1630
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1631	truncated
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1632	"return a Rectangle whose origin and corner have any fractional parts removed.
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1633	Return the receiver if its coordinates are already integral."
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1634
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1635	(left isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1636	and:[top isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1637	and:[width isInteger
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1638	and:[height isInteger]]])
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1639	ifTrue: [^ self].
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1640
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1641	^ Rectangle
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1642	left:left truncated
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1643	top:top truncated
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1644	width:width truncated
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1645	height:height truncated.
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1646	! !
117905eec712 added #truncated; Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	1647
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1648	!Rectangle class methodsFor:'documentation'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1649
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1650	version
4864 3ff21a7f977d more rectangle functions. Claus Gittinger <cg@exept.de> parents: 4863 diff changeset	1651	^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.63 1999-10-06 23:45:37 cg Exp $'
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1652	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 07 Oct 1999 01:45:37 +0200
changeset 4864	3ff21a7f977d
parent 4863	9544c9e5c17e
child 4868	339707d6cc2a
permissions	-rw-r--r--