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