/*[]=====================================================================[]*/
/*[]     LeadTools Run Time Library - Version 14                         []*/
/*[]                                                                     []*/
/*[]                                                                     []*/
/*[]     Copyright (c) 1991-2004 LEAD Technologies, Inc.                 []*/
/*[]     All Rights Reserved.                                            []*/
/*[]=====================================================================[]*/

#include "ImgPF.h"

static L_BOOL PerlinDlg_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify);
static L_BOOL PerlinDlg_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_BOOL PerlinDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_VOID PerlinDlg_OnTimer      (HWND hWnd, L_INT nID);
static L_BOOL PerlinDlg_OnPaint      (HWND hWnd);
static L_VOID L_ApplyFilter           (HWND hWnd);

L_BOOL CALLBACK PerlinDlgProc (HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG (hWnd, WM_COMMAND,    PerlinDlg_OnCommand);
      HANDLE_MSG (hWnd, WM_INITDIALOG, PerlinDlg_OnInitDialog);
      HANDLE_MSG (hWnd, WM_HSCROLL,    PerlinDlg_OnHScroll);
      HANDLE_MSG (hWnd, WM_PAINT,      PerlinDlg_OnPaint);
      HANDLE_MSG (hWnd, WM_TIMER,      PerlinDlg_OnTimer);

   case WM_USER_UPDATEVIEW:
      StatusProc.ProgressValue = 100;
      L_ApplyFilter (hWnd);
      break;
   }
   return FALSE;
}


static LRESULT CALLBACK Mouse(L_INT nCode, WPARAM wParam, LPARAM lParam) 
{
   LPPRLNDLGDATA      pPrlnDlgData;
   LPMOUSEHOOKSTRUCT pMouseHook;
   HWND              hWndParent;
   pCHILDDATA        pData;
   RECT              rcRect;
   POINT             TmpPoint;
   DWORD             dwStyle;   
   
   hWndParent   = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData        = LOCKCHILDDATA (hWndParent);
   pPrlnDlgData = (LPPRLNDLGDATA)GetWindowLong(hGlobalWnd, GWL_USERDATA);
   pMouseHook   = (LPMOUSEHOOKSTRUCT)lParam;

   GetWindowRect(hGlobalWnd, &rcRect);
   if (PtInRect(&rcRect, pMouseHook->pt))
      return 0;

   switch(LOWORD(wParam))
   {
   case WM_NCMOUSEMOVE:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pPrlnDlgData->bPushed) 
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hGlobalWnd, &rcRect);
         if (!PtInRect(&rcRect, pMouseHook->pt))
            SendMessage((hWndParent), WM_MOUSEMOVE, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;

   case WM_NCLBUTTONDOWN:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pPrlnDlgData->bPushed)
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hWndParent, &rcRect);
         if (PtInRect(&pData->rcView, pMouseHook->pt))
         {
            if (L_BitmapHasRgn(&pData->LeadBitmap))
            {
               L_GetBitmapRgnBounds(&pData->LeadBitmap, NULL, &rcRect);
               TmpPoint.x = pMouseHook->pt.x + pData->nHScrollPos;
               TmpPoint.y = pMouseHook->pt.y + pData->nVScrollPos;
               if (!PtInRect(&rcRect, TmpPoint))
                  return CallNextHookEx(pPrlnDlgData->hMouseHook , nCode, wParam, lParam); 
            }

            pData->ptCenter.x = pPrlnDlgData->ptCenter.x = pMouseHook->pt.x + pData->nHScrollPos;
            pData->ptCenter.y = pPrlnDlgData->ptCenter.y = pMouseHook->pt.y + pData->nVScrollPos;
            
            SetDlgItemInt(hGlobalWnd, IDC_PRLN_X_EDT, pPrlnDlgData->ptCenter.x, TRUE);
            SetDlgItemInt(hGlobalWnd, IDC_PRLN_Y_EDT, pPrlnDlgData->ptCenter.y, TRUE);
            InvalidateRect(hWndParent, NULL, FALSE);
            L_ApplyFilter (hGlobalWnd);
            PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
         }
         else
         {
            PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_ARROW);
         }
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         SendMessage(hWndParent, WM_LBUTTONDOWN, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;

   case WM_NCLBUTTONUP:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pPrlnDlgData->bPushed)
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hGlobalWnd, &rcRect);
         if (!PtInRect(&rcRect, pMouseHook->pt))
            SendMessage(hWndParent, WM_LBUTTONUP, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;
   }

   if (pPrlnDlgData)
   {
      if (LOWORD(wParam) >= WM_NCMOUSEMOVE && LOWORD(wParam) <= WM_NCMBUTTONDBLCLK)
         return TRUE;
      else
         return CallNextHookEx(pPrlnDlgData->hMouseHook , nCode, wParam, lParam); 
   }
   else
      return FALSE;
}

