Subversion Repositories Krakow BASIC

/* $Id: x11.c 39 2024-09-06 12:56:29Z nishi $ */

#include <stdbool.h>

#include <stddef.h>

#include <stdint.h>

#include <X11/Xlib.h>

#include <X11/Xutil.h>

bool stop = false;

bool dorender = false;

const int fontwidth = 7;

const int fontheight = 14;

const int textwidth = 80;

const int textheight = 25;

int width;

int height;

GC gc;

Window w;

Display* d;

int bgc = 0;

int fgc = 15;

uint32_t colors[] = {

	0x000000

};

void render(void){

	XSetForeground(d, gc, colors[bgc]);

	XFillRectangle(d, w, gc, 0, 0, width, height);

	XFlush(d);

}

void* x11_thread(void* arg){

	width = fontwidth * textwidth;

	height = fontheight * textheight;

	d = XOpenDisplay(NULL);

	w = XCreateSimpleWindow(d, RootWindow(d, 0), 0, 0, width, height, 3, WhitePixel(d, 0), BlackPixel(d, 0));

	XStoreName(d, w, "Krakow BASIC");

	XSizeHints* size = XAllocSizeHints();

	size->flags = PMinSize | PMaxSize;

	size->min_width = size->max_width = width;

	size->min_height = size->max_height = height;

	XSetWMNormalHints(d, w, size);

	XFree(size);

	XEvent ev;

	XSelectInput(d, w, ExposureMask);

	XMapWindow(d, w);

	XFlush(d);

	gc = XCreateGC(d, DefaultRootWindow(d), 0, 0);

	render();

	while(1){

		if(dorender){

			render();

			dorender = false;

		}else if(XPending(d) > 0){

			XNextEvent(d, &ev);

			if(ev.type == Expose){

				render();

			}

		}

	}

	stop = true;

	return arg;

}