workbench/demos/roundshape.c

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