?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fl_Panzoomer: Always draw box.
[ntk.git] / src / fl_read_image.cxx
blobf02cbea95ba6ba12bc9ea2e2fbef4ca1f9cd3ef8
1 //
2 // "$Id: fl_read_image.cxx 8593 2011-04-15 21:38:05Z manolo $"
3 //
4 // X11 image reading routines for the Fast Light Tool Kit (FLTK).
5 //
6 // Copyright 1998-2010 by Bill Spitzak and others.
7 //
8 // This library is free software; you can redistribute it and/or
9 // modify it under the terms of the GNU Library General Public
10 // License as published by the Free Software Foundation; either
11 // version 2 of the License, or (at your option) any later version.
12 //
13 // This library is distributed in the hope that it will be useful,
14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 // Library General Public License for more details.
17 //
18 // You should have received a copy of the GNU Library General Public
19 // License along with this library; if not, write to the Free Software
20 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
21 // USA.
22 //
23 // Please report all bugs and problems on the following page:
24 //
25 // http://www.fltk.org/str.php
26 //
27
28 #include <FL/x.H>
29 #include <FL/Fl.H>
30 #include <FL/fl_draw.H>
31 #include "flstring.h"
32
33 #ifdef DEBUG
34 # include <stdio.h>
35 #endif // DEBUG
36
37 #ifdef WIN32
38 # include "fl_read_image_win32.cxx"
39 #elif defined(__APPLE__)
40 # include "fl_read_image_mac.cxx"
41 #else
42 # include <X11/Xutil.h>
43 # ifdef __sgi
44 # include <X11/extensions/readdisplay.h>
45 # else
46 # include <stdlib.h>
47 # endif // __sgi
48
49 // Defined in fl_color.cxx
50 extern uchar fl_redmask, fl_greenmask, fl_bluemask;
51 extern int fl_redshift, fl_greenshift, fl_blueshift, fl_extrashift;
52
53 //
54 // 'fl_subimage_offsets()' - Calculate subimage offsets for an axis
55 static inline int
56 fl_subimage_offsets(int a, int aw, int b, int bw, int &obw)
57 {
58 int off;
59 int ob;
60
61 if (b >= a) {
62 ob = b;
63 off = 0;
64 } else {
65 ob = a;
66 off = a - b;
67 }
68
69 bw -= off;
70
71 if (ob + bw <= a + aw) {
72 obw = bw;
73 } else {
74 obw = (a + aw) - ob;
75 }
76
77 return off;
78 }
79
80 // this handler will catch and ignore exceptions during XGetImage
81 // to avoid an application crash
82 static int xgetimageerrhandler(Display *display, XErrorEvent *error) {
83 return 0;
84 }
85
86 //
87 // 'fl_read_image()' - Read an image from the current window.
88 //
89
90 uchar * // O - Pixel buffer or NULL if failed
91 fl_read_image(uchar *p, // I - Pixel buffer or NULL to allocate
92 int X, // I - Left position
93 int Y, // I - Top position
94 int w, // I - Width of area to read
95 // negative allows capture of window title bar and frame
96 int h, // I - Height of area to read
97 int alpha) { // I - Alpha value for image (0 for none)
98 XImage *image; // Captured image
99 int i, maxindex; // Looping vars
100 int x, y; // Current X & Y in image
101 int d; // Depth of image
102 unsigned char *line, // Array to hold image row
103 *line_ptr; // Pointer to current line image
104 unsigned char *pixel; // Current color value
105 XColor colors[4096]; // Colors from the colormap...
106 unsigned char cvals[4096][3]; // Color values from the colormap...
107 unsigned index_mask,
108 index_shift,
109 red_mask,
110 red_shift,
111 green_mask,
112 green_shift,
113 blue_mask,
114 blue_shift;
115
116
117 //
118 // Under X11 we have the option of the XGetImage() interface or SGI's
119 // ReadDisplay extension which does all of the really hard work for
120 // us...
121 //
122 int allow_outside = w < 0; // negative w allows negative X or Y, that is, window frame
123 if (w < 0) w = - w;
124
125 # ifdef __sgi
126 if (XReadDisplayQueryExtension(fl_display, &i, &i)) {
127 image = XReadDisplay(fl_display, fl_window, X, Y, w, h, 0, NULL);
128 } else
129 # else
130 image = 0;
131 # endif // __sgi
132
133 if (!image) {
134 // fetch absolute coordinates
135 int dx, dy, sx, sy, sw, sh;
136 Window child_win;
137
138 Fl_Window *win;
139 if (allow_outside) win = (Fl_Window*)1;
140 else win = fl_find(fl_window);
141 if (win) {
142 XTranslateCoordinates(fl_display, fl_window,
143 RootWindow(fl_display, fl_screen), X, Y, &dx, &dy, &child_win);
144 // screen dimensions
145 Fl::screen_xywh(sx, sy, sw, sh, fl_screen);
146 }
147 if (!win || (dx >= sx && dy >= sy && dx + w <= sw && dy + h <= sh)) {
148 // the image is fully contained, we can use the traditional method
149 // however, if the window is obscured etc. the function will still fail. Make sure we
150 // catch the error and continue, otherwise an exception will be thrown.
151 XErrorHandler old_handler = XSetErrorHandler(xgetimageerrhandler);
152 image = XGetImage(fl_display, fl_window, X, Y, w, h, AllPlanes, ZPixmap);
153 XSetErrorHandler(old_handler);
154 } else {
155 // image is crossing borders, determine visible region
156 int nw, nh, noffx, noffy;
157 noffx = fl_subimage_offsets(sx, sw, dx, w, nw);
158 noffy = fl_subimage_offsets(sy, sh, dy, h, nh);
159 if (nw <= 0 || nh <= 0) return 0;
160
161 // allocate the image
162 int bpp = fl_visual->depth + ((fl_visual->depth / 8) % 2) * 8;
163 char* buf = (char*)malloc(bpp / 8 * w * h);
164 image = XCreateImage(fl_display, fl_visual->visual,
165 fl_visual->depth, ZPixmap, 0, buf, w, h, bpp, 0);
166 if (!image) {
167 if (buf) free(buf);
168 return 0;
169 }
170
171 XErrorHandler old_handler = XSetErrorHandler(xgetimageerrhandler);
172 XImage *subimg = XGetSubImage(fl_display, fl_window, X + noffx, Y + noffy,
173 nw, nh, AllPlanes, ZPixmap, image, noffx, noffy);
174 XSetErrorHandler(old_handler);
175 if (!subimg) {
176 XDestroyImage(image);
177 return 0;
178 }
179 }
180 }
181
182 if (!image) return 0;
183
184 #ifdef DEBUG
185 printf("width = %d\n", image->width);
186 printf("height = %d\n", image->height);
187 printf("xoffset = %d\n", image->xoffset);
188 printf("format = %d\n", image->format);
189 printf("data = %p\n", image->data);
190 printf("byte_order = %d\n", image->byte_order);
191 printf("bitmap_unit = %d\n", image->bitmap_unit);
192 printf("bitmap_bit_order = %d\n", image->bitmap_bit_order);
193 printf("bitmap_pad = %d\n", image->bitmap_pad);
194 printf("depth = %d\n", image->depth);
195 printf("bytes_per_line = %d\n", image->bytes_per_line);
196 printf("bits_per_pixel = %d\n", image->bits_per_pixel);
197 printf("red_mask = %08x\n", image->red_mask);
198 printf("green_mask = %08x\n", image->green_mask);
199 printf("blue_mask = %08x\n", image->blue_mask);
200 printf("map_entries = %d\n", fl_visual->visual->map_entries);
201 #endif // DEBUG
202
203 d = alpha ? 4 : 3;
204
205 // Allocate the image data array as needed...
206 if (!p) p = new uchar[w * h * d];
207
208 // Initialize the default colors/alpha in the whole image...
209 memset(p, alpha, w * h * d);
210
211 // Check that we have valid mask/shift values...
212 if (!image->red_mask && image->bits_per_pixel > 12) {
213 // Greater than 12 bits must be TrueColor...
214 image->red_mask = fl_visual->visual->red_mask;
215 image->green_mask = fl_visual->visual->green_mask;
216 image->blue_mask = fl_visual->visual->blue_mask;
217
218 #ifdef DEBUG
219 puts("\n---- UPDATED ----");
220 printf("fl_redmask = %08x\n", fl_redmask);
221 printf("fl_redshift = %d\n", fl_redshift);
222 printf("fl_greenmask = %08x\n", fl_greenmask);
223 printf("fl_greenshift = %d\n", fl_greenshift);
224 printf("fl_bluemask = %08x\n", fl_bluemask);
225 printf("fl_blueshift = %d\n", fl_blueshift);
226 printf("red_mask = %08x\n", image->red_mask);
227 printf("green_mask = %08x\n", image->green_mask);
228 printf("blue_mask = %08x\n", image->blue_mask);
229 #endif // DEBUG
230 }
231
232 // Check if we have colormap image...
233 if (!image->red_mask) {
234 // Get the colormap entries for this window...
235 maxindex = fl_visual->visual->map_entries;
236
237 for (i = 0; i < maxindex; i ++) colors[i].pixel = i;
238
239 XQueryColors(fl_display, fl_colormap, colors, maxindex);
240
241 for (i = 0; i < maxindex; i ++) {
242 cvals[i][0] = colors[i].red >> 8;
243 cvals[i][1] = colors[i].green >> 8;
244 cvals[i][2] = colors[i].blue >> 8;
245 }
246
247 // Read the pixels and output an RGB image...
248 for (y = 0; y < image->height; y ++) {
249 pixel = (unsigned char *)(image->data + y * image->bytes_per_line);
250 line = p + y * w * d;
251
252 switch (image->bits_per_pixel) {
253 case 1 :
254 for (x = image->width, line_ptr = line, index_mask = 128;
255 x > 0;
256 x --, line_ptr += d) {
257 if (*pixel & index_mask) {
258 line_ptr[0] = cvals[1][0];
259 line_ptr[1] = cvals[1][1];
260 line_ptr[2] = cvals[1][2];
261 } else {
262 line_ptr[0] = cvals[0][0];
263 line_ptr[1] = cvals[0][1];
264 line_ptr[2] = cvals[0][2];
265 }
266
267 if (index_mask > 1) {
268 index_mask >>= 1;
269 } else {
270 index_mask = 128;
271 pixel ++;
272 }
273 }
274 break;
275
276 case 2 :
277 for (x = image->width, line_ptr = line, index_shift = 6;
278 x > 0;
279 x --, line_ptr += d) {
280 i = (*pixel >> index_shift) & 3;
281
282 line_ptr[0] = cvals[i][0];
283 line_ptr[1] = cvals[i][1];
284 line_ptr[2] = cvals[i][2];
285
286 if (index_shift > 0) {
287 index_mask >>= 2;
288 index_shift -= 2;
289 } else {
290 index_mask = 192;
291 index_shift = 6;
292 pixel ++;
293 }
294 }
295 break;
296
297 case 4 :
298 for (x = image->width, line_ptr = line, index_shift = 4;
299 x > 0;
300 x --, line_ptr += d) {
301 if (index_shift == 4) i = (*pixel >> 4) & 15;
302 else i = *pixel & 15;
303
304 line_ptr[0] = cvals[i][0];
305 line_ptr[1] = cvals[i][1];
306 line_ptr[2] = cvals[i][2];
307
308 if (index_shift > 0) {
309 index_shift = 0;
310 } else {
311 index_shift = 4;
312 pixel ++;
313 }
314 }
315 break;
316
317 case 8 :
318 for (x = image->width, line_ptr = line;
319 x > 0;
320 x --, line_ptr += d, pixel ++) {
321 line_ptr[0] = cvals[*pixel][0];
322 line_ptr[1] = cvals[*pixel][1];
323 line_ptr[2] = cvals[*pixel][2];
324 }
325 break;
326
327 case 12 :
328 for (x = image->width, line_ptr = line, index_shift = 0;
329 x > 0;
330 x --, line_ptr += d) {
331 if (index_shift == 0) {
332 i = ((pixel[0] << 4) | (pixel[1] >> 4)) & 4095;
333 } else {
334 i = ((pixel[1] << 8) | pixel[2]) & 4095;
335 }
336
337 line_ptr[0] = cvals[i][0];
338 line_ptr[1] = cvals[i][1];
339 line_ptr[2] = cvals[i][2];
340
341 if (index_shift == 0) {
342 index_shift = 4;
343 } else {
344 index_shift = 0;
345 pixel += 3;
346 }
347 }
348 break;
349 }
350 }
351 } else {
352 // RGB(A) image, so figure out the shifts & masks...
353 red_mask = image->red_mask;
354 red_shift = 0;
355
356 while ((red_mask & 1) == 0) {
357 red_mask >>= 1;
358 red_shift ++;
359 }
360
361 green_mask = image->green_mask;
362 green_shift = 0;
363
364 while ((green_mask & 1) == 0) {
365 green_mask >>= 1;
366 green_shift ++;
367 }
368
369 blue_mask = image->blue_mask;
370 blue_shift = 0;
371
372 while ((blue_mask & 1) == 0) {
373 blue_mask >>= 1;
374 blue_shift ++;
375 }
376
377 // Read the pixels and output an RGB image...
378 for (y = 0; y < image->height; y ++) {
379 pixel = (unsigned char *)(image->data + y * image->bytes_per_line);
380 line = p + y * w * d;
381
382 switch (image->bits_per_pixel) {
383 case 8 :
384 for (x = image->width, line_ptr = line;
385 x > 0;
386 x --, line_ptr += d, pixel ++) {
387 i = *pixel;
388
389 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
390 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
391 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
392 }
393 break;
394
395 case 12 :
396 for (x = image->width, line_ptr = line, index_shift = 0;
397 x > 0;
398 x --, line_ptr += d) {
399 if (index_shift == 0) {
400 i = ((pixel[0] << 4) | (pixel[1] >> 4)) & 4095;
401 } else {
402 i = ((pixel[1] << 8) | pixel[2]) & 4095;
403 }
404
405 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
406 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
407 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
408
409 if (index_shift == 0) {
410 index_shift = 4;
411 } else {
412 index_shift = 0;
413 pixel += 3;
414 }
415 }
416 break;
417
418 case 16 :
419 if (image->byte_order == LSBFirst) {
420 // Little-endian...
421 for (x = image->width, line_ptr = line;
422 x > 0;
423 x --, line_ptr += d, pixel += 2) {
424 i = (pixel[1] << 8) | pixel[0];
425
426 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
427 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
428 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
429 }
430 } else {
431 // Big-endian...
432 for (x = image->width, line_ptr = line;
433 x > 0;
434 x --, line_ptr += d, pixel += 2) {
435 i = (pixel[0] << 8) | pixel[1];
436
437 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
438 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
439 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
440 }
441 }
442 break;
443
444 case 24 :
445 if (image->byte_order == LSBFirst) {
446 // Little-endian...
447 for (x = image->width, line_ptr = line;
448 x > 0;
449 x --, line_ptr += d, pixel += 3) {
450 i = (((pixel[2] << 8) | pixel[1]) << 8) | pixel[0];
451
452 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
453 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
454 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
455 }
456 } else {
457 // Big-endian...
458 for (x = image->width, line_ptr = line;
459 x > 0;
460 x --, line_ptr += d, pixel += 3) {
461 i = (((pixel[0] << 8) | pixel[1]) << 8) | pixel[2];
462
463 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
464 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
465 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
466 }
467 }
468 break;
469
470 case 32 :
471 if (image->byte_order == LSBFirst) {
472 // Little-endian...
473 for (x = image->width, line_ptr = line;
474 x > 0;
475 x --, line_ptr += d, pixel += 4) {
476 i = (((((pixel[3] << 8) | pixel[2]) << 8) | pixel[1]) << 8) | pixel[0];
477
478 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
479 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
480 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
481 }
482 } else {
483 // Big-endian...
484 for (x = image->width, line_ptr = line;
485 x > 0;
486 x --, line_ptr += d, pixel += 4) {
487 i = (((((pixel[0] << 8) | pixel[1]) << 8) | pixel[2]) << 8) | pixel[3];
488
489 line_ptr[0] = 255 * ((i >> red_shift) & red_mask) / red_mask;
490 line_ptr[1] = 255 * ((i >> green_shift) & green_mask) / green_mask;
491 line_ptr[2] = 255 * ((i >> blue_shift) & blue_mask) / blue_mask;
492 }
493 }
494 break;
495 }
496 }
497 }
498
499 // Destroy the X image we've read and return the RGB(A) image...
500 XDestroyImage(image);
501
502 return p;
503 }
504
505 #endif
506
507 //
508 // End of "$Id: fl_read_image.cxx 8593 2011-04-15 21:38:05Z manolo $".
509 //
Non::FLTK