Removed window/WIN_window.cpp in favor of SDL2

7 files changed, 12 insertions, 1606 deletions

diff --git a/Makefile b/Makefile
index 151a003..0f67349 100644
--- a/Makefile
+++ b/Makefile
@@ -1,14 +1,14 @@
 CC=gcc
-CFLAGS=$(shell pkg-config --cflags portaudio-2.0) -Ofast -g3  -m64 -fno-omit-frame-pointer -DUSE_NETWORKING -Wno-int-conversion
-CFILES=ext/ln/linenoise.c sound.c main.c ext/dyad/src/dyad.c ext/vec/src/vec.c ext/map/src/map.c TOSPrint.c ext/C_Unescaper/escaper.c ext/argtable3/argtable3.c runtime.c poopalloc.c tos_aot.c window.c multic.c vfs.c dbg.c
+CFLAGS=$(shell pkg-config --cflags sdl2 portaudio-2.0) -Ofast -g3  -m64 -fno-omit-frame-pointer -DUSE_NETWORKING -Wno-int-conversion
+CFILES=ext/ln/linenoise.c sound.c main.c ext/dyad/src/dyad.c ext/vec/src/vec.c ext/map/src/map.c TOSPrint.c ext/C_Unescaper/escaper.c ext/argtable3/argtable3.c runtime.c poopalloc.c tos_aot.c sdl_window.c multic.c vfs.c dbg.c
 AFILES=FFI_SYSV.yasm
 COBJS=$(foreach o,$(CFILES),$(o).o)
 AOBJS=$(foreach o,$(AFILES),$(o).o) 
 OBJS=$(COBJS) $(AOBJS)
-LIBS= -lm -lX11 -lXext -lGL -lpthread $(shell pkg-config --libs portaudio-2.0)
-all: 3d_loader 
+LIBS= -lm -lpthread $(shell pkg-config --libs sdl2 portaudio-2.0)
+all: 3d_loader
 	echo "done"
-3days-0.3.00.pkg: FreeBSD_pkg.sh 3d_loader T
+3days-0.6.00.pkg: FreeBSD_pkg.sh 3d_loader T
 	./3d_loader -t T -c T/ReleasePackage.HC
 	tcsh FreeBSD_pkg.sh
 3days.deb: Debian_pkg.sh 3d_loader T
diff --git a/README.MD b/README.MD
index 4612e88..6db5826 100644
--- a/README.MD
+++ b/README.MD
@@ -3,10 +3,10 @@
 Welcome to 3Days,a HolyC Compiler for FreeBSD and Windows.
 
 This contains a port of the TempleOS compiler from the original sources of TempleOS,along with other things like the DolDoc engine and Gr stuff.
-To get started,you will need `tcsh`,`libX11`, and `gcc` to build the stuff,which you can do by typing `make` on linux and `gmake` on FreeBSD.
+To get started,you will need `tcsh`,`libsdl2-dev`,`portaudio19-dev` and `gcc` to build the stuff,which you can do by typing `make` on linux and `gmake` on FreeBSD.
 
 # Development
-This compiler has had a long history,it started out being written in C/yacc. I wasn't pleased with it so i rewrote it in HolyC. After I had a working HolyC compiler,I ported the TempleOS compiler to run under FreeBSD,which led to an easy port of the DolDoc engine All depencies (except for X11 and portaudio on unix) are included with this repo so building should not be a problem. 
+This compiler has had a long history,it started out being written in C/yacc. I wasn't pleased with it so i rewrote it in HolyC. After I had a working HolyC compiler,I ported the TempleOS compiler to run under FreeBSD,which led to an easy port of the DolDoc engine All depencies (except for SDL2  and portaudio on unix) are included with this repo so building should not be a problem. 
 
 To build the compiler binary `HCRT.BIN`,type `Cmp("FULL_PACKAGE.HC","HCRT.DBG.Z","HCRT.BIN");` in 3Days in the root directory of `T:` There is a booting process though, `KERNELA.HH` contains the functions that aren't linked to assembler symbols,but `KERNELB.HH` contains functions linked to assembler symbols. They are loaded in `FULL_PACKAGE.HC`
  
