test/ilbmtoc.c

   1 #include <intuition/intuition.h>
   2 #include <graphics/gfx.h>
   3 #include <cybergraphx/cybergraphics.h>
   4 #include <proto/exec.h>
   5 #include <proto/graphics.h>
   6 #include <proto/intuition.h>
   7 #include <proto/cybergraphics.h>
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 struct IntuitionBase *IntuitionBase;
  12 struct GfxBase *GfxBase;
  13 struct Library *CyberGfxBase;
  14 struct Window *win;
  15 struct RastPort *rp;
  16
  17 #include "ilbmtoc_image.c"
  18
  19 UBYTE unpacked_image[EARTHMAP_SMALL_WIDTH * EARTHMAP_SMALL_HEIGHT];
  20
  21 #define CONTINENT_RED   18
  22 #define CONTINENT_GREEN 114
  23 #define CONTINENT_BLUE  58
  24
  25 #define OCEAN_RED       21
  26 #define OCEAN_GREEN     18
  27 #define OCEAN_BLUE      114
  28
  29 static unsigned char *unpack_byterun1(unsigned char *source, unsigned char *dest, LONG unpackedsize)
  30 {
  31     unsigned char r;
  32     signed char c;
  33
  34     for(;;)
  35     {
  36         c = (signed char)(*source++);
  37         if (c >= 0)
  38         {
  39             while(c-- >= 0)
  40             {
  41                 *dest++ = *source++;
  42                 if (--unpackedsize <= 0) return source;
  43             }
  44         }
  45         else if (c != -128)
  46         {
  47             c = -c;
  48             r = *source++;
  49
  50             while(c-- >= 0)
  51             {
  52                 *dest++ = r;
  53                 if (--unpackedsize <= 0) return source;
  54             }
  55         }
  56     }
  57
  58 }
  59
  60 int main(void)
  61 {
  62     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39);
  63     GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39);
  64     CyberGfxBase = OpenLibrary("cybergraphics.library", 39);
  65
  66     if (IntuitionBase && GfxBase && CyberGfxBase)
  67     {
  68         printf("All libraries opened\n");
  69
  70         win = OpenWindowTags(0, WA_InnerWidth, EARTHMAP_SMALL_WIDTH,
  71                                 WA_InnerHeight, EARTHMAP_SMALL_HEIGHT,
  72                                 WA_CloseGadget, TRUE,
  73                                 WA_DepthGadget, TRUE,
  74                                 WA_DragBar, TRUE,
  75                                 WA_IDCMP, IDCMP_CLOSEWINDOW,
  76                                 WA_Activate, TRUE,
  77                                 TAG_DONE);
  78
  79         rp = win->RPort;
  80
  81         unpack_byterun1(earthmap_small_data, unpacked_image, EARTHMAP_SMALL_WIDTH * EARTHMAP_SMALL_HEIGHT);
  82
  83         {
  84             WORD i;
  85
  86             for(i = 0; i < EARTHMAP_SMALL_COLORS; i++)
  87             {
  88                 ULONG rgb   = earthmap_small_pal[i];
  89                 ULONG red   = (rgb & 0xFF0000) >> 16;
  90                 ULONG green = (rgb & 0x00FF00) >> 8;
  91                 ULONG blue  = (rgb & 0x0000FF);
  92                 ULONG alpha = (red + green + blue) / 3;
  93
  94                 red   = (alpha * OCEAN_RED   + (255 - alpha) * CONTINENT_RED)   / 255;
  95                 green = (alpha * OCEAN_GREEN + (255 - alpha) * CONTINENT_GREEN) / 255;
  96                 blue  = (alpha * OCEAN_BLUE  + (255 - alpha) * CONTINENT_BLUE)  / 255;
  97
  98                 rgb = (red << 16) + (green << 8) + blue;
  99
 100                 earthmap_small_pal[i] = rgb;
 101
 102             }
 103
 104         }
 105         WriteLUTPixelArray(unpacked_image,
 106                            0,
 107                            0,
 108                            EARTHMAP_SMALL_WIDTH,
 109                            rp,
 110                            earthmap_small_pal,
 111                            win->BorderLeft,
 112                            win->BorderTop,
 113                            EARTHMAP_SMALL_WIDTH,
 114                            EARTHMAP_SMALL_HEIGHT,
 115                            CTABFMT_XRGB8);
 116
 117         WaitPort(win->UserPort);
 118
 119         CloseWindow(win);
 120     }
 121
 122     return 0;
 123 }