static L_BOOL PerlinDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam)
{
   LPPRLNDLGDATA pPrlnDlgData;
   HWND         hWndParent;
   pCHILDDATA   pData;
   RECT         rcRgn;
   L_INT        nSlider;
   L_INT        nRangeMax[] = {16, 8, 100, 0, 0, 100, 100};
   L_INT        nRangeMin[] = { 1, 1,   0, 0, 0,   0,   0};
   L_INT        nPosInit [] = { 8, 4,   0, 0, 0,   0,   0};
   
   hWndParent    = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData         = LOCKCHILDDATA (hWndParent);
   pPrlnDlgData   = (LPPRLNDLGDATA)lParam;
   hGlobalWnd    = hWnd;
   pData->bCross = TRUE;
   MoveDialogToMiddle(hWnd);

   SetWindowLong(hWnd, GWL_USERDATA, (LONG)pPrlnDlgData);

   //MEMDISK...//
   MemorizeAndCopyBitmap (hWndParent, &pPrlnDlgData->LeadBitmap);
   L_GetBitmapRgnBounds(&pPrlnDlgData->LeadBitmap, NULL, &rcRgn);

   nRangeMax[3] = RECTWIDTH(&rcRgn);
   nRangeMax[4] = RECTHEIGHT(&rcRgn);

   nPosInit[3]  = (rcRgn.right + rcRgn.left) / 2;
   nPosInit[4]  = (rcRgn.bottom + rcRgn.top) / 2;

   Progress_SetRange(StatusProc.ProgWnd, 0, 100);
   Progress_SetPos(StatusProc.ProgWnd, 0);
   StatusProc.bProgress     = TRUE;
   StatusProc.bInvalidate   = FALSE;
   StatusProc.bEnd          = FALSE;
   StatusProc.DlgWnd        = hWnd;
   StatusProc.ProgressValue = 100;
   StatusProc.ProgWnd       = GetDlgItem(hWnd, IDC_PRLN_PROG);

   pPrlnDlgData->uView      = 2;
   pPrlnDlgData->uLayout    = 0;
   pPrlnDlgData->ptCenter.x = pData->ptCenter.x = (rcRgn.right + rcRgn.left) / 2;
   pPrlnDlgData->ptCenter.y = pData->ptCenter.y = (rcRgn.bottom + rcRgn.top) / 2;
   pPrlnDlgData->uSeed      = 0;
   pPrlnDlgData->nSlideNum  = 7;
   pPrlnDlgData->nSldBaseID = IDC_PRLN_FRQ_SLD;
   pPrlnDlgData->nEdtBaseID = IDC_PRLN_FRQ_EDT;
   pPrlnDlgData->crBackgroundColor = 0;
   pPrlnDlgData->crForegroundColor = RGB(255, 255, 255);
   pPrlnDlgData->uDensityLayout = 50;
   pPrlnDlgData->uFrequencyLayout = 50;
   pPrlnDlgData->uOpacity = 50;
   pPrlnDlgData->uIteration = 4;
   pPrlnDlgData->uFrequency = 8;

   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_VEW_COM), TEXT("Pure"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_VEW_COM), TEXT("Combine"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_VEW_COM), TEXT("Difference"));
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_PRLN_VEW_COM), 2); 

   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_LAY_COM), TEXT("Circle"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_LAY_COM), TEXT("Line"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_PRLN_LAY_COM), TEXT("Random"));
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_PRLN_LAY_COM), 0); 

   for (nSlider = 0; nSlider < pPrlnDlgData->nSlideNum; nSlider++)
   {
      Trackbar_SetRange(GetDlgItem(hWnd, pPrlnDlgData->nSldBaseID + nSlider), TRUE, nRangeMin[nSlider], nRangeMax[nSlider]);
      SetDlgItemInt(hWnd, pPrlnDlgData->nEdtBaseID + nSlider, (nRangeMax[nSlider] + nRangeMin[nSlider]) / 2, TRUE);
      SetNumericEditBox(GetDlgItem(hWnd, pPrlnDlgData->nEdtBaseID + nSlider), nRangeMin[nSlider], nRangeMax[nSlider], 1, 0, 0);
   }

   pPrlnDlgData->bPushed = FALSE;
   pPrlnDlgData->hIcon   = LoadIcon(hInst, MAKEINTRESOURCE(IDI_MOUSE));
   SendMessage(GetDlgItem(hWnd, IDC_PRLN_POS_BTN), BM_SETIMAGE, IMAGE_ICON, (LPARAM)(HICON)pPrlnDlgData->hIcon);
   pPrlnDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
   pData->uTimerID = SetTimer(hWnd, 1, 100, NULL);
   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   L_ApplyFilter(hWnd);
   return ( TRUE );
}

