workbench/demos/roundshape.c

   1
   2 #include <dos/dos.h>
   3 #include <intuition/intuition.h>
   4 #include <graphics/gfx.h>
   5 #include <proto/exec.h>
   6 #include <proto/dos.h>
   7 #include <proto/graphics.h>
   8 #include <proto/intuition.h>
   9
  10 #include <math.h>
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13
  14 #define INSTALL_NULL_SHAPE_FIRST 0
  15
  16 #define WINWIDTH  150
  17 #define WINHEIGHT 150
  18
  19 /***********************************************************************************/
  20
  21 struct IntuitionBase *IntuitionBase;
  22 struct GfxBase *GfxBase;
  23 struct Screen *scr;
  24 struct Window *win;
  25 struct Region *shape;
  26 struct RastPort *rp;
  27
  28 UBYTE Keys[128];
  29
  30 /***********************************************************************************/
  31
  32 static void cleanup(char *msg)
  33 {
  34     if (msg)
  35     {
  36         printf("roundshape: %s\n",msg);
  37     }
  38
  39     if (win) CloseWindow(win);
  40     if (shape) DisposeRegion(shape);
  41     if (scr) UnlockPubScreen(0, scr);
  42
  43     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  44     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  45
  46     exit(0);
  47 }
  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 V39!");
  56     }
  57
  58     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  59     {
  60         cleanup("Can't open graphics.library V39!");
  61     }
  62
  63 }
  64
  65 /***********************************************************************************/
  66
  67 static void getvisual(void)
  68 {
  69     if (!(scr = LockPubScreen(NULL)))
  70     {
  71         cleanup("Can't lock pub screen!");
  72     }
  73 }
  74
  75 /***********************************************************************************/
  76
  77 static void makewin(void)
  78 {
  79     win = OpenWindowTags(NULL, WA_CustomScreen  , (IPTR)scr,
  80                                WA_InnerWidth    , WINWIDTH,
  81                                WA_InnerHeight   , WINHEIGHT,
  82                                WA_Title         , (IPTR)"Round Shape",
  83                                WA_DragBar       , TRUE,
  84                                WA_DepthGadget   , TRUE,
  85                                WA_CloseGadget   , TRUE,
  86                                WA_Activate      , TRUE,
  87                                WA_MinWidth      , 160,
  88                                WA_MinHeight     , 160,
  89                                WA_MaxWidth      , 2000,
  90                                WA_MaxHeight     , 2000,
  91                                WA_SizeGadget    , TRUE,
  92                                WA_SizeBBottom   , TRUE,
  93                                WA_SizeBRight    , TRUE,
  94                                WA_NoCareRefresh , TRUE,
  95                                WA_ShapeRegion           , 0,
  96                                WA_IDCMP         , IDCMP_CLOSEWINDOW |
  97                                                   IDCMP_RAWKEY |
  98                                                   IDCMP_NEWSIZE,
  99                                TAG_DONE);
 100
 101    if (!win) cleanup("Can't open window");
 102
 103    rp = win->RPort;
 104
 105 }
 106
 107 /***********************************************************************************/
 108
 109 static void renderwin(void)
 110 {
 111     struct Region *oldshape;
 112     struct Rectangle rect;
 113     WORD cx, cy, r, y;
 114
 115     static WORD oldheight = 0;
 116     static WORD oldwidth  = 0;
 117
 118     if (oldheight == win->GZZHeight && oldwidth == win->GZZWidth)
 119         return;
 120
 121     oldheight = win->GZZHeight;
 122     oldwidth  = win->GZZWidth;
 123
 124     cx = win->BorderLeft + win->GZZWidth / 2;
 125     cy = win->BorderTop + win->GZZHeight / 2;
 126
 127     r = ((win->GZZWidth < win->GZZHeight) ? win->GZZWidth : win->GZZHeight) / 2 - 10;
 128
 129 #if INSTALL_NULL_SHAPE_FIRST
 130     oldshape = ChangeWindowShape(win, shape, NULL);
 131     if (oldshape) DisposeRegion(oldshape);
 132 #endif
 133
 134     shape = NewRectRegion(0, 0, win->Width - 1, win->BorderTop - 1);
 135
 136     rect.MinX = win->Width - win->BorderRight;
 137     rect.MinY = win->Height - win->BorderBottom;
 138     rect.MaxX = win->Width - 1;
 139     rect.MaxY = win->Height - 1;
 140
 141     OrRectRegion(shape, &rect);
 142
 143     for(y = 0; y < r; y++)
 144     {
 145         WORD dx = (WORD)sqrt((double)(r * r - y * y));
 146
 147         SetAPen(rp, 3);
 148         RectFill(rp, cx - dx, cy - y, cx + dx, cy - y);
 149         RectFill(rp, cx - dx, cy + y, cx + dx, cy + y);
 150
 151         SetAPen(rp, 2);
 152         WritePixel(rp, cx - dx, cy - y);
 153         WritePixel(rp, cx - dx, cy + y);
 154
 155         SetAPen(rp, 1);
 156         WritePixel(rp, cx + dx, cy - y);
 157         WritePixel(rp, cx + dx, cy + y);
 158
 159         rect.MinX = cx - dx;
 160         rect.MinY = cy - y;
 161         rect.MaxX = cx + dx;
 162         rect.MaxY = cy - y;
 163
 164         OrRectRegion(shape, &rect);
 165
 166         rect.MinX = cx - dx;
 167         rect.MinY = cy + y;
 168         rect.MaxX = cx + dx;
 169         rect.MaxY = cy + y;
 170
 171         OrRectRegion(shape, &rect);
 172     }
 173
 174     oldshape = ChangeWindowShape(win, shape, NULL);
 175     if (oldshape) DisposeRegion(oldshape);
 176
 177     RefreshWindowFrame(win);
 178 }
 179
 180 /***********************************************************************************/
 181
 182 #define KC_ESC 0x45
 183
 184 /***********************************************************************************/
 185
 186 static void action(void)
 187 {
 188     struct IntuiMessage *msg;
 189
 190     do
 191     {
 192         WaitPort(win->UserPort);
 193
 194         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 195         {
 196             switch (msg->Class)
 197             {
 198                 case IDCMP_CLOSEWINDOW:
 199                     Keys[KC_ESC] = 1;
 200                     break;
 201
 202                 case IDCMP_RAWKEY:
 203                     {
 204                         WORD code = msg->Code & ~IECODE_UP_PREFIX;
 205
 206                         Keys[code] = (code == msg->Code) ? 1 : 0;
 207
 208                     }
 209
 210                     break;
 211
 212                 case IDCMP_NEWSIZE:
 213                     renderwin();
 214                     break;
 215             }
 216             ReplyMsg((struct Message *)msg);
 217         }
 218
 219     } while(!Keys[KC_ESC]);
 220 }
 221
 222 /***********************************************************************************/
 223
 224 int main(void)
 225 {
 226     openlibs();
 227     getvisual();
 228     makewin();
 229     renderwin();
 230     action();
 231     cleanup(0);
 232
 233     return 0;
 234 }
 235
 236 /***********************************************************************************/
 237