]> git.draconx.ca Git - rrace.git/blobdiff - t/ewmhicon.c
Separate EWMH colour conversion from icon generation.
[rrace.git] / t / ewmhicon.c
index 6983cf9f7f4a006f4f8e5a57da5a1ed2af2565bf..5919363549a3f72bc779ba842f19753ded4cb854 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Test app for _NET_WM_ICON formatting.
- * Copyright © 2022 Nick Bowler
+ * Copyright © 2022-2023 Nick Bowler
  *
  * Use a fake colour scheme to generate an icon of the chosen size (16x16,
  * 24x24, 32x32 or 48x48) and display the pixels as characters.
 #include "icon.h"
 #include "colour.h"
 #include "help.h"
+#include "xtra.h"
+
+enum {
+       SOPT_MAX = UCHAR_MAX,
+       LOPT_W32VGA,
+       LOPT_TEST_CMAP,
+       LOPT_MAX
+};
 
 static const char *progname = "ewmhicon";
 static const char sopts[] = "c:VH";
 static const struct option lopts[] = {
+       { "test-cmap", 0, NULL, LOPT_TEST_CMAP },
        { "colourseq", 1, NULL, 'c' },
+       { "w32vga",    0, NULL, LOPT_W32VGA },
        { "version",   0, NULL, 'V' },
        { "help",      0, NULL, 'H' },
        { 0 }
@@ -48,11 +58,11 @@ static const struct option lopts[] = {
         0xff000000 | (r << 16) | (g << 8) | b, \
         S8TO16(r), S8TO16(g), S8TO16(b) }
 
-#define COLOUR_SYS_EWMHICON(r, g, b) \
+#define COLOUR_SYS_XCOLOR(r, g, b) \
        RGB8(0x ## r ## ul, 0x ## g ## ul, 0x ## b ## ul)
 
 #undef COLOUR_SYSTEM
-#define COLOUR_SYSTEM EWMHICON
+#define COLOUR_SYSTEM XCOLOR
 
 #define COLOURTAB_(n) { n ## _PRIMARY, n ## _DARK, n ## _LIGHT }
 #define COLOURTAB(n) COLOURTAB_(COLOUR ## n)
@@ -93,12 +103,158 @@ static void print_help(void)
 static void print_version(void)
 {
        printf("ewmhicon (%s) %s\n", PACKAGE, PACKAGE_VERSION);
-       printf("Copyright (C) 2022 Nick Bowler\n");
+       printf("Copyright (C) 2023 Nick Bowler\n");
        puts("License GPLv3+: GNU GPL version 3 or any later version");
        puts("This is free software: you are free to change and redistribute it.");
        puts("There is NO WARRANTY, to the extent permitted by law.");
 }
 
+
+#define COLOUR_SYS_HEX(r, g, b) 0x ## r ## g ## b ## ul
+
+#undef COLOUR_SYSTEM
+#define COLOUR_SYSTEM HEX
+
+/*
+ * Returns true iff this pixel is an "edge" -- that is, either there
+ * is no pixel to the right or below or those pixels are a different
+ * colour.
+ */
+static int is_edge(unsigned x, unsigned y, unsigned w, unsigned h,
+                   unsigned long *p, unsigned long colour)
+{
+       return y+1 >= h || x+1 >= w
+           || (p[1] & 0xffffff) != colour
+           || (p[w] & 0xffffff) != colour;
+}
+
+static void print_xpm_w32vga(unsigned long size, unsigned long *icon_buf)
+{
+       unsigned w = size & 0xffff, h = (size >> 16) & 0xffff;
+       unsigned x, y, i, j, n;
+
+       const char colourchars[16] = "#rgybmc-+RGYBMC ";
+       unsigned long palette[16] = {
+               0x000000, 0x800000, 0x008000, 0x808000,
+               0x000080, 0x800080, 0x008080, 0xc0c0c0,
+               0x808080, 0xff0000, 0x00ff00, 0xffff00,
+               0x0000ff, 0xff00ff, 0x00ffff, 0xffffff
+       };
+
+       unsigned long prev_colour = 0;
+       unsigned used_colours, v;
+
+       size = (unsigned long) w * h;
+       for (i = 0; i < size; i++) {
+               unsigned long *p = &icon_buf[i];
+               char *c;
+
+               x = i%w, y=i/w;
+
+               switch (*p & 0xffffff) {
+               /* red */
+               case COLOUR0_PRIMARY:
+                       *p = y&1 ? ( x&1 ? 'r' : 'm' ) : ( x&1 ? 'y' : 'r' );
+                       break;
+               case COLOUR0_LIGHT:
+                       *p = (x^y)&1 ? '+' : 'r';
+                       break;
+               case COLOUR0_DARK:
+                       *p = 'r';
+                       break;
+               /* orange */
+               case COLOUR1_PRIMARY:
+                       *p = y&1 ? 'y' : x&1 ? '+' : 'R';
+                       break;
+               case COLOUR1_LIGHT:
+                       *p = (x^y)&1 ? '+' : 'y';
+                       break;
+               case COLOUR1_DARK:
+                       *p = (x^y)&1 ? 'r' : 'y';
+                       break;
+               /* yellow */
+               case COLOUR2_PRIMARY:
+                       *p = (x^y)&1 ? '+' : 'Y';
+                       break;
+               case COLOUR2_LIGHT:
+                       *p = (x^y)&1 ? '-' : 'Y';
+                       break;
+               case COLOUR2_DARK:
+                       *p = (x^y)&1 ? '+' : 'Y';
+                       if (is_edge(x, y, w, h, p, COLOUR2_DARK))
+                               *p = (x^y)&1 ? '+' : 'y';
+                       break;
+               /* green */
+               case COLOUR3_PRIMARY:
+                       *p = y&1 ? 'g' : x&1 ? '+' : 'g';
+                       break;
+               case COLOUR3_LIGHT:
+                       *p = (x^y)&1 ? '+' : 'g';
+                       break;
+               case COLOUR3_DARK:
+                       *p = 'g';
+                       if (is_edge(x, y, w, h, p, COLOUR3_DARK))
+                               *p = (x^y)&1 ? '#' : 'g';
+                       break;
+               /* blue */
+               case COLOUR4_PRIMARY:
+                       *p = (x^y)&1 ? 'b' : 'c';
+                       break;
+               case COLOUR4_LIGHT:
+                       *p = 'c';
+                       if (is_edge(x, y, w, h, p, COLOUR4_LIGHT))
+                               *p = (x^y)&1 ? 'b' : 'c';
+                       break;
+               case COLOUR4_DARK:
+                       *p = 'b';
+                       if (is_edge(x, y, w, h, p, COLOUR4_DARK))
+                               *p = (x^y)&1 ? '#' : 'b';
+                       break;
+               /* white */
+               case COLOUR5_PRIMARY:
+                       *p = (x^y)&1 ? '-' : ' ';
+                       break;
+               case COLOUR5_LIGHT:
+                       *p = ' ';
+                       break;
+               case COLOUR5_DARK:
+                       *p = (x^y)&1 ? '+' : ' ';
+                       break;
+               /* dummy */
+               case 0xff0000: *p = 'R'; break;
+               case 0x00ff00: *p = 'G'; break;
+               case 0x0000ff: *p = 'B'; break;
+               }
+
+               c = strchr(colourchars, *p);
+               assert(c && c - colourchars < 16);
+               used_colours |= 1u << (c-colourchars);
+       }
+
+       for (n = 0, v = used_colours; v; n++)
+               v &= v-1;
+
+       puts("/* XPM */");
+       puts("static char *icon[] = {");
+       printf("\"%u %u %u 1\",\n", w, h, n);
+       for (i = 0; i < sizeof colourchars; i++) {
+               if (!(used_colours & (1u << i)))
+                       continue;
+
+               printf("\"%c c #%.6lx\",\n", colourchars[i], palette[i]);
+       }
+
+       for (y = 0; y < h; y++) {
+               putchar('"');
+               for (x = 0; x < w; x++) {
+                       putchar(icon_buf[y*h+x]);
+               }
+               printf("\"%.*s\n", y+1<h, ",");
+       }
+
+       puts("};");
+}
+
 static void
 print_xpm(const char *colourseq, unsigned long size, unsigned long *icon_buf)
 {
@@ -140,7 +296,7 @@ print_xpm(const char *colourseq, unsigned long size, unsigned long *icon_buf)
                }
                printf("\"%.*s\n", y+1<h, ",");
        }
-       printf("};\n");
+       puts("};");
 }
 
 static int decode_colourseq(char *out, const char *arg)
