4 * Author: Alessandro Scotti (Dec 2005)
5 * Translated to X by H.G.Muller (Nov 2009)
7 * Copyright 2005 Alessandro Scotti
9 * Enhancements Copyright 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
11 * ------------------------------------------------------------------------
13 * GNU XBoard is free software: you can redistribute it and/or modify
14 * it under the terms of the GNU General Public License as published by
15 * the Free Software Foundation, either version 3 of the License, or (at
16 * your option) any later version.
18 * GNU XBoard is distributed in the hope that it will be useful, but
19 * WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 * General Public License for more details.
23 * You should have received a copy of the GNU General Public License
24 * along with this program. If not, see http://www.gnu.org/licenses/.
26 * ------------------------------------------------------------------------
27 ** See the file ChangeLog for a revision history. */
34 #include <sys/types.h>
39 #else /* not STDC_HEADERS */
40 extern char *getenv();
43 # else /* not HAVE_STRING_H */
45 # endif /* not HAVE_STRING_H */
46 #endif /* not STDC_HEADERS */
52 #include <X11/Intrinsic.h>
53 #include <X11/StringDefs.h>
54 #include <X11/Shell.h>
55 #include <X11/Xaw/Dialog.h>
56 #include <X11/Xaw/Form.h>
57 #include <X11/Xaw/List.h>
58 #include <X11/Xaw/Label.h>
59 #include <X11/Xaw/SimpleMenu.h>
60 #include <X11/Xaw/SmeBSB.h>
61 #include <X11/Xaw/SmeLine.h>
62 #include <X11/Xaw/Box.h>
63 #include <X11/Xaw/Paned.h>
64 #include <X11/Xaw/MenuButton.h>
65 #include <X11/cursorfont.h>
66 #include <X11/Xaw/Text.h>
67 #include <X11/Xaw/AsciiText.h>
68 #include <X11/Xaw/Viewport.h>
70 #include <cairo/cairo.h>
71 #include <cairo/cairo-xlib.h>
79 #include "evalgraph.h"
83 # define _(s) gettext (s)
84 # define N_(s) gettext_noop (s)
98 Pixmap icons[8]; // [HGM] this front-end array translates back-end icon indicator to handle
99 Widget outputField[2][7]; // [HGM] front-end array to translate output field to window handle
100 static char *title = N_("Evaluation graph");
102 //extern WindowPlacement wpEvalGraph;
104 Position evalGraphX = -1, evalGraphY = -1;
105 Dimension evalGraphW, evalGraphH;
107 /* Module variables */
109 char *crWhite = "#FFFFB0";
110 char *crBlack = "#AD5D3D";
111 static Window eGraphWindow;
112 static cairo_surface_t *cs;
114 static Option *EvalCallback P((int button, int x, int y));
117 Color (char *col, int n)
120 sscanf(col, "#%x", &c);
126 SetPen(cairo_t *cr, float w, char *col, int dash) {
127 static const double dotted[] = {4.0, 4.0};
128 static int len = sizeof(dotted) / sizeof(dotted[0]);
129 cairo_set_line_width (cr, w);
130 cairo_set_source_rgba (cr, Color(col, 4), Color(col, 2), Color(col, 0), 1.0);
131 if(dash) cairo_set_dash (cr, dotted, len, 0.0);
135 ChoosePen(cairo_t *cr, int i)
139 SetPen(cr, 1.0, "#000000", 0);
142 SetPen(cr, 1.0, "#A0A0A0", 1);
145 SetPen(cr, 1.0, "#0000FF", 1);
148 SetPen(cr, 3.0, crWhite, 0);
151 SetPen(cr, 3.0, crBlack, 0);
154 SetPen(cr, 3.0, "#E0E0F0", 0);
159 // [HGM] front-end, added as wrapper to avoid use of LineTo and MoveToEx in other routines (so they can be back-end)
161 DrawSegment (int x, int y, int *lastX, int *lastY, enum PEN penType)
163 static int curX, curY;
165 if(penType != PEN_NONE) {
166 cairo_t *cr = cairo_create(cs);
167 cairo_set_antialias (cr, CAIRO_ANTIALIAS_NONE);
168 cairo_move_to (cr, curX, curY);
169 cairo_line_to (cr, x,y);
170 ChoosePen(cr, penType);
175 if(lastX != NULL) { *lastX = curX; *lastY = curY; }
179 // front-end wrapper for drawing functions to do rectangles
181 DrawRectangle (int left, int top, int right, int bottom, int side, int style)
185 cr = cairo_create (cs);
186 cairo_set_antialias (cr, CAIRO_ANTIALIAS_NONE);
187 cairo_rectangle (cr, left, top, right-left, bottom-top);
190 case 0: ChoosePen(cr, PEN_BOLDWHITE); break;
191 case 1: ChoosePen(cr, PEN_BOLDBLACK); break;
192 case 2: ChoosePen(cr, PEN_BACKGD); break;
198 cairo_rectangle (cr, left, top, right-left-1, bottom-top-1);
199 ChoosePen(cr, PEN_BLACK);
206 // front-end wrapper for putting text in graph
208 DrawEvalText (char *buf, int cbBuf, int y)
210 // the magic constants 8 and 5 should really be derived from the font size somehow
211 cairo_text_extents_t extents;
212 cairo_t *cr = cairo_create(cs);
214 /* GTK-TODO this has to go into the font-selection */
215 cairo_select_font_face (cr, "Sans",
216 CAIRO_FONT_SLANT_NORMAL,
217 CAIRO_FONT_WEIGHT_NORMAL);
218 cairo_set_font_size (cr, 12.0);
221 cairo_text_extents (cr, buf, &extents);
223 cairo_move_to (cr, MarginX - 2 - 8*cbBuf, y+5);
224 cairo_text_path (cr, buf);
225 cairo_set_source_rgb (cr, 0.0, 0.0, 0);
226 cairo_fill_preserve (cr);
227 cairo_set_source_rgb (cr, 0, 1.0, 0);
228 cairo_set_line_width (cr, 0.1);
235 static int initDone = FALSE;
238 InitializeEvalGraph (Option *opt, int w, int h)
240 eGraphWindow = XtWindow(opt->handle);
244 XtSetArg(args[0], XtNwidth, &evalGraphW);
245 XtSetArg(args[1], XtNheight, &evalGraphH);
246 XtGetValues(opt->handle, args, 2);
247 nWidthPB = evalGraphW; nHeightPB = evalGraphH;
248 } else nWidthPB = w, nHeightPB = h;
250 if(cs) cairo_surface_destroy(cs);
251 cs=cairo_xlib_surface_create(xDisplay, eGraphWindow, DefaultVisual(xDisplay, 0), nWidthPB, nHeightPB);
256 // The following stuff is really back-end (but too little to bother with a separate file)
260 { // back-end painting; calls back front-end primitives for lines, rectangles and text
261 char *t = MakeEvalTitle(_(title));
262 if(t != title && nWidthPB < 340) t = MakeEvalTitle(nWidthPB < 240 ? "" : _("Eval"));
264 SetDialogTitle(EvalGraphDlg, t);
268 EvalClick (int x, int y)
270 int index = GetMoveIndexFromPoint( x, y );
272 if( index >= 0 && index < currLast ) ToNrEvent( index + 1 );
275 static Option graphOptions[] = {
276 { 150, 0x9C, 300, NULL, (void*) &EvalCallback, NULL, NULL, Graph , "" },
277 { 0, 2, 0, NULL, NULL, "", NULL, EndMark , "" }
281 EvalCallback (int button, int x, int y)
283 if(!initDone) return NULL;
286 case 10: // expose event
287 /* Create or recreate paint box if needed */
288 if(x != nWidthPB || y != nHeightPB) {
289 InitializeEvalGraph(&graphOptions[0], x, y);
295 case 1: EvalClick(x, y); // left button
296 default: break; // other buttons ignored
298 return NULL; // no context menu!
304 if (GenericPopUp(graphOptions, _(title), EvalGraphDlg, BoardWindow, NONMODAL, 1)) {
305 InitializeEvalGraph(&graphOptions[0], 0, 0); // first time: add callbacks and initialize pens
307 SetDialogTitle(EvalGraphDlg, _(title));
308 SetIconName(EvalGraphDlg, _(title));
311 MarkMenu("View.EvaluationGraph", EvalGraphDlg);
313 // ShowThinkingEvent(); // [HGM] thinking: might need to prompt engine for thinking output
319 PopDown(EvalGraphDlg);
321 // ShowThinkingEvent(); // [HGM] thinking: might need to shut off thinking output
327 return shellUp[EvalGraphDlg];
331 EvalGraphDialogExists ()
333 return DialogExists(EvalGraphDlg);
339 if (!PopDown(EvalGraphDlg)) EvalGraphPopUp();
342 // This function is the interface to the back-end.
345 EvalGraphSet (int first, int last, int current, ChessProgramStats_Move * pvInfo)
347 /* [AS] Danger! For now we rely on the pvInfo parameter being a static variable! */
351 currCurrent = current;
354 if( DialogExists(EvalGraphDlg) ) {