1 /*
2 * GTK plotting routines source file
3 *
4 * Copyright (c) 1999 Mark Taylor
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Library General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Library General Public License for more details.
15 *
16 * You should have received a copy of the GNU Library General Public
17 * License along with this library; if not, write to the
18 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 * Boston, MA 02111-1307, USA.
20 */
21
22 /* $Id$ */
23
24 #ifdef HAVE_CONFIG_H
25 # include <config.h>
26 #endif
27
28 #include "gpkplotting.h"
29
30 #ifdef STDC_HEADERS
31 # include <string.h>
32 #else
33 # ifndef HAVE_STRCHR
34 # define strchr index
35 # define strrchr rindex
36 # endif
37 char *strchr(), *strrchr();
38 # ifndef HAVE_MEMCPY
39 # define memcpy(d, s, n) bcopy ((s), (d), (n))
40 # define memmove(d, s, n) bcopy ((s), (d), (n))
41 # endif
42 #endif
43
44 #ifdef WITH_DMALLOC
45 #include <dmalloc.h>
46 #endif
47
48 static gint num_plotwindows = 0;
49 static gint max_plotwindows = 10;
50 static GdkPixmap *pixmaps[10];
51 static GtkWidget *pixmapboxes[10];
52
53
54
55
56 /* compute a gdkcolor */
57 void
setcolor(GtkWidget * widget, GdkColor * color, gint red, gint green, gint blue)58 setcolor(GtkWidget * widget, GdkColor * color, gint red, gint green, gint blue)
59 {
60
61 /* colors in GdkColor are taken from 0 to 65535, not 0 to 255. */
62 color->red = red * (65535 / 255);
63 color->green = green * (65535 / 255);
64 color->blue = blue * (65535 / 255);
65 color->pixel = (gulong) (color->red * 65536 + color->green * 256 + color->blue);
66 /* find closest in colormap, if needed */
67 gdk_color_alloc(gtk_widget_get_colormap(widget), color);
68 }
69
70
71 void
gpk_redraw(GdkPixmap * pixmap, GtkWidget * pixmapbox)72 gpk_redraw(GdkPixmap * pixmap, GtkWidget * pixmapbox)
73 {
74 /* redraw the entire pixmap */
75 gdk_draw_pixmap(pixmapbox->window,
76 pixmapbox->style->fg_gc[GTK_WIDGET_STATE(pixmapbox)],
77 pixmap, 0, 0, 0, 0, pixmapbox->allocation.width, pixmapbox->allocation.height);
78 }
79
80
81 static GdkPixmap **
findpixmap(GtkWidget * widget)82 findpixmap(GtkWidget * widget)
83 {
84 int i;
85 for (i = 0; i < num_plotwindows && widget != pixmapboxes[i]; i++);
86 if (i >= num_plotwindows) {
87 g_print("findpixmap(): bad argument widget \n");
88 return NULL;
89 }
90 return &pixmaps[i];
91 }
92
93 void
gpk_graph_draw(GtkWidget * widget, int n, gdouble * xcord, gdouble * ycord, gdouble xmn, gdouble ymn, gdouble xmx, gdouble ymx, int clear, char *title, GdkColor * color)94 gpk_graph_draw(GtkWidget * widget, /* plot on this widged */
95 int n, /* number of data points */
96 gdouble * xcord, gdouble * ycord, /* data */
97 gdouble xmn, gdouble ymn, /* coordinates of corners */
98 gdouble xmx, gdouble ymx, int clear, /* clear old plot first */
99 char *title, /* add a title (only if clear=1) */
100 GdkColor * color)
101 {
102 GdkPixmap **ppixmap;
103 GdkPoint *points;
104 int i;
105 gint16 width, height;
106 GdkFont *fixed_font;
107 GdkGC *gc;
108
109 gc = gdk_gc_new(widget->window);
110 gdk_gc_set_foreground(gc, color);
111
112
113
114 if ((ppixmap = findpixmap(widget))) {
115 width = widget->allocation.width;
116 height = widget->allocation.height;
117
118
119 if (clear) {
120 /* white background */
121 gdk_draw_rectangle(*ppixmap, widget->style->white_gc, TRUE, 0, 0, width, height);
122 /* title */
123 #ifdef _WIN32
124 fixed_font = gdk_font_load("-misc-fixed-large-r-*-*-*-100-*-*-*-*-*-*");
125 #else
126 fixed_font = gdk_font_load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-iso8859-1");
127 #endif
128
129 gdk_draw_text(*ppixmap, fixed_font,
130 widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
131 0, 10, title, strlen(title));
132 }
133
134
135 points = g_malloc(n * sizeof(GdkPoint));
136 for (i = 0; i < n; i++) {
137 points[i].x = .5 + ((xcord[i] - xmn) * (width - 1) / (xmx - xmn));
138 points[i].y = .5 + ((ycord[i] - ymx) * (height - 1) / (ymn - ymx));
139 }
140 gdk_draw_lines(*ppixmap, gc, points, n);
141 g_free(points);
142 gpk_redraw(*ppixmap, widget);
143 }
144 gdk_gc_destroy(gc);
145 }
146
147
148
149 void
gpk_rectangle_draw(GtkWidget * widget, gdouble * xcord, gdouble * ycord, gdouble xmn, gdouble ymn, gdouble xmx, gdouble ymx, GdkColor * color)150 gpk_rectangle_draw(GtkWidget * widget, /* plot on this widged */
151 gdouble * xcord, gdouble * ycord, /* corners */
152 gdouble xmn, gdouble ymn, /* coordinates of corners */
153 gdouble xmx, gdouble ymx, GdkColor * color)
154 {
155 GdkPixmap **ppixmap;
156 GdkPoint points[2];
157 int i;
158 gint16 width, height;
159 GdkGC *gc;
160
161
162 gc = gdk_gc_new(widget->window);
163 gdk_gc_set_foreground(gc, color);
164
165
166 if ((ppixmap = findpixmap(widget))) {
167 width = widget->allocation.width;
168 height = widget->allocation.height;
169
170
171 for (i = 0; i < 2; i++) {
172 points[i].x = .5 + ((xcord[i] - xmn) * (width - 1) / (xmx - xmn));
173 points[i].y = .5 + ((ycord[i] - ymx) * (height - 1) / (ymn - ymx));
174 }
175 width = points[1].x - points[0].x + 1;
176 height = points[1].y - points[0].y + 1;
177 gdk_draw_rectangle(*ppixmap, gc, TRUE, points[0].x, points[0].y, width, height);
178 gpk_redraw(*ppixmap, widget);
179 }
180 gdk_gc_destroy(gc);
181 }
182
183
184
185 void
gpk_bargraph_draw(GtkWidget * widget, int n, gdouble * xcord, gdouble * ycord, gdouble xmn, gdouble ymn, gdouble xmx, gdouble ymx, int clear, char *title, int barwidth, GdkColor * color)186 gpk_bargraph_draw(GtkWidget * widget, /* plot on this widged */
187 int n, /* number of data points */
188 gdouble * xcord, gdouble * ycord, /* data */
189 gdouble xmn, gdouble ymn, /* coordinates of corners */
190 gdouble xmx, gdouble ymx, int clear, /* clear old plot first */
191 char *title, /* add a title (only if clear=1) */
192 int barwidth, /* bar width. 0=compute based on window size */
193 GdkColor * color)
194 {
195 GdkPixmap **ppixmap;
196 GdkPoint points[2];
197 int i;
198 gint16 width, height, x, y, barheight;
199 GdkFont *fixed_font;
200 GdkGC *gc;
201 int titleSplit;
202
203
204 gc = gdk_gc_new(widget->window);
205 gdk_gc_set_foreground(gc, color);
206
207
208 if ((ppixmap = findpixmap(widget))) {
209 width = widget->allocation.width;
210 height = widget->allocation.height;
211
212
213 if (clear) {
214 /* white background */
215 gdk_draw_rectangle(*ppixmap, widget->style->white_gc, TRUE, 0, 0, width, height);
216 /* title */
217 #ifdef _WIN32
218 fixed_font = gdk_font_load("-misc-fixed-large-r-*-*-*-100-*-*-*-*-*-*");
219 #else
220 fixed_font = gdk_font_load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-iso8859-1");
221 #endif
222
223 titleSplit = strcspn(title, "\n");
224
225 if (titleSplit && (titleSplit != strlen(title))) {
226 gdk_draw_text(*ppixmap, fixed_font,
227 widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
228 0, 10, title, titleSplit);
229
230 gdk_draw_text(*ppixmap, fixed_font,
231 widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
232 0, 22, title + titleSplit + 1, (strlen(title) - titleSplit) - 1);
233
234
235 }
236 else {
237 gdk_draw_text(*ppixmap, fixed_font,
238 widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
239 0, 10, title, strlen(title));
240 }
241 }
242
243
244 for (i = 0; i < n; i++) {
245 points[1].x = .5 + ((xcord[i] - xmn) * (width - 1) / (xmx - xmn));
246 points[1].y = .5 + ((ycord[i] - ymx) * (height - 1) / (ymn - ymx));
247 points[0].x = points[1].x;
248 points[0].y = height - 1;
249
250 x = .5 + ((xcord[i] - xmn) * (width - 1) / (xmx - xmn));
251 y = .5 + ((ycord[i] - ymx) * (height - 1) / (ymn - ymx));
252 if (!barwidth)
253 barwidth = (width / (n + 1)) - 1;
254 barwidth = barwidth > 5 ? 5 : barwidth;
255 barwidth = barwidth < 1 ? 1 : barwidth;
256 barheight = height - 1 - y;
257 /* gdk_draw_lines(*ppixmap,gc,points,2); */
258 gdk_draw_rectangle(*ppixmap, gc, TRUE, x, y, barwidth, barheight);
259
260 }
261 gpk_redraw(*ppixmap, widget);
262 }
263 gdk_gc_destroy(gc);
264 }
265
266
267
268
269
270 /* Create a new backing pixmap of the appropriate size */
271 static gint
configure_event(GtkWidget * widget, GdkEventConfigure * event, gpointer data)272 configure_event(GtkWidget * widget, GdkEventConfigure * event, gpointer data)
273 {
274 GdkPixmap **ppixmap;
275 if ((ppixmap = findpixmap(widget))) {
276 if (*ppixmap)
277 gdk_pixmap_unref(*ppixmap);
278 *ppixmap = gdk_pixmap_new(widget->window,
279 widget->allocation.width, widget->allocation.height, -1);
280 gdk_draw_rectangle(*ppixmap,
281 widget->style->white_gc,
282 TRUE, 0, 0, widget->allocation.width, widget->allocation.height);
283 }
284 return TRUE;
285 }
286
287
288
289 /* Redraw the screen from the backing pixmap */
290 static gint
expose_event(GtkWidget * widget, GdkEventExpose * event, gpointer data)291 expose_event(GtkWidget * widget, GdkEventExpose * event, gpointer data)
292 {
293 GdkPixmap **ppixmap;
294 if ((ppixmap = findpixmap(widget))) {
295 gdk_draw_pixmap(widget->window,
296 widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
297 *ppixmap,
298 event->area.x, event->area.y,
299 event->area.x, event->area.y, event->area.width, event->area.height);
300 }
301
302 return FALSE;
303 }
304
305
306
307
308
309 GtkWidget *
gpk_plot_new(int width, int height)310 gpk_plot_new(int width, int height)
311 {
312 GtkWidget *pixmapbox;
313
314 pixmapbox = gtk_drawing_area_new();
315 gtk_drawing_area_size(GTK_DRAWING_AREA(pixmapbox), width, height);
316 gtk_signal_connect(GTK_OBJECT(pixmapbox), "expose_event", (GtkSignalFunc) expose_event, NULL);
317 gtk_signal_connect(GTK_OBJECT(pixmapbox), "configure_event",
318 (GtkSignalFunc) configure_event, NULL);
319 gtk_widget_set_events(pixmapbox, GDK_EXPOSURE_MASK);
320
321 if (num_plotwindows < max_plotwindows) {
322 pixmapboxes[num_plotwindows] = pixmapbox;
323 pixmaps[num_plotwindows] = NULL;
324 num_plotwindows++;
325 }
326 else {
327 g_print("gtk_plotarea_new(): exceeded maximum of 10 plotarea windows\n");
328 }
329
330 return pixmapbox;
331 }
332