1 files changed, 82 insertions, 0 deletions
diff --git a/minic/test/mandel.c b/minic/test/mandel.c
new file mode 100644
index 0000000..a310cf8
--- /dev/null
+++ b/minic/test/mandel.c
@@ -0,0 +1,82 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <SDL2/SDL.h>
+
+void *win;
+void *rnd;
+int W;
+int H;
+int *col;
+
+plot(int x, int y)
+{
+	int n;
+	int fx;
+	int fy;
+	int zx;
+	int zy;
+	int nx;
+	int ny;
+
+	fx = (x - W/2)*4000 / W;
+	fy = (y - H/2)*4000 / H;
+	zx = fx;
+	zy = fy;
+
+	for (n=0; n<200; n++) {
+		if (zx*zx + zy*zy > 4000000)
+			break;
+		nx = (zx*zx)/1000 - (zy*zy)/1000 + fx;
+		ny = zx*zy/500 + fy;
+		zx = nx;
+		zy = ny;
+	}
+	n = 255 - col[n];
+	SDL_SetRenderDrawColor(rnd, n, 130, n, 255);
+	SDL_RenderDrawPoint(rnd, x, y);
+	return 0;
+}
+
+main() {
+	int c;
+	int n;
+	int x;
+	int y;
+	void *e;
+	int *ie;
+
+	W = 400;
+	H = 400;
+	SDL_Init(32);
+	win = SDL_CreateWindow("Mandelbrot MiniC", 0, 0, W, H, 0);
+	rnd = SDL_CreateRenderer(win, -1, 0);
+	e = malloc(56);
+	ie = e;
+	col = malloc(201 * sizeof (int));
+	c = 20;
+	for (n=0; n<200; n++) {
+		col[n] = c;
+		if (c > 255)
+			printf("%d\n", c);
+		c += (255-c)/8;
+	}
+	col[n] = 0;
+
+	SDL_RenderClear(rnd);
+	for (x=0; x<W; x++)
+		for (y=0; y<H; y++)
+			plot(x, y);
+	SDL_RenderPresent(rnd);
+
+	for (;;) {
+		if (SDL_PollEvent(e)) {
+			if (ie[0] == 769)
+				break;
+		}
+	}
+
+	SDL_DestroyRenderer(rnd);
+	SDL_DestroyWindow(win);
+	SDL_Quit();
+	return 0;
+}