diff --git a/T/Registry.HC.Z b/T/Registry.HC.Z
deleted file mode 100644
index 8f496d7..0000000
--- a/T/Registry.HC.Z
+++ /dev/null
diff --git a/WIN_window.cpp b/WIN_window.cpp
deleted file mode 100644
index 14cfe33..0000000
--- a/WIN_window.cpp
+++ /dev/null
@@ -1,689 +0,0 @@
-#include "3d.h"
-#include <windows.h>
-#include <winuser.h>
-#include <wingdi.h>
-#include <shellapi.h>
-#include <windowsx.h>
-#include <winbase.h>
-#include <shellscalingapi.h>
-#include <math.h>
-#include <d2d1.h>
-#include <d2d1helper.h>
-#include <dwrite.h>
-#include <wincodec.h>
-#include <wincodec.h>
-extern "C" {
-	using namespace D2D1;
-HANDLE *mutex;
-LPSTR* WINAPI CommandLineToArgvA_wine(LPSTR lpCmdline, int* numargs);
-typedef enum {
-	_3D_REND_WIN32_SOFT_SCALE,
-	_3D_REND_WIN32_D2D_SCALE,	
-} _3DaysRenderer;
-typedef struct CDrawWindow {
-    int64_t sz_x,sz_y;
-    int64_t scaling_enabled;
-    int64_t scroll_x,scroll_y,changed_reso;
-    HWND win;
-    HDC dc;
-    double gl_top,gl_left,gl_bottom,gl_right;
-    char *texture_address;
-    double dpi;
-    ID2D1Factory *factory;
-    ID2D1HwndRenderTarget *target;
-    _3DaysRenderer renderer_type; 
-} CDrawWindow;
-static void StartInputScanner();
-static CDrawWindow *dw=NULL;
-static char *clip_text=NULL;
-CDrawWindow *NewDrawWindow() {
-	if(!dw) {
-		dw=TD_MALLOC(sizeof(*dw));
-	}
-	return dw;
-}
-int64_t __3DaysVGAMode() {
-	return 0;
-}
-
-void _3DaysSetVGAColor(int64_t i,uint32_t c) {
-	return;
-}
-int32_t buf[640*480];
-int64_t __3DaysSwapRGB() {
-	return 0;
-}
-static void SetWindowSz(int64_t x,int64_t y) {
-	if(!dw) return;
-	if(dw->renderer_type==_3D_REND_WIN32_SOFT_SCALE) {
-		dw->sz_x=x,dw->sz_y=y;
-		return;
-	}
-	if(dw->target)
-		dw->target->Release();
-	D2D1_SIZE_U size=SizeU(dw->sz_x=x,dw->sz_y=y);
-	assert(S_OK==dw->factory->CreateHwndRenderTarget(
-		RenderTargetProperties(),
-		HwndRenderTargetProperties(dw->win,size),
-		&dw->target));
-}
-//
-// Only call at boot
-//
-void __3DaysSetSoftwareRender(int64_t s) {
-	if(!dw) return;
-	if(s) {
-		if(dw->target)
-			dw->target->Release();
-		if(dw->factory) 
-			dw->factory->Release();
-		dw->target=NULL;
-		dw->factory=NULL;
-		dw->renderer_type=_3D_REND_WIN32_SOFT_SCALE;
-	} else
-		dw->renderer_type=_3D_REND_WIN32_D2D_SCALE;
-}
-void __3DaysEnableScaling(int64_t s) {
-	dw->scaling_enabled=s;
-}
-void DrawWindowDel() {
-}
-#define CH_CTRLA	0x01
-#define CH_CTRLB	0x02
-#define CH_CTRLC	0x03
-#define CH_CTRLD	0x04
-#define CH_CTRLE	0x05
-#define CH_CTRLF	0x06
-#define CH_CTRLG	0x07
-#define CH_CTRLH	0x08
-#define CH_CTRLI	0x09
-#define CH_CTRLJ	0x0A
-#define CH_CTRLK	0x0B
-#define CH_CTRLL	0x0C
-#define CH_CTRLM	0x0D
-#define CH_CTRLN	0x0E
-#define CH_CTRLO	0x0F
-#define CH_CTRLP	0x10
-#define CH_CTRLQ	0x11
-#define CH_CTRLR	0x12
-#define CH_CTRLS	0x13
-#define CH_CTRLT	0x14
-#define CH_CTRLU	0x15
-#define CH_CTRLV	0x16
-#define CH_CTRLW	0x17
-#define CH_CTRLX	0x18
-#define CH_CTRLY	0x19
-#define CH_CTRLZ	0x1A
-#define CH_CURSOR	0x05
-#define CH_BACKSPACE	0x08
-#define CH_ESC		0x1B
-#define CH_SHIFT_ESC	0x1C
-#define CH_SHIFT_SPACE	0x1F
-#define CH_SPACE	0x20
-
-
-//Scan code flags
-#define SCf_E0_PREFIX	7
-#define SCf_KEY_UP	8
-#define SCf_SHIFT	9
-#define SCf_CTRL	10
-#define SCf_ALT 	11
-#define SCf_CAPS	12
-#define SCf_NUM 	13
-#define SCf_SCROLL	14
-#define SCf_NEW_KEY	15
-#define SCf_MS_L_DOWN	16
-#define SCf_MS_R_DOWN	17
-#define SCf_DELETE	18
-#define SCf_INS		19
-#define SCf_NO_SHIFT	30
-#define SCf_KEY_DESC	31
-#define SCF_E0_PREFIX	(1<<SCf_E0_PREFIX)
-#define SCF_KEY_UP	(1<<SCf_KEY_UP)
-#define SCF_SHIFT	(1<<SCf_SHIFT)
-#define SCF_CTRL	(1<<SCf_CTRL)
-#define SCF_ALT		(1<<SCf_ALT)
-#define SCF_CAPS	(1<<SCf_CAPS)
-#define SCF_NUM		(1<<SCf_NUM)
-#define SCF_SCROLL	(1<<SCf_SCROLL)
-#define SCF_NEW_KEY	(1<<SCf_NEW_KEY)
-#define SCF_MS_L_DOWN	(1<<SCf_MS_L_DOWN)
-#define SCF_MS_R_DOWN	(1<<SCf_MS_R_DOWN)
-#define SCF_DELETE	(1<<SCf_DELETE)
-#define SCF_INS 	(1<<SCf_INS)
-#define SCF_NO_SHIFT	(1<<SCf_NO_SHIFT)
-#define SCF_KEY_DESC	(1<<SCf_KEY_DESC)
-
-//TempleOS places a 1 in bit 7 for
-//keys with an E0 prefix.
-//See \dLK,"::/Doc/CharOverview.DD"\d and \dLK,"KbdHndlr",A="MN:KbdHndlr"\d().
-#define SC_ESC		0x01
-#define SC_BACKSPACE	0x0E
-#define SC_TAB		0x0F
-#define SC_ENTER	0x1C
-#define SC_SHIFT	0x2A
-#define SC_CTRL		0x1D
-#define SC_ALT		0x38
-#define SC_CAPS		0x3A
-#define SC_NUM		0x45
-#define SC_SCROLL	0x46
-#define SC_CURSOR_UP	0x48
-#define SC_CURSOR_DOWN	0x50
-#define SC_CURSOR_LEFT	0x4B
-#define SC_CURSOR_RIGHT 0x4D
-#define SC_PAGE_UP	0x49
-#define SC_PAGE_DOWN	0x51
-#define SC_HOME		0x47
-#define SC_END		0x4F
-#define SC_INS		0x52
-#define SC_DELETE	0x53
-#define SC_F1		0x3B
-#define SC_F2		0x3C
-#define SC_F3		0x3D
-#define SC_F4		0x3E
-#define SC_F5		0x3F
-#define SC_F6		0x40
-#define SC_F7		0x41
-#define SC_F8		0x42
-#define SC_F9		0x43
-#define SC_F10		0x44
-#define SC_F11		0x57
-#define SC_F12		0x58
-#define SC_PAUSE	0x61
-#define SC_GUI		0xDB
-#define SC_PRTSCRN1	0xAA
-#define SC_PRTSCRN2	0xB7
-
-#define IS_CAPS(x) (x&(KMOD_RSHIFT|KMOD_LSHIFT|KMOD_CAPS))
-//http://www.rohitab.com/discuss/topic/39438-keyboard-driver/
-static char keys[]={
-		0, CH_ESC, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=', '\b', '\t',  'q',
-		'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']', '\n', 0, 'a', 's', 'd',
-		'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`', 0, '\\', 'z', 'x', 'c', 'v', 'b',
-		'n', 'm', ',', '.', '/', 0, '*', 0, ' ', 0,	0, 0, 0, 0, 0, 0,
-		0, 0, 0, 0, 0, 0, 0, 0, 0, '-', 0, '5', 0, '+', 0, 0,
-		0, 0, 0, 0, 0, 0, 0, 0, 0
-	};
-static int64_t K2SC(char ch) {
-    int64_t i=0;
-    for(;i!=sizeof(keys)/sizeof(*keys);i++) {
-        if(keys[i]==ch) return i;
-    }
-}
-static int64_t persist_mod=0;
-static int32_t __ScanKey(int64_t *ch,int64_t *sc,UINT msg,WPARAM w,LPARAM *_e) {
-    LPARAM e=*_e;
-    #define PERSIST_KEY(flag) \ 
-    if(msg==WM_KEYUP||msg==WM_SYSKEYUP) { \
-		persist_mod&=~(flag); \
-		mod&=~(flag); \
-    } else \
-		mod|=(persist_mod|=(flag));
-    int64_t mod=persist_mod,cond,dummy;
-    if(!ch) ch=&dummy;
-    if(!sc) sc=&dummy;    
-    cond=1;
-    if(cond) {
-		if(msg==WM_KEYDOWN||msg==WM_SYSKEYDOWN) {
-            ent:
-            *ch=*sc=0;
-            if(persist_mod&SCF_SHIFT)
-                mod|=SCF_SHIFT;
-            else
-                mod|=SCF_NO_SHIFT;
-            if(persist_mod&SCF_ALT)
-                mod|=SCF_ALT;
-            if(persist_mod&SCF_CTRL)
-                mod|=SCF_CTRL;
-            /*if(e.key.keysym.mod&(KMOD_CAPS))
-                mod|=SCF_CAPS;
-            if(e.key.keysym.mod&(KMOD_NUM))
-                mod|=SCF_NUM;*/
-            /*if(e.key.keysym.mod&KMOD_LGUI)
-                mod|=SCF_MS_L_DOWN;
-            if(e.key.keysym.mod&KMOD_RGUI)
-                mod|=SCF_MS_R_DOWN;*/
-            *sc=w;
-            switch(*sc) {
-            case VK_SPACE:
-            return *sc=K2SC(' ')|mod;
-            case VK_OEM_7:
-            return *sc=K2SC('\'')|mod;
-            case VK_OEM_COMMA:
-            return *sc=K2SC(',')|mod;
-            case VK_OEM_MINUS:
-            return *sc=K2SC('-')|mod;
-            case VK_OEM_PERIOD:
-            return *sc=K2SC('.')|mod;
-            case VK_OEM_3:
-            return *sc=K2SC('`')|mod;
-            case VK_OEM_2:
-            return *sc=K2SC('/')|mod;
-            case 0x30 ... 0x3A:
-            return *sc=K2SC('0'+*sc-0x30)|mod; 
-            case VK_OEM_1:
-            return *sc=K2SC(';')|mod; 
-            case VK_OEM_PLUS:
-            return *sc=K2SC('=')|mod; 
-            case VK_OEM_4:
-            return *sc=K2SC('[')|mod; 
-            case VK_OEM_6:
-            return *sc=K2SC(']')|mod; 
-            case VK_OEM_5:
-            return *sc=K2SC('\\')|mod; 
-            case 0x41 ... 0x5A:
-            return *sc=K2SC(*sc-0x41+'a')|mod; 
-            case VK_ESCAPE:
-            *sc=mod|SC_ESC;
-            return 1;
-            case VK_BACK:
-            *sc=mod|SC_BACKSPACE;
-            return 1;
-            case VK_TAB:
-            *sc=mod|SC_TAB;
-            return 1;
-            case VK_RETURN:
-            *sc=mod|SC_ENTER;
-            return 1;
-            case VK_SHIFT:
-            PERSIST_KEY(SCF_SHIFT);
-            *sc=mod|SC_SHIFT;
-            return 1;
-			case VK_MENU:
-            PERSIST_KEY(SCF_ALT);
-            *sc=mod|SC_ALT;
-            return 1;
-            case VK_CONTROL:
-            PERSIST_KEY(SCF_CTRL);
-            *sc=mod|SC_CTRL;
-            return 1;
-            case VK_CAPITAL:
-            PERSIST_KEY(SCF_CAPS);
-            *sc=mod|SC_CAPS;
-            return 1;
-            /*
-            case SDL_SCANCODE_NUMLOCKCLEAR:
-            *sc=mod|SC_NUM;
-            return 1;
-            */
-            case VK_SCROLL:
-            *sc=mod|SC_SCROLL;
-            return 1;
-            case VK_DOWN:
-            *sc=mod|SC_CURSOR_DOWN;
-            return 1;
-            case VK_UP:
-            *sc=mod|SC_CURSOR_UP;
-            return 1;
-            case VK_RIGHT:
-            *sc=mod|SC_CURSOR_RIGHT;
-            return 1;
-            case VK_LEFT:
-            *sc=mod|SC_CURSOR_LEFT;
-            return 1;
-            case VK_NEXT:
-            *sc=mod|SC_PAGE_DOWN;
-            return 1;
-            case VK_PRIOR:
-            *sc=mod|SC_PAGE_UP;
-            return 1;
-            case VK_HOME:
-            *sc=mod|SC_HOME;
-            return 1;
-            case VK_END:
-            *sc=mod|SC_END;
-            return 1;
-            case VK_INSERT:
-            *sc=mod|SC_INS;
-            return 1;
-            case VK_DELETE:
-            *sc=mod|SC_DELETE;
-            return 1;
-            case VK_LWIN:
-            case VK_RWIN:
-            *sc=mod|SC_GUI;
-            return 1;
-            case VK_PAUSE:
-            *sc=mod|SC_PAUSE;
-            return 1;
-            case VK_F1...VK_F12:
-            *sc=mod|(SC_F1+*sc-VK_F1);
-            return 1;
-            }
-        } else if(msg==WM_KEYUP||msg==WM_SYSKEYUP) {
-            mod|=SCF_KEY_UP;
-            goto ent;
-        }
-    }
-    return -1;
-}
-static void (*kb_cb)();
-static void *kb_cb_data;
-static int KBCallback(void *data,UINT msg,WPARAM w,LPARAM *e) {
-    int64_t c,s;
-    if(kb_cb&&(-1!=__ScanKey(&c,&s,msg,w,e)))
-        FFI_CALL_TOS_2(kb_cb,c,s);
-    return 0;
-}
-void SetKBCallback(void *fptr,void *data) {
-    kb_cb=fptr;
-    kb_cb_data=data;
-}
-//x,y,z,(l<<1)|r
-static void(*ms_cb)();
-static int MSCallback(HWND hwnd,void *d,UINT msg,WPARAM w,LPARAM e) {
-    static int64_t x,y;
-    static int state;
-    static int z;
-    RECT rect;
-    if(ms_cb) {
-		switch(msg) {
-			case WM_MOUSEWHEEL:
-			if(GET_WHEEL_DELTA_WPARAM(w)>1)
-				z-=1;
-			else
-				z+=1;
-			goto ent;
-            case WM_LBUTTONDOWN:
-            x=GET_X_LPARAM(e),y=GET_Y_LPARAM(e);
-            state|=2;
-            goto ent;
-            case WM_RBUTTONDOWN:
-            x=GET_X_LPARAM(e),y=GET_Y_LPARAM(e);
-            state|=1;
-            goto ent;
-            case WM_RBUTTONUP:
-            x=GET_X_LPARAM(e),y=GET_Y_LPARAM(e);
-            state&=~1;
-            goto ent;
-            case WM_LBUTTONUP:
-            x=GET_X_LPARAM(e),y=GET_Y_LPARAM(e);
-            state&=~2;
-            goto ent;
-            case WM_MOUSEMOVE:
-            x=GET_X_LPARAM(e),y=GET_Y_LPARAM(e);
-            ent:;
-             if(dw->renderer_type==_3D_REND_WIN32_D2D_SCALE) {
-				//Window corantes go from top to bottom
-				int64_t y2=dw->sz_y-y;
-				int64_t x2=x;
-				//We need to scale out coordnates to the "screen rectangle"
-				//OpenGL cordnates go from (-1.0,-1.0) to (1.0,1.0)
-				//Our silly sauce rectangle doesn't take up the whole screen,
-				//We use (dw->gl_left,dw->gl_bottom),(dw->gl_right,dw->gl_top)
-				double xd=x2/(double)dw->sz_x*2. -1.; //Make it go from -1 to 1
-				double yd=y2/(double)dw->sz_y*2. -1.; //Ditto
-				if(xd<dw->gl_left)
-					xd=dw->gl_left;
-				if(xd>dw->gl_right)
-					xd=dw->gl_right;
-				if(yd<dw->gl_top)
-					yd=dw->gl_top;
-				if(yd>dw->gl_bottom)
-					yd=dw->gl_bottom;
-				yd=(yd-dw->gl_bottom)/(dw->gl_top-dw->gl_bottom);
-				xd=(xd-dw->gl_left)/(dw->gl_right-dw->gl_left);
-				y2=480*yd;
-				x2=640*xd;
-				FFI_CALL_TOS_4(ms_cb,x2,y2,z,state);
-			} else
-				FFI_CALL_TOS_4(ms_cb,x,y,z,state);
-        }
-    }
-    return 0;
-}
-
-void SetMSCallback(void *fptr) {
-    ms_cb=fptr;
-}
-LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam);
-static HANDLE normal_c;
-int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,PSTR lpCmdLine, int nCmdShow) {
-    MSG  msg;
-    HWND hwnd;
-    int argc,pf;
-	char **argv;
-    WNDCLASS wc = {0};
-    mutex=CreateMutexA(NULL,0,NULL);
-    wc.lpfnWndProc=WndProc;
-    wc.lpszClassName="Holy Drawer";
-	wc.hInstance=hInstance;
-	wc.style=CS_HREDRAW|CS_VREDRAW;
-	RegisterClassA(&wc);
-	hwnd=CreateWindowExA(
-		NULL,
-		wc.lpszClassName,
-		"Holy Drawer",
-		WS_OVERLAPPEDWINDOW,
-		CW_USEDEFAULT,
-		CW_USEDEFAULT,
-		0,0,
-		NULL,NULL,
-		hInstance,
-		NULL
-	);
-	assert(hwnd);
-	//float dpi=GetDpiForWindow(hwnd);
-	float dpi=96;
-	SetWindowPos(
-		hwnd,
-		NULL,
-		NULL,
-		NULL,
-		ceil(640*dpi/96.), //Windows makes the window smaller for some reason
-		ceil(480*dpi/96.),
-		SWP_NOMOVE
-	);
-	NewDrawWindow()->win=hwnd;
-	dw->scaling_enabled=1;
-	dw->renderer_type=_3D_REND_WIN32_D2D_SCALE;
-	dw->dpi=dpi;
-	argv=CommandLineToArgvA_wine(lpCmdLine,&argc);
-	_main(argc,argv);
-	if(dw->renderer_type==_3D_REND_WIN32_SOFT_SCALE) {
-		software:
-		dw->texture_address=calloc(1,1);
-		dw->renderer_type=_3D_REND_WIN32_SOFT_SCALE;
-	} else {
-		dw->texture_address=(void*)buf;
-		if(S_OK!=D2D1CreateFactory(D2D1_FACTORY_TYPE_SINGLE_THREADED,&dw->factory))
-			goto software;
-	}
-	SetCursor(NULL);
-	ShowWindow(hwnd, nCmdShow);
-	while (GetMessage(&msg, NULL, 0, 0))  {
-		DispatchMessage(&msg);
-	}
-	return 0;
-}
-void DrawWindowUpdate(struct CDrawWindow *ul,int8_t *colors,int64_t internal_width,int64_t h) {
-	WaitForSingleObject(mutex,INFINITE);
-	if(dw->renderer_type==_3D_REND_WIN32_D2D_SCALE)
-		RedrawWindow(dw->win , NULL , NULL , RDW_INVALIDATE);
-	else if(dw->renderer_type==_3D_REND_WIN32_SOFT_SCALE) {
-		int64_t x,y,b,b2,mul=4;
-		HBITMAP bmp;
-		RECT rct;
-		HDC dc=GetDC(dw->win);
-		GetClientRect(dw->win,&rct);
-		BITMAPINFO  binfo;
-		memset(&binfo,0,sizeof(binfo));
-		binfo.bmiHeader.biSize=sizeof(binfo);
-		binfo.bmiHeader.biWidth=dw->sz_x;
-		//See https://learn.microsoft.com/en-us/windows/win32/wmdm/-bitmapinfoheader
-		//We want a top down DIB
-		binfo.bmiHeader.biHeight=-dw->sz_y;
-		binfo.bmiHeader.biPlanes=1;
-		binfo.bmiHeader.biBitCount=32;
-		binfo.bmiHeader.biCompression=BI_RGB;
-		SetDIBitsToDevice(dc,0,0,dw->sz_x,dw->sz_y,0,0,0,dw->sz_y,dw->texture_address,&binfo,DIB_RGB_COLORS);
-		ReleaseMutex(mutex);
-		ReleaseDC(dw->win,dc);
-		if(dw->changed_reso&&rct.right-rct.left!=dw->sz_x&&rct.bottom-rct.top!=dw->sz_y) {
-			if(map_get(&TOSLoader,"SetScaleResolution")) {
-				FFI_CALL_TOS_2(map_get(&TOSLoader,"SetScaleResolution")->data[0].val,rct.right-rct.left,rct.bottom-rct.top);
-				dw->changed_reso=0;
-			}
-		}
-	}
-	ReleaseMutex(mutex);
-}
-char *ClipboardText() {
-	char *ret;
-	OpenClipboard(0);
-	HGLOBAL glob=GetClipboardData(CF_TEXT); 
-	void *locked=GlobalLock(glob);
-	if(locked)
-		ret=strdup(locked);
-	else
-		ret=strdup("");
-	CloseClipboard();
-	GlobalUnlock(glob);
-	return ret;
-}
-void SetClipboard(char *text) {
-	//https://stackoverflow.com/questions/1264137/how-to-copy-string-to-clipboard-in-c
-	int64_t len=strlen(text)+1;
-	HGLOBAL hMem =  GlobalAlloc(GMEM_MOVEABLE, len);
-	memcpy(GlobalLock(hMem), text, len);
-	GlobalUnlock(hMem);
-	OpenClipboard(0);
-	EmptyClipboard();
-	SetClipboardData(CF_TEXT, hMem);
-	CloseClipboard();
-}
-LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam) {
-	PAINTSTRUCT ps;
-	int64_t cx,cy;
-	RECT *lr,rct;
-	if(_shutdown) goto kill;
-	if(!dw) goto dft;
-	switch(msg) {
-		case WM_SIZE:
-		case WM_SIZING:
-			if(dw->renderer_type==_3D_REND_WIN32_SOFT_SCALE)
-				dw->changed_reso=1;
-			break;
-		case WM_KILLFOCUS:
-			if(persist_mod&SCF_ALT)
-				FFI_CALL_TOS_2(kb_cb,' ',SC_ALT|SCF_KEY_UP);
-			if(persist_mod&SCF_CTRL)
-				FFI_CALL_TOS_2(kb_cb,' ',SC_CTRL|SCF_KEY_UP);
-			persist_mod=0;
-			break;
-		case WM_SYSKEYDOWN:
-		case WM_SYSKEYUP:
-		case WM_KEYDOWN:
-		case WM_KEYUP:
-			if(kb_cb)
-				KBCallback(NULL,msg,wParam,&lParam);
-			break;
-		case WM_LBUTTONUP:
-		case WM_RBUTTONUP:
-		case WM_LBUTTONDOWN:
-		case WM_RBUTTONDOWN:
-		case WM_MOUSEWHEEL:
-		case WM_MOUSEMOVE:
-			SetCursor(NULL);
-			if(kb_cb)
-				MSCallback(hwnd,NULL,msg,wParam,lParam);
-			break;
-		case WM_PAINT:
-			if(dw->renderer_type==_3D_REND_WIN32_D2D_SCALE) {
-				WaitForSingleObject(mutex,INFINITE);
-				GetClientRect(hwnd,&rct);
-				if(dw->sz_x!=rct.right-rct.left||dw->sz_y!=rct.bottom-rct.top)
-					SetWindowSz(rct.right-rct.left,rct.bottom-rct.top);
-				float sx,sy,ox,oy,rx,ry;
-				if(dw->scaling_enabled) {
-					sx=dw->sz_y/480.*640.,sy=dw->sz_y;
-					if(dw->sz_x<sx) {
-						sy=dw->sz_x/640.*480.;
-						sx=dw->sz_x;
-					}
-					rx=sx;
-					ry=sy;
-					ox=(dw->sz_x-sx);
-					oy=(dw->sz_y-sy);
-					sx=1.-ox/dw->sz_x;
-					sy=1.-oy/dw->sz_y;			
-				} else {
-					sx=640./dw->sz_x,sy=480./dw->sz_y;
-					rx=640;ry=480;
-				}
-				dw->gl_left=-sx;
-				dw->gl_right=sx;
-				dw->gl_top=-sy;
-				dw->gl_bottom=sy;
-				int64_t x,y,b,b2,mul=4;
-				ID2D1Bitmap *bmp;
-				dw->target->BeginDraw();
-				D2D1_SIZE_U holyres=SizeU(640,480);
-				D2D1_BITMAP_PROPERTIES prop;
-				prop.pixelFormat=PixelFormat(DXGI_FORMAT_B8G8R8A8_UNORM,D2D1_ALPHA_MODE_IGNORE);
-				prop.dpiX=96;
-				prop.dpiY=96;
-				dw->target->CreateBitmap(holyres,prop,&bmp);
-				bmp->CopyFromMemory(NULL,dw->texture_address,640*4);
-				D2D1_RECT_F dst_rct=RectF((dw->sz_x-rx)/2,(dw->sz_y-ry)/2,(dw->sz_x-rx)/2+rx,(dw->sz_y-ry)/2+ry);
-				dw->target->DrawBitmap(bmp,&dst_rct,1.0,D2D1_BITMAP_INTERPOLATION_MODE_LINEAR,NULL);
-				dw->target->EndDraw();
-				bmp->Release();
-				ReleaseMutex(mutex);
-			}
-			return 0;
-		case WM_DESTROY:
-kill:
-			PostQuitMessage(0);
-			return 0;
-	}
-dft:
-	return DefWindowProc(hwnd,msg,wParam,lParam);
-}
-void *_3DaysSetResolution(int64_t w,int64_t h) {
-	WaitForSingleObject(mutex,INFINITE);
-	if(dw->renderer_type==_3D_REND_WIN32_D2D_SCALE) {
-		//Do nothing
-		dw->texture_address=(void*)buf;
-	} else if(dw->renderer_type==_3D_REND_WIN32_SOFT_SCALE) {
-		dw->sz_x=w,dw->sz_y=h;
-		if(dw->texture_address)
-			free(dw->texture_address);
-		dw->texture_address=calloc(w*h,4);
-	}
-	ReleaseMutex(mutex);
-	return dw->texture_address;
-}
-static HANDLE revents[64],finevents[64];
-static HANDLE scalers[64];
-static void LaunchScaler(void *c) {
-	for(;;) {
-		WaitForSingleObject(revents[(int)c],INFINITE);
-		void *fp=map_get(&TOSLoader,"ScalerMP")->data[0].val;
-		FFI_CALL_TOS_1(fp,c);
-		SetEvent(finevents[(int)c]);
-	}
-	return 0;
-}
-void _3DaysScaleScrn(){
-	static int64_t mp_cnt;
-	int64_t i;
-	//See T/GR/Scale
-	if(!mp_cnt) {
-		SYSTEM_INFO info;
-		GetSystemInfo(&info);
-		mp_cnt=info.dwNumberOfProcessors;
-		for(i=0;i!=mp_cnt;i++) {
-			revents[i]=CreateEvent(NULL,FALSE,FALSE,NULL);
-			finevents[i]=CreateEvent(NULL,TRUE,TRUE,NULL);
-		}
-		for(i=0;i!=mp_cnt;i++)
-			scalers[i]=CreateThread(NULL,0,&LaunchScaler,i,0,NULL);	
-	}
-	for(i=0;i!=mp_cnt;i++) {
-		ResetEvent(finevents[i]);
-		SetEvent(revents[i]);
-	}
-	WaitForMultipleObjects(mp_cnt,finevents,TRUE,INFINITE);
-}
-};
diff --git a/main.c b/main.c
index 281d72b..f15dc85 100644
--- a/main.c
+++ b/main.c
@@ -5,7 +5,6 @@
 #include <pthread.h>
 #include <sys/syscall.h>
 #include <unistd.h>