static L_VOID PerlinDlg_OnTimer (HWND hWnd, L_INT nID)
{
   Dialog_Timer(nID);
}

static L_BOOL PerlinDlg_OnPaint(HWND hWnd)
{
   HDC          hDC;
   PAINTSTRUCT  ps;
   RECT         rcRect;
   HBRUSH       hBrush;
   LPPRLNDLGDATA pPrlnDlgData;
 
   pPrlnDlgData = (LPPRLNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   GetClientRect(GetDlgItem(hWnd , IDC_PRLN_BCLR_TXT), &rcRect);
   hDC = BeginPaint(GetDlgItem(hWnd, IDC_PRLN_BCLR_TXT), &ps);
   hBrush = CreateSolidBrush(pPrlnDlgData->crBackgroundColor);
   FillRect(hDC, &rcRect, hBrush);
   DeleteBrush(hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_PRLN_FCLR_TXT), &ps);

   hDC = BeginPaint(GetDlgItem(hWnd, IDC_PRLN_FCLR_TXT), &ps);
   hBrush = CreateSolidBrush(pPrlnDlgData->crForegroundColor);
   FillRect(hDC, &rcRect, hBrush);
   DeleteBrush(hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_PRLN_FCLR_TXT), &ps);

   return FALSE;
}

static L_BOOL PerlinDlg_OnCommand (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   LPPRLNDLGDATA  pPrlnDlgData;
   HWND           hWndParent;
   HWND           hCtl;
   pCHILDDATA     pData;
   L_INT          nIndex;
   L_UINT         uValue;
   RECT           rcRgn;
   COLORREF       crColor;

   hWndParent   = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData        = LOCKCHILDDATA (hWndParent);
   pPrlnDlgData = (LPPRLNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   L_GetBitmapRgnBounds(&pPrlnDlgData->LeadBitmap, NULL, &rcRgn);

   if (nID >= pPrlnDlgData->nEdtBaseID && nID < pPrlnDlgData->nEdtBaseID + pPrlnDlgData->nSlideNum)
   {
      if(uCodeNotify == EN_CHANGE)
      {
         uValue = GetDlgItemInt(hWnd, nID, NULL, TRUE);
         hCtl   = GetDlgItem(hWnd, nID + pPrlnDlgData->nSlideNum);
         nIndex = nID - pPrlnDlgData->nEdtBaseID;
         Trackbar_SetPos(hCtl, TRUE, uValue);

         switch (nIndex)
         {
         case 0:
            if(pPrlnDlgData->uFrequency == uValue)
               return TRUE;
            pPrlnDlgData->uFrequency = uValue;
            break;
         case 1:
            if(pPrlnDlgData->uIteration == uValue)
               return TRUE;
            pPrlnDlgData->uIteration = uValue;
            break;
         case 2:
            if(pPrlnDlgData->uOpacity == uValue)
               return TRUE;
            pPrlnDlgData->uOpacity = uValue;
            break;
         case 3:
            if(pPrlnDlgData->ptCenter.x == (L_INT)uValue)
               return TRUE;
            pPrlnDlgData->ptCenter.x = uValue;
            pData->ptCenter.x = uValue;
            break;
         case 4:
            if(pPrlnDlgData->ptCenter.y == (L_INT)uValue)
               return TRUE;
            pPrlnDlgData->ptCenter.y = uValue;
            pData->ptCenter.y = uValue;
            break;
         case 5:
            if(pPrlnDlgData->uFrequencyLayout == uValue)
               return TRUE;
            pPrlnDlgData->uFrequencyLayout = uValue;
            break;
         case 6:
            if(pPrlnDlgData->uDensityLayout == uValue)
               return TRUE;
            pPrlnDlgData->uDensityLayout = uValue;
            break;

         }
         L_ApplyFilter (hWnd);
      }
   }

   switch (nID)
   {
   case IDC_PRLN_SED_BTN:
       pPrlnDlgData->uSeed = ((rand() * rand() * rand()) & 0xFFFFFFFF);
       SetDlgItemInt(hWnd, IDC_PRLN_SED_EDT, pPrlnDlgData->uSeed, FALSE);
       L_ApplyFilter(hWnd);
      break;

   case IDC_PRLN_SED_EDT:
      uValue = GetDlgItemInt(hWnd, nID, NULL, FALSE);
      if (pPrlnDlgData->uSeed == uValue)
         break;
      pPrlnDlgData->uSeed = uValue;
      L_ApplyFilter(hWnd);
      break;

   case IDC_PRLN_POS_BTN:
      pPrlnDlgData->bPushed = Button_GetCheck(hWndCtl);
      break;

   case IDC_PRLN_BCLR_BTN:
      UnhookWindowsHookEx(pPrlnDlgData->hMouseHook);
      crColor = pPrlnDlgData->crBackgroundColor;
      pPrlnDlgData->crBackgroundColor = ShowColorDialog(hWnd, crColor);
      pPrlnDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
      if (pPrlnDlgData->crBackgroundColor != crColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter (hWnd);
      }
      break;

   case IDC_PRLN_FCLR_BTN:
      UnhookWindowsHookEx(pPrlnDlgData->hMouseHook);
      crColor = pPrlnDlgData->crForegroundColor;
      pPrlnDlgData->crForegroundColor = ShowColorDialog(hWnd, crColor);
      pPrlnDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
      if (pPrlnDlgData->crForegroundColor != crColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter (hWnd);
      }
      break;

   case IDC_PRLN_VEW_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         nIndex = ComboBox_GetCurSel(hWndCtl);

         if (pPrlnDlgData->uView != (L_UINT)nIndex)
         {
            pPrlnDlgData->uView = nIndex;
            L_ApplyFilter (hWnd);
         }
      }
      break;

   case IDC_PRLN_LAY_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         nIndex = ComboBox_GetCurSel(hWndCtl);

         if (pPrlnDlgData->uLayout != (L_UINT)nIndex)
         {
            pPrlnDlgData->uLayout = nIndex;
            L_ApplyFilter (hWnd);
         }
      }
      break;

   case IDCANCEL:
      pData->bCross = FALSE;
      StatusProc.bProgress     = FALSE;
      StatusProc.bKillProgress = TRUE ;
      StatusProc.ProgressValue = 100 ;
      UnhookWindowsHookEx(pPrlnDlgData->hMouseHook);
      DestroyIcon(pPrlnDlgData->hIcon);
      EndDialog(hWnd, FALSE);
      break;
   
   case IDOK:
      pData->bCross = FALSE;
      ShowStatusWindow(FALSE);
      StatusProc.bStillWork  = TRUE;
      StatusProc.bInvalidate = TRUE;
      StatusProc.bEnd        = TRUE;
      UnhookWindowsHookEx(pPrlnDlgData->hMouseHook);
      DestroyIcon(pPrlnDlgData->hIcon);
      EndDialog(hWnd, TRUE);
      break;
   }
   return TRUE;
}

