workbench/demos/winbackfill.c

   1
   2 #include <dos/dos.h>
   3 #include <intuition/intuition.h>
   4 #include <graphics/gfx.h>
   5 #include <utility/hooks.h>
   6
   7 #include <proto/exec.h>
   8 #include <proto/intuition.h>
   9 #include <proto/graphics.h>
  10 #include <proto/layers.h>
  11
  12 #include <clib/alib_protos.h>
  13
  14 #include <stdio.h>
  15 #include <string.h>
  16 #include <stdlib.h>
  17
  18 #define PATTERNWIDTH  32
  19 #define PATTERNHEIGHT 32
  20 #define PATTERNCOL1 SHADOWPEN
  21 #define PATTERNCOL2 SHINEPEN
  22
  23 struct LayerHookMsg
  24 {
  25     struct Layer *lay;
  26     struct Rectangle bounds;
  27     LONG offsetx;
  28     LONG offsety;
  29 };
  30
  31 struct IntuitionBase *IntuitionBase;
  32 struct GfxBase *GfxBase;
  33 struct Library *LayersBase;
  34
  35 static struct Screen *scr;
  36 static struct Window *win;
  37 static struct DrawInfo *dri;
  38 static struct BitMap *patternbm;
  39
  40 static struct Hook backfillhook;
  41
  42
  43 static void Cleanup(char *msg)
  44 {
  45     WORD rc;
  46
  47     if (msg)
  48     {
  49         printf("winbackfill: %s\n",msg);
  50         rc = RETURN_WARN;
  51     }
  52     else
  53     {
  54         rc = RETURN_OK;
  55     }
  56
  57     if (win) CloseWindow(win);
  58
  59     if (patternbm)
  60     {
  61         WaitBlit();
  62         FreeBitMap(patternbm);
  63     }
  64
  65     if (dri) FreeScreenDrawInfo(scr,dri);
  66     UnlockPubScreen(0,scr);
  67
  68     if (LayersBase) CloseLibrary(LayersBase);
  69     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  70     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  71
  72     exit(rc);
  73 }
  74
  75
  76 static void OpenLibs(void)
  77 {
  78     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",39)))
  79     {
  80         Cleanup("Can't open intuition.library V39!");
  81     }
  82
  83     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",39)))
  84     {
  85         Cleanup("Can't open graphics.library V39!");
  86     }
  87
  88     if (!(LayersBase = OpenLibrary("layers.library",39)))
  89     {
  90         Cleanup("Can't open layers.library V39!");
  91     }
  92 }
  93
  94
  95 static void MyBackfillFunc(struct Hook *hook,struct RastPort *rp,
  96                            struct LayerHookMsg *msg)
  97 {
  98     struct Layer *lay;
  99     WORD x1,y1,x2,y2,px,py,pw,ph;
 100
 101     lay = msg->lay;
 102
 103     x1 = msg->bounds.MinX;
 104     y1 = msg->bounds.MinY;
 105     x2 = msg->bounds.MaxX;
 106     y2 = msg->bounds.MaxY;
 107
 108     px = (x1 - lay->bounds.MinX) % PATTERNWIDTH;
 109
 110     pw = PATTERNWIDTH - px;
 111
 112     do
 113     {
 114         y1 = msg->bounds.MinY;
 115         py = (y1 - lay->bounds.MinY) % PATTERNHEIGHT;
 116
 117         ph = PATTERNHEIGHT - py;
 118
 119         if (pw > (x2 - x1 + 1)) pw = x2 - x1 + 1;
 120
 121         do
 122         {
 123             if (ph > (y2 - y1 + 1)) ph = y2 - y1 + 1;
 124
 125             BltBitMap(patternbm,
 126                       px,
 127                       py,
 128                       rp->BitMap,
 129                       x1,
 130                       y1,
 131                       pw,
 132                       ph,
 133                       192,
 134                       255,
 135                       0);
 136
 137             y1 += ph;
 138
 139             py = 0;
 140             ph = PATTERNHEIGHT;
 141
 142         } while (y1 <= y2); /* while(y1 < y2) */
 143
 144         x1 += pw;
 145
 146         px = 0;
 147         pw = PATTERNWIDTH;
 148
 149     } while (x1 <= x2); /* while (x1 < x2) */
 150 }
 151
 152
 153 static void InitBackfillHook(void)
 154 {
 155     backfillhook.h_Entry = HookEntry;
 156     backfillhook.h_SubEntry = (HOOKFUNC)MyBackfillFunc;
 157 }
 158
 159
 160 static void GetVisual(void)
 161 {
 162     if (!(scr = LockPubScreen(0)))
 163     {
 164         Cleanup("Can't lock pub screen!");
 165     }
 166
 167     if (!(dri = GetScreenDrawInfo(scr)))
 168     {
 169         Cleanup("Can't get drawinfo!");
 170     }
 171 }
 172
 173 static struct RastPort temprp;
 174
 175 static void MakePattern(void)
 176 {
 177     if (!(patternbm = AllocBitMap(PATTERNWIDTH * 2,
 178                                   PATTERNHEIGHT * 2,
 179                                   GetBitMapAttr(scr->RastPort.BitMap,BMA_DEPTH),
 180                                   BMF_CLEAR,
 181                                   scr->RastPort.BitMap)))
 182     {
 183         Cleanup("Can't create pattern bitmap!");
 184     }
 185
 186     InitRastPort(&temprp);
 187     temprp.BitMap = patternbm;
 188
 189     SetAPen(&temprp,dri->dri_Pens[PATTERNCOL1]);
 190
 191     RectFill(&temprp, 0, 0, 10, 10);
 192     RectFill(&temprp, 0, 0, PATTERNWIDTH - 1, PATTERNHEIGHT - 1);
 193
 194     SetAPen(&temprp,dri->dri_Pens[PATTERNCOL2]);
 195     RectFill(&temprp, 0, 0, PATTERNWIDTH / 2 - 1, PATTERNHEIGHT / 2 - 1);
 196     RectFill(&temprp,PATTERNWIDTH / 2, PATTERNHEIGHT / 2, PATTERNWIDTH - 1, PATTERNHEIGHT - 1);
 197 }
 198
 199
 200 static void MakeWin(void)
 201 {
 202     if (!(win = OpenWindowTags(0,WA_PubScreen,(IPTR)scr,
 203                                  WA_Left,10,
 204                                  WA_Top,10,
 205                                  WA_Width,300,
 206                                  WA_Height,150,
 207                                  WA_Title,(IPTR)"Window Backfill Test",
 208                                  WA_SimpleRefresh,TRUE,
 209                                  WA_CloseGadget,TRUE,
 210                                  WA_DepthGadget,TRUE,
 211                                  WA_DragBar,TRUE,
 212                                  WA_SizeGadget,TRUE,
 213                                  WA_MinWidth,50,
 214                                  WA_MinHeight,50,
 215                                  WA_MaxWidth,scr->Width,
 216                                  WA_MaxHeight,scr->Height,
 217                                  WA_IDCMP,IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW,
 218                                  WA_BackFill,(IPTR)&backfillhook,
 219                                  TAG_DONE)))
 220     {
 221         Cleanup("Can't open window!");
 222     }
 223
 224     ScreenToFront(win->WScreen);
 225
 226 }
 227
 228
 229 static void HandleAll(void)
 230 {
 231     struct IntuiMessage *msg;
 232
 233     BOOL quitme = FALSE;
 234
 235     while (!quitme)
 236     {
 237         WaitPort(win->UserPort);
 238
 239         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 240         {
 241             switch (msg->Class)
 242             {
 243                 case IDCMP_CLOSEWINDOW:
 244                         quitme = TRUE;
 245                         break;
 246
 247                 case IDCMP_REFRESHWINDOW:
 248                         BeginRefresh(win);
 249                         EndRefresh(win,TRUE);
 250                         break;
 251             }
 252
 253             ReplyMsg((struct Message *)msg);
 254         }
 255     }
 256 }
 257
 258
 259 int main(void)
 260 {
 261     OpenLibs();
 262     InitBackfillHook();
 263     GetVisual();
 264     MakePattern();
 265     MakeWin();
 266     HandleAll();
 267     Cleanup(0);
 268
 269     return 0;
 270 }