This do the trick?  You could do some UnionRect and SectRect and region 
approaches as well...but this is easy enough.

CLEAR LOCAL
DIM r as rect
'~'<
LOCAL FN RefreshMain
FLUSHWINDOWBUFFER

PEN 2,2,1,8,0
SETRECT(r,72,136,504,288)
'~';
long color 32767,32767,32767
paintroundRect(r,9,9)
'~';
COLOR _zblue
FRAMEROUNDRECT(r,9,9)
INSETRECT(r,100,8)
'~';
color _zwhite
paintroundRect(r,9,9)
'~';
COLOR _zred
FRAMEROUNDRECT(r,9,9)
PENNORMAL
COLOR _zblack
FLUSHWINDOWBUFFER
END FN

window 1
FN RefreshMain
do
handleEvents
until 0
r
c
On Thursday, September 2, 2004, at 04:50  PM, BrucesFB3@... wrote:

> Hello Everyone,
>
> The code snipet below creates 2 nested rectangles. What I
> would like to know is what is the most efficient way to fill
> in the space between the inner and outer rectangle with a
> third color, using LONG COLOR.
>
> Bruce Gottshall
>
> CLEAR LOCAL
> DIM r as rect
> '~'<
> LOCAL FN RefreshMain
> FLUSHWINDOWBUFFER
> COLOR _zblue
> PEN 2,2,1,8,0
> SETRECT(r,72,136,504,288)
> FRAMEROUNDRECT(r,9,9)
> COLOR _zred
> INSETRECT(r,100,8)
> FRAMEROUNDRECT(r,9,9)
> PENNORMAL
> COLOR _zblack
> FLUSHWINDOWBUFFER
> END FN
>
> --
> To unsubscribe, send ANY message to: 
> futurebasic-unsubscribe@...