test/showvisshape.c

   1 #include <exec/exec.h>
   2 #include <dos/dos.h>
   3 #include <intuition/intuition.h>
   4 #include <intuition/intuitionbase.h>
   5 #include <intuition/screens.h>
   6 #include <graphics/clip.h>
   7 #include <graphics/rastport.h>
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <proto/graphics.h>
  11 #include <proto/layers.h>
  12
  13 #include <stdio.h>
  14 #include <string.h>
  15 #include <stdlib.h>
  16
  17 #ifndef CreateLayerTagList
  18
  19 int main(void)
  20 {
  21     printf("showvisregion only works with hyperlayers.library!\n");
  22     return 0;
  23 }
  24
  25 #else
  26
  27 #define ARG_TEMPLATE "FAST=F/S,NUMBERS=N/S"
  28
  29 #define ARG_FAST    0
  30 #define ARG_NUMBERS 1
  31 #define NUM_ARGS    2
  32
  33 struct IntuitionBase *IntuitionBase = NULL;
  34 struct GfxBase *GfxBase = NULL;
  35
  36 static struct Screen *scr;
  37 static struct Window *win;
  38 static struct Layer *lay;
  39 static struct RDArgs *MyArgs;
  40 static IPTR Args[NUM_ARGS];
  41 static char s[256];
  42
  43 static void Cleanup(char *msg)
  44 {
  45     WORD rc;
  46
  47     if (msg)
  48     {
  49         printf("crlist: %s\n",msg);
  50         rc = RETURN_WARN;
  51     } else {
  52         rc = RETURN_OK;
  53     }
  54
  55     if (MyArgs) FreeArgs(MyArgs);
  56
  57     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  58     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  59
  60     exit(rc);
  61 }
  62
  63 static void OpenLibs(void)
  64 {
  65     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0)))
  66     {
  67         Cleanup("Can´t open intuition.library!");
  68     }
  69
  70     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",0)))
  71     {
  72         Cleanup("Can´t open graphics.library!");
  73     }
  74 }
  75
  76 static void GetArguments(void)
  77 {
  78     if (!(MyArgs = ReadArgs(ARG_TEMPLATE,Args,0)))
  79     {
  80         Fault(IoErr(),0,s,255);
  81         Cleanup(s);
  82     }
  83 }
  84
  85 static void Action(void)
  86 {
  87     struct RastPort *rp;
  88     struct Region *reg;
  89     struct RegionRectangle *rr;
  90     WORD x, y, i, count = 0;
  91
  92     puts("Activate the window whose visible region you want to see.\n");
  93     puts("You have 3 seconds of time!\n\n");
  94
  95     Delay(3*50);
  96
  97     win = IntuitionBase->ActiveWindow;
  98     scr = win->WScreen;
  99
 100     if (!win) Cleanup("No active window!");
 101
 102     if (!(rp = CloneRastPort(&win->WScreen->RastPort)))
 103     {
 104         Cleanup("Can´t clone screen rastport!");
 105     }
 106     SetDrMd(rp,JAM1);
 107
 108     lay = win->WLayer;
 109
 110     reg = lay->visibleshape;
 111     rr = reg->RegionRectangle;
 112     while(rr)
 113     {
 114         WORD x1 = reg->bounds.MinX + rr->bounds.MinX;
 115         WORD y1 = reg->bounds.MinY + rr->bounds.MinY;
 116         WORD x2 = reg->bounds.MinX + rr->bounds.MaxX;
 117         WORD y2 = reg->bounds.MinY + rr->bounds.MaxY;
 118
 119         printf("#%04d (%4d,%4d) - (%4d, %4d)  Size: %4d x %4d\n",
 120                 ++count,
 121                 x1,
 122                 y1,
 123                 x2,
 124                 y2,
 125                 x2 - x1 + 1,
 126                 y2 - y1 + 1);
 127
 128         for(i = 0; i < (Args[ARG_FAST] ? 1 : 8);i++)
 129         {
 130             SetAPen(rp,1 + (i & 1));
 131             RectFill(rp,x1,y1,x2,y1);
 132             RectFill(rp,x2,y1,x2,y2);
 133             RectFill(rp,x1,y2,x2,y2);
 134             RectFill(rp,x1,y1,x1,y2);
 135
 136             if (!Args[ARG_FAST]) Delay(10);
 137         }
 138
 139         if (Args[ARG_NUMBERS])
 140         {
 141             sprintf(s,"%d",count);
 142             i = TextLength(rp,s,strlen(s));
 143
 144             x = (x1 + x2 - i) / 2;
 145             y = (y1 + y2 - rp->TxHeight) / 2;
 146
 147             if (x < 0)
 148             {
 149                 x = 0;
 150             } else if (x >= scr->Width - i)
 151             {
 152                 x = scr->Width - i - 1;
 153             }
 154
 155             if (y < 0)
 156             {
 157                 y = 0;
 158             } else if (y >= scr->Height - rp->TxHeight)
 159             {
 160                 y = scr->Height - rp->TxHeight - 1;
 161             }
 162
 163             i = strlen(s);
 164
 165             SetAPen(rp,1);
 166             Move(rp,x + 1, y + 1 + rp->TxBaseline);
 167             Text(rp,s,i);
 168
 169             SetAPen(rp,2);
 170             Move(rp,x, y + rp->TxBaseline);
 171             Text(rp,s,i);
 172         }
 173         rr = rr->Next;
 174     }
 175
 176     FreeRastPort(rp);
 177 }
 178
 179 int main(void)
 180 {
 181     OpenLibs();
 182     GetArguments();
 183     Action();
 184     Cleanup(0);
 185
 186     return 0;
 187 }
 188
 189 #endif