test/truecolorpens.c

   1
   2 #include <dos/dos.h>
   3 #include <intuition/intuition.h>
   4 #include <graphics/gfx.h>
   5 #include <graphics/rpattr.h>
   6 #include <cybergraphx/cybergraphics.h>
   7 #include <gadgets/colorwheel.h>
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <proto/graphics.h>
  11 #include <proto/cybergraphics.h>
  12 #include <proto/colorwheel.h>
  13 #include <proto/intuition.h>
  14
  15 #include <math.h>
  16 #include <stdio.h>
  17 #include <stdlib.h>
  18
  19 #define SCREENWIDTH  300
  20 #define SCREENHEIGHT 200
  21 #define SCREENCY (SCREENHEIGHT / 2)
  22
  23 /***********************************************************************************/
  24
  25 struct IntuitionBase *IntuitionBase;
  26 struct GfxBase *GfxBase;
  27 struct Library *CyberGfxBase;
  28 struct Library *ColorWheelBase;
  29 struct Screen *scr;
  30 struct Window *win;
  31 struct RastPort *rp;
  32
  33 ULONG cgfx_coltab[256];
  34 UBYTE Keys[128];
  35
  36 /***********************************************************************************/
  37
  38 static void cleanup(char *msg)
  39 {
  40     if (msg)
  41     {
  42         printf("TrueColorPens: %s\n",msg);
  43     }
  44
  45     if (win) CloseWindow(win);
  46
  47     if (scr) UnlockPubScreen(0, scr);
  48
  49     if (ColorWheelBase) CloseLibrary(ColorWheelBase);
  50     if (CyberGfxBase) CloseLibrary(CyberGfxBase);
  51     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  52     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  53
  54     exit(0);
  55 }
  56
  57 /***********************************************************************************/
  58
  59 static void openlibs(void)
  60 {
  61     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
  62     {
  63         cleanup("Can't open intuition.library V39!");
  64     }
  65
  66     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  67     {
  68         cleanup("Can't open graphics.library V39!");
  69     }
  70
  71     if (!(CyberGfxBase = OpenLibrary("cybergraphics.library",0)))
  72     {
  73         cleanup("Can't open cybergraphics.library!");
  74     }
  75
  76     if (!(ColorWheelBase = OpenLibrary("gadgets/colorwheel.gadget",0)))
  77     {
  78         cleanup("Can't open colorwheel.gadget!");
  79     }
  80
  81 }
  82
  83 /***********************************************************************************/
  84
  85 static void getvisual(void)
  86 {
  87     if (!(scr = LockPubScreen(NULL)))
  88     {
  89         cleanup("Can't lock pub screen!");
  90     }
  91
  92     if (GetBitMapAttr(scr->RastPort.BitMap, BMA_DEPTH) <= 8)
  93     {
  94         cleanup("Need hi or true color screen!");
  95     }
  96 }
  97
  98 /***********************************************************************************/
  99
 100 static void makewin(void)
 101 {
 102     win = OpenWindowTags(NULL, WA_CustomScreen  , (IPTR)scr,
 103                                WA_InnerWidth    , SCREENWIDTH,
 104                                WA_InnerHeight   , SCREENHEIGHT,
 105                                WA_Title         , (IPTR)"TrueColorPens: Press SPACE!",
 106                                WA_DragBar       , TRUE,
 107                                WA_DepthGadget   , TRUE,
 108                                WA_CloseGadget   , TRUE,
 109                                WA_Activate      , TRUE,
 110                                WA_GimmeZeroZero , TRUE,
 111                                WA_IDCMP         , IDCMP_CLOSEWINDOW |
 112                                                   IDCMP_RAWKEY,
 113                                TAG_DONE);
 114
 115    if (!win) cleanup("Can't open window");
 116
 117    rp = win->RPort;
 118 }
 119
 120 /***********************************************************************************/
 121
 122 #define KC_LEFT         0x4F
 123 #define KC_RIGHT        0x4E
 124 #define KC_UP           0x4C
 125 #define KC_DOWN         0x4D
 126 #define KC_ESC          0x45
 127 #define KC_SPACE        0x40
 128
 129 /***********************************************************************************/
 130
 131 static void getevents(void)
 132 {
 133     struct IntuiMessage *msg;
 134
 135     while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 136     {
 137         switch(msg->Class)
 138         {
 139             case IDCMP_CLOSEWINDOW:
 140                 Keys[KC_ESC] = 1;
 141                 break;
 142
 143             case IDCMP_RAWKEY:
 144                 {
 145                     WORD code = msg->Code & ~IECODE_UP_PREFIX;
 146
 147                     Keys[code] = (code == msg->Code) ? 1 : 0;
 148
 149                 }
 150                 break;
 151
 152         }
 153         ReplyMsg((struct Message *)msg);
 154     }
 155
 156 }
 157
 158 /***********************************************************************************/
 159
 160 static void action(void)
 161 {
 162     LONG mode = 0;
 163     ULONG hue = 0, rgb;
 164     WORD x = 20, y = 0;
 165     WORD dx = 2, dy = 3;
 166
 167     while(!Keys[KC_ESC])
 168     {
 169         struct ColorWheelHSB cwhsb = {hue, 0xFFFFFFFF, 0xFFFFFFFF};
 170         struct ColorWheelRGB cwrgb;
 171
 172         WaitTOF();
 173
 174         ConvertHSBToRGB(&cwhsb, &cwrgb);
 175
 176         rgb = (cwrgb.cw_Red & 0xFF000000) >> 8;
 177         rgb += (cwrgb.cw_Green & 0xFF000000) >> 16;
 178         rgb += (cwrgb.cw_Blue & 0xFF000000) >> 24;
 179
 180         SetRPAttrs(rp, RPTAG_FgColor, rgb,
 181                        RPTAG_BgColor, 0xFFFFFF - rgb,
 182                        TAG_DONE);
 183
 184         switch(mode)
 185         {
 186             case 0:
 187                 SetDrMd(rp, JAM1);
 188                 WritePixel(rp, x, y);
 189                 WritePixel(rp, x + 1, y);
 190                 WritePixel(rp, x, y + 1);
 191                 WritePixel(rp, x + 1, y + 1);
 192                 break;
 193
 194             case 1:
 195                 SetDrMd(rp, JAM1);
 196                 Move(rp, x, y);
 197                 Text(rp, "Text JAM1", 4);
 198                 break;
 199
 200             case 2:
 201                 SetDrMd(rp, JAM2);
 202                 Move(rp, x, y);
 203                 Text(rp, "Text JAM2", 4);
 204                 break;
 205
 206             case 3:
 207                 SetDrMd(rp, JAM1);
 208                 RectFill(rp, x, y, x + 30, y + 30);
 209                 break;
 210
 211             case 4:
 212                 SetDrMd(rp, JAM1);
 213                 Move(rp, x, y);
 214                 Draw(rp, x + 30, y);
 215                 Draw(rp, x + 30, y + 30);
 216                 Draw(rp, x, y + 30);
 217                 Draw(rp, x, y);
 218                 break;
 219
 220             case 5:
 221                 SetDrMd(rp, JAM1);
 222                 DrawEllipse(rp, x, y, 30, 30);
 223                 break;
 224
 225         }
 226
 227         getevents();
 228
 229         if (Keys[KC_SPACE])
 230         {
 231             Keys[KC_SPACE] = 0;
 232             mode = (mode + 1) % 6;
 233             hue = 0;
 234         }
 235
 236         x += dx; if ((x > SCREENWIDTH) || (x < 0)) dx = -dx;
 237         y += dy; if ((y > SCREENHEIGHT) || (y < 0)) dy = -dy;
 238
 239         hue += 0x1000000;
 240
 241     } /* while(!Keys[KC_ESC]) */
 242 }
 243
 244 /***********************************************************************************/
 245
 246 int main(void)
 247 {
 248     openlibs();
 249     getvisual();
 250     makewin();
 251     action();
 252     cleanup(0);
 253
 254     return 0; /* keep compiler happy */
 255 }
 256
 257 /***********************************************************************************/
 258