shared/tk_base/tkwinregion.c

/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinregion.c,v 1.1.1.1 2001/06/13 05:14:15 dtashley Exp $ */

/* 
 * tkWinRegion.c --
 *
 *      Tk Region emulation code.
 *
 * Copyright (c) 1995 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tkwinregion.c,v 1.1.1.1 2001/06/13 05:14:15 dtashley Exp $
 */

#include "tkWinInt.h"


/*
 *----------------------------------------------------------------------
 *
 * TkCreateRegion --
 *
 *      Construct an empty region.
 *
 * Results:
 *      Returns a new region handle.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

TkRegion
TkCreateRegion()
{
    RECT rect;
    memset(&rect, 0, sizeof(RECT));
    return (TkRegion) CreateRectRgnIndirect(&rect);
}

/*
 *----------------------------------------------------------------------
 *
 * TkDestroyRegion --
 *
 *      Destroy the specified region.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      Frees the storage associated with the specified region.
 *
 *----------------------------------------------------------------------
 */

void
TkDestroyRegion(r)
    TkRegion r;
{
    DeleteObject((HRGN) r);
}

/*
 *----------------------------------------------------------------------
 *
 * TkClipBox --
 *
 *      Computes the bounding box of a region.
 *
 * Results:
 *      Sets rect_return to the bounding box of the region.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

void
TkClipBox(r, rect_return)
    TkRegion r;
    XRectangle* rect_return;
{
    RECT rect;
    GetRgnBox((HRGN)r, &rect);
    rect_return->x = (short) rect.left;
    rect_return->y = (short) rect.top;
    rect_return->width = (short) (rect.right - rect.left);
    rect_return->height = (short) (rect.bottom - rect.top);
}

/*
 *----------------------------------------------------------------------
 *
 * TkIntersectRegion --
 *
 *      Compute the intersection of two regions.
 *
 * Results:
 *      Returns the result in the dr_return region.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

void
TkIntersectRegion(sra, srb, dr_return)
    TkRegion sra;
    TkRegion srb;
    TkRegion dr_return;
{
    CombineRgn((HRGN) dr_return, (HRGN) sra, (HRGN) srb, RGN_AND);
}

/*
 *----------------------------------------------------------------------
 *
 * TkUnionRectWithRegion --
 *
 *      Create the union of a source region and a rectangle.
 *
 * Results:
 *      Returns the result in the dr_return region.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

void
TkUnionRectWithRegion(rectangle, src_region, dest_region_return)
    XRectangle* rectangle;
    TkRegion src_region;
    TkRegion dest_region_return;
{
    HRGN rectRgn = CreateRectRgn(rectangle->x, rectangle->y,
            rectangle->x + rectangle->width, rectangle->y + rectangle->height);
    CombineRgn((HRGN) dest_region_return, (HRGN) src_region,
            (HRGN) rectRgn, RGN_OR);
    DeleteObject(rectRgn);
}

/*
 *----------------------------------------------------------------------
 *
 * TkRectInRegion --
 *
 *      Test whether a given rectangle overlaps with a region.
 *
 * Results:
 *      Returns RectanglePart or RectangleOut.  Note that this is
 *      not a complete implementation since it doesn't test for
 *      RectangleIn.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

int
TkRectInRegion(r, x, y, width, height)
    TkRegion r;
    int x;
    int y;
    unsigned int width;
    unsigned int height;
{
    RECT rect;
    rect.top = y;
    rect.left = x;
    rect.bottom = y+height;
    rect.right = x+width;
    return RectInRegion((HRGN)r, &rect) ? RectanglePart : RectangleOut;
}


/* $History: tkWinRegion.c $
 * 
 * *****************  Version 1  *****************
 * User: Dtashley     Date: 1/02/01    Time: 3:19a
 * Created in $/IjuScripter, IjuConsole/Source/Tk Base
 * Initial check-in.
 */

/* End of TKWINREGION.C */
1	dashley	25	/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinregion.c,v 1.1.1.1 2001/06/13 05:14:15 dtashley Exp $ */
2
3			/*
4			* tkWinRegion.c --
5			*
6			* Tk Region emulation code.
7			*
8			* Copyright (c) 1995 Sun Microsystems, Inc.
9			*
10			* See the file "license.terms" for information on usage and redistribution
11			* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12			*
13			* RCS: @(#) $Id: tkwinregion.c,v 1.1.1.1 2001/06/13 05:14:15 dtashley Exp $
14			*/
15
16			#include "tkWinInt.h"
17
18
19			/*
20			*----------------------------------------------------------------------
21			*
22			* TkCreateRegion --
23			*
24			* Construct an empty region.
25			*
26			* Results:
27			* Returns a new region handle.
28			*
29			* Side effects:
30			* None.
31			*
32			*----------------------------------------------------------------------
33			*/
34
35			TkRegion
36			TkCreateRegion()
37			{
38			RECT rect;
39			memset(&rect, 0, sizeof(RECT));
40			return (TkRegion) CreateRectRgnIndirect(&rect);
41			}
42
43			/*
44			*----------------------------------------------------------------------
45			*
46			* TkDestroyRegion --
47			*
48			* Destroy the specified region.
49			*
50			* Results:
51			* None.
52			*
53			* Side effects:
54			* Frees the storage associated with the specified region.
55			*
56			*----------------------------------------------------------------------
57			*/
58
59			void
60			TkDestroyRegion(r)
61			TkRegion r;
62			{
63			DeleteObject((HRGN) r);
64			}
65
66			/*
67			*----------------------------------------------------------------------
68			*
69			* TkClipBox --
70			*
71			* Computes the bounding box of a region.
72			*
73			* Results:
74			* Sets rect_return to the bounding box of the region.
75			*
76			* Side effects:
77			* None.
78			*
79			*----------------------------------------------------------------------
80			*/
81
82			void
83			TkClipBox(r, rect_return)
84			TkRegion r;
85			XRectangle* rect_return;
86			{
87			RECT rect;
88			GetRgnBox((HRGN)r, &rect);
89			rect_return->x = (short) rect.left;
90			rect_return->y = (short) rect.top;
91			rect_return->width = (short) (rect.right - rect.left);
92			rect_return->height = (short) (rect.bottom - rect.top);
93			}
94
95			/*
96			*----------------------------------------------------------------------
97			*
98			* TkIntersectRegion --
99			*
100			* Compute the intersection of two regions.
101			*
102			* Results:
103			* Returns the result in the dr_return region.
104			*
105			* Side effects:
106			* None.
107			*
108			*----------------------------------------------------------------------
109			*/
110
111			void
112			TkIntersectRegion(sra, srb, dr_return)
113			TkRegion sra;
114			TkRegion srb;
115			TkRegion dr_return;
116			{
117			CombineRgn((HRGN) dr_return, (HRGN) sra, (HRGN) srb, RGN_AND);
118			}
119
120			/*
121			*----------------------------------------------------------------------
122			*
123			* TkUnionRectWithRegion --
124			*
125			* Create the union of a source region and a rectangle.
126			*
127			* Results:
128			* Returns the result in the dr_return region.
129			*
130			* Side effects:
131			* None.
132			*
133			*----------------------------------------------------------------------
134			*/
135
136			void
137			TkUnionRectWithRegion(rectangle, src_region, dest_region_return)
138			XRectangle* rectangle;
139			TkRegion src_region;
140			TkRegion dest_region_return;
141			{
142			HRGN rectRgn = CreateRectRgn(rectangle->x, rectangle->y,
143			rectangle->x + rectangle->width, rectangle->y + rectangle->height);
144			CombineRgn((HRGN) dest_region_return, (HRGN) src_region,
145			(HRGN) rectRgn, RGN_OR);
146			DeleteObject(rectRgn);
147			}
148
149			/*
150			*----------------------------------------------------------------------
151			*
152			* TkRectInRegion --
153			*
154			* Test whether a given rectangle overlaps with a region.
155			*
156			* Results:
157			* Returns RectanglePart or RectangleOut. Note that this is
158			* not a complete implementation since it doesn't test for
159			* RectangleIn.
160			*
161			* Side effects:
162			* None.
163			*
164			*----------------------------------------------------------------------
165			*/
166
167			int
168			TkRectInRegion(r, x, y, width, height)
169			TkRegion r;
170			int x;
171			int y;
172			unsigned int width;
173			unsigned int height;
174			{
175			RECT rect;
176			rect.top = y;
177			rect.left = x;
178			rect.bottom = y+height;
179			rect.right = x+width;
180			return RectInRegion((HRGN)r, &rect) ? RectanglePart : RectangleOut;
181			}
182
183
184			/* $History: tkWinRegion.c $
185			*
186			* *************** Version 1 ***************
187			* User: Dtashley Date: 1/02/01 Time: 3:19a
188			* Created in $/IjuScripter, IjuConsole/Source/Tk Base
189			* Initial check-in.
190			*/
191
192			/* End of TKWINREGION.C */