test/clippingtest.c

   1 #include <intuition/intuition.h>
   2 #include <intuition/intuitionbase.h>
   3 #include <graphics/gfx.h>
   4 #include <graphics/gfxbase.h>
   5 #include <proto/exec.h>
   6 #include <proto/dos.h>
   7 #include <proto/intuition.h>
   8 #include <proto/graphics.h>
   9 #include <proto/layers.h>
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13
  14 #define ARG_TEMPLATE "SIMPLE/S"
  15
  16 #define ARG_SIMPLE 0
  17 #define NUM_ARGS 1
  18
  19 struct IntuitionBase *IntuitionBase;
  20 struct GfxBase *GfxBase;
  21 struct Library *LayersBase;
  22
  23 static struct Window *win;
  24 static struct RastPort *rp;
  25 static struct Layer *lay;
  26
  27 static struct RDArgs *myargs;
  28 static IPTR args[NUM_ARGS];
  29 static char s[256];
  30
  31 static void Cleanup(char *msg)
  32 {
  33     if (msg)
  34     {
  35         printf("clippingtest: %s\n",msg);
  36     }
  37
  38     if (win) CloseWindow(win);
  39
  40     if (myargs) FreeArgs(myargs);
  41
  42     if (LayersBase) CloseLibrary(LayersBase);
  43     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  44     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  45
  46     exit(0);
  47 }
  48
  49 static void DosError(void)
  50 {
  51     Fault(IoErr(),0,s,255);
  52     Cleanup(s);
  53 }
  54
  55 static void OpenLibs(void)
  56 {
  57     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",39)))
  58     {
  59         Cleanup("Can't open intuition.library V39!");
  60     }
  61
  62     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",39)))
  63     {
  64         Cleanup("Can't open graphics.library V39!");
  65     }
  66
  67     if (!(LayersBase = OpenLibrary("layers.library",39)))
  68     {
  69         Cleanup("Can't open layers.library V39!");
  70     }
  71 }
  72
  73 static void GetArguments(void)
  74 {
  75     if (!(myargs = ReadArgs(ARG_TEMPLATE, args, 0)))
  76     {
  77         DosError();
  78     }
  79 }
  80
  81 static void MakeWin(void)
  82 {
  83     win = OpenWindowTags(0,WA_Left,10,
  84                            WA_Top,20,
  85                            WA_Width,200,
  86                            WA_Height,200,
  87                            WA_Title,(IPTR)"Press key to flip color!",
  88                            WA_CloseGadget,TRUE,
  89                            WA_DepthGadget,TRUE,
  90                            WA_DragBar,TRUE,
  91                            WA_Activate,TRUE,
  92                            args[ARG_SIMPLE] ? WA_SimpleRefresh : TAG_IGNORE, TRUE,
  93                            WA_IDCMP,IDCMP_CLOSEWINDOW |
  94                                     IDCMP_VANILLAKEY |
  95                                     IDCMP_REFRESHWINDOW,
  96                            TAG_DONE);
  97
  98     if (!win) Cleanup("Can't open window!");
  99
 100     rp = win->RPort;
 101     lay = win->WLayer;
 102 }
 103
 104 static void Action(void)
 105 {
 106     struct Region *clip, *oldclip;
 107     struct Rectangle rect1;
 108     struct Rectangle rect2;
 109     struct IntuiMessage *msg;
 110     WORD col = 1;
 111     BOOL quitme = FALSE;
 112
 113     rect1.MinX =  20;rect1.MinY = 80;
 114     rect1.MaxX = 180;rect1.MaxY = 120;
 115     rect2.MinX =  80;rect2.MinY = 20;
 116     rect2.MaxX = 120;rect2.MaxY = 180;
 117
 118     clip = NewRegion();
 119     if (!clip) Cleanup("Can't create clip region!");
 120
 121     OrRectRegion(clip, &rect1);
 122     OrRectRegion(clip, &rect2);
 123
 124     oldclip = InstallClipRegion(lay, clip);
 125
 126     SetAPen(rp,col);
 127     RectFill(rp,0,0,1000,1000);
 128
 129     while(!quitme)
 130     {
 131         WaitPort(win->UserPort);
 132         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 133         {
 134             switch(msg->Class)
 135             {
 136                 case IDCMP_CLOSEWINDOW:
 137                     quitme = TRUE;
 138                     break;
 139
 140                 case IDCMP_VANILLAKEY:
 141                     col = 3 - col;
 142                     SetAPen(rp,col);
 143                     RectFill(rp,0,0,1000,1000);
 144                     break;
 145
 146                 case IDCMP_REFRESHWINDOW:
 147                     BeginRefresh(win);
 148                     SetAPen(rp,col);
 149                     RectFill(rp,0,0,1000,1000);
 150                     EndRefresh(win,TRUE);
 151                     break;
 152             }
 153
 154             ReplyMsg((struct Message *)msg);
 155         }
 156     }
 157
 158     InstallClipRegion(lay, oldclip);
 159
 160 }
 161
 162 int main(void)
 163 {
 164     OpenLibs();
 165     GetArguments();
 166     MakeWin();
 167     Action();
 168     Cleanup(0);
 169     return 0;
 170 }