ref: c866e24f9a39e015071cd27311b557fb0ef43b41
parent: 786b24afc17fbeec6c28544e9145874d992a6d87
author: Simon Tatham <anakin@pobox.com>
date: Tue Apr 27 16:51:08 EDT 2004
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]
--- a/Recipe
+++ b/Recipe
@@ -9,8 +9,9 @@
!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
@@ -17,5 +18,5 @@
net : [X] gtk COMMON NET
cube : [X] gtk COMMON cube
-#net : [G] windows COMMON NET
-#cube : [G] windows COMMON cube
+net : [G] WINDOWS COMMON NET
+cube : [G] WINDOWS COMMON cube
--- a/puzzles.h
+++ b/puzzles.h
@@ -24,7 +24,7 @@
CURSOR_RIGHT
};
-#define IGNORE(x) ( (x) = (x) )
+#define IGNOREARG(x) ( (x) = (x) )
typedef struct frontend frontend;
typedef struct midend_data midend_data;
--- a/windows.c
+++ b/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;
+}