1.45a Pico win32, code move
[picodrive.git] / platform / win32 / GenaDrive / Main.cpp
index bea2317..d546660 100644 (file)
@@ -2,6 +2,8 @@
 #include "version.h"\r
 #include <crtdbg.h>\r
 #include <commdlg.h>\r
+#include "../../common/readpng.h"\r
+#include "../../common/config.h"\r
 \r
 char *romname=NULL;\r
 HWND FrameWnd=NULL;\r
@@ -11,8 +13,12 @@ static HWND PicoSwWnd=NULL, PicoPadWnd=NULL;
 \r
 int MainWidth=720,MainHeight=480;\r
 \r
-static HMENU mdisplay = 0, mpicohw = 0;\r
+static HMENU mmain = 0, mdisplay = 0, mpicohw = 0;\r
 static int rom_loaded = 0;\r
+static HBITMAP ppad_bmp = 0;\r
+static HBITMAP ppage_bmps[7] = { 0, };\r
+static char rom_name[0x20*3+1];\r
+static int main_wnd_as_pad = 0;\r
 \r
 static void UpdateRect()\r
 {\r
@@ -23,6 +29,142 @@ static void UpdateRect()
   FrameRectMy = wi.rcClient;\r
 }\r
 \r
+static int extract_rom_name(char *dest, const unsigned char *src, int len)\r
+{\r
+       char *p = dest, s_old = 0x20;\r
+       int i;\r
+\r
+       for (i = len - 1; i >= 0; i--)\r
+       {\r
+               if (src[i^1] != ' ') break;\r
+       }\r
+       len = i + 1;\r
+\r
+       for (i = 0; i < len; i++)\r
+       {\r
+               unsigned char s = src[i^1];\r
+               if (s == 0x20 && s_old == 0x20) continue;\r
+               else if (s >= 0x20 && s < 0x7f && s != '%')\r
+               {\r
+                       *p++ = s;\r
+               }\r
+               else\r
+               {\r
+                       sprintf(p, "%%%02x", s);\r
+                       p += 3;\r
+               }\r
+               s_old = s;\r
+       }\r
+       *p = 0;\r
+\r
+       return p - dest;\r
+}\r
+\r
+static void check_name_alias(const char *afname)\r
+{\r
+  char buff[256], *var, *val;\r
+  FILE *f;\r
+  int ret;\r
+\r
+  f = fopen(afname, "r");\r
+  if (f == NULL) return;\r
+\r
+  while (1)\r
+  {\r
+    ret = config_get_var_val(f, buff, sizeof(buff), &var, &val);\r
+    if (ret ==  0) break;\r
+    if (ret == -1) continue;\r
+\r
+    if (strcmp(rom_name, var) == 0) {\r
+      lprintf("rom aliased: \"%s\" -> \"%s\"\n", rom_name, val);\r
+      strncpy(rom_name, val, sizeof(rom_name));\r
+      break;\r
+    }\r
+  }\r
+  fclose(f);\r
+}\r
+\r
+static HBITMAP png2hb(const char *fname, int is_480)\r
+{\r
+  BITMAPINFOHEADER bih;\r
+  HBITMAP bmp;\r
+  void *bmem;\r
+  int ret;\r
+\r
+  bmem = calloc(1, is_480 ? 480*240*3 : 320*240*3);\r
+  if (bmem == NULL) return NULL;\r
+  ret = readpng(bmem, fname, is_480 ? READPNG_480_24 : READPNG_320_24);\r
+  if (ret != 0) {\r
+    free(bmem);\r
+    return NULL;\r
+  }\r
+\r
+  memset(&bih, 0, sizeof(bih));\r
+  bih.biSize = sizeof(bih);\r
+  bih.biWidth = is_480 ? 480 : 320;\r
+  bih.biHeight = -240;\r
+  bih.biPlanes = 1;\r
+  bih.biBitCount = 24;\r
+  bih.biCompression = BI_RGB;\r
+  bmp = CreateDIBitmap(GetDC(FrameWnd), &bih, CBM_INIT, bmem, (BITMAPINFO *)&bih, 0);\r
+  if (bmp == NULL)\r
+    lprintf("CreateDIBitmap failed with %i", GetLastError());\r
+\r
+  free(bmem);\r
+  return bmp;\r
+}\r
+\r
+static void PrepareForROM(void)\r
+{\r
+  unsigned char *rom_data = NULL;\r
+  int i, ret, show = PicoAHW & PAHW_PICO;\r
+  \r
+  PicoGetInternal(PI_ROM, (pint_ret_t *) &rom_data);\r
+  EnableMenuItem(mmain, 2, MF_BYPOSITION|(show ? MF_ENABLED : MF_GRAYED));\r
+  ShowWindow(PicoPadWnd, show ? SW_SHOWNA : SW_HIDE);\r
+  ShowWindow(PicoSwWnd, show ? SW_SHOWNA : SW_HIDE);\r
+  CheckMenuItem(mpicohw, 1210, show ? MF_CHECKED : MF_UNCHECKED);\r
+  CheckMenuItem(mpicohw, 1211, show ? MF_CHECKED : MF_UNCHECKED);\r
+  PostMessage(FrameWnd, WM_COMMAND, 1220 + PicoPicohw.page, 0);\r
+  DrawMenuBar(FrameWnd);\r
+  InvalidateRect(PicoSwWnd, NULL, 1);\r
+\r
+  PicoPicohw.pen_pos[0] =\r
+  PicoPicohw.pen_pos[1] = 0x8000;\r
+  PicoPadAdd = 0;\r
+\r
+  ret = extract_rom_name(rom_name, rom_data + 0x150, 0x20);\r
+  if (ret == 0)\r
+    extract_rom_name(rom_name, rom_data + 0x130, 0x20);\r
+\r
+  if (show)\r
+  {\r
+    char path[MAX_PATH], *p;\r
+    GetModuleFileName(NULL, path, sizeof(path) - 32);\r
+    p = strrchr(path, '\\');\r
+    if (p == NULL) p = path;\r
+    else p++;\r
+    if (ppad_bmp == NULL) {\r
+      strcpy(p, "pico\\pad.png");\r
+      ppad_bmp = png2hb(path, 0);\r
+    }\r
+\r
+    strcpy(p, "pico\\alias.txt");\r
+    check_name_alias(path);\r
+\r
+    for (i = 0; i < 7; i++) {\r
+      if (ppage_bmps[i] != NULL) DeleteObject(ppage_bmps[i]);\r
+      sprintf(p, "pico\\%s_%i.png", rom_name, i);\r
+      ppage_bmps[i] = png2hb(path, 1);\r
+    }\r
+    // games usually don't have page 6, so just duplicate page 5.\r
+    if (ppage_bmps[6] == NULL && ppage_bmps[5] != NULL) {\r
+      sprintf(p, "pico\\%s_5.png", rom_name);\r
+      ppage_bmps[6] = png2hb(path, 1);\r
+    }\r
+  }\r
+}\r
+\r
 static void LoadROM(const char *cmdpath)\r
 {\r
   static char rompath[MAX_PATH] = { 0, };\r
@@ -67,6 +209,8 @@ static void LoadROM(const char *cmdpath)
   PicoCartUnload();\r
   PicoCartInsert(rom_data_new, rom_size);\r
 \r
+  PrepareForROM();\r
+\r
   rom_loaded = 1;\r
   romname = rompath;\r
   LoopWait=0;\r
@@ -78,6 +222,8 @@ static int rect_heights[4] = { 224, 224, 448, 448 };
 // Window proc for the frame window:\r
 static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)\r
 {\r
+  POINT pt;\r
+  RECT rc;\r
   int i;\r
   switch (msg)\r
   {\r
@@ -121,6 +267,10 @@ static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)
           ShowWindow((LOWORD(wparam)&1) ? PicoPadWnd : PicoSwWnd, i ? SW_SHOWNA : SW_HIDE);\r
           CheckMenuItem(mpicohw, LOWORD(wparam), i ? MF_CHECKED : MF_UNCHECKED);\r
           return 0;\r
+        case 1212:\r
+          main_wnd_as_pad = !main_wnd_as_pad;\r
+          CheckMenuItem(mpicohw, 1212, main_wnd_as_pad ? MF_CHECKED : MF_UNCHECKED);\r
+          return 0;\r
         case 1220:\r
         case 1221:\r
         case 1222:\r
@@ -132,6 +282,7 @@ static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)
           for (i = 0; i < 7; i++)\r
             CheckMenuItem(mpicohw, 1220 + i, MF_UNCHECKED);\r
           CheckMenuItem(mpicohw, 1220 + PicoPicohw.page, MF_CHECKED);\r
