win32: add toneviewer

1 files changed, 218 insertions, 0 deletions

diff --git a/win32/toneview.c b/win32/toneview.c
new file mode 100644
index 0000000..a0a920a
--- /dev/null
+++ b/win32/toneview.c
@@ -0,0 +1,218 @@
+#include "toneview.h"
+#include <stdbool.h>
+#include <windowsx.h>
+
+enum {
+  TIMER_UPDATE = 1
+};
+
+enum {
+  ID_COPY0 = 0x10,
+  ID_COPY1,
+  ID_COPY2,
+  ID_COPY3,
+  ID_COPY4,
+  ID_COPY5,
+  ID_NORMALIZE,
+  ID_LIST,
+};
+
+struct toneview_g toneview_g = {
+  .flag = ATOMIC_FLAG_INIT
+};
+
+static struct {
+  HINSTANCE hinst;
+  HWND toneviewer;
+  HWND tonelabel[6];
+  ATOM toneviewer_class;
+  struct fmplayer_tonedata tonedata;
+  struct fmplayer_tonedata tonedata_n;
+  char strbuf[FMPLAYER_TONEDATA_STR_SIZE];
+  wchar_t strbuf_w[FMPLAYER_TONEDATA_STR_SIZE];
+  enum fmplayer_tonedata_format format;
+  bool normalize;
+  HFONT font;
+  HFONT font_mono;
+  HWND checkbox;
+  HWND formatlist;
+} g = {
+  .normalize = true
+};
+
+extern HWND g_currentdlg;
+
+static void on_destroy(HWND hwnd) {
+  for (int i = 0; i < 6; i++) {
+    DestroyWindow(g.tonelabel[i]);
+  }
+  DestroyWindow(g.checkbox);
+  DestroyWindow(g.formatlist);
+  g.toneviewer = 0;
+}
+
+enum {
+  LIST_W = 200,
+  NORMALIZE_X = 10 + LIST_W + 5,
+  NORMALIZE_W = 200,
+  TOP_H = 25,
+  TONELABEL_X = 10,
+  TONELABEL_H = 100,
+  TONELABEL_W = 300,
+  COPY_X = TONELABEL_X + TONELABEL_W + 5,
+  COPY_W = 100,
+  WIN_H = 10 + TOP_H + 5 + TONELABEL_H*6 + 5*5 + 10,
+  WIN_W = 10 + TONELABEL_W + 5 + COPY_W + 10,
+};
+
+static void on_command(HWND hwnd, int id, HWND hwnd_c, UINT code) {
+  if (code == BN_CLICKED && ((ID_COPY0 <= id) && (id <= ID_COPY5))) {
+    int i = id - ID_COPY0;
+    HGLOBAL gmem = GlobalAlloc(GMEM_MOVEABLE, FMPLAYER_TONEDATA_STR_SIZE*sizeof(wchar_t));
+    if (!gmem) return;
+    wchar_t *buf = GlobalLock(gmem);
+    GetWindowText(g.tonelabel[i], buf, FMPLAYER_TONEDATA_STR_SIZE*sizeof(wchar_t));
+    GlobalUnlock(gmem);
+    if (!OpenClipboard(hwnd)) return;
+    EmptyClipboard();
+    SetClipboardData(CF_UNICODETEXT, gmem);
+    CloseClipboard();
+  } else if (id == ID_NORMALIZE && code == BN_CLICKED) {
+    g.normalize ^= 1;
+    Button_SetCheck(hwnd_c, g.normalize);
+  } else if (id == ID_LIST && code == CBN_SELCHANGE) {
+    g.format = ComboBox_GetCurSel(g.formatlist);
+  }
+}
+
+static bool on_create(HWND hwnd, const CREATESTRUCT *cs) {
+  RECT wr;
+  wr.left = 0;
+  wr.right = WIN_W;
+  wr.top = 0;
+  wr.bottom = WIN_H;
+  DWORD style = GetWindowLongPtr(hwnd, GWL_STYLE);
+  DWORD exstyle = GetWindowLongPtr(hwnd, GWL_EXSTYLE);
+  AdjustWindowRectEx(&wr, style, 0, exstyle);
+  SetWindowPos(hwnd, HWND_TOP, 0, 0, wr.right-wr.left, wr.bottom-wr.top,
+                SWP_NOZORDER | SWP_NOMOVE);
+
+  if (!g.font_mono) {
+    g.font_mono = CreateFont(
+      16, 0, 0, 0,
+      FW_NORMAL, FALSE, FALSE, FALSE,
+      ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
+      CLEARTYPE_QUALITY, FIXED_PITCH, 0);
+  }
+
+  if (!g.font) {
+    NONCLIENTMETRICS ncm;
+    ncm.cbSize = sizeof(ncm);
+    SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(ncm), &ncm, 0);
+    g.font = CreateFontIndirect(&ncm.lfMessageFont);
+  }
+  g.formatlist = CreateWindowEx(0, L"combobox", 0,
+                                   WS_TABSTOP | WS_CHILD | WS_VISIBLE | CBS_DROPDOWNLIST,
+                                   10, 10, LIST_W, 100,
+                                   hwnd, (HMENU)ID_LIST, g.hinst, 0);
+  SetWindowFont(g.formatlist, g.font, TRUE);
+  ComboBox_AddString(g.formatlist, L"PMD");
+  ComboBox_AddString(g.formatlist, L"FMP");
+  ComboBox_SetCurSel(g.formatlist, 0);
+  g.checkbox = CreateWindowEx(0, L"button",
+                                 L"&Normalize",
+                                 WS_CHILD | WS_VISIBLE | BS_CHECKBOX | WS_TABSTOP,
+                                 NORMALIZE_X, 10, NORMALIZE_W, 25,
+                                 hwnd, (HMENU)ID_NORMALIZE, g.hinst, 0
+                                );
+  Button_SetCheck(g.checkbox, g.normalize);
+  SetWindowFont(g.checkbox, g.font, TRUE);
+  for (int i = 0; i < 6; i++) {
+    g.tonelabel[i] = CreateWindowEx(WS_EX_CLIENTEDGE, L"static",
+                                 L"@ 0\n123 123",
+                                 WS_VISIBLE | WS_CHILD,
+                                 10, 40 + (TONELABEL_H+5)*i, TONELABEL_W, TONELABEL_H,
+                                 hwnd, 0, g.hinst, 0);
+    SetWindowFont(g.tonelabel[i], g.font_mono, TRUE);
+    wchar_t text[] = L"Copy (& )";
+    text[7] = L'1' + i;
+    HWND copybutton = CreateWindowEx(0, L"button",
+                                     text,
+                                     WS_VISIBLE | WS_CHILD | WS_TABSTOP,
+                                     COPY_X, 40 + (TONELABEL_H+5)*i, 100, TONELABEL_H,
+                                     hwnd, (HMENU)(ID_COPY0+i), g.hinst, 0);
+    SetWindowFont(copybutton, g.font, TRUE);
+  }
+  ShowWindow(hwnd, SW_SHOW);
+  SetTimer(hwnd, TIMER_UPDATE, 16, 0);
+  return true;
+}
+
+static void on_timer(HWND hwnd, UINT id) {
+  if (id == TIMER_UPDATE) {
+    if (!atomic_flag_test_and_set_explicit(
+        &toneview_g.flag, memory_order_acquire)) {
+      g.tonedata = toneview_g.tonedata;
+      atomic_flag_clear_explicit(&toneview_g.flag, memory_order_release);
+    }
+    g.tonedata_n = g.tonedata;
+    for (int c = 0; c < 6; c++) {
+      if (g.normalize) {
+        tonedata_ch_normalize_tl(&g.tonedata_n.ch[c]);
+      }
+      tonedata_ch_string(g.format, g.strbuf, &g.tonedata_n.ch[c], 0);
+      for (int i = 0; i < FMPLAYER_TONEDATA_STR_SIZE; i++) {
+        g.strbuf_w[i] = g.strbuf[i];
+      }
+     // RedrawWindow(g.tonelabel[c], 0, 0, RDW_ERASE);
+      SetWindowText(g.tonelabel[c], g.strbuf_w);
+    }
+  }
+}
+
+static void on_activate(HWND hwnd, bool activate, HWND targetwnd, WINBOOL state) {
+  if (activate) g_currentdlg = hwnd;
+  else g_currentdlg = 0;
+}
+
+static LRESULT CALLBACK wndproc(
+  HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam
+) {
+  switch (msg) {
+  HANDLE_MSG(hwnd, WM_DESTROY, on_destroy);
+  HANDLE_MSG(hwnd, WM_CREATE, on_create);
+  HANDLE_MSG(hwnd, WM_TIMER, on_timer);
+  HANDLE_MSG(hwnd, WM_COMMAND, on_command);
+  HANDLE_MSG(hwnd, WM_ACTIVATE, on_activate);
+  }
+  return DefWindowProc(hwnd, msg, wParam, lParam);
+}
+
+void show_toneview(HINSTANCE hinst, HWND parent) {
+  g.hinst = hinst;
+  if (!g.toneviewer) {
+    if (!g.toneviewer_class) {
+      WNDCLASS wc = {0};
+      wc.style = CS_HREDRAW | CS_VREDRAW;
+      wc.lpfnWndProc = wndproc;
+      wc.hInstance = hinst;
+      wc.hIcon = LoadIcon(g.hinst, MAKEINTRESOURCE(1));
+      wc.hCursor = LoadCursor(NULL, IDC_ARROW);
+      wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
+      wc.lpszClassName = L"myon_fmplayer_ym2608_toneviewer";
+      g.toneviewer_class = RegisterClass(&wc);
+    }
+    if (!g.toneviewer_class) {
+      MessageBox(parent, L"Cannot register class", L"Error", MB_ICONSTOP);
+      return;
+    }
+    g.toneviewer = CreateWindowEx(0,
+                                  MAKEINTATOM(g.toneviewer_class),
+                                  L"FMPlayer Tone Viewer",
+                                  WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX,
+                                  CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+                                  parent, 0, g.hinst, 0);
+  } else {
+    SetForegroundWindow(g.toneviewer);
+  }
+}