/* C code generated by:							*/
/* Visual Arts Version 2.1						*/
/* Copyright (c)1994-95 Danny Y. Wong  All rights reserved		*/
/* Calgary, Alberta (CANADA)                        			*/

int  InitTempArea(void);
extern void GraPatDrawCircles(struct Window *Wind);
extern void GraPatDrawRects(struct Window *Wind);
extern struct Window  *GraPatWnd;

void GraPatDrawRects(struct Window *Wind)
{
  UWORD offsetx = Scr->WBorLeft;
  UWORD offsety = Scr->WBorTop + Scr->RastPort.TxHeight + 1;

  DrawBox(Wind, 5, 2, 200, 75, 1, 0 );
  DrawBevelBox(Wind->RPort, 17+offsetx, 8+offsety, 171, 62, 
	(GT_VisualInfo), VisualInfo, TAG_DONE);
  DrawFBox(Wind, 30, 14, 145, 49, 3, 0, 0, 25 );
  DrawFBox(Wind, 59, 25, 86, 28, 1, 0, 1, 34 );
  DrawBevelBox(Wind->RPort, 29+offsetx, 13+offsety, 147, 51, 
	(GT_VisualInfo), VisualInfo, TAG_DONE);
  DrawBevelBox(Wind->RPort, 58+offsetx, 24+offsety, 88, 30, 
	(GT_VisualInfo), VisualInfo, (GTBB_Recessed), TRUE, TAG_DONE);
  DrawFBox(Wind, 218, 68, 129, 9, 2, 0, 1, 20 );
  DrawBox(Wind, 210, 2, 153, 62, 2, 2 );
  SetDrPt(Wind->RPort, 0xFFFF);
  SetOPen(Wind->RPort, 0);
  SetAfPt(Wind->RPort, NULL, 0);
}

void GraPatDrawCircles(struct Window *Wind)
{
  DrawFCircle(Wind, 256, 14, 25, 9, 1, 0, 1, 47 );
  DrawFCircle(Wind, 326, 14, 25, 9, 1, 0, 1, 47 );
  DrawFCircle(Wind, 311, 14, 7, 3, 2, 0, 1, 47 );
  DrawFCircle(Wind, 271, 14, 7, 3, 2, 0, 1, 47 );
  DrawFCircle(Wind, 391, 34, 17, 28, 2, 0, 1, 18 );
  DrawFCircle(Wind, 390, 71, 34, 7, 3, 0, 1, 15 );
}

void GraPatDrawLine(struct Window *Wind)
{
  DrawLine(Wind, 283, 23, 268, 40, 1, 0 );
  DrawLine(Wind, 269, 40, 308, 34, 1, 0 );
  DrawLine(Wind, 241, 51, 337, 45, 1, 0 );
  DrawLine(Wind, 274, 60, 299, 59, 1, 0 );
}

struct AreaInfo areaInfo={0};
struct TmpRas Temprast;
PLANEPTR AreaPlane=NULL;
WORD areaBuffer[4000];


int InitTempArea(void)
{
  register UWORD i;

  for (i=0; i<4000; i++)
    areaBuffer[i]=0;
  InitArea(&areaInfo, areaBuffer, 800L);
  AreaPlane = AllocRaster(640, 200);
  if (AreaPlane == NULL)
      return(1L);
  InitTmpRas(&Temprast, AreaPlane, (long)RASSIZE(640, 200));
      return(0L);
}


			 /* gadget functions */