X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fdraw%2Ftest-frame.c;fp=src%2Fdraw%2Ftest-frame.c;h=3b764eb37480b81dbbcc8286981d1e6aa5997d64;hp=0000000000000000000000000000000000000000;hb=c2a21c0f6a770f989833d0bd35761e17f9843353;hpb=cd5b0ac6f2b0c709fe3d419c4c090aa5638d09e1

diff --git a/src/draw/test-frame.c b/src/draw/test-frame.c
new file mode 100644
index 00000000..3b764eb3
--- /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);
+}