From c0bebcff77eacd58903e487533c510df1916b5e7 Mon Sep 17 00:00:00 2001
From: katherine <ageha@airen-no-jikken.icu>
Date: Wed, 10 Feb 2021 16:57:35 -0700
Subject: wolfautomata

---
 README.md                      |   5 ++
 wolfautomata/Makefile          |  29 ++++++++
 wolfautomata/screenshot_01.png | Bin 0 -> 21611 bytes
 wolfautomata/screenshot_02.png | Bin 0 -> 4047 bytes
 wolfautomata/src/main.c        | 162 +++++++++++++++++++++++++++++++++++++++++
 5 files changed, 196 insertions(+)
 create mode 100644 wolfautomata/Makefile
 create mode 100644 wolfautomata/screenshot_01.png
 create mode 100644 wolfautomata/screenshot_02.png
 create mode 100644 wolfautomata/src/main.c

diff --git a/README.md b/README.md
index b6200c9..1e1c585 100644
--- a/README.md
+++ b/README.md
@@ -3,3 +3,8 @@
 ### rwalk
 
 ![rwalk screenshot](https://git.airen-no-jikken.icu/ageha/allegro-sketches/raw/branch/master/rwalk/screenshot.png)
+
+### wolfautomata
+
+![wolfautomata screenshot 1](https://git.airen-no-jikken.icu/ageha/allegro-sketches/raw/branch/master/wolfautomata/screenshot_01.png)
+![wolfautomata screenshot 2](https://git.airen-no-jikken.icu/ageha/allegro-sketches/raw/branch/master/wolfautomata/screenshot_02.png)
diff --git a/wolfautomata/Makefile b/wolfautomata/Makefile
new file mode 100644
index 0000000..71038df
--- /dev/null
+++ b/wolfautomata/Makefile
@@ -0,0 +1,29 @@
+CFLAGS+=-Wall -O2 $(shell pkg-config --cflags allegro-5 allegro_primitives-5 libsodium)
+CFLAGSDEBUG=-Wall -ggdb3 -O0 -DDEBUG $(shell pkg-config --cflags allegro-5 allegro_primitives-5)
+LDFLAGS+=-Wall -O2 $(shell pkg-config --libs allegro-5 allegro_primitives-5 libsodium)
+LDFLAGSDEBUG=-Wall -ggdb3 -O0 -DDEBUG $(shell pkg-config --libs allegro-5 allegro_primitives-5)
+SRCDIR=./src
+OBJDIR=./build
+SRC=$(wildcard $(SRCDIR)/*.c)
+OBJ=$(patsubst $(SRCDIR)%.c,$(OBJDIR)%.o,$(SRC))
+BIN=wolfautomata
+
+all: $(OBJ)
+	$(CC) $(LDFLAGS) -o $(BIN) $^
+
+$(OBJ): | $(OBJDIR)
+
+$(OBJDIR)/%.o: $(SRCDIR)/%.c
+	$(CC) $(CFLAGS) -c -o $@ $<
+
+$(OBJDIR):
+	mkdir -p $(OBJDIR)
+
+clean:
+	rm -rf $(OBJDIR) $(BIN)
+
+debug: CFLAGS=$(CFLAGSDEBUG)
+debug: LDFLAGS=$(LDFLAGSDEBUG)
+debug: all
+
+new: clean all
diff --git a/wolfautomata/screenshot_01.png b/wolfautomata/screenshot_01.png
new file mode 100644
index 0000000..8e8f059
Binary files /dev/null and b/wolfautomata/screenshot_01.png differ
diff --git a/wolfautomata/screenshot_02.png b/wolfautomata/screenshot_02.png
new file mode 100644
index 0000000..ad68d7e
Binary files /dev/null and b/wolfautomata/screenshot_02.png differ
diff --git a/wolfautomata/src/main.c b/wolfautomata/src/main.c
new file mode 100644
index 0000000..d884280
--- /dev/null
+++ b/wolfautomata/src/main.c
@@ -0,0 +1,162 @@
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdio.h>
+#include <string.h>
+
+#include <allegro5/allegro5.h>
+#include <allegro5/allegro_primitives.h>
+
+#define DISP_WIDTH 960
+#define DISP_HEIGHT 480
+
+#define FPS 60.0
+
+#define DO_INIT(check, desc) \
+	if (!(check)) { \
+		fprintf(stderr, "err: can't initialise %s\n", desc); \
+		rval = 1; \
+		goto done; \
+	}
+
+static bool bit_get(uint8_t *bline, unsigned off)
+{
+	return (bline[off / 8] >> (off % 8)) & 0x01;
+}
+
+static void bit_set(uint8_t *bline, unsigned off)
+{
+	bline[off / 8] = (bline[off / 8] | (0x01 << (off % 8)) );
+}
+
+int main(int argc, char **argv)
+{
+	int rval = 0;
+	unsigned goframes;
+
+	uint8_t bits[DISP_HEIGHT][DISP_WIDTH / 8];
+
+	uint8_t automaton = 0;
+	unsigned x, y;
+
+	ALLEGRO_DISPLAY* d = NULL;
+	ALLEGRO_TIMER* t = NULL;
+	ALLEGRO_EVENT_QUEUE* eq = NULL;
+	ALLEGRO_EVENT e;
+
+	DO_INIT(al_init(), "allegro");
+	DO_INIT(al_init_primitives_addon(), "primitives");
+	DO_INIT(al_install_keyboard(), "keyboard");
+
+	DO_INIT(t = al_create_timer(1.0 / FPS), "timer");
+	DO_INIT(eq = al_create_event_queue(), "event queue");
+
+	al_set_new_display_option(ALLEGRO_SINGLE_BUFFER, 1, ALLEGRO_REQUIRE);
+	DO_INIT(d = al_create_display(DISP_WIDTH, DISP_HEIGHT), "display");
+
+	al_register_event_source(eq, al_get_keyboard_event_source());
+	al_register_event_source(eq, al_get_display_event_source(d));
+	al_register_event_source(eq, al_get_timer_event_source(t));
+
+	al_start_timer(t);
+	goframes = 0;
+
+reset:
+
+	al_clear_to_color(al_map_rgb(0, 0, 0));
+	memset(bits, 0, DISP_HEIGHT * DISP_WIDTH / 8);
+
+	/* seed bit */
+	bit_set(bits[0], DISP_WIDTH / 2);
+
+	for (y = 0; y < DISP_HEIGHT - 1; y++) {
+		for (x = 1; x < DISP_WIDTH - 2; x++) {
+			if (
+				bit_get(&automaton,
+					bit_get(bits[y], x + 2)
+					+ bit_get(bits[y], x + 1) * 2
+					+ bit_get(bits[y], x) * 4
+				)
+			) {
+				bit_set(bits[y + 1], x + 1);
+			}
+		}
+	}
+
+	while(true) {
+		al_wait_for_event(eq, &e);
+
+		switch (e.type) {
+
+		case ALLEGRO_EVENT_DISPLAY_CLOSE:
+			goto done;
+
+		case ALLEGRO_EVENT_KEY_DOWN:
+			switch(e.keyboard.keycode) {
+
+			case ALLEGRO_KEY_UP:
+				automaton += 10;
+				printf("%d\n", automaton);
+				break;
+
+			case ALLEGRO_KEY_DOWN:
+				automaton -= 10;
+				printf("%d\n", automaton);
+				break;
+
+			case ALLEGRO_KEY_LEFT:
+				automaton -= 1;
+				printf("%d\n", automaton);
+				break;
+
+			case ALLEGRO_KEY_RIGHT:
+				automaton += 1;
+				printf("%d\n", automaton);
+				break;
+
+			case ALLEGRO_KEY_ENTER:
+				goframes = DISP_HEIGHT;
+				goto reset;
+
+			default:
+				continue;
+
+			}
+
+		case ALLEGRO_EVENT_TIMER:
+			if (goframes == 0) {
+				al_flip_display();
+				break;
+			}
+
+			/* draw line */
+			for (x = 0; x < DISP_WIDTH; x++) {
+				if (bit_get(bits[DISP_HEIGHT - goframes], x)) {
+					al_draw_filled_rectangle(
+						(float)x, (float)(DISP_HEIGHT - goframes),
+						(float)(x + 1), (float)(DISP_HEIGHT - goframes + 1),
+						al_map_rgb(255, 255, 255)
+					);
+				}
+			}
+
+			al_flip_display();
+
+			goframes--;
+
+			if (goframes == 0)
+				puts("next");
+		}
+	}
+
+
+done:
+
+	if (d)
+		al_destroy_display(d);
+	if (t)
+		al_destroy_timer(t);
+	if (eq)
+		al_destroy_event_queue(eq);
+	
+	return rval;
+}
-- 
cgit v1.2.3