-#include <X11/Xlib.h>
 #define HCRT_INSTALLTED_DIR "/usr/local/include/3Days/HCRT.BIN"
 #define HCRT_INSTALLTED_DIR_BC "/usr/local/include/3Days/HCRT_BC.BIN"
 #include <libgen.h>
@@ -195,9 +194,6 @@ int main(int argc,char **argv)
 	if(1) {
 		//Create the Window,there is 1 screen God willing.
 		if(!is_cmd_line) {
-			#ifndef TARGET_WIN32
-			assert(XInitThreads());
-			#endif
 			NewDrawWindow();
 		}
         int flags=0;
diff --git a/sdl_window.c b/sdl_window.c
index 9bf18a5..4e4f1a1 100644
--- a/sdl_window.c
+++ b/sdl_window.c
@@ -1,5 +1,10 @@
 #include "3d.h"
+#ifdef TARGET_WIN32
 #include "SDL2-mingw64/include/SDL2/SDL.h"
+#else
+#include <SDL2/SDL.h>
+#endif
+
 typedef struct CDrawWindow {
     SDL_Window *window;
     SDL_Surface *surf;
diff --git a/window.c b/window.c
deleted file mode 100644
index 85d9ffd..0000000
--- a/window.c
+++ /dev/null
@@ -1,906 +0,0 @@
-#include "3d.h"
-#include <X11/Xlib.h>
-#include <X11/Xutil.h>
-#include <X11/Xresource.h>
-#include <X11/keysymdef.h>
-#include <sys/types.h>
-#include <sys/shm.h>
-#include <X11/extensions/XShm.h>
-#include <pthread.h>
-#include <unistd.h>
-#include <GL/gl.h>
-#include <GL/glx.h>
-typedef enum {
-	_3D_REND_X11_SHM,
-	_3D_REND_X11_OGL,	
-} _3DaysRenderer;
-typedef struct CDrawWindow {
-    Window window;
-    Display *disp;
-    Atom clip3days;
-    Cursor empty_cursor;
-    //sz_x and sz_y are the window size
-    //disp_w/h is the 3Days screen size
-    int64_t sz_x,sz_y,disp_w,disp_h;
-    XShmSegmentInfo shm_info;
-    XImage *shm_image;
-    GC gc;
-    XVisualInfo *visual;
-    GLuint gl_texture;
-    double gl_left,gl_right;
-    double gl_top,gl_bottom;
-    int64_t scaling_enabled;
-    GLXContext context;
-    void *texture_address;
-    pthread_mutex_t pt;
-    int64_t reso_changed;
-    _3DaysRenderer renderer_type;
-} CDrawWindow;
-static void StartInputScanner();
-static CDrawWindow *dw=NULL;
-static char *clip_text=NULL;
-static void utf8_prop(Display *dpy, XEvent ev);
-//See note in NewDrawWindow
-static Atom wmclose;
-int64_t __3DaysSwapRGB() {
-	if(dw)
-		if(dw->renderer_type==_3D_REND_X11_OGL)
-			return 1;
-	return 0;
-}
-static int64_t use_software_rend=0;
-//
-// Call  before window is made
-//
-void __3DaysSetSoftwareRender(int64_t s) {
-	use_software_rend=s;
-}
-void __3DaysEnableScaling(int64_t s) {
-	//The software scaling is handled by HCRT.BIN
-	if(dw)
-		if(dw->renderer_type==_3D_REND_X11_OGL)
-			dw->scaling_enabled=s;
-}
-static const GLfloat texcoords[] =
-{
-        0, 1,
-        1, 1,
-        1, 0,
-        0, 0,
-        0, 1,
-        1, 1,
-        1, 0,
-        0, 0,
-};
-CDrawWindow *NewDrawWindow() {
-	if(!dw) {
-		atexit(&DrawWindowDel);
-		XInitThreads();
-		dw=TD_MALLOC(sizeof(*dw));
-		dw->disp=XOpenDisplay(NULL);
-		long screen=DefaultScreen(dw->disp);
-		GLint glxAttribs[] = {
-			GLX_RGBA,
-			GLX_DOUBLEBUFFER,
-			GLX_DEPTH_SIZE,     24,
-			GLX_STENCIL_SIZE,   8,
-			GLX_RED_SIZE,       8,
-			GLX_GREEN_SIZE,     8,
-			GLX_BLUE_SIZE,      8,
-			GLX_SAMPLE_BUFFERS, 0,
-			GLX_SAMPLES,        0,
-			None
-		};
-		if(use_software_rend) goto software;
-		dw->visual = glXChooseVisual(dw->disp, screen, glxAttribs);
-		XSetWindowAttributes windowAttribs;
-		if(dw->visual) {
-			dw->renderer_type=_3D_REND_X11_OGL;
-			windowAttribs.border_pixel = BlackPixel(dw->disp, screen);
-			windowAttribs.background_pixel = WhitePixel(dw->disp, screen);
-			windowAttribs.override_redirect = True;
-			windowAttribs.colormap = XCreateColormap(dw->disp, RootWindow(dw->disp, screen), dw->visual->visual, AllocNone);
-			windowAttribs.event_mask = ExposureMask;
-			dw->window = XCreateWindow(dw->disp, RootWindow(dw->disp,screen), 0, 0, 640, 480, 0, dw->visual->depth, InputOutput, dw->visual->visual, CWBackPixel | CWColormap | CWBorderPixel | CWEventMask, &windowAttribs);
-			XSelectInput(dw->disp,dw->window,
-				ExposureMask|KeyPressMask|KeyReleaseMask|ButtonPressMask|ButtonReleaseMask|PointerMotionMask|ButtonMotionMask|Button3MotionMask|Button4MotionMask|Button5MotionMask|FocusChangeMask|StructureNotifyMask);
-			dw->context = glXCreateContext(dw->disp, dw->visual, NULL, GL_TRUE);
-			glXMakeCurrent(dw->disp, dw->window, dw->context);
-			// Show the window
-			XSetStandardProperties(dw->disp,dw->window,"3Days",NULL,None,NULL,0,NULL);
-			XClearWindow(dw->disp, dw->window);
-			XMapRaised(dw->disp, dw->window);
-			glClearColor(0.0f, 0.0f, 0.0f, 1.0f);
-			glGenTextures(1,&dw->gl_texture);
-			glBindTexture(GL_TEXTURE_2D,dw->gl_texture);
-			glClientActiveTexture(dw->gl_texture);
-			glTexCoordPointer(2, GL_FLOAT, 0, texcoords);
-			glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA,640,480,0,GL_RGBA,GL_UNSIGNED_BYTE,NULL);
-			glEnableClientState(GL_TEXTURE_COORD_ARRAY);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
-		} else {
-			software:
-			
-			windowAttribs.border_pixel = BlackPixel(dw->disp, screen);
-			windowAttribs.background_pixel = WhitePixel(dw->disp, screen);
-			windowAttribs.override_redirect = True;
-			windowAttribs.colormap = None;
-			windowAttribs.event_mask = ExposureMask;
-			dw->window = XCreateWindow(dw->disp, RootWindow(dw->disp,screen), 0, 0, 640, 480, 0, 24, InputOutput, XDefaultVisual(dw->disp,DefaultScreen(dw->disp)), CWBackPixel | CWColormap | CWBorderPixel | CWEventMask, &windowAttribs);
-			XSelectInput(dw->disp,dw->window,
-				ExposureMask|KeyPressMask|KeyReleaseMask|ButtonPressMask|ButtonReleaseMask|PointerMotionMask|ButtonMotionMask|Button3MotionMask|Button4MotionMask|Button5MotionMask|FocusChangeMask|StructureNotifyMask);
-			XSetStandardProperties(dw->disp,dw->window,"3Days",NULL,None,NULL,0,NULL);
-			XClearWindow(dw->disp, dw->window);
-			XMapRaised(dw->disp, dw->window);
-			dw->gc=XCreateGC(dw->disp,dw->window,0,NULL);
-			dw->renderer_type=_3D_REND_X11_SHM;
-			dw->shm_image=XShmCreateImage(dw->disp,XDefaultVisual(dw->disp,screen),24,ZPixmap,0,&dw->shm_info,640,480);
-			dw->shm_info.shmid=shmget(IPC_PRIVATE,640*480*4,IPC_CREAT|0777);
-			dw->shm_info.readOnly=False;
-			dw->shm_info.shmaddr=dw->shm_image->data=shmat(dw->shm_info.shmid,0,0);
-			XShmAttach(dw->disp,&dw->shm_info);
-			XMapWindow(dw->disp,dw->window);
-		}
-		//Make a empty cursor
-		char data[]={0};
-		XColor colors[]={0};
-		Pixmap cpm=XCreateBitmapFromData(dw->disp,dw->window,data,1,1);
-		dw->empty_cursor=XCreatePixmapCursor(dw->disp,cpm,cpm,colors,colors,0,0);
-		XFreePixmap(dw->disp,cpm);
-		XDefineCursor(dw->disp,dw->window,dw->empty_cursor);
-		//https://stackoverflow.com/questions/10792361/how-do-i-gracefully-exit-an-x11-event-loop
-		//Here's the deal,I dont know why they made X11 like this.
-		//Send a prayer to the dude who awnsered this question.
-		wmclose=XInternAtom(dw->disp,"WM_DELETE_WINDOW",False);
-		XSetWMProtocols(dw->disp,dw->window,&wmclose,1);
-		dw->disp_h=480;
-		dw->disp_w=640;
-		dw->scaling_enabled=1;
-		pthread_mutex_init(&dw->pt,NULL);
-	}
-}
-void DrawWindowUpdate(CDrawWindow *win,int8_t *_colors,int64_t internal_width,int64_t h) {
-	sigset_t old_set,set;
-	if(0!=pthread_mutex_trylock(&dw->pt))
-		goto ret;
-	sigemptyset(&set);
-	sigaddset(&set,SIGUSR2);
-	sigprocmask(SIG_BLOCK,&set,&old_set);
-	XLockDisplay(dw->disp);
-	if(dw->renderer_type==_3D_REND_X11_SHM) {
-		XShmPutImage(dw->disp,dw->window,dw->gc,dw->shm_image,0,0,0,0,dw->disp_w,dw->disp_h,True);
-		pthread_mutex_unlock(&dw->pt);
-		if(dw->reso_changed) {
-			if(map_get(&TOSLoader,"SetScaleResolution")) {
-				FFI_CALL_TOS_2(map_get(&TOSLoader,"SetScaleResolution")->data[0].val,dw->sz_x,dw->sz_y);
-				dw->reso_changed=0;
-			}
-		}
-	} else if(dw->renderer_type==_3D_REND_X11_OGL) { 
-		XEvent e;
-		pthread_mutex_unlock(&dw->pt);
-		//I will OpenGL on the main thread
-		memset(&e,0,sizeof e);
-		e.type=Expose;
-		XSendEvent(dw->disp,dw->window,False,0,&e);
-	}
-	XFlush(dw->disp);
-	XUnlockDisplay(dw->disp);
-	sigprocmask(SIG_SETMASK,&old_set,NULL);
-	ret:;
-}
-void DrawWindowDel() {
-	if(dw) {
-		if(dw->renderer_type==_3D_REND_X11_SHM) {
-			XLockDisplay(dw->disp);
-			XShmDetach(dw->disp,&dw->shm_info);
-			XDestroyImage(dw->shm_image);
-			shmdt(dw->shm_info.shmaddr);
-			shmctl(dw->shm_info.shmid,IPC_RMID,NULL);
-			XFlush(dw->disp);
-			if(dw->gc)
-				XFreeGC(dw->disp,dw->gc);
-			XDestroyWindow(dw->disp,dw->window);
-			XCloseDisplay(dw->disp);
-			TD_FREE(dw);
-			dw=NULL;
-		} else {
-			XLockDisplay(dw->disp);
-			pthread_mutex_lock(&dw	->pt);
-			XFlush(dw->disp);
-			glXDestroyContext(dw->disp,dw->context);			
-			XDestroyWindow(dw->disp,dw->window);
-			XCloseDisplay(dw->disp);
-			pthread_mutex_destroy(&dw->pt);
-			TD_FREE(dw);
-			dw=NULL;
-		}
-	}
-}
-#define CH_CTRLA	0x01
-#define CH_CTRLB	0x02
-#define CH_CTRLC	0x03
-#define CH_CTRLD	0x04
-#define CH_CTRLE	0x05
-#define CH_CTRLF	0x06
-#define CH_CTRLG	0x07
-#define CH_CTRLH	0x08
-#define CH_CTRLI	0x09
-#define CH_CTRLJ	0x0A
-#define CH_CTRLK	0x0B
-#define CH_CTRLL	0x0C
-#define CH_CTRLM	0x0D
-#define CH_CTRLN	0x0E
-#define CH_CTRLO	0x0F
-#define CH_CTRLP	0x10
-#define CH_CTRLQ	0x11
-#define CH_CTRLR	0x12
-#define CH_CTRLS	0x13
-#define CH_CTRLT	0x14
-#define CH_CTRLU	0x15
-#define CH_CTRLV	0x16
-#define CH_CTRLW	0x17
-#define CH_CTRLX	0x18
-#define CH_CTRLY	0x19
-#define CH_CTRLZ	0x1A
-#define CH_CURSOR	0x05
-#define CH_BACKSPACE	0x08
-#define CH_ESC		0x1B
-#define CH_SHIFT_ESC	0x1C
-#define CH_SHIFT_SPACE	0x1F
-#define CH_SPACE	0x20
-
-
-//Scan code flags
-#define SCf_E0_PREFIX	7
-#define SCf_KEY_UP	8
-#define SCf_SHIFT	9
-#define SCf_CTRL	10
-#define SCf_ALT 	11
-#define SCf_CAPS	12
-#define SCf_NUM 	13
-#define SCf_SCROLL	14
-#define SCf_NEW_KEY	15
-#define SCf_MS_L_DOWN	16
-#define SCf_MS_R_DOWN	17
-#define SCf_DELETE	18
-#define SCf_INS		19
-#define SCf_NO_SHIFT	30
-#define SCf_KEY_DESC	31
-#define SCF_E0_PREFIX	(1<<SCf_E0_PREFIX)
-#define SCF_KEY_UP	(1<<SCf_KEY_UP)
-#define SCF_SHIFT	(1<<SCf_SHIFT)
-#define SCF_CTRL	(1<<SCf_CTRL)
-#define SCF_ALT		(1<<SCf_ALT)
-#define SCF_CAPS	(1<<SCf_CAPS)
-#define SCF_NUM		(1<<SCf_NUM)
-#define SCF_SCROLL	(1<<SCf_SCROLL)
-#define SCF_NEW_KEY	(1<<SCf_NEW_KEY)
-#define SCF_MS_L_DOWN	(1<<SCf_MS_L_DOWN)
-#define SCF_MS_R_DOWN	(1<<SCf_MS_R_DOWN)
-#define SCF_DELETE	(1<<SCf_DELETE)
-#define SCF_INS 	(1<<SCf_INS)
-#define SCF_NO_SHIFT	(1<<SCf_NO_SHIFT)
-#define SCF_KEY_DESC	(1<<SCf_KEY_DESC)
-
-//TempleOS places a 1 in bit 7 for
-//keys with an E0 prefix.
-//See \dLK,"::/Doc/CharOverview.DD"\d and \dLK,"KbdHndlr",A="MN:KbdHndlr"\d().
-#define SC_ESC		0x01
-#define SC_BACKSPACE	0x0E
-#define SC_TAB		0x0F
-#define SC_ENTER	0x1C
-#define SC_SHIFT	0x2A
-#define SC_CTRL		0x1D
-#define SC_ALT		0x38
-#define SC_CAPS		0x3A
-#define SC_NUM		0x45
-#define SC_SCROLL	0x46
-#define SC_CURSOR_UP	0x48
-#define SC_CURSOR_DOWN	0x50
-#define SC_CURSOR_LEFT	0x4B
-#define SC_CURSOR_RIGHT 0x4D
-#define SC_PAGE_UP	0x49
-#define SC_PAGE_DOWN	0x51
-#define SC_HOME		0x47
-#define SC_END		0x4F
-#define SC_INS		0x52
-#define SC_DELETE	0x53
-#define SC_F1		0x3B
-#define SC_F2		0x3C
-#define SC_F3		0x3D
-#define SC_F4		0x3E
-#define SC_F5		0x3F
-#define SC_F6		0x40
-#define SC_F7		0x41
-#define SC_F8		0x42
-#define SC_F9		0x43
-#define SC_F10		0x44
-#define SC_F11		0x57
-#define SC_F12		0x58
-#define SC_PAUSE	0x61
-#define SC_GUI		0xDB
-#define SC_PRTSCRN1	0xAA
-#define SC_PRTSCRN2	0xB7
-
-#define IS_CAPS(x) (x&(KMOD_RSHIFT|KMOD_LSHIFT|KMOD_CAPS))
-//http://www.rohitab.com/discuss/topic/39438-keyboard-driver/
-static char keys[]={
-		0, CH_ESC, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=', '\b', '\t',  'q',
-		'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']', '\n', 0, 'a', 's', 'd',
-		'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`', 0, '\\', 'z', 'x', 'c', 'v', 'b',
-		'n', 'm', ',', '.', '/', 0, '*', 0, ' ', 0,	0, 0, 0, 0, 0, 0,
-		0, 0, 0, 0, 0, 0, 0, 0, 0, '-', 0, '5', 0, '+', 0, 0,
-		0, 0, 0, 0, 0, 0, 0, 0, 0
-	};
-static int64_t K2SC(char ch) {
-    int64_t i=0;
-    for(;i!=sizeof(keys)/sizeof(*keys);i++) {
-        if(keys[i]==ch) return i;
-    }
-}
-static int64_t persist_mod=0;
-static int32_t __ScanKey(int64_t *ch,int64_t *sc,XEvent *_e) {
-    XEvent e=*_e;
-    #define PERSIST_KEY(flag) \ 
-    if(e.type==KeyRelease) { \
-		persist_mod&=~(flag); \
-		mod&=~(flag); \
-    } else \
-		mod|=(persist_mod|=(flag));
-    int64_t mod=persist_mod,cond,dummy;
-    static int64_t prev_key_press=-1;
-    if(!ch) ch=&dummy;
-    if(!sc) sc=&dummy;    
-    cond=1;
-    if(cond) {
-		if(e.type==KeyPress) {
-			if(prev_key_press==XLookupKeysym(&e,0))
-				return -1;
-			prev_key_press=XLookupKeysym(&e,0);
-            ent:
-            *ch=*sc=0;
-            if(e.xkey.state&ShiftMask)
-                mod|=SCF_SHIFT;
-            else
-                mod|=SCF_NO_SHIFT;
-            if(e.xkey.state&(ControlMask))
-                mod|=SCF_CTRL;
-            /*if(e.key.keysym.mod&(KMOD_CAPS))
-                mod|=SCF_CAPS;
-            if(e.key.keysym.mod&(KMOD_NUM))
-                mod|=SCF_NUM;*/
-            /*if(e.key.keysym.mod&KMOD_LGUI)
-                mod|=SCF_MS_L_DOWN;
-            if(e.key.keysym.mod&KMOD_RGUI)
-                mod|=SCF_MS_R_DOWN;*/
-            *sc=XLookupKeysym(&e,0);
-            switch(*sc) {
-            case XK_space:
-            return *sc=K2SC(' ')|mod;
-            case XK_apostrophe:
-            return *sc=K2SC('\'')|mod;
-            case XK_comma:
-            return *sc=K2SC(',')|mod;
-            case XK_minus:
-            return *sc=K2SC('-')|mod;
-            case XK_period:
-            return *sc=K2SC('.')|mod;
-            case XK_grave:
-            return *sc=K2SC('`')|mod;
-            case XK_slash:
-            return *sc=K2SC('/')|mod;
-            case XK_0:
-            return *sc=K2SC('0')|mod; 
-            case XK_1:
-            return *sc=K2SC('1')|mod; 
-            case XK_2:
-            return *sc=K2SC('2')|mod; 
-            case XK_3:
-            return *sc=K2SC('3')|mod; 
-            case XK_4:
-            return *sc=K2SC('4')|mod; 
-            case XK_5:
-            return *sc=K2SC('5')|mod; 
-            case XK_6:
-            return *sc=K2SC('6')|mod; 
-            case XK_7:
-            return *sc=K2SC('7')|mod; 
-            case XK_8:
-            return *sc=K2SC('8')|mod; 
-            case XK_9:
-            return *sc=K2SC('9')|mod; 
-            case XK_semicolon:
-            return *sc=K2SC(';')|mod; 
-            case XK_equal:
-            return *sc=K2SC('=')|mod; 
-            case XK_bracketleft:
-            return *sc=K2SC('[')|mod; 
-            case XK_bracketright:
-            return *sc=K2SC(']')|mod; 
-            case XK_backslash:
-            return *sc=K2SC('\\')|mod; 
-            case XK_q:
-            return *sc=K2SC('q')|mod; 
-            case XK_w:
-            return *sc=K2SC('w')|mod;
-            case XK_e:
-            return *sc=K2SC('e')|mod; 
-            case XK_r:
-            return *sc=K2SC('r')|mod;
-            case XK_t:
-            return *sc=K2SC('t')|mod;
-            case XK_y:
-            return *sc=K2SC('y')|mod;
-            case XK_u:
-            return *sc=K2SC('u')|mod;
-            case XK_i:
-            return *sc=K2SC('i')|mod;
-            case XK_o:
-            return *sc=K2SC('o')|mod;
-            case XK_p:
-            return *sc=K2SC('p')|mod;
-            case XK_a:
-            return *sc=K2SC('a')|mod;
-            case XK_s:
-            return *sc=K2SC('s')|mod;
-            case XK_d:
-            return *sc=K2SC('d')|mod;
-            case XK_f:
-            return *sc=K2SC('f')|mod;
-            case XK_g:
-            return *sc=K2SC('g')|mod;
-            case XK_h:
-            return *sc=K2SC('h')|mod;
-            case XK_j:
-            return *sc=K2SC('j')|mod;
-            case XK_k:
-            return *sc=K2SC('k')|mod;
-            case XK_l:
-            return *sc=K2SC('l')|mod;
-            case XK_z:
-            return *sc=K2SC('z')|mod;
-            case XK_x:
-            return *sc=K2SC('x')|mod;
-            case XK_c:
-            return *sc=K2SC('c')|mod;
-            case XK_v:
-            return *sc=K2SC('v')|mod;
-            case XK_b:
-            return *sc=K2SC('b')|mod;
-            case XK_n:
-            return *sc=K2SC('n')|mod;
-            case XK_m:
-            return *sc=K2SC('m')|mod;
-            case XK_Escape:
-            *sc=mod|SC_ESC;
-            return 1;
-            case XK_BackSpace:
-            *sc=mod|SC_BACKSPACE;
-            return 1;
-            case XK_Tab:
-            *sc=mod|SC_TAB;
-            return 1;
-            case XK_Return:
-            *sc=mod|SC_ENTER;
-            return 1;
-            case XK_Shift_L:
-            case XK_Shift_R:
-            PERSIST_KEY(SCF_SHIFT);
-            *sc=mod|SC_SHIFT;
-            return 1;
-            case XK_Alt_L:
-            case XK_Alt_R:
-            PERSIST_KEY(SCF_ALT);
-            *sc=mod|SC_ALT;
-            return 1;
-            case XK_Control_L:
-            case XK_Control_R:
-            PERSIST_KEY(SCF_CTRL);
-            *sc=mod|SC_CTRL;
-            return 1;
-            case XK_Caps_Lock:
-            PERSIST_KEY(SCF_CAPS);
-            *sc=mod|SC_CAPS;
-            return 1;
-            /*
-            case SDL_SCANCODE_NUMLOCKCLEAR:
-            *sc=mod|SC_NUM;
-            return 1;
-            */
-            case XK_Scroll_Lock:
-            *sc=mod|SC_SCROLL;
-            return 1;
-            case XK_Down:
-            *sc=mod|SC_CURSOR_DOWN;
-            return 1;
-            case XK_Up:
-            *sc=mod|SC_CURSOR_UP;
-            return 1;
-            case XK_Right:
-            *sc=mod|SC_CURSOR_RIGHT;
-            return 1;
-            case XK_Left:
-            *sc=mod|SC_CURSOR_LEFT;
-            return 1;
-            case XK_Page_Down:
-            *sc=mod|SC_PAGE_DOWN;
-            return 1;
-            case XK_Page_Up:
-            *sc=mod|SC_PAGE_UP;
-            return 1;
-            case XK_Home:
-            *sc=mod|SC_HOME;
-            return 1;
-            case XK_End:
-            *sc=mod|SC_END;
-            return 1;
-            case XK_Insert:
-            *sc=mod|SC_INS;
-            return 1;
-            case XK_Delete:
-            *sc=mod|SC_DELETE;
-            return 1;
-            case XK_Super_L:
-            case XK_Super_R:
-            *sc=mod|SC_GUI;
-            return 1;
-            case XK_Pause:
-            *sc=mod|SC_PAUSE;
-            return 1;
-            case XK_F1...XK_F12:
-            *sc=mod|(SC_F1+*sc-XK_F1);
-            return 1;
-            }
-        } else if(e.type==KeyRelease) {
-			prev_key_press=0;
-            mod|=SCF_KEY_UP;
-            goto ent;
-        }
-    }
-    return -1;
-}
-static void (*kb_cb)();
-static void *kb_cb_data;
-static int KBCallback(void *d,XEvent *e) {
-    int64_t c,s;
-    if(kb_cb&&(-1!=__ScanKey(&c,&s,e)))
-        FFI_CALL_TOS_2(kb_cb,c,s);
-    return 0;
-}
-void SetKBCallback(void *fptr,void *data) {
-    kb_cb=fptr;
-    kb_cb_data=data;
-}
-//x,y,z,(l<<1)|r
-static void(*ms_cb)();
-static int MSCallback(void *d,XEvent *e) {
-    static int64_t x,y,cx,cy;
-    static int state;
-    static int z;
-    if(ms_cb)
-        switch(e->type) {
-            case ButtonPress:
-            x=e->xbutton.x,y=e->xbutton.y;
-            if(e->xbutton.button==1)
-                state|=2;
-            else if(e->xbutton.button==4)
-				z--;
-			else if(e->xbutton.button==5)
-				z++;
-			else if(e->xbutton.button==3)
-                state|=1;
-            goto ent;
-            case ButtonRelease:
-            x=e->xbutton.x,y=e->xbutton.y;
-            if(e->xbutton.button==1)
-                state&=~2;
-            else if(e->xbutton.button==3)
-                state&=~1;
-            goto ent;
-            case MotionNotify:
-            x=e->xmotion.x,y=e->xmotion.y;
-            ent:
-            if(dw->renderer_type==_3D_REND_X11_OGL) {
-				//X11 corantes go from top to bottom
-				int64_t y2=dw->sz_y-y,x2=x;
-				//We need to scale out coordnates to the "screen rectangle"
-				//OpenGL cordnates go from (-1.0,-1.0) to (1.0,1.0)
-				//Our silly sauce rectangle doesn't take up the whole screen,
-				//We use (dw->gl_left,dw->gl_bottom),(dw->gl_right,dw->gl_top)
-				double xd=x2/(double)dw->sz_x*2. -1.; //Make it go from -1 to 1
-				double yd=y2/(double)dw->sz_y*2. -1.; //Ditto
-				if(xd<dw->gl_left)
-					xd=dw->gl_left;
-				if(xd>dw->gl_right)
-					xd=dw->gl_right;
-				if(yd<dw->gl_top)
-					yd=dw->gl_top;
-				if(yd>dw->gl_bottom)
-					yd=dw->gl_bottom;
-				yd=(yd-dw->gl_bottom)/(dw->gl_top-dw->gl_bottom);
-				xd=(xd-dw->gl_left)/(dw->gl_right-dw->gl_left);
-				y2=480*yd;
-				x2=640*xd;
-				FFI_CALL_TOS_4(ms_cb,x2,y2,z,state);
-			} else
-				FFI_CALL_TOS_4(ms_cb,x,y,z,state);
-        }
-    return 0;
-}
-
-void SetMSCallback(void *fptr) {
-    ms_cb=fptr;
-}
-static void utf8_send(char *text,XEvent ev) {
-	Display *dpy=dw->disp;
-    XSelectionEvent ssev;
-	XLockDisplay(dpy);
-	Atom utf8 = XInternAtom(dpy, "UTF8_STRING", False);
-	Atom targets=XInternAtom(dw->disp, "TARGETS", False);
-    Atom atom=XInternAtom(dw->disp, "ATOM", False);
-    XSelectionRequestEvent *sev;
-	loop:;
-	sev=&ev.xselectionrequest;
-	if(sev->target==targets) {
-		XChangeProperty(
-			dpy,
-			sev->requestor,
-			sev->property,
-			atom,
-			32, //expects 8/16/32 bits
-			PropModeReplace,
-			&utf8,
-			1
-		);
-		goto set;
-	} else if(sev->target!=utf8||sev->property==None) {
-		//Oh no
-		ssev.type=SelectionNotify;
-		ssev.requestor=sev->requestor;
-		ssev.selection=sev->selection;
-		ssev.target=sev->target;
-		ssev.property=None;
-		ssev.time=CurrentTime;
-		XSendEvent(dpy, sev->requestor, True, NoEventMask, (XEvent *)&ssev);
-		goto end;
-	}
-	if(!text)
-		text="";
-    XChangeProperty(dpy, sev->requestor, sev->property, utf8, 8, PropModeReplace,
-                    (unsigned char *)text, strlen(text));
-     set:
-    ssev.type = SelectionNotify;
-    ssev.requestor = sev->requestor;
-    ssev.selection = sev->selection;
-    ssev.target = sev->target;
-    ssev.property = sev->property;
-    ssev.time = sev->time;
-    XSendEvent(dpy, sev->requestor, True, NoEventMask, (XEvent *)&ssev);
-    end:
-    XUnlockDisplay(dpy);
-}
-void SetClipboard(char *text) {
-	TD_FREE(clip_text);
-	XLockDisplay(dw->disp);
-	Atom sel = XInternAtom(dw->disp, "CLIPBOARD", False);
-    XSetSelectionOwner(dw->disp, sel, dw->window, CurrentTime);
-	XUnlockDisplay(dw->disp);
-	clip_text=strdup(text);
-}
-static void __InputLoop(void *ul,int64_t clip_only) {
-    XEvent e;
-    XSelectionEvent *sev;
-    for(;!*(int64_t*)ul;) {
-		XNextEvent(dw->disp,&e);
-		if(e.type==Expose&&dw->renderer_type==_3D_REND_X11_OGL) {
-			pthread_mutex_lock(&dw->pt);
-			XWindowAttributes attribs;
-			XGetWindowAttributes(dw->disp, dw->window, &attribs);
-			glViewport(0, 0, attribs.width, attribs.height);
-			glClear(GL_COLOR_BUFFER_BIT);
-			char *_colors=dw->texture_address;
-			double sx,sy,ox,oy;
-			if(dw->scaling_enabled) {
-				sx=dw->sz_y/480.*640.,sy=dw->sz_y;
-				if(dw->sz_x<sx) {
-					sy=dw->sz_x/640.*480.;
-					sx=dw->sz_x;
-				}
-				ox=(dw->sz_x-sx);
-				oy=(dw->sz_y-sy);
-				sx=1.-ox/dw->sz_x;
-				sy=1.-oy/dw->sz_y;			
-			} else {
-				sx=640./dw->sz_x,sy=480./dw->sz_y;
-			}
-			dw->gl_left=-sx;
-			dw->gl_right=sx;
-			dw->gl_top=-sy;
-			dw->gl_bottom=sy;
-			GLfloat verts[]={
-				dw->gl_left,dw->gl_top,
-				dw->gl_right,dw->gl_top,
-				dw->gl_right,dw->gl_bottom,
-				dw->gl_left,dw->gl_bottom
-			};
-			glClear(GL_COLOR_BUFFER_BIT);
-			glColor4f(0,0,0,0);
-			glEnable(GL_VERTEX_ARRAY);
-			glEnable(GL_TEXTURE_2D);
-			glBindTexture(GL_TEXTURE_2D,dw->gl_texture);
-			glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_ADD);
-			glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA,640,480,0,GL_RGBA,GL_UNSIGNED_BYTE,_colors);
-			char triangles[]={
-				0,1,2,0,3,2
-			};
-			glVertexPointer(2,GL_FLOAT,0,verts);
-			glDrawElements(GL_TRIANGLES,6,GL_UNSIGNED_BYTE,triangles);
-			glFinish();
-			glXSwapBuffers(dw->disp,dw->window);
-			pthread_mutex_unlock(&dw->pt);
-		} else if(e.type==ClientMessage) {
-			if(e.xclient.data.l[0]==wmclose) {
-				bye:
-				__ShutdownCores();
-				DrawWindowDel();
-				exit(0);
-			}
-		} else if(e.type==DestroyNotify){
-			goto bye;
-		} else if(e.type==ConfigureNotify&&dw) {
-			if(dw->sz_x!=e.xconfigure.width||dw->sz_y!=e.xconfigure.height)
-				dw->reso_changed=1;
-			dw->sz_x=e.xconfigure.width;
-			dw->sz_y=e.xconfigure.height;
-		} else if(e.type==SelectionRequest) {
-			utf8_send(clip_text,e);
-		} else if(e.type==SelectionNotify)
-			utf8_prop(dw->disp,e);
-		else if(e.type==FocusOut) {
-			if((persist_mod|SCF_ALT)&&kb_cb)
-				FFI_CALL_TOS_2(kb_cb,0,SC_ALT|SCF_ALT|SCF_KEY_UP|SCF_NO_SHIFT);
-			if((persist_mod|SCF_CTRL)&&kb_cb)
-				FFI_CALL_TOS_2(kb_cb,0,SC_CTRL|SCF_CTRL|SCF_KEY_UP|SCF_NO_SHIFT);
-			if((persist_mod|SCF_SHIFT)&&kb_cb)
-				FFI_CALL_TOS_2(kb_cb,0,SC_SHIFT|SCF_SHIFT|SCF_KEY_UP);
-			if((persist_mod|SCF_CAPS)&&kb_cb)
-				FFI_CALL_TOS_2(kb_cb,0,SC_CAPS|SCF_NO_SHIFT|SCF_KEY_UP);
-			persist_mod&=~(SCF_CAPS|SCF_SHIFT|SCF_CTRL|SCF_ALT);
-			continue;
-		}
-		if(kb_cb)
-			KBCallback(kb_cb_data,&e);
-		if(ms_cb)
-			MSCallback(NULL,&e);
-	}
-}
-char *ClipboardText() {
-	XLockDisplay(dw->disp);
-	char *ret;
-	Atom sel = XInternAtom(dw->disp, "CLIPBOARD", False);
-	Window owner = XGetSelectionOwner(dw->disp, sel);
-	XEvent ev;
-	if(owner==dw->window) {
-		ret=strdup(clip_text);
-		XUnlockDisplay(dw->disp);
-		return ret;
-	}
-	Atom utf8=XInternAtom(dw->disp, "UTF8_STRING", False);
-	Atom target=XInternAtom(dw->disp, "3DaysCLIP", False);
-	XConvertSelection(dw->disp, sel, utf8, target, dw->window,
-						  CurrentTime);
-	TD_FREE(clip_text);
-	clip_text=NULL;
-	for(;;) {
-		XNextEvent(dw->disp,&ev);
-		if(ev.type==SelectionNotify) {
-			utf8_prop(dw->disp,ev);
-			break;
-		}
-	}
-	XUnlockDisplay(dw->disp);
-	if(!clip_text)
-		clip_text=strdup("");
-	return strdup(clip_text);
-}
-void InputLoop(void *ul) {
-	__InputLoop(ul,0);
-}
-//https://www.google.com/search?q=xlib+clipboard&client=firefox-b-1-e&sxsrf=ALiCzsb9A6kPI8rhFAVztJKwMeVH6WiTJQ%3A1655908750653&ei=jimzYuS0J_6fptQP6pStoAs&ved=0ahUKEwjks_PmpMH4AhX-j4kEHWpKC7QQ4dUDCA0&uact=5&oq=xlib+clipboard&gs_lcp=Cgdnd3Mtd2l6EAMyBggAEB4QFjIGCAAQHhAWMgUIABCGAzIFCAAQhgMyBQgAEIYDMgUIABCGAzoHCAAQRxCwAzoHCAAQsAMQQzoKCAAQ5AIQsAMYAToSCC4QxwEQowIQyAMQsAMQQxgCOgwILhDIAxCwAxBDGAI6BAgjECc6BAgAEEM6CwgAEIAEELEDEIMBOgUIABCABDoICAAQgAQQsQM6CwguEIAEEMcBENEDOgoIABCABBCHAhAUSgQIQRgASgQIRhgBULkCWKMXYIkaaAFwAXgAgAGYA4gB1B2SAQcyLTQuNy4xmAEAoAEByAERwAEB2gEGCAEQARgJ2gEGCAIQARgI&sclient=gws-wiz
-static void
-utf8_prop(Display *dpy, XEvent ev)
-{
-	Window w=dw->window;
-	XLockDisplay(dpy);
-	Atom sel = XInternAtom(dw->disp, "CLIPBOARD", False);
-	Atom utf8 = XInternAtom(dw->disp, "UTF8_STRING", False);
-	Atom target=XInternAtom(dw->disp, "3DaysCLIP", False);
-	Atom da, incr, type;
-    int di;
-    unsigned long size, dul;
-	unsigned char *prop_ret = NULL;
-	XGetWindowProperty(dpy, w, target, 0, 0, False, AnyPropertyType,
-                       &type, &di, &dul, &size, &prop_ret);
-    XFree(prop_ret);
-    XGetWindowProperty(dpy, w, target, 0, size, False, AnyPropertyType,
-                       &da, &di, &dul, &dul, &prop_ret);
-    TD_FREE(clip_text);
-    if(!size)
-		clip_text=strdup("");
-	else
-		clip_text=strdup(prop_ret);
-    XFree(prop_ret);
-    XDeleteProperty(dpy, w, target);
-    XUnlockDisplay(dpy);
-}
-//Expected HCRT.BIN to be loaded
-void *_3DaysSetResolution(int64_t w,int64_t h) {
-	if(!dw) return NULL; 
-	if(dw->renderer_type==_3D_REND_X11_SHM) {
-		XEvent e;
-		XLockDisplay(dw->disp);
-		pthread_mutex_lock(&dw->pt);
-		dw->disp_h=h;
-		dw->disp_w=w;
-		XShmDetach(dw->disp,&dw->shm_info);
-		XDestroyImage(dw->shm_image);
-		shmdt(dw->shm_info.shmaddr);
-		shmctl(dw->shm_info.shmid,IPC_RMID,NULL);
-		memset(&dw->shm_info,0,sizeof(dw->shm_info));
-		dw->shm_info.shmid=shmget(IPC_PRIVATE,w*h*4,IPC_CREAT|0777);
-		dw->shm_info.readOnly=False;
-		dw->shm_info.shmaddr=shmat(dw->shm_info.shmid,0,0);
-		XShmAttach(dw->disp,&dw->shm_info);
-		dw->shm_image=XShmCreateImage(dw->disp,XDefaultVisual(dw->disp,DefaultScreen(dw->disp)),24,ZPixmap,0,&dw->shm_info,w,h);
-		dw->shm_image->data=dw->shm_info.shmaddr;
-		//Wait for event to sync with server to avoid nasty stuff(push a dummy event for XSync to not hang for a next event)
-		memset(&e,0,sizeof e);
-		e.type=Expose;
-		XSendEvent(dw->disp,dw->window,False,0,&e);
-		XSync(dw->disp,False);
-		pthread_mutex_unlock(&dw->pt);
-		XUnlockDisplay(dw->disp);
-		return dw->shm_info.shmaddr;
-	} else if(dw->renderer_type==_3D_REND_X11_OGL) {
-		pthread_mutex_lock(&dw->pt);
-		if(dw->texture_address)
-			free(dw->texture_address);
-		dw->texture_address=calloc(w*h,4);
-		pthread_mutex_unlock(&dw->pt);
-		return dw->texture_address;
-	}
-}
-static void LaunchScaler(void *c) {
-	void *fp=map_get(&TOSLoader,"ScalerMP")->data[0].val;
-	FFI_CALL_TOS_1(fp,c);
-	pthread_exit(0);
-}
-int64_t __3DaysVGAMode() {
-	return 0;
-}
-void _3DaysSetVGAColor(int64_t i,uint32_t color) {
-}
-void _3DaysScaleScrn(){
-	sigset_t set,old_set;
-	static int64_t mp_cnt;
-	sigemptyset(&set);
-	sigaddset(&set,SIGUSR2);
-	sigprocmask(SIG_BLOCK,&set,&old_set);
-	pthread_mutex_lock(&dw->pt);
-	//See T/GR/Scale
-	if(!mp_cnt) {
-		mp_cnt=sysconf(_SC_NPROCESSORS_ONLN);
-	}
-	pthread_t scalers[mp_cnt];
-	int64_t i;
-	for(i=0;i!=mp_cnt;i++)
-		pthread_create(&scalers[i],NULL,&LaunchScaler,i);	
-	for(i=0;i!=mp_cnt;i++)
-		pthread_join(scalers[i],NULL);
-	pthread_mutex_unlock(&dw->pt);
-	sigprocmask(SIG_SETMASK,&old_set,NULL);
-}