#include <graphics/gfxmacros.h>
#undef GetOutlinePen
 
#include <proto/dos.h>
#include <proto/exec.h>
#include <proto/graphics.h>
#include <proto/intuition.h>
 
 
void fill_window (struct Window *win)
 
{
static const UWORD pattern[] = {
	0x8888,0x2222,0x4444,0x1111
	};
 
SetABPenDrMd (win->RPort,2,3,JAM2);
 
SetAfPt (win->RPort,(UWORD *)pattern,2);
 
RectFill (win->RPort,win->BorderLeft,win->BorderTop,
	win->BorderLeft + win->GZZWidth - 1,
	win->BorderTop + win->GZZHeight - 1);
 
SetAfPt (win->RPort,NULL,0);
}
 
 
int main (void)
{
struct Window *win;
 
if ((win = OpenWindowTags (NULL,
		WA_Left,80,
		WA_Top,80,
		WA_Width,400,
		WA_Height,120,
		WA_Title,"Pattern Fill Demo",
		WA_Flags,WFLG_CLOSEGADGET | WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_SIZEGADGET | WFLG_SIZEBBOTTOM | WFLG_ACTIVATE | WFLG_SIMPLE_REFRESH,
		WA_IDCMP,IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY | IDCMP_REFRESHWINDOW,
		WA_MinWidth,80,
		WA_MinHeight,60,
		WA_MaxWidth,0x7fff,
		WA_MaxHeight,0x7fff,
		TAG_END)))
	{
	BOOL cont = TRUE;
	struct IntuiMessage *imsg;
 
	fill_window (win);
 
	do	{
		if (Wait ((1L << win->UserPort->mp_SigBit) | SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
			cont = FALSE;
 
		while ((imsg = (struct IntuiMessage *) GetMsg (win->UserPort)))
			{
			switch (imsg->Class)
				{
			case IDCMP_REFRESHWINDOW:
				BeginRefresh (win);
				fill_window (win);
				EndRefresh (win,TRUE);
				break;
			case IDCMP_VANILLAKEY:
				if (imsg->Code == 0x1b) /* Esc */
					cont = FALSE;
				break;
			case IDCMP_CLOSEWINDOW:
				cont = FALSE;
				break;
				}
			ReplyMsg ((struct Message *)imsg);
			}
		}
	while (cont);
 
	CloseWindow (win);
	}
else
	Printf ("cannot open window\n");
 
return (RETURN_OK);
}