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

author	Claus Gittinger <cg@exept.de>
	Mon, 03 Nov 1997 16:35:38 +0100
changeset 3095	cdb753308f6e
parent 2894	344aec8ba014
child 3239	1114c37ca259
permissions	-rw-r--r--