+          InvalidateRect(PicoSwWnd, NULL, 1);\r
           return 0;\r
         case 1300:\r
           MessageBox(FrameWnd, "PicoDrive v" VERSION " (c) notaz, 2006-2008\n"\r
@@ -148,17 +299,88 @@ static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)
           return 0;\r
       }\r
       break;\r
+    case WM_TIMER:\r
+      GetCursorPos(&pt);\r
+      GetWindowRect(PicoSwWnd, &rc);\r
+      if (PtInRect(&rc, pt)) break;\r
+      GetWindowRect(PicoPadWnd, &rc);\r
+      if (PtInRect(&rc, pt)) break;\r
+      PicoPicohw.pen_pos[0] |= 0x8000;\r
+      PicoPicohw.pen_pos[1] |= 0x8000;\r
+      PicoPadAdd = 0;\r
+      break;\r
+    case WM_LBUTTONDOWN: PicoPadAdd |=  0x20; return 0;\r
+    case WM_LBUTTONUP:   PicoPadAdd &= ~0x20; return 0;\r
+    case WM_MOUSEMOVE:\r
+      if (!main_wnd_as_pad) break;\r
+      PicoPicohw.pen_pos[0] = 0x03c + (320 * LOWORD(lparam) / (FrameRectMy.right - FrameRectMy.left));\r
+      PicoPicohw.pen_pos[1] = 0x1fc + (232 * HIWORD(lparam) / (FrameRectMy.bottom - FrameRectMy.top));\r
+      SetTimer(FrameWnd, 100, 1000, NULL);\r
+      break;\r
   }\r
 \r
   return DefWindowProc(hwnd,msg,wparam,lparam);\r
 }\r
 \r
+static void key_down(WPARAM key)\r
+{\r
+  switch (key) {\r
+    case VK_LEFT:  PicoPadAdd |=    4; break;\r
+    case VK_RIGHT: PicoPadAdd |=    8; break;\r
+    case VK_UP:    PicoPadAdd |=    1; break;\r
+    case VK_DOWN:  PicoPadAdd |=    2; break;\r
+    case 'X':      PicoPadAdd |= 0x10; break;\r
+  }\r
+}\r
+\r
+static void key_up(WPARAM key)\r
+{\r
+  switch (key) {\r
+    case VK_LEFT:  PicoPadAdd &= ~0x04; break;\r
+    case VK_RIGHT: PicoPadAdd &= ~0x08; break;\r
+    case VK_UP:    PicoPadAdd &= ~0x01; break;\r
+    case VK_DOWN:  PicoPadAdd &= ~0x02; break;\r
+    case 'X':      PicoPadAdd &= ~0x10; break;\r
+  }\r
+}\r
+\r
 static LRESULT CALLBACK PicoSwWndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)\r
 {\r
+  PAINTSTRUCT ps;\r
+  HDC hdc, hdc2;\r
+\r
   switch (msg)\r
   {\r
-    case WM_CLOSE: return 0;\r
     case WM_DESTROY: PicoSwWnd=NULL; break;\r
+    case WM_LBUTTONDOWN: PicoPadAdd |=  0x20; return 0;\r
+    case WM_LBUTTONUP:   PicoPadAdd &= ~0x20; return 0;\r
+    case WM_MOUSEMOVE:\r
+      if (HIWORD(lparam) < 0x20) break;\r
+      PicoPicohw.pen_pos[0] = 0x03c + LOWORD(lparam) * 2/3;\r
+      PicoPicohw.pen_pos[1] = 0x2f8 + HIWORD(lparam) - 0x20;\r
+      SetTimer(FrameWnd, 100, 1000, NULL);\r
+      break;\r
+    case WM_KEYDOWN: key_down(wparam); break;\r
+    case WM_KEYUP:   key_up(wparam);   break;\r
+    case WM_PAINT:\r
+      hdc = BeginPaint(hwnd, &ps);\r
+      if (ppage_bmps[PicoPicohw.page] == NULL)\r
+      {\r
+        SelectObject(hdc, GetStockObject(DEFAULT_GUI_FONT));\r
+        SetTextColor(hdc, RGB(255, 255, 255));\r
+        SetBkColor(hdc, RGB(0, 0, 0));\r
+        TextOut(hdc, 2,  2, "missing PNGs for", 16);\r
+        TextOut(hdc, 2, 18, rom_name, strlen(rom_name));\r
+      }\r
+      else\r
+      {\r
+        hdc2 = CreateCompatibleDC(GetDC(FrameWnd));\r
+        SelectObject(hdc2, ppage_bmps[PicoPicohw.page]);\r
+        BitBlt(hdc, 0, 0, 480, 240, hdc2, 0, 0, SRCCOPY);\r
+        DeleteDC(hdc2);\r
+      }\r
+      EndPaint(hwnd, &ps);\r
+      return 0;\r
   }\r
 \r
   return DefWindowProc(hwnd,msg,wparam,lparam);\r
@@ -166,10 +388,30 @@ static LRESULT CALLBACK PicoSwWndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lp
 \r
 static LRESULT CALLBACK PicoPadWndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)\r
 {\r
+  PAINTSTRUCT ps;\r
+  HDC hdc, hdc2;\r
+\r
   switch (msg)\r
   {\r
-    case WM_CLOSE: return 0;\r
     case WM_DESTROY: PicoPadWnd=NULL; break;\r
+    case WM_LBUTTONDOWN: PicoPadAdd |=  0x20; return 0;\r
+    case WM_LBUTTONUP:   PicoPadAdd &= ~0x20; return 0;\r
+    case WM_MOUSEMOVE:\r
+      PicoPicohw.pen_pos[0] = 0x03c + LOWORD(lparam);\r
+      PicoPicohw.pen_pos[1] = 0x1fc + HIWORD(lparam);\r
+      SetTimer(FrameWnd, 100, 1000, NULL);\r
+      break;\r
+    case WM_KEYDOWN: key_down(wparam); break;\r
+    case WM_KEYUP:   key_up(wparam);   break;\r
+    case WM_PAINT:\r
+      if (ppad_bmp == NULL) break;\r
+      hdc = BeginPaint(hwnd, &ps);\r
+      hdc2 = CreateCompatibleDC(GetDC(FrameWnd));\r
+      SelectObject(hdc2, ppad_bmp);\r
+      BitBlt(hdc, 0, 0, 320, 240, hdc2, 0, 0, SRCCOPY);\r
+      EndPaint(hwnd, &ps);\r
+      DeleteDC(hdc2);\r
+      return 0;\r
   }\r
 \r
   return DefWindowProc(hwnd,msg,wparam,lparam);\r
@@ -180,7 +422,7 @@ static int FrameInit()
 {\r
   WNDCLASS wc;\r
   RECT rect={0,0,0,0};\r
-  HMENU mmain, mfile;\r
+  HMENU mfile;\r
   int style=0;\r
   int left=0,top=0,width=0,height=0;\r
 \r
@@ -233,6 +475,7 @@ static int FrameInit()
   mpicohw = CreateMenu();\r
   InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1210, "Show &Storyware");\r
   InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1211, "Show &Drawing pad");\r
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1212, "&Main window as pad");\r
   InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_SEPARATOR, 0, NULL);\r
   InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1220, "Title page (&0)");\r
   InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1221, "Page &1");\r
@@ -245,6 +488,7 @@ static int FrameInit()
   InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING|MF_POPUP, (UINT_PTR) mfile,    "&File");\r
   InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING|MF_POPUP, (UINT_PTR) mdisplay, "&Display");\r
   InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING|MF_POPUP, (UINT_PTR) mpicohw,  "&Pico");\r
+  EnableMenuItem(mmain, 2, MF_BYPOSITION|MF_GRAYED);\r
 //  InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING|MF_POPUP, 1200, "&Config");\r
   InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING, 1300, "&About");\r
 \r
@@ -269,7 +513,7 @@ static int FrameInit()
 \r
   left += 326;\r
   PicoSwWnd=CreateWindow("PicoSwWnd","Storyware",style,\r
-    left,top,width,height,FrameWnd,NULL,NULL,NULL);\r
+    left,top,width+160,height,FrameWnd,NULL,NULL,NULL);\r
 \r
   top += 266;\r
   PicoPadWnd=CreateWindow("PicoPadWnd","Drawing Pad",style,\r