port from perforce

2026-04-18 22:31:51 +02:00
commit 8d0ab5b7cc
8409 changed files with 3972376 additions and 0 deletions
--- a/evoke-64k/ev15-4k/main_rel.cpp
+++ b/evoke-64k/ev15-4k/main_rel.cpp
@@ -0,0 +1,154 @@
+#define WIN32_LEAN_AND_MEAN
+#define WIN32_EXTRA_LEAN
+#include "synth.h"
+#include <GL/gl.h>
+#include "glext.h"
+#include "mark_small.h"
+
+#ifndef SCREENWIDTH
+//#define SCREENWIDTH 1280
+#define SCREENWIDTH 640
+#endif
+
+#ifndef SCREENHEIGHT
+//#define SCREENHEIGHT 720
+#define SCREENHEIGHT 480
+#endif
+
+#ifndef ASPECTOFFSET
+#define ASPECTOFFSET 0.375f
+#endif
+
+//#define WINDOWED
+
+#pragma data_seg(".Shader0")
+#include "mark_small.h"
+
+struct FAKEPFD
+{
+	WORD  nSize;
+	WORD  nVersion;
+	DWORD dwFlags;
+	// Snip
+};
+
+struct FAKEDEVMODE
+{
+	BYTE   dmDeviceName[CCHDEVICENAME];
+	WORD dmSpecVersion;
+	WORD dmDriverVersion;
+	WORD dmSize;
+	WORD dmDriverExtra;
+	DWORD dmFields;
+	union {
+		/* printer only fields */
+		struct {
+			short dmOrientation;
+			short dmPaperSize;
+			short dmPaperLength;
+			short dmPaperWidth;
+			short dmScale;
+			short dmCopies;
+			short dmDefaultSource;
+			short dmPrintQuality;
+		};
+		FAKEPFD pfd;
+	};
+	short dmColor;
+	short dmDuplex;
+	short dmYResolution;
+	short dmTTOption;
+	short dmCollate;
+	BYTE   dmFormName[CCHFORMNAME];
+	WORD   dmLogPixels;
+	DWORD  dmBitsPerPel;
+	DWORD  dmPelsWidth;
+	DWORD  dmPelsHeight;
+	union {
+		DWORD  dmDisplayFlags;
+		DWORD  dmNup;
+	};
+	DWORD  dmDisplayFrequency;
+};
+
+#pragma bss_seg(".mainbss")
+static PFNGLCREATESHADERPROGRAMEXTPROC glCreateShaderProgramEXT;
+static PFNGLUSEPROGRAMPROC glUseProgram;
+static PFNGLUNIFORM3FPROC glUniform3f;
+
+#pragma data_seg(".devmode")
+static FAKEDEVMODE devmode = {
+	"", 0, 0, sizeof(devmode), 0, DM_PELSWIDTH | DM_PELSHEIGHT, 0, 0, PFD_DOUBLEBUFFER | PFD_SUPPORT_OPENGL, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "", 0, 0, SCREENWIDTH, SCREENHEIGHT, 0, 0
+};
+
+#pragma data_seg(".fltused")
+int _fltused = 1;
+
+#pragma data_seg(".glCreateShaderProgramEXT")
+static const char* sglCreateShaderProgramEXT = "glCreateShaderProgramEXT";
+
+#pragma data_seg(".glUseProgram")
+static const char* sglUseProgram = "glUseProgram";
+
+#pragma data_seg(".glUniform3f")
+static const char* sglUniform3f = "glUniform3f";
+
+#define shaderCountOffset 14
+
+#define ATOM_EDIT 0xC018
+#define ATOM_STATIC 0xC019
+
+#define SCENE_LENGTH (SAMPLES_PER_TICK * 64)
+
+#pragma code_seg(".main")
+void _cdecl main()
+{
+	InitSound();
+
+#ifndef	WINDOWED
+	ChangeDisplaySettings((DEVMODEA*)&devmode, CDS_FULLSCREEN);
+	HDC hDC = GetDC(CreateWindowExA(0, (LPCSTR)ATOM_STATIC, 0, WS_POPUP | WS_VISIBLE | WS_MAXIMIZE, 0, 0, 0, 0, 0, 0, 0, 0));
+#else
+	HDC hDC = GetDC(CreateWindowExA(0, (LPCSTR)ATOM_STATIC, 0, WS_EX_APPWINDOW | WS_VISIBLE | WS_SYSMENU, 0, 0, SCREENWIDTH, SCREENHEIGHT, 0, 0, 0, 0));
+#endif
+
+	SetPixelFormat(hDC, ChoosePixelFormat(hDC, (const PIXELFORMATDESCRIPTOR*)&devmode.pfd), 0);
+	// if size is a problem, try this:
+	// SetPixelFormat(hDC, 8, 0);
+	wglMakeCurrent(hDC, wglCreateContext(hDC));
+
+	glCreateShaderProgramEXT = (PFNGLCREATESHADERPROGRAMEXTPROC)wglGetProcAddress(sglCreateShaderProgramEXT);
+	glUseProgram = (PFNGLUSEPROGRAMPROC)wglGetProcAddress(sglUseProgram);
+	glUniform3f = (PFNGLUNIFORM3FPROC)wglGetProcAddress(sglUniform3f);
+
+	for (int i = 0; i < 12; ++i)
+	{
+		glUseProgram(glCreateShaderProgramEXT(GL_FRAGMENT_SHADER, mark_fs_0));
+		mark_fs_0[shaderCountOffset]++;
+		if (i == 9)
+		{
+			mark_fs_0[shaderCountOffset] = 'A';
+		}
+		glUniform3f(0, i, SCREENHEIGHT, ASPECTOFFSET);
+		glRecti(-1, -1, 1, 1);
+	}
+
+	ShowCursor(FALSE);
+	PlaySound();
+
+	do
+	{
+		get_Sample();
+
+		float fTime = (float)MMTime.u.sample / SCENE_LENGTH;
+
+		glUseProgram((int)fTime + 1);
+		glUniform3f(0, fTime, SCREENHEIGHT, ASPECTOFFSET);
+		glRecti(-1, -1, 1, 1);
+		SwapBuffers(hDC);
+
+		::PeekMessage(0, 0, 0, 0, 0);
+	} while (MMTime.u.sample < MAX_SAMPLES && !GetAsyncKeyState(VK_ESCAPE));
+
+	ExitProcess(0);
+}