@@ -255,10 +411,41 @@ static unsigned long *find_icon(unsigned long size, unsigned long *ewmhicon)
        return NULL;
 }
 
+static int test_ewmh_icon_prepare(void)
+{
+       int ret = EXIT_SUCCESS;
+       unsigned i;
+
+       XColor *template = (void *)colours;
+       XColor newmap[sizeof colours / sizeof colours[0][0]];
+
+       printf("1..%d\n", (int)XTRA_ARRAYSIZE(newmap));
+       for (i = 0; i < XTRA_ARRAYSIZE(newmap); i++) {
+               newmap[i] = template[i];
+               newmap[i].pixel = 0;
+       }
+
+       ewmh_icon_prepare_cmap(newmap, XTRA_ARRAYSIZE(newmap));
+       for (i = 0; i < XTRA_ARRAYSIZE(newmap); i++) {
+               XColor *c = &newmap[i];
+
+               if (c->pixel != template[i].pixel) {
+                       printf("not ");
+                       ret = EXIT_FAILURE;
+               }
+
+               printf("ok %u (%.4hx, %.4hx, %.4hx) -> %.8lx\n",
+                      i+1, c->red, c->green, c->blue, c->pixel);
+       }
+
+       return ret;
+}
+
 int main(int argc, char **argv)
 {
        unsigned long *ewmhicon, *icon, size, buf[9];
        char colourseq[10] = "000000000";
+       int w32vga = 0, test_cmap = 0;
        int opt;
 
        if (argc > 0)
@@ -270,6 +457,12 @@ int main(int argc, char **argv)
                        if (decode_colourseq(colourseq, optarg) != 0)
                                return EXIT_FAILURE;
                        break;
+               case LOPT_W32VGA:
+                       w32vga = 1;
+                       break;
+               case LOPT_TEST_CMAP:
+                       test_cmap = 1;
+                       break;
                case 'H':
                        print_help();
                        return EXIT_SUCCESS;
@@ -282,6 +475,10 @@ int main(int argc, char **argv)
                }
        }
 
+       if (test_cmap) {
+               return test_ewmh_icon_prepare();
+       }
+
        if (argc != optind+1) {
                printf("%s: error: size not specified\n", progname);
                print_usage(stderr);
@@ -302,7 +499,11 @@ int main(int argc, char **argv)
        if (!icon)
                return EXIT_FAILURE;
 
-       print_xpm(colourseq, size, icon);
+       if (w32vga) {
+               print_xpm_w32vga(size, icon);
+       } else {
+               print_xpm(colourseq, size, icon);
+       }
 
        free(ewmhicon);
        return 0;