workbench/demos/winshape.c

   1
   2 #include <intuition/intuition.h>
   3 #include <graphics/gfx.h>
   4 #include <graphics/gfxmacros.h>
   5 #include <utility/tagitem.h>
   6 #include <proto/alib.h>
   7 #include <proto/exec.h>
   8 #include <proto/intuition.h>
   9 #include <proto/graphics.h>
  10 #include <proto/layers.h>
  11 #include <aros/debug.h>
  12
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15
  16 #define WINWIDTH        260
  17 #define WINHEIGHT       260
  18 #define WINCX           (WINWIDTH / 2)
  19 #define WINCY           (WINHEIGHT / 2)
  20
  21 struct IntuitionBase    *IntuitionBase;
  22 struct GfxBase          *GfxBase;
  23 struct Library          *LayersBase;
  24 struct Screen           *scr;
  25 struct DrawInfo         *dri;
  26 struct Window           *win;
  27 struct RastPort         *rp;
  28 struct Region           *shape;
  29 WORD                    actshape;
  30
  31
  32 static void cleanup(char *msg)
  33 {
  34     if(msg) printf("winshape: %s\n", msg);
  35
  36     if (win) CloseWindow(win);
  37
  38 //    if (shape) DisposeRegion(shape);
  39
  40     if (dri) FreeScreenDrawInfo(scr, dri);
  41     if (scr) UnlockPubScreen(0, scr);
  42
  43     if (LayersBase) CloseLibrary(LayersBase);
  44     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  45     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  46
  47     exit(0);
  48 }
  49
  50
  51 static void openlibs(void)
  52 {
  53     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
  54     {
  55         cleanup("Can't open intuition.library!");
  56     }
  57
  58     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  59     {
  60         cleanup("Can't open graphics.library!");
  61     }
  62
  63     if (!(LayersBase = OpenLibrary("layers.library", 39)))
  64     {
  65         cleanup("Can't open layers.library!");
  66     }
  67
  68 }
  69
  70
  71 static void getvisual(void)
  72 {
  73     if (!(scr = LockPubScreen(0))) cleanup("Can't lock pub screen!");
  74     if (!(dri = GetScreenDrawInfo(scr))) cleanup("Can't get drawinfo!");
  75 }
  76
  77
  78 static void makeshape(void)
  79 {
  80     struct Rectangle rect;
  81
  82 #if 1
  83     if (!(shape = NewRectRegion(0, 0, WINWIDTH - 1, scr->WBorTop + scr->Font->ta_YSize + 1 - 1)))
  84         cleanup("Can't create region!\n");
  85 #else
  86     if (!(shape = NewRegion())) cleanup("Can't create region!\n");
  87
  88     rect.MinX = 0;
  89     rect.MinY = 0;
  90     rect.MaxX = WINWIDTH - 1;
  91     rect.MaxY = scr->WBorTop + scr->Font->ta_YSize + 1 - 1;
  92
  93     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n");
  94 #endif
  95
  96     rect.MinX = WINCX - 20;
  97     rect.MinY = 20;
  98     rect.MaxX = WINCX + 20;
  99     rect.MaxY = WINHEIGHT - 1 - 20;
 100
 101     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n");
 102
 103     rect.MinX = 20;
 104     rect.MinY = WINCY - 20;
 105     rect.MaxX = WINWIDTH - 1 - 20;
 106     rect.MaxY = WINCY + 20;
 107
 108     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n");
 109
 110 }
 111
 112
 113 static void makewin(void)
 114 {
 115     UWORD pattern[] = {0x5555, 0xAAAA};
 116     struct TagItem win_tags[] =
 117     {
 118         { WA_Left       , 0                                     },
 119         { WA_Top        , 0                                     },
 120         { WA_Width      , WINWIDTH                              },
 121         { WA_Height     , WINHEIGHT                             },
 122         { WA_Title      , (IPTR)"Irregular shaped window"       },
 123         { WA_CloseGadget , TRUE                                 },
 124         { WA_DepthGadget , TRUE                                 },
 125         { WA_DragBar    , TRUE                                  },
 126         { WA_IDCMP      , IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY  },
 127         { WA_Activate   , TRUE                                  },
 128         { WA_ShapeRegion        , (IPTR)shape                           },
 129         { TAG_DONE                                              }
 130     };
 131
 132     win = OpenWindowTagList(0, win_tags);
 133     if (!win) cleanup("Can't create window!");
 134
 135     rp = win->RPort;
 136     SetAPen(rp, dri->dri_Pens[FILLPEN]);
 137     SetBPen(rp, dri->dri_Pens[SHINEPEN]);
 138     SetDrMd(rp, JAM2);
 139
 140     SetAfPt(rp, pattern, 1);
 141     RectFill(rp, win->BorderLeft,
 142                  win->BorderTop,
 143                  WINWIDTH - 1 - win->BorderRight,
 144                  WINHEIGHT - 1 - win->BorderBottom);
 145     SetAfPt(rp, 0, 0);
 146
 147     SetAPen(rp, dri->dri_Pens[SHINEPEN]);
 148     RectFill(rp, WINCX - 20, 20, WINCX + 20, 20);
 149     RectFill(rp, WINCX - 20, 21, WINCX - 20, WINCY - 20);
 150     RectFill(rp, 20, WINCY - 20, WINCX - 20, WINCY - 20);
 151     RectFill(rp, 20, WINCY - 20, 20, WINCY + 20);
 152     RectFill(rp, WINCX - 20, WINCY + 20, WINCX - 20, WINHEIGHT - 1 - 20);
 153     RectFill(rp, WINCX + 20, WINCY - 20, WINWIDTH - 1 - 20, WINCY - 20);
 154
 155     SetAPen(rp, dri->dri_Pens[SHADOWPEN]);
 156     RectFill(rp, WINCX + 20, 20, WINCX + 20, WINCY - 20);
 157     RectFill(rp, WINCX + 20, WINCY + 20, WINWIDTH - 1 - 20, WINCY + 20);
 158     RectFill(rp, WINWIDTH - 1 - 20, WINCY - 20, WINWIDTH - 1 - 20, WINCY + 20);
 159     RectFill(rp, 20, WINCY + 20, WINCX - 20, WINCY + 20);
 160     RectFill(rp, WINCX - 20, WINHEIGHT - 1 - 20, WINCX + 20, WINHEIGHT - 1 - 20);
 161     RectFill(rp, WINCX + 20, WINCY + 20, WINCX + 20, WINHEIGHT - 1 - 20);
 162 }
 163
 164 static void handleall(void)
 165 {
 166     struct IntuiMessage *imsg;
 167     BOOL quitme = FALSE;
 168
 169     struct TagItem taglist[] = {
 170         {LA_DESTWIDTH  , 0                              },
 171         {LA_DESTHEIGHT , 0                              },
 172         {TAG_END       , 0                              }
 173     };
 174
 175     while (!quitme)
 176     {
 177         WaitPort(win->UserPort);
 178
 179         while ((imsg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 180         {
 181             switch (imsg->Class)
 182             {
 183                 case IDCMP_CLOSEWINDOW:
 184                     quitme = TRUE;
 185                     break;
 186
 187                 case IDCMP_VANILLAKEY:
 188                     switch (imsg->Code)
 189                     {
 190
 191                       case 43:
 192                          /*
 193                           * '+': enlarge the layer.
 194                           */
 195                         taglist[0].ti_Data = (win->Width*3)/2;
 196                         taglist[1].ti_Data = (win->Height*3)/2;
 197                         ScaleLayer(win->WLayer, taglist);
 198                       break;
 199
 200                       case 45:
 201                          /*
 202                           * '-': make layer smaller.
 203                           */
 204                         taglist[0].ti_Data = (win->Width*2)/3;
 205                         taglist[1].ti_Data = (win->Height*2)/3;
 206                         ScaleLayer(win->WLayer, taglist);
 207                       break;
 208
 209                       default:
 210                         actshape = 1 - actshape;
 211                         ChangeWindowShape(win, (actshape ? NULL : shape), NULL);
 212                         break;
 213                     }
 214             }
 215
 216             ReplyMsg((struct Message *)imsg);
 217         }
 218     }
 219 }
 220
 221
 222 int main(void)
 223 {
 224     openlibs();
 225     getvisual();
 226     makeshape();
 227     makewin();
 228     handleall();
 229     cleanup(0);
 230
 231     return 0;
 232 }