Most of a Windows front end. Something's not _quite_ right in the

GDI - there are blobs in the middle of powered lines in Net. But
it's 99% there now.

[originally from svn r4156]

Recipe

@@ -9,13 +9,14 @@
 !name puzzles
 
 !makefile gtk Makefile
-#!makefile vc Makefile.vc
+!makefile vc Makefile.vc
 
+WINDOWS  = windows user32.lib gdi32.lib
 COMMON   = midend malloc
 NET      = net random tree234
 
 net      : [X] gtk COMMON NET
 cube     : [X] gtk COMMON cube
 
-#net      : [G] windows COMMON NET
+net      : [G] WINDOWS COMMON NET
-#cube     : [G] windows COMMON cube
+cube     : [G] WINDOWS COMMON cube

puzzles.h

@@ -24,7 +24,7 @@ enum {
     CURSOR_RIGHT
 };
 
-#define IGNORE(x) ( (x) = (x) )
+#define IGNOREARG(x) ( (x) = (x) )
 
 typedef struct frontend frontend;
 typedef struct midend_data midend_data;

windows.c

@@ -1,3 +1,298 @@
 /*
  * windows.c: Windows front end for my puzzle collection.
  */
+
+#include <windows.h>
+
+#include <stdio.h>
+#include <stdarg.h>
+#include <stdlib.h>
+#include <time.h>
+
+#include "puzzles.h"
+
+struct frontend {
+    midend_data *me;
+    HWND hwnd;
+    HBITMAP bitmap, prevbm;
+    HDC hdc_bm;
+    COLORREF *colours;
+    HBRUSH *brushes;
+    HPEN *pens;
+    UINT timer;
+};
+
+void fatal(char *fmt, ...)
+{
+    char buf[2048];
+    va_list ap;
+
+    va_start(ap, fmt);
+    vsprintf(buf, fmt, ap);
+    va_end(ap);
+
+    MessageBox(NULL, buf, "Fatal error", MB_ICONEXCLAMATION | MB_OK);
+
+    exit(1);
+}
+
+void frontend_default_colour(frontend *fe, float *output)
+{
+    DWORD c = GetSysColor(COLOR_MENU); /* ick */
+
+    output[0] = (float)(GetRValue(c) / 255.0);
+    output[1] = (float)(GetGValue(c) / 255.0);
+    output[2] = (float)(GetBValue(c) / 255.0);
+}
+
+void draw_rect(frontend *fe, int x, int y, int w, int h, int colour)
+{
+    HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
+    HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
+    Rectangle(fe->hdc_bm, x, y, x+w, y+h);
+    SelectObject(fe->hdc_bm, oldbrush);
+    SelectObject(fe->hdc_bm, oldpen);
+}
+
+void draw_line(frontend *fe, int x1, int y1, int x2, int y2, int colour)
+{
+    HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
+    MoveToEx(fe->hdc_bm, x1, y1, NULL);
+    LineTo(fe->hdc_bm, x2, y2);
+    SetPixel(fe->hdc_bm, x2, y2, fe->colours[colour]);
+    SelectObject(fe->hdc_bm, oldpen);
+}
+
+void draw_polygon(frontend *fe, int *coords, int npoints,
+                  int fill, int colour)
+{
+    POINT *pts = snewn(npoints+1, POINT);
+    int i;
+
+    for (i = 0; i <= npoints; i++) {
+	int j = (i < npoints ? i : 0);
+	pts[i].x = coords[j*2];
+	pts[i].y = coords[j*2+1];
+    }
+
+    if (fill) {
+	HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
+	HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
+	Polygon(fe->hdc_bm, pts, npoints);
+	SelectObject(fe->hdc_bm, oldbrush);
+	SelectObject(fe->hdc_bm, oldpen);
+    } else {
+	HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
+	Polyline(fe->hdc_bm, pts, npoints+1);
+	SelectObject(fe->hdc_bm, oldpen);
+    }
+
+    sfree(pts);
+}
+
+void start_draw(frontend *fe)
+{
+    HDC hdc_win;
+    hdc_win = GetDC(fe->hwnd);
+    fe->hdc_bm = CreateCompatibleDC(hdc_win);
+    fe->prevbm = SelectObject(fe->hdc_bm, fe->bitmap);
+    ReleaseDC(fe->hwnd, hdc_win);
+}
+
+void draw_update(frontend *fe, int x, int y, int w, int h)
+{
+    RECT r;
+
+    r.left = x;
+    r.top = y;
+    r.right = x + w;
+    r.bottom = y + h;
+
+    InvalidateRect(fe->hwnd, &r, FALSE);
+}
+
+void end_draw(frontend *fe)
+{
+    SelectObject(fe->hdc_bm, fe->prevbm);
+    DeleteDC(fe->hdc_bm);
+}
+
+void deactivate_timer(frontend *fe)
+{
+    KillTimer(fe->hwnd, fe->timer);
+    fe->timer = 0;
+}
+
+void activate_timer(frontend *fe)
+{
+    fe->timer = SetTimer(fe->hwnd, fe->timer, 20, NULL);
+}
+
+static frontend *new_window(HINSTANCE inst)
+{
+    frontend *fe;
+    int x, y;
+    RECT r;
+    HDC hdc;
+
+    fe = snew(frontend);
+    fe->me = midend_new(fe);
+    midend_new_game(fe->me, NULL);
+    midend_size(fe->me, &x, &y);
+
+    fe->timer = 0;
+
+    {
+	int i, ncolours;
+        float *colours;
+
+        colours = midend_colours(fe->me, &ncolours);
+
+	fe->colours = snewn(ncolours, COLORREF);
+	fe->brushes = snewn(ncolours, HBRUSH);
+	fe->pens = snewn(ncolours, HPEN);
+
+	for (i = 0; i < ncolours; i++) {
+	    fe->colours[i] = RGB(255 * colours[i*3+0],
+				 255 * colours[i*3+1],
+				 255 * colours[i*3+2]);
+	    fe->brushes[i] = CreateSolidBrush(fe->colours[i]);
+	    if (!fe->brushes[i])
+		MessageBox(fe->hwnd, "ooh", "eck", MB_OK);
+	    fe->pens[i] = CreatePen(PS_SOLID, 1, fe->colours[i]);
+	}
+    }
+
+    r.left = r.top = 0;
+    r.right = x;
+    r.bottom = y;
+    AdjustWindowRectEx(&r, WS_OVERLAPPEDWINDOW &~
+		       (WS_THICKFRAME | WS_MAXIMIZEBOX | WS_OVERLAPPED),
+		       FALSE, 0);
+
+    fe->hwnd = CreateWindowEx(0, "puzzle", "puzzle",
+			      WS_OVERLAPPEDWINDOW &~
+			      (WS_THICKFRAME | WS_MAXIMIZEBOX),
+			      CW_USEDEFAULT, CW_USEDEFAULT,
+			      r.right - r.left, r.bottom - r.top,
+			      NULL, NULL, inst, NULL);
+
+    hdc = GetDC(fe->hwnd);
+    fe->bitmap = CreateCompatibleBitmap(hdc, x, y);
+    ReleaseDC(fe->hwnd, hdc);
+
+    SetWindowLong(fe->hwnd, GWL_USERDATA, (LONG)fe);
+
+    ShowWindow(fe->hwnd, SW_NORMAL);
+    SetForegroundWindow(fe->hwnd);
+
+    midend_redraw(fe->me);
+
+    return fe;
+}
+
+static LRESULT CALLBACK WndProc(HWND hwnd, UINT message,
+				WPARAM wParam, LPARAM lParam)
+{
+    frontend *fe = (frontend *)GetWindowLong(hwnd, GWL_USERDATA);
+
+    switch (message) {
+      case WM_CLOSE:
+	DestroyWindow(hwnd);
+	return 0;
+      case WM_DESTROY:
+	PostQuitMessage(0);
+	return 0;
+      case WM_PAINT:
+	{
+	    PAINTSTRUCT p;
+	    HDC hdc, hdc2;
+	    HBITMAP prevbm;
+
+	    hdc = BeginPaint(hwnd, &p);
+	    hdc2 = CreateCompatibleDC(hdc);
+	    prevbm = SelectObject(hdc2, fe->bitmap);
+	    BitBlt(hdc,
+		   p.rcPaint.left, p.rcPaint.top,
+		   p.rcPaint.right - p.rcPaint.left,
+		   p.rcPaint.bottom - p.rcPaint.top,
+		   hdc2,
+		   p.rcPaint.left, p.rcPaint.top,
+		   SRCCOPY);
+	    SelectObject(hdc2, prevbm);
+	    DeleteDC(hdc2);
+	    EndPaint(hwnd, &p);
+	}
+	return 0;
+      case WM_KEYDOWN:
+	{
+	    int key = -1;
+
+	    switch (wParam) {
+	      case VK_LEFT: key = CURSOR_LEFT; break;
+	      case VK_RIGHT: key = CURSOR_RIGHT; break;
+	      case VK_UP: key = CURSOR_UP; break;
+	      case VK_DOWN: key = CURSOR_DOWN; break;
+	    }
+
+	    if (key != -1) {
+		if (!midend_process_key(fe->me, -1, -1, key))
+		    PostQuitMessage(0);
+	    }
+	}
+	break;
+      case WM_LBUTTONDOWN:
+      case WM_RBUTTONDOWN:
+      case WM_MBUTTONDOWN:
+	if (!midend_process_key(fe->me, LOWORD(lParam), HIWORD(lParam),
+				(message == WM_LBUTTONDOWN ? LEFT_BUTTON :
+				 message == WM_RBUTTONDOWN ? RIGHT_BUTTON :
+				 MIDDLE_BUTTON)))
+	    PostQuitMessage(0);
+	
+	break;
+      case WM_CHAR:
+	if (!midend_process_key(fe->me, -1, -1, (unsigned char)wParam))
+	    PostQuitMessage(0);
+	return 0;
+      case WM_TIMER:
+	if (fe->timer)
+	    midend_timer(fe->me, (float)0.02);
+	return 0;
+    }
+
+    return DefWindowProc(hwnd, message, wParam, lParam);
+}
+
+int WINAPI WinMain(HINSTANCE inst, HINSTANCE prev, LPSTR cmdline, int show)
+{
+    MSG msg;
+
+    srand(time(NULL));
+
+    if (!prev) {
+	WNDCLASS wndclass;
+
+	wndclass.style = 0;
+	wndclass.lpfnWndProc = WndProc;
+	wndclass.cbClsExtra = 0;
+	wndclass.cbWndExtra = 0;
+	wndclass.hInstance = inst;
+	wndclass.hIcon = LoadIcon(inst, IDI_APPLICATION);
+	wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
+	wndclass.hbrBackground = NULL;
+	wndclass.lpszMenuName = NULL;
+	wndclass.lpszClassName = "puzzle";
+
+	RegisterClass(&wndclass);
+    }
+
+    new_window(inst);
+
+    while (GetMessage(&msg, NULL, 0, 0)) {
+	TranslateMessage(&msg);
+	DispatchMessage(&msg);
+    }
+
+    return msg.wParam;
+}