1.45a Pico win32, code move
[picodrive.git] / platform / win32 / GenaDrive / Main.cpp
index 4fbbf02..d546660 100644 (file)
@@ -2,15 +2,23 @@
 #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
 RECT FrameRectMy;\r
 int lock_to_1_1 = 1;\r
+static HWND PicoSwWnd=NULL, PicoPadWnd=NULL;\r
 \r
 int MainWidth=720,MainHeight=480;\r
 \r
-static HMENU mdisplay = 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
@@ -21,10 +29,145 @@ 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
-  static unsigned char *rom_data = NULL;\r
   unsigned char *rom_data_new = NULL;\r
   unsigned int rom_size = 0;\r
   pm_file *rom = NULL;\r
@@ -63,10 +206,12 @@ static void LoadROM(const char *cmdpath)
   LoopWait=1;\r
   for (i = 0; LoopWaiting == 0 && i < 10; i++) Sleep(100);\r
 \r
+  PicoCartUnload();\r
   PicoCartInsert(rom_data_new, rom_size);\r
 \r
-  if (rom_data) free(rom_data);\r
-  rom_data = rom_data_new;\r
+  PrepareForROM();\r
+\r
+  rom_loaded = 1;\r
   romname = rompath;\r
   LoopWait=0;\r
 }\r
@@ -77,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
@@ -89,7 +236,8 @@ static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)
       switch (LOWORD(wparam))\r
       {\r
         case 1000: LoadROM(NULL); break;\r
-        case 1001: PostQuitMessage(0); return 0;\r
+        case 1001: PicoReset(); return 0;\r
+        case 1002: PostQuitMessage(0); return 0;\r
         case 1100:\r
         case 1101:\r
         case 1102:\r
@@ -106,37 +254,175 @@ static LRESULT CALLBACK WndProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam)
             lock_to_1_1=0;\r
             CheckMenuItem(mdisplay, 1104, MF_UNCHECKED);\r
           }\r
-          LoopWait=0;\r
+          if (rom_loaded) LoopWait=0;\r
           return 0;\r
         case 1104:\r
           lock_to_1_1=!lock_to_1_1;\r
           CheckMenuItem(mdisplay, 1104, lock_to_1_1 ? MF_CHECKED : MF_UNCHECKED);\r
           return 0;\r
-        case 1200: break;\r
+        case 1210:\r
+        case 1211:\r
+          i = IsWindowVisible((LOWORD(wparam)&1) ? PicoPadWnd : PicoSwWnd);\r
+          i = !i;\r
+          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
+        case 1223:\r
+        case 1224:\r
+        case 1225:\r
+        case 1226:\r
+          PicoPicohw.page = LOWORD(wparam) % 10;\r
+          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
-              "SVP demo edition\n\n"\r
+              "SVP and Pico demo edition\n\n"\r
               "Credits:\n"\r
               "fDave: base code of PicoDrive, GenaDrive (the frontend)\n"\r
               "Chui: Fame/C\n"\r
               "NJ: CZ80\n"\r
               "MAME devs: YM2612 and SN76496 cores\n"\r
               "Stéphane Dallongeville: Gens code, base of Fame/C (C68K), CZ80\n"\r
-              "Tasco Deluxe: SVP RE work\n",\r
+              "Tasco Deluxe: SVP RE work\n"\r
+              "Pierpaolo Prazzoli: info about SSP16 chips\n",\r
               "About", 0);\r
           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_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
+}\r
+\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_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
 }\r
 \r
+\r
 static int FrameInit()\r
 {\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
@@ -147,7 +433,15 @@ static int FrameInit()
   wc.hInstance=GetModuleHandle(NULL);\r
   wc.hCursor=LoadCursor(NULL,IDC_ARROW);\r
   wc.hbrBackground=CreateSolidBrush(0);\r
-  wc.lpszClassName="MainFrame";\r
+  wc.lpszClassName="PicoMainFrame";\r
+  RegisterClass(&wc);\r
+\r
+  wc.lpszClassName="PicoSwWnd";\r
+  wc.lpfnWndProc=PicoSwWndProc;\r
+  RegisterClass(&wc);\r
+\r
+  wc.lpszClassName="PicoPadWnd";\r
+  wc.lpfnWndProc=PicoPadWndProc;\r
   RegisterClass(&wc);\r
 \r
   rect.right =320;//MainWidth;\r
@@ -170,21 +464,36 @@ static int FrameInit()
   // Create menu:\r
   mfile = CreateMenu();\r
   InsertMenu(mfile, -1, MF_BYPOSITION|MF_STRING, 1000, "&Load ROM");\r
-  InsertMenu(mfile, -1, MF_BYPOSITION|MF_STRING, 1001, "E&xit");\r
+  InsertMenu(mfile, -1, MF_BYPOSITION|MF_STRING, 1001, "&Reset");\r
+  InsertMenu(mfile, -1, MF_BYPOSITION|MF_STRING, 1002, "E&xit");\r
   mdisplay = CreateMenu();\r
   InsertMenu(mdisplay, -1, MF_BYPOSITION|MF_STRING, 1100, "320x224");\r
   InsertMenu(mdisplay, -1, MF_BYPOSITION|MF_STRING, 1101, "256x224");\r
   InsertMenu(mdisplay, -1, MF_BYPOSITION|MF_STRING, 1102, "640x448");\r
   InsertMenu(mdisplay, -1, MF_BYPOSITION|MF_STRING, 1103, "512x448");\r
   InsertMenu(mdisplay, -1, MF_BYPOSITION|MF_STRING, 1104, "Lock to 1:1");\r
+  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
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1222, "Page &2");\r
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1223, "Page &3");\r
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1224, "Page &4");\r
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1225, "Page &5");\r
+  InsertMenu(mpicohw, -1, MF_BYPOSITION|MF_STRING, 1226, "Page &6");\r
   mmain = CreateMenu();\r
-  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) 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|MF_POPUP, 1300, "&About");\r
+  InsertMenu(mmain, -1, MF_BYPOSITION|MF_STRING, 1300, "&About");\r
 \r
   // Create the window:\r
-  FrameWnd=CreateWindow(wc.lpszClassName,"PicoDrive " VERSION,style|WS_VISIBLE,\r
+  FrameWnd=CreateWindow("PicoMainFrame","PicoDrive " VERSION,style|WS_VISIBLE,\r
     left,top,width,height,NULL,mmain,NULL,NULL);\r
 \r
   CheckMenuItem(mdisplay, 1104, lock_to_1_1 ? MF_CHECKED : MF_UNCHECKED);\r
@@ -192,6 +501,24 @@ static int FrameInit()
   UpdateWindow(FrameWnd);\r
   UpdateRect();\r
 \r
+  // create Pico windows\r
+  style = WS_OVERLAPPED|WS_CAPTION|WS_BORDER;\r
+  rect.left=rect.top=0;\r
+  rect.right =320;\r
+  rect.bottom=224;\r
+\r
+  AdjustWindowRect(&rect,style,1);\r
+  width =rect.right-rect.left;\r
+  height=rect.bottom-rect.top;\r
+\r
+  left += 326;\r
+  PicoSwWnd=CreateWindow("PicoSwWnd","Storyware",style,\r
+    left,top,width+160,height,FrameWnd,NULL,NULL,NULL);\r
+\r
+  top += 266;\r
+  PicoPadWnd=CreateWindow("PicoPadWnd","Drawing Pad",style,\r
+    left,top,width,height,FrameWnd,NULL,NULL,NULL);\r
+\r
   return 0;\r
 }\r
 \r