static L_BOOL PerlinDlg_OnHScroll (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos)
{
   LPPRLNDLGDATA pPrlnDlgData = (LPPRLNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   return SetDlgItemInt(hWnd, GetDlgCtrlID(hWndCtl) - pPrlnDlgData->nSlideNum , Trackbar_GetPos(hWndCtl), TRUE);
}

L_VOID L_ApplyFilter (HWND hWnd)
{
   pCHILDDATA     pData;
   L_INT          nRet = 0;
   HWND           hWndParent;
   LPPRLNDLGDATA  pPrlnDlgData;
   L_UINT         uFlags;

   if ( 100 != StatusProc.ProgressValue )
   {
      StatusProc.bKillProgress = TRUE ;
      return ;
   }

   pPrlnDlgData = (LPPRLNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   uFlags = pPrlnDlgData->uView | (pPrlnDlgData->uLayout << 4);

   hWndParent = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData = LOCKCHILDDATA (hWndParent);

   FreeMemorizedBitmap (hWndParent); //MEMDISK//
   L_CopyBitmap(&pData->LeadBitmap, &pPrlnDlgData->LeadBitmap, sizeof(BITMAPHANDLE));

   nRet = L_PerlinBitmap(&pData->LeadBitmap,
                          pPrlnDlgData->uSeed,
                          pPrlnDlgData->uFrequency,
                          pPrlnDlgData->uIteration,
                          pPrlnDlgData->uOpacity,
                          pPrlnDlgData->crBackgroundColor,
                          pPrlnDlgData->crForegroundColor,
                          pPrlnDlgData->ptCenter.x,
                          pPrlnDlgData->ptCenter.y,
                          pPrlnDlgData->uFrequencyLayout,
                          pPrlnDlgData->uDensityLayout,
                          uFlags);

   if(nRet == SUCCESS)
   {
      InvalidateRect(hWndParent, NULL, FALSE);
      StatusProc.ProgressValue = 100;
      Progress_SetPos(StatusProc.ProgWnd , 0);
      if(StatusProc.bEnd)
      {
         StatusProc.bProgress = FALSE;
         StatusProc.bKillProgress = TRUE ;
      }
   }
}