Add option -jewelled to decide which King is a Zebra XB
[xboard.git] / winboard / wevalgraph.c
1 /*\r
2  * wevalgraph.c - Evaluation graph front-end part\r
3  *\r
4  * Author: Alessandro Scotti (Dec 2005)\r
5  *\r
6  * Copyright 2005 Alessandro Scotti\r
7  *\r
8  * Enhancements Copyright 2009, 2010, 2011, 2012, 2013, 2014, 2015,\r
9  * 2016 Free Software Foundation, Inc.\r
10  *\r
11  * ------------------------------------------------------------------------\r
12  *\r
13  * GNU XBoard is free software: you can redistribute it and/or modify\r
14  * it under the terms of the GNU General Public License as published by\r
15  * the Free Software Foundation, either version 3 of the License, or (at\r
16  * your option) any later version.\r
17  *\r
18  * GNU XBoard is distributed in the hope that it will be useful, but\r
19  * WITHOUT ANY WARRANTY; without even the implied warranty of\r
20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
21  * General Public License for more details.\r
22  *\r
23  * You should have received a copy of the GNU General Public License\r
24  * along with this program. If not, see http://www.gnu.org/licenses/.  *\r
25  *\r
26  *------------------------------------------------------------------------\r
27  ** See the file ChangeLog for a revision history.  */\r
28 \r
29 // code refactored by HGM to obtain front-end / back-end separation\r
30 \r
31 #include "config.h"\r
32 \r
33 #include <windows.h>\r
34 #include <commdlg.h>\r
35 #include <dlgs.h>\r
36 #include <stdio.h>\r
37 \r
38 #include "common.h"\r
39 #include "frontend.h"\r
40 #include "backend.h"\r
41 #include "winboard.h"\r
42 #include "evalgraph.h"\r
43 #include "wsnap.h"\r
44 \r
45 #define WM_REFRESH_GRAPH    (WM_USER + 1)\r
46 \r
47 /* Module globals */\r
48 static BOOLEAN evalGraphDialogUp;\r
49 \r
50 static COLORREF crWhite = RGB( 0xFF, 0xFF, 0xB0 );\r
51 static COLORREF crBlack = RGB( 0xAD, 0x5D, 0x3D );\r
52 \r
53 static HDC hdcPB = NULL;\r
54 static HBITMAP hbmPB = NULL;\r
55 static HPEN pens[PEN_ANY+1]; // [HGM] put all pens in one array\r
56 static HBRUSH hbrHist[3] = { NULL, NULL, NULL };\r
57 \r
58 Boolean EvalGraphIsUp()\r
59 {\r
60     return evalGraphDialogUp;\r
61 }\r
62 \r
63 // [HGM] front-end, added as wrapper to avoid use of LineTo and MoveToEx in other routines (so they can be back-end) \r
64 void DrawSegment( int x, int y, int *lastX, int *lastY, int penType )\r
65 {\r
66     POINT stPt;\r
67     if(penType == PEN_NONE) MoveToEx( hdcPB, x, y, &stPt ); else {\r
68         HPEN hp = SelectObject( hdcPB, pens[penType] );\r
69         LineTo( hdcPB, x, y );\r
70         SelectObject( hdcPB, hp );\r
71     }\r
72     if(lastX != NULL) { *lastX = stPt.x; *lastY = stPt.y; }\r
73 }\r
74 \r
75 // front-end wrapper for drawing functions to do rectangles\r
76 void DrawRectangle( int left, int top, int right, int bottom, int side, int style )\r
77 {\r
78     HPEN hp = SelectObject( hdcPB, pens[PEN_BLACK] );\r
79     RECT rc;\r
80 \r
81     rc.top = top; rc.left = left; rc.bottom = bottom; rc.right = right;\r
82     if(style == FILLED)\r
83         FillRect( hdcPB, &rc, hbrHist[side] );\r
84     else {\r
85         SelectObject( hdcPB, hbrHist[side] );\r
86         Rectangle( hdcPB, left, top, right, bottom );\r
87     }\r
88     SelectObject( hdcPB, hp );\r
89 }\r
90 \r
91 // front-end wrapper for putting text in graph\r
92 void DrawEvalText(char *buf, int cbBuf, int y)\r
93 {\r
94         SIZE stSize;\r
95         SetBkMode( hdcPB, TRANSPARENT );\r
96         GetTextExtentPoint32( hdcPB, buf, cbBuf, &stSize );\r
97         TextOut( hdcPB, MarginX - stSize.cx - 2, y - stSize.cy / 2, buf, cbBuf );\r
98 }\r
99 \r
100 // front-end\r
101 static HBRUSH CreateBrush( UINT style, COLORREF color )\r
102 {\r
103     LOGBRUSH stLB;\r
104 \r
105     stLB.lbStyle = style;\r
106     stLB.lbColor = color;\r
107     stLB.lbHatch = 0;\r
108 \r
109     return CreateBrushIndirect( &stLB );\r
110 }\r
111 \r
112 // front-end. Create pens, device context and buffer bitmap for global use, copy result to display\r
113 // The back-end part n the middle has been taken out and moed to PainEvalGraph()\r
114 static VOID DisplayEvalGraph( HWND hWnd, HDC hDC )\r
115 {\r
116     RECT rcClient;\r
117     int width;\r
118     int height;\r
119 \r
120     /* Get client area */\r
121     GetClientRect( hWnd, &rcClient );\r
122 \r
123     width = rcClient.right - rcClient.left;\r
124     height = rcClient.bottom - rcClient.top;\r
125 \r
126     /* Create or recreate paint box if needed */\r
127     if( hbmPB == NULL || width != nWidthPB || height != nHeightPB ) {\r
128         if( pens[PEN_DOTTED] == NULL ) {\r
129             pens[PEN_BLACK]      = GetStockObject(BLACK_PEN);\r
130             pens[PEN_DOTTED]     = CreatePen( PS_DOT, 0, RGB(0xA0,0xA0,0xA0) );\r
131             pens[PEN_BLUEDOTTED] = CreatePen( PS_DOT, 0, RGB(0x00,0x00,0xFF) );\r
132             pens[PEN_BOLDWHITE]  = CreatePen( PS_SOLID, 2, crWhite );\r
133             pens[PEN_BOLDBLACK]  = CreatePen( PS_SOLID, 2, crBlack );\r
134             hbrHist[0] = CreateBrush( BS_SOLID, crWhite );\r
135             hbrHist[1] = CreateBrush( BS_SOLID, crBlack );\r
136             hbrHist[2] = CreateBrush( BS_SOLID, GetSysColor( COLOR_3DFACE ) ); // background\r
137         }\r
138 \r
139         if( hdcPB != NULL ) {\r
140             DeleteDC( hdcPB );\r
141             hdcPB = NULL;\r
142         }\r
143 \r
144         if( hbmPB != NULL ) {\r
145             DeleteObject( hbmPB );\r
146             hbmPB = NULL;\r
147         }\r
148 \r
149         hdcPB = CreateCompatibleDC( hDC );\r
150 \r
151         nWidthPB = width;\r
152         nHeightPB = height;\r
153         hbmPB = CreateCompatibleBitmap( hDC, nWidthPB, nHeightPB );\r
154 \r
155         SelectObject( hdcPB, hbmPB );\r
156     }\r
157 \r
158     // back-end painting; calls back front-end primitives for lines, rectangles and text\r
159     PaintEvalGraph();\r
160     SetWindowText(hWnd, MakeEvalTitle(differentialView ? T_("Blunder Graph") : T_("Evaluation Graph")));\r
161 \r
162     /* Copy bitmap into destination DC */\r
163     BitBlt( hDC, 0, 0, nWidthPB, nHeightPB, hdcPB, 0, 0, SRCCOPY );\r
164 }\r
165 \r
166 // Note: Once the eval graph is opened, this window-proc lives forever; een closing the\r
167 // eval-graph window merely hides it. On opening we re-initialize it, though, so it could\r
168 // as well hae been destroyed. While it is open it processes the REFRESH_GRAPH commands.\r
169 LRESULT CALLBACK EvalGraphProc( HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam )\r
170 {\r
171     static SnapData sd;\r
172 \r
173     PAINTSTRUCT stPS;\r
174     HDC hDC;\r
175 \r
176     switch (message) {\r
177     case WM_INITDIALOG:\r
178         Translate(hDlg, DLG_EvalGraph);\r
179         if( evalGraphDialog == NULL ) {\r
180             evalGraphDialog = hDlg;\r
181 \r
182             RestoreWindowPlacement( hDlg, &wpEvalGraph ); /* Restore window placement */\r
183         }\r
184 \r
185         return FALSE;\r
186 \r
187     case WM_COMMAND:\r
188         switch (LOWORD(wParam)) {\r
189         case IDOK:\r
190           EndDialog(hDlg, TRUE);\r
191           return TRUE;\r
192 \r
193         case IDCANCEL:\r
194           EndDialog(hDlg, FALSE);\r
195           return TRUE;\r
196 \r
197         default:\r
198           break;\r
199         }\r
200 \r
201         break;\r
202 \r
203     case WM_ERASEBKGND:\r
204         return TRUE;\r
205 \r
206     case WM_PAINT:\r
207         hDC = BeginPaint( hDlg, &stPS );\r
208         DisplayEvalGraph( hDlg, hDC );\r
209         EndPaint( hDlg, &stPS );\r
210         break;\r
211 \r
212     case WM_MOUSEWHEEL:\r
213         if((short)HIWORD(wParam) < 0) appData.zoom++;\r
214         if((short)HIWORD(wParam) > 0 && appData.zoom > 1)  appData.zoom--;\r
215         goto paint;\r
216     case WM_RBUTTONDOWN:\r
217         differentialView = !differentialView;\r
218     case WM_REFRESH_GRAPH:\r
219     paint:\r
220         hDC = GetDC( hDlg );\r
221         DisplayEvalGraph( hDlg, hDC );\r
222         ReleaseDC( hDlg, hDC );\r
223         break;\r
224 \r
225     case WM_LBUTTONDOWN:\r
226         if( wParam == 0 || wParam == MK_LBUTTON ) {\r
227             int index = GetMoveIndexFromPoint( LOWORD(lParam), HIWORD(lParam) );\r
228 \r
229             if( index >= 0 && index < currLast ) {\r
230                 ToNrEvent( index + 1 );\r
231             }\r
232         }\r
233         return TRUE;\r
234 \r
235     case WM_SIZE:\r
236         InvalidateRect( hDlg, NULL, FALSE );\r
237         break;\r
238 \r
239     case WM_GETMINMAXINFO:\r
240         {\r
241             MINMAXINFO * mmi = (MINMAXINFO *) lParam;\r
242         \r
243             mmi->ptMinTrackSize.x = 100;\r
244             mmi->ptMinTrackSize.y = 100;\r
245         }\r
246         break;\r
247 \r
248     /* Support for captionless window */\r
249     case WM_CLOSE:\r
250         EvalGraphPopDown();\r
251         break;\r
252 \r
253     case WM_ENTERSIZEMOVE:\r
254         return OnEnterSizeMove( &sd, hDlg, wParam, lParam );\r
255 \r
256     case WM_SIZING:\r
257         return OnSizing( &sd, hDlg, wParam, lParam );\r
258 \r
259     case WM_MOVING:\r
260         return OnMoving( &sd, hDlg, wParam, lParam );\r
261 \r
262     case WM_EXITSIZEMOVE:\r
263         return OnExitSizeMove( &sd, hDlg, wParam, lParam );\r
264     }\r
265 \r
266     return FALSE;\r
267 }\r
268 \r
269 // creates the eval graph, or unhides it.\r
270 VOID EvalGraphPopUp()\r
271 {\r
272   FARPROC lpProc;\r
273   \r
274   CheckMenuItem(GetMenu(hwndMain), IDM_ShowEvalGraph, MF_CHECKED);\r
275 \r
276   if( evalGraphDialog ) {\r
277     SendMessage( evalGraphDialog, WM_INITDIALOG, 0, 0 );\r
278 \r
279     if( ! evalGraphDialogUp ) {\r
280         ShowWindow(evalGraphDialog, SW_SHOW);\r
281     }\r
282   }\r
283   else {\r
284     crWhite = appData.evalHistColorWhite;\r
285     crBlack = appData.evalHistColorBlack;\r
286 \r
287     lpProc = MakeProcInstance( (FARPROC) EvalGraphProc, hInst );\r
288 \r
289     /* Note to self: dialog must have the WS_VISIBLE style set, otherwise it's not shown! */\r
290     CreateDialog( hInst, MAKEINTRESOURCE(DLG_EvalGraph), hwndMain, (DLGPROC)lpProc );\r
291 \r
292     FreeProcInstance(lpProc);\r
293   }\r
294 \r
295   evalGraphDialogUp = TRUE;\r
296 }\r
297 \r
298 // Note that this hides the window. It could as well have destroyed it.\r
299 VOID EvalGraphPopDown()\r
300 {\r
301   CheckMenuItem(GetMenu(hwndMain), IDM_ShowEvalGraph, MF_UNCHECKED);\r
302 \r
303   if( evalGraphDialog ) {\r
304       ShowWindow(evalGraphDialog, SW_HIDE);\r
305   }\r
306 \r
307   evalGraphDialogUp = FALSE;\r
308 }\r
309 \r
310 // This function is the interface to the back-end. It is currently called through the front-end,\r
311 // though, where it shares the HistorySet() wrapper with MoveHistorySet(). Once all front-ends\r
312 // support the eval graph, it would be more logical to call it directly from the back-end.\r
313 VOID EvalGraphSet( int first, int last, int current, ChessProgramStats_Move * pvInfo )\r
314 {\r
315     /* [AS] Danger! For now we rely on the pvInfo parameter being a static variable! */\r
316 \r
317     currFirst = first;\r
318     currLast = last;\r
319     currCurrent = current;\r
320     currPvInfo = pvInfo;\r
321 \r
322     if( evalGraphDialog ) {\r
323         SendMessage( evalGraphDialog, WM_REFRESH_GRAPH, 0, 0 );\r
324     }\r
325 }\r