workbench/c/CRList.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/exec.h>
   7 #include <dos/dos.h>
   8 #include <intuition/intuition.h>
   9 #include <intuition/intuitionbase.h>
  10 #include <intuition/screens.h>
  11 #include <graphics/clip.h>
  12 #include <graphics/rastport.h>
  13 #include <proto/exec.h>
  14 #include <proto/dos.h>
  15 #include <proto/graphics.h>
  16
  17 #include <stdio.h>
  18 #include <string.h>
  19 #include <stdlib.h>
  20
  21 #define ARG_TEMPLATE "FAST=F/S,NUMBERS=N/S"
  22
  23 #define ARG_FAST    0
  24 #define ARG_NUMBERS 1
  25 #define NUM_ARGS    2
  26
  27 static struct Screen *scr;
  28 static struct Window *win;
  29 static struct Layer *lay;
  30 static struct RDArgs *MyArgs;
  31 static IPTR Args[NUM_ARGS];
  32 static char s[256];
  33
  34 static void Cleanup(char *msg)
  35 {
  36     WORD rc;
  37
  38     if (msg)
  39     {
  40         Printf("crlist: %s\n",msg);
  41         rc = RETURN_WARN;
  42     } else {
  43         rc = RETURN_OK;
  44     }
  45
  46     if (MyArgs) FreeArgs(MyArgs);
  47     exit(rc);
  48 }
  49
  50 static void GetArguments(void)
  51 {
  52     if (!(MyArgs = ReadArgs(ARG_TEMPLATE,Args,0)))
  53     {
  54         Fault(IoErr(),0,s,255);
  55         Cleanup(s);
  56     }
  57 }
  58
  59 static void Action(void)
  60 {
  61     extern struct IntuitionBase *IntuitionBase;
  62     struct RastPort *rp;
  63     struct ClipRect *cr;
  64     WORD x, y, i, count = 0;
  65
  66     puts("Activate the window whose cliprects you want to see.\n");
  67     puts("You have 3 seconds of time!\n\n");
  68
  69     Delay(3*50);
  70
  71     win = IntuitionBase->ActiveWindow;
  72
  73     if (!win) Cleanup("No active window!");
  74
  75     scr = win->WScreen;
  76
  77     if (!(rp = CloneRastPort(&scr->RastPort)))
  78     {
  79         Cleanup("Can´t clone screen rastport!");
  80     }
  81     SetDrMd(rp,JAM1);
  82
  83     lay = win->WLayer;
  84
  85     cr = lay->ClipRect;
  86     while(cr)
  87     {
  88         Printf("#%04ld (%4ld,%4ld) - (%4ld, %4ld)  Size: %4ld x %4ld  %s%s\n",
  89                 ++count,
  90                 cr->bounds.MinX,
  91                 cr->bounds.MinY,
  92                 cr->bounds.MaxX,
  93                 cr->bounds.MaxY,
  94                 cr->bounds.MaxX - cr->bounds.MinX + 1,
  95                 cr->bounds.MaxY - cr->bounds.MinY + 1,
  96                 (cr->lobs ? "HIDDEN " : ""),
  97                 (cr->BitMap ? "BITMAP ": ""));
  98
  99         for(i = 0; i < (Args[ARG_FAST] ? 1 : 8);i++)
 100         {
 101             SetAPen(rp,1 + (i & 1));
 102             RectFill(rp,cr->bounds.MinX,cr->bounds.MinY,cr->bounds.MaxX,cr->bounds.MinY);
 103             RectFill(rp,cr->bounds.MaxX,cr->bounds.MinY,cr->bounds.MaxX,cr->bounds.MaxY);
 104             RectFill(rp,cr->bounds.MinX,cr->bounds.MaxY,cr->bounds.MaxX,cr->bounds.MaxY);
 105             RectFill(rp,cr->bounds.MinX,cr->bounds.MinY,cr->bounds.MinX,cr->bounds.MaxY);
 106
 107             if (!Args[ARG_FAST]) Delay(10);
 108         }
 109
 110         if (Args[ARG_NUMBERS])
 111         {
 112             sprintf(s,"%d",count);
 113             i = TextLength(rp,s,strlen(s));
 114
 115             x = (cr->bounds.MinX + cr->bounds.MaxX - i) / 2;
 116             y = (cr->bounds.MinY + cr->bounds.MaxY - rp->TxHeight) / 2;
 117
 118             if (x < 0)
 119             {
 120                 x = 0;
 121             } else if (x >= scr->Width - i)
 122             {
 123                 x = scr->Width - i - 1;
 124             }
 125
 126             if (y < 0)
 127             {
 128                 y = 0;
 129             } else if (y >= scr->Height - rp->TxHeight)
 130             {
 131                 y = scr->Height - rp->TxHeight - 1;
 132             }
 133
 134             i = strlen(s);
 135
 136             SetAPen(rp,1);
 137             Move(rp,x + 1, y + 1 + rp->TxBaseline);
 138             Text(rp,s,i);
 139
 140             SetAPen(rp,2);
 141             Move(rp,x, y + rp->TxBaseline);
 142             Text(rp,s,i);
 143         }
 144         cr = cr->Next;
 145     }
 146
 147     FreeRastPort(rp);
 148 }
 149
 150 int main(void)
 151 {
 152     GetArguments();
 153     Action();
 154     Cleanup(0);
 155
 156     return 0;
 157 }