altos/draw: Split out draw test scaffolding from lco-test.c

[fw/altos] / src / draw / test-frame.c

diff --git a/src/draw/test-frame.c b/src/draw/test-frame.c
new file mode 100644 (file)
index 0000000..3b764eb
--- /dev/null
+++ b/src/draw/test-frame.c
@@ -0,0 +1,108 @@
+/*
+ * Copyright © 2023 Keith Packard <keithp@keithp.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
+ */
+
+#define IMAGE_SCALE    8
+#define WIDTH  128
+#define HEIGHT 64
+
+#define IMAGE_WIDTH    (WIDTH * IMAGE_SCALE)
+#define IMAGE_HEIGHT   (HEIGHT * IMAGE_SCALE)
+#define IMAGE_STRIDE   ((IMAGE_WIDTH + 31) / 32)
+
+#define DEFAULT_WIDTH  IMAGE_WIDTH
+#define DEFAULT_HEIGHT IMAGE_HEIGHT
+
+#define PASS_SETUP
+
+#include "frame.c"
+#include "ao_draw.h"
+
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <X11/extensions/XShm.h>
+
+#define STRIDE ((WIDTH + 31) / 32)
+
+static uint32_t bits[STRIDE * HEIGHT];
+
+static struct ao_bitmap fb = {
+       .base = bits,
+       .stride = STRIDE,
+       .width = WIDTH,
+       .height = HEIGHT
+};
+
+static XImage *shm_image;
+static XImage *nonshm_image;
+static XShmSegmentInfo shm_info;
+
+void
+Setup(Display *dpy, Window win)
+{
+       (void) win;
+       if (XShmQueryExtension(dpy)) {
+               shm_image = XShmCreateImage(dpy, visual, (unsigned) depth, ZPixmap, NULL, &shm_info, IMAGE_WIDTH, IMAGE_HEIGHT);
+               shm_info.shmid = shmget(IPC_PRIVATE, (size_t) (shm_image->bytes_per_line * shm_image->height), IPC_CREAT|0777);
+               shm_info.shmaddr = shm_image->data = shmat(shm_info.shmid, 0, 0);
+               shm_info.readOnly = True;
+               XShmAttach(dpy, &shm_info);
+       } else {
+               nonshm_image = XCreateImage(dpy, visual, (unsigned) depth, ZPixmap, 0, NULL,
+                                    IMAGE_WIDTH, IMAGE_HEIGHT, 32, IMAGE_STRIDE * 4);
+               nonshm_image->data = calloc((size_t) nonshm_image->bytes_per_line, (size_t) nonshm_image->height);
+       }
+}
+
+static void
+DoDisplay(Display *dpy, Window win, GC gc)
+{
+       int             ix, iy, ib;
+       int             dx, dy;
+       XImage          *image;
+       uint32_t        *w, *scan, d;
+       unsigned long   white = WhitePixel(dpy, screen);
+       unsigned long   black = BlackPixel(dpy, screen);
+
+       if (shm_image)
+               image = shm_image;
+       else
+               image = nonshm_image;
+
+       scan = bits;
+       for (iy = 0; iy < HEIGHT; iy++) {
+               w = scan;
+               scan += STRIDE;
+               for (ix = 0; ix < WIDTH; ix += 32) {
+                       d = *w++;
+                       for (ib = 0; ib < 32 && ix + ib < WIDTH; ib++) {
+                               unsigned long p = d & 1 ? white : black;
+                               d >>= 1;
+                               for (dy = 0; dy < IMAGE_SCALE; dy++) {
+
+                                       for (dx = 0; dx < IMAGE_SCALE; dx++) {
+                                               XPutPixel(image, (ix + ib) * IMAGE_SCALE + dx, iy * IMAGE_SCALE + dy, p);
+                                       }
+                               }
+                       }
+               }
+       }
+       if (shm_image)
+               XShmPutImage(dpy, win, gc, image, 0, 0, 0, 0, IMAGE_WIDTH, IMAGE_HEIGHT, False);
+       else
+               XPutImage(dpy, win, gc, image, 0, 0, 0, 0, IMAGE_WIDTH, IMAGE_HEIGHT);
+}