Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!caip!im4u!ut-sally!husc6!uwvax!uwmacc!dubois
From: dubois@uwmacc.UUCP (Paul DuBois)
Newsgroups: net.micro.mac
Subject: Re: Defining a region
Message-ID: <106@uwmacc.UUCP>
Date: Fri, 1-Aug-86 13:06:04 EDT
Article-I.D.: uwmacc.106
Posted: Fri Aug  1 13:06:04 1986
Date-Received: Sat, 2-Aug-86 09:39:11 EDT
References: <1041@k.cs.cmu.edu>
Distribution: net
Organization: UW-Madison Primate Center
Lines: 46

> I am trying to create a region composed of the area of two adjoining
> rectangles.  Whenever I create the region and then fill it, I only
> get something similar to two framerects, rather than two painted rects.
> I've tried using OpenRgn and then calls to FrameRect, and I've also
> tried using SetRectRgn and Unioning them together.  Neither seems to
> work.  Can anyone offer any suggestions?

Here's a program that works.  I assume you have a passing familiarity
with Rascal (hee, hee, hee).


Program Rgn;

Uses
    __QuickDraw
    (*$U+*)
    uQuickDraw
    ;

Link
    __QuickDraw
    :
    ;

Proc _Init ();
Var
    rgn: RgnHandle;
    r1, r2: Rect;
{
    rgn := NewRgn ();
    OpenRgn ();
    SetRect (r1, 10, 10, 100, 100);
    SetRect (r2, 110, 110, 200, 200);
    FrameRect (r1);
    FrameRect (r2);
    CloseRgn (rgn);
    FillRgn (rgn, _Black ());
    DisposeRgn (rgn);
};

-- 
Paul DuBois     UUCP: {allegra,ihnp4,seismo}!uwvax!uwmacc!dubois    |
                ARPA: dubois@easter                               --+--
                                                                    |
Begin at my sanctuary...                                            |
                          Ezekiel 9:6