diff options
Diffstat (limited to 'xts5/Xlib17/XUnionRegion.m')
| -rw-r--r-- | xts5/Xlib17/XUnionRegion.m | 190 |
1 files changed, 190 insertions, 0 deletions
diff --git a/xts5/Xlib17/XUnionRegion.m b/xts5/Xlib17/XUnionRegion.m new file mode 100644 index 00000000..498a8261 --- /dev/null +++ b/xts5/Xlib17/XUnionRegion.m @@ -0,0 +1,190 @@ +Copyright (c) 2005 X.Org Foundation L.L.C. + +Permission is hereby granted, free of charge, to any person obtaining a copy of +this software and associated documentation files (the "Software"), to deal in +the Software without restriction, including without limitation the rights to +use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies +of the Software, and to permit persons to whom the Software is furnished to do +so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. + +Copyright (c) Applied Testing and Technology, Inc. 1995 +All Rights Reserved. + +>># Project: VSW5 +>># +>># File: xts5/Xlib17/XUnionRegion.m +>># +>># Description: +>># Tests for XUnionRegion() +>># +>># Modifications: +>># $Log: unnrgn.m,v $ +>># Revision 1.2 2005-11-03 08:43:14 jmichael +>># clean up all vsw5 paths to use xts5 instead. +>># +>># Revision 1.1.1.2 2005/04/15 14:05:24 anderson +>># Reimport of the base with the legal name in the copyright fixed. +>># +>># Revision 8.0 1998/12/23 23:34:57 mar +>># Branch point for Release 5.0.2 +>># +>># Revision 7.0 1998/10/30 22:57:21 mar +>># Branch point for Release 5.0.2b1 +>># +>># Revision 6.0 1998/03/02 05:26:13 tbr +>># Branch point for Release 5.0.1 +>># +>># Revision 5.0 1998/01/26 03:22:46 tbr +>># Branch point for Release 5.0.1b1 +>># +>># Revision 4.0 1995/12/15 09:11:54 tbr +>># Branch point for Release 5.0.0 +>># +>># Revision 3.1 1995/12/15 01:14:42 andy +>># Prepare for GA Release +>># +/* +Portions of this software are based on Xlib and X Protocol Test Suite. +We have used this material under the terms of its copyright, which grants +free use, subject to the conditions below. Note however that those +portions of this software that are based on the original Test Suite have +been significantly revised and that all such revisions are copyright (c) +1995 Applied Testing and Technology, Inc. Insomuch as the proprietary +revisions cannot be separated from the freely copyable material, the net +result is that use of this software is governed by the ApTest copyright. + +Copyright (c) 1990, 1991 X Consortium + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of the X Consortium shall not be +used in advertising or otherwise to promote the sale, use or other dealings +in this Software without prior written authorization from the X Consortium. + +Permission to use, copy, modify, distribute, and sell this software and +its documentation for any purpose is hereby granted without fee, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the name of UniSoft not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. UniSoft +makes no representations about the suitability of this software for any +purpose. It is provided "as is" without express or implied warranty. +*/ +>>TITLE XUnionRegion Xlib17 + +XUnionRegion(sra, srb, dr_return) +Region sra; +Region srb; +Region dr_return; +>>ASSERTION Good A +A call to xname computes the union of the regions +.A sra +and +.A srb +and places the result in the region +.A dr_return . +>>STRATEGY +Create regions R1 R2 R3 using XCreateRegion. +Set regions R1 and R2 to right-angled triangles joined along the hypotenuse using XPolygonRegion. +Set R3 to the rectangle formed by joining the triangles using XUnionRectWithRegion. +Obtain the union of R1 and R2 using xname. +Verify that union is the same as R3 using XEqualRegion. + +Create a region using XCreateRegion. +Set the region to an overlapping set of 3x3 rectangular regions using xname. +Verify that the result is the correct rectangular region using XEqualRegion. +>>CODE +int i; +int j; +Region R1; +Region R2; +Region R3; +Region Rt; +static XPoint tri1[] = { {5,5}, {30,5}, {5,20} }; +static XPoint tri2[] = { {5,20}, {30,20}, {30,5} }; +static XRectangle rect1 = { 5,5, 25,15}; +XRectangle rect2; +XRectangle rrect; + + R1 = makeregion(); + R2 = makeregion(); + R3 = makeregion(); + Rt = makeregion(); + + if(isdeleted()) return; + + R1 = XPolygonRegion(tri1, NELEM(tri1), WindingRule); + R2 = XPolygonRegion(tri2, NELEM(tri2), WindingRule); + + sra = R1; + srb = R2; + dr_return = R3; + XCALL; + + XUnionRectWithRegion(&rect1, Rt, Rt); + + if( XEqualRegion(Rt, R3) != True) { + report("%s() did not unify two triangular regions into the correct rectangular region.", TestName); + FAIL; + } else + CHECK; + + + R2 = makeregion(); + + srb = R2; + dr_return = R2; + rect2.width=3; + rect2.height=3; + for(j=5; j<18; j++) { + rect2.y=j; + for(i=5; i<28; i++) { + + if((R1 = XCreateRegion()) == (Region) NULL) { + delete("XCreateRegion() returned NULL."); + return; + } else + if(i==27 && j==17) CHECK; + + rect2.x=i; + XUnionRectWithRegion(&rect2, R1, R1); + sra = R1; + XCALL; + XDestroyRegion(R1); + } + } + + if( XEqualRegion(Rt, R2) != True) { + report("%s() did not unify a set of over-lapping rectangular regions into the correct rectangular region.", TestName); + FAIL; + } else + CHECK; + + CHECKPASS(3); |