]> Pileus Git - ~andy/gtk/blob - gdk/win32/gdkimage-win32.c
b204f850d032db1994480835771118566b6aa246
[~andy/gtk] / gdk / win32 / gdkimage-win32.c
1 /* GDK - The GIMP Drawing Kit
2  * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the
16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17  * Boston, MA 02111-1307, USA.
18  */
19
20 /*
21  * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
22  * file for a list of people on the GTK+ Team.  See the ChangeLog
23  * files for a list of changes.  These files are distributed with
24  * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
25  */
26
27 #include "config.h"
28
29 #include "gdkimage.h"
30 #include "gdkpixmap.h"
31 #include "gdkinternals.h"
32 #include "gdkprivate-win32.h"
33 #include "gdkdrawable-win32.h"
34 #include "gdkwindow-win32.h"
35 #include "gdkpixmap-win32.h"
36
37 static GList *image_list = NULL;
38 static gpointer parent_class = NULL;
39
40 static void gdk_win32_image_destroy (GdkImage      *image);
41 static void gdk_image_init          (GdkImage      *image);
42 static void gdk_image_class_init    (GdkImageClass *klass);
43 static void gdk_image_finalize      (GObject       *object);
44
45 GType
46 gdk_image_get_type (void)
47 {
48   static GType object_type = 0;
49
50   if (!object_type)
51     {
52       static const GTypeInfo object_info =
53       {
54         sizeof (GdkImageClass),
55         (GBaseInitFunc) NULL,
56         (GBaseFinalizeFunc) NULL,
57         (GClassInitFunc) gdk_image_class_init,
58         NULL,           /* class_finalize */
59         NULL,           /* class_data */
60         sizeof (GdkImage),
61         0,              /* n_preallocs */
62         (GInstanceInitFunc) gdk_image_init,
63       };
64       
65       object_type = g_type_register_static (G_TYPE_OBJECT,
66                                             "GdkImage",
67                                             &object_info, 0);
68     }
69   
70   return object_type;
71 }
72
73 static void
74 gdk_image_init (GdkImage *image)
75 {
76   image->windowing_data = g_new0 (GdkImagePrivateWin32, 1);
77 }
78
79 static void
80 gdk_image_class_init (GdkImageClass *klass)
81 {
82   GObjectClass *object_class = G_OBJECT_CLASS (klass);
83
84   parent_class = g_type_class_peek_parent (klass);
85
86   object_class->finalize = gdk_image_finalize;
87 }
88
89 static void
90 gdk_image_finalize (GObject *object)
91 {
92   GdkImage *image = GDK_IMAGE (object);
93
94   gdk_win32_image_destroy (image);
95   
96   G_OBJECT_CLASS (parent_class)->finalize (object);
97 }
98
99 void
100 gdk_image_exit (void)
101 {
102   GdkImage *image;
103
104   while (image_list)
105     {
106       image = image_list->data;
107       gdk_win32_image_destroy (image);
108     }
109 }
110
111 GdkImage *
112 gdk_image_new_bitmap (GdkVisual *visual,
113                       gpointer   data,
114                       gint       w,
115                       gint       h)
116 /*
117  * Desc: create a new bitmap image
118  */
119 {
120   Visual *xvisual;
121   GdkImage *image;
122   GdkImagePrivateWin32 *private;
123   struct {
124     BITMAPINFOHEADER bmiHeader;
125     union {
126       WORD bmiIndices[2];
127       RGBQUAD bmiColors[2];
128     } u;
129   } bmi;
130   char *bits;
131   int bpl = (w-1)/8 + 1;
132   int bpl32 = ((w-1)/32 + 1)*4;
133
134   image = g_object_new (gdk_image_get_type (), NULL);
135   private = IMAGE_PRIVATE_DATA (image);
136
137   image->type = GDK_IMAGE_SHARED;
138   image->visual = visual;
139   image->width = w;
140   image->height = h;
141   image->depth = 1;
142   xvisual = ((GdkVisualPrivate*) visual)->xvisual;
143
144   GDK_NOTE (MISC, g_print ("gdk_image_new_bitmap: %dx%d\n", w, h));
145   
146   bmi.bmiHeader.biSize = sizeof (BITMAPINFOHEADER);
147   bmi.bmiHeader.biWidth = w;
148   bmi.bmiHeader.biHeight = -h;
149   bmi.bmiHeader.biPlanes = 1;
150   bmi.bmiHeader.biBitCount = 1;
151   bmi.bmiHeader.biCompression = BI_RGB;
152   bmi.bmiHeader.biSizeImage = 0;
153   bmi.bmiHeader.biXPelsPerMeter =
154     bmi.bmiHeader.biYPelsPerMeter = 0;
155   bmi.bmiHeader.biClrUsed = 0;
156   bmi.bmiHeader.biClrImportant = 0;
157   
158   bmi.u.bmiColors[0].rgbBlue = 
159     bmi.u.bmiColors[0].rgbGreen = 
160     bmi.u.bmiColors[0].rgbRed = 0x00;
161   bmi.u.bmiColors[0].rgbReserved = 0x00;
162
163   bmi.u.bmiColors[1].rgbBlue = 
164     bmi.u.bmiColors[1].rgbGreen = 
165     bmi.u.bmiColors[1].rgbRed = 0xFF;
166   bmi.u.bmiColors[1].rgbReserved = 0x00;
167   
168   private->hbitmap = CreateDIBSection (gdk_display_hdc, (BITMAPINFO *) &bmi,
169                                        DIB_RGB_COLORS, &bits, NULL, 0);
170   if (bpl != bpl32)
171     {
172       /* Win32 expects scanlines in DIBs to be 32 bit aligned */
173       int i;
174       for (i = 0; i < h; i++)
175         memmove (bits + i*bpl32, ((char *) data) + i*bpl, bpl);
176     }
177   else
178     memmove (bits, data, bpl*h);
179   image->mem = bits;
180   image->bpl = bpl32;
181   image->byte_order = GDK_MSB_FIRST;
182
183   image->bits_per_pixel = 1;
184   image->bpp = 1;
185
186   /* free data right now, in contrast to the X11 version we have made
187    * our own copy. Use free, it was malloc()ed.
188    */
189   free (data);
190   return(image);
191 } /* gdk_image_new_bitmap() */
192
193 void
194 _gdk_windowing_image_init (void)
195 {
196   /* Nothing needed AFAIK */
197 }
198
199 GdkImage*
200 gdk_image_new (GdkImageType  type,
201                GdkVisual    *visual,
202                gint          width,
203                gint          height)
204 {
205   GdkImage *image;
206   GdkImagePrivateWin32 *private;
207   Visual *xvisual;
208   struct {
209     BITMAPINFOHEADER bmiHeader;
210     union {
211       WORD bmiIndices[256];
212       DWORD bmiMasks[3];
213       RGBQUAD bmiColors[256];
214     } u;
215   } bmi;
216   UINT iUsage;
217   int i;
218
219   if (type == GDK_IMAGE_FASTEST || type == GDK_IMAGE_NORMAL)
220     type = GDK_IMAGE_SHARED;
221
222   GDK_NOTE (MISC, g_print ("gdk_image_new: %dx%d %s\n",
223                            width, height,
224                            (type == GDK_IMAGE_SHARED ? "shared" :
225                             "???")));
226   
227   image = g_object_new (gdk_image_get_type (), NULL);
228   private = IMAGE_PRIVATE_DATA (image);
229
230   image->type = type;
231   image->visual = visual;
232   image->width = width;
233   image->height = height;
234   image->depth = visual->depth;
235   
236   xvisual = ((GdkVisualPrivate*) visual)->xvisual;
237   
238   bmi.bmiHeader.biSize = sizeof (BITMAPINFOHEADER);
239   bmi.bmiHeader.biWidth = width;
240   bmi.bmiHeader.biHeight = -height;
241   bmi.bmiHeader.biPlanes = 1;
242   if (image->depth == 15)
243     bmi.bmiHeader.biBitCount = 16;
244   else
245     bmi.bmiHeader.biBitCount = image->depth;
246   if (image->depth == 16)
247     bmi.bmiHeader.biCompression = BI_BITFIELDS;
248   else
249     bmi.bmiHeader.biCompression = BI_RGB;
250   bmi.bmiHeader.biSizeImage = 0;
251   bmi.bmiHeader.biXPelsPerMeter =
252     bmi.bmiHeader.biYPelsPerMeter = 0;
253   bmi.bmiHeader.biClrUsed = 0;
254   bmi.bmiHeader.biClrImportant = 0;
255
256   if (image->visual->type == GDK_VISUAL_PSEUDO_COLOR)
257     {
258       iUsage = DIB_PAL_COLORS;
259       for (i = 0; i < 256; i++)
260         bmi.u.bmiIndices[i] = i;
261     }
262   else
263     {
264       iUsage = DIB_RGB_COLORS;
265       if (image->depth == 1)
266         {
267           bmi.u.bmiColors[0].rgbBlue = 
268             bmi.u.bmiColors[0].rgbGreen =
269             bmi.u.bmiColors[0].rgbRed = 0x00;
270           bmi.u.bmiColors[0].rgbReserved = 0x00;
271
272           bmi.u.bmiColors[1].rgbBlue = 
273             bmi.u.bmiColors[1].rgbGreen =
274             bmi.u.bmiColors[1].rgbRed = 0xFF;
275           bmi.u.bmiColors[1].rgbReserved = 0x00;
276
277         }
278       else if (image->depth == 16)
279         {
280           bmi.u.bmiMasks[0] = visual->red_mask;
281           bmi.u.bmiMasks[1] = visual->green_mask;
282           bmi.u.bmiMasks[2] = visual->blue_mask;
283         }
284     }
285
286   private->hbitmap = CreateDIBSection (gdk_display_hdc, (BITMAPINFO *) &bmi,
287                                        iUsage, &image->mem, NULL, 0);
288
289   if (private->hbitmap == NULL)
290     {
291       WIN32_GDI_FAILED ("CreateDIBSection");
292       g_free (image);
293       return NULL;
294     }
295
296   switch (image->depth)
297     {
298     case 1:
299     case 8:
300       image->bpp = 1;
301       break;
302     case 15:
303     case 16:
304       image->bpp = 2;
305       break;
306     case 24:
307       image->bpp = 3;
308       break;
309     case 32:
310       image->bpp = 4;
311       break;
312     default:
313       g_warning ("gdk_image_new: depth = %d", image->depth);
314       g_assert_not_reached ();
315     }
316   image->bits_per_pixel = image->depth;
317   image->byte_order = GDK_LSB_FIRST;
318   if (image->depth == 1)
319     image->bpl = ((width-1)/32 + 1)*4;
320   else
321     image->bpl = ((width*image->bpp - 1)/4 + 1)*4;
322
323   GDK_NOTE (MISC, g_print ("... = %#x mem = %p, bpl = %d\n",
324                            (guint) private->hbitmap, image->mem, image->bpl));
325
326   return image;
327 }
328
329 GdkImage*
330 _gdk_win32_get_image (GdkDrawable *drawable,
331                       gint         x,
332                       gint         y,
333                       gint         width,
334                       gint         height)
335 {
336   GdkImage *image;
337   GdkImagePrivateWin32 *private;
338   GdkDrawableImplWin32 *impl;
339   HDC hdc, memdc;
340   struct {
341     BITMAPINFOHEADER bmiHeader;
342     union {
343       WORD bmiIndices[256];
344       DWORD bmiMasks[3];
345       RGBQUAD bmiColors[256];
346     } u;
347   } bmi;
348   HGDIOBJ oldbitmap1, oldbitmap2;
349   UINT iUsage;
350   BITMAP bm;
351   int i;
352
353   g_return_val_if_fail (GDK_IS_DRAWABLE_IMPL_WIN32 (drawable), NULL);
354
355   GDK_NOTE (MISC, g_print ("_gdk_win32_get_image: %#x %dx%d@+%d+%d\n",
356                            (guint) GDK_DRAWABLE_IMPL_WIN32 (drawable)->handle,
357                            width, height, x, y));
358
359   impl = GDK_DRAWABLE_IMPL_WIN32 (drawable);
360
361   image = g_object_new (gdk_image_get_type (), NULL);
362   private = IMAGE_PRIVATE_DATA (image);
363
364   image->type = GDK_IMAGE_SHARED;
365   image->visual = gdk_drawable_get_visual (drawable);
366   image->width = width;
367   image->height = height;
368
369   /* This function is called both to blit from a window and from
370    * a pixmap.
371    */
372   if (GDK_IS_PIXMAP_IMPL_WIN32 (drawable))
373     {
374       if ((hdc = CreateCompatibleDC (NULL)) == NULL)
375         {
376           WIN32_GDI_FAILED ("CreateCompatibleDC");
377           g_free (image);
378           return NULL;
379         }
380       if ((oldbitmap1 = SelectObject (hdc, impl->handle)) == NULL)
381         {
382           WIN32_GDI_FAILED ("SelectObject");
383           DeleteDC (hdc);
384           g_free (image);
385           return NULL;
386         }
387       GetObject (impl->handle, sizeof (BITMAP), &bm);
388       GDK_NOTE (MISC,
389                 g_print ("gdk_image_get: bmWidth:%ld bmHeight:%ld bmWidthBytes:%ld bmBitsPixel:%d\n",
390                          bm.bmWidth, bm.bmHeight, bm.bmWidthBytes, bm.bmBitsPixel));
391       image->depth = bm.bmBitsPixel;
392       if (image->depth <= 8)
393         {
394           iUsage = DIB_PAL_COLORS;
395           for (i = 0; i < 256; i++)
396             bmi.u.bmiIndices[i] = i;
397         }
398       else
399         iUsage = DIB_RGB_COLORS;
400     }
401   else
402     {
403       if ((hdc = GetDC (impl->handle)) == NULL)
404         {
405           WIN32_GDI_FAILED ("GetDC");
406           g_free (image);
407           return NULL;
408         }
409       image->depth = gdk_visual_get_system ()->depth;
410       if (image->visual->type == GDK_VISUAL_PSEUDO_COLOR)
411         {
412           iUsage = DIB_PAL_COLORS;
413           for (i = 0; i < 256; i++)
414             bmi.u.bmiIndices[i] = i;
415         }
416       else
417         iUsage = DIB_RGB_COLORS;
418     }
419
420   if ((memdc = CreateCompatibleDC (hdc)) == NULL)
421     {
422       WIN32_GDI_FAILED ("CreateCompatibleDC");
423       if (GDK_IS_PIXMAP (drawable))
424         {
425           SelectObject (hdc, oldbitmap1);
426           if (!DeleteDC (hdc))
427             WIN32_GDI_FAILED ("DeleteDC");
428         }
429       else
430         {
431           if (!ReleaseDC (impl->handle, hdc))
432             WIN32_GDI_FAILED ("ReleaseDC");
433         }
434       g_free (image);
435       return NULL;
436     }
437
438   bmi.bmiHeader.biSize = sizeof (BITMAPINFOHEADER);
439   bmi.bmiHeader.biWidth = width;
440   bmi.bmiHeader.biHeight = -height;
441   bmi.bmiHeader.biPlanes = 1;
442   bmi.bmiHeader.biBitCount = image->depth;
443   if (image->depth == 16)
444     {
445       bmi.bmiHeader.biCompression = BI_BITFIELDS;
446       if (image->visual == NULL)
447         {
448           /* XXX ??? Is it always this if depth==16 and a pixmap? Guess so. */
449           bmi.u.bmiMasks[0] = 0xf800;
450           bmi.u.bmiMasks[1] = 0x07e0;
451           bmi.u.bmiMasks[2] = 0x001f;
452         }
453       else
454         {
455           bmi.u.bmiMasks[0] = image->visual->red_mask;
456           bmi.u.bmiMasks[1] = image->visual->green_mask;
457           bmi.u.bmiMasks[2] = image->visual->blue_mask;
458         }
459     }
460   else
461     bmi.bmiHeader.biCompression = BI_RGB;
462   bmi.bmiHeader.biSizeImage = 0;
463   bmi.bmiHeader.biXPelsPerMeter =
464     bmi.bmiHeader.biYPelsPerMeter = 0;
465   bmi.bmiHeader.biClrUsed = 0;
466   bmi.bmiHeader.biClrImportant = 0;
467
468   if ((private->hbitmap = CreateDIBSection (hdc, (BITMAPINFO *) &bmi, iUsage,
469                                             &image->mem, NULL, 0)) == NULL)
470     {
471       WIN32_GDI_FAILED ("CreateDIBSection");
472       DeleteDC (memdc);
473       if (GDK_IS_PIXMAP (drawable))
474         {
475           SelectObject (hdc, oldbitmap1);
476           DeleteDC (hdc);
477         }
478       else
479         {
480           ReleaseDC (impl->handle, hdc);
481         }
482       g_free (image);
483       return NULL;
484     }
485
486   if ((oldbitmap2 = SelectObject (memdc, private->hbitmap)) == NULL)
487     {
488       WIN32_GDI_FAILED ("SelectObject");
489       DeleteObject (private->hbitmap);
490       DeleteDC (memdc);
491       if (GDK_IS_PIXMAP (drawable))
492         {
493           SelectObject (hdc, oldbitmap1);
494           DeleteDC (hdc);
495         }
496       else
497         {
498           ReleaseDC (impl->handle, hdc);
499         }
500       g_free (image);
501       return NULL;
502     }
503
504   if (!BitBlt (memdc, 0, 0, width, height, hdc, x, y, SRCCOPY))
505     {
506       WIN32_GDI_FAILED ("BitBlt");
507       SelectObject (memdc, oldbitmap2);
508       DeleteObject (private->hbitmap);
509       DeleteDC (memdc);
510       if (GDK_IS_PIXMAP (drawable))
511         {
512           SelectObject (hdc, oldbitmap1);
513           DeleteDC (hdc);
514         }
515       else
516         {
517           ReleaseDC (impl->handle, hdc);
518         }
519       g_free (image);
520       return NULL;
521     }
522
523   if (SelectObject (memdc, oldbitmap2) == NULL)
524     WIN32_GDI_FAILED ("SelectObject");
525
526   if (!DeleteDC (memdc))
527     WIN32_GDI_FAILED ("DeleteDC");
528
529   if (GDK_IS_PIXMAP_IMPL_WIN32 (drawable))
530     {
531       SelectObject (hdc, oldbitmap1);
532       DeleteDC (hdc);
533     }
534   else
535     {
536       ReleaseDC (impl->handle, hdc);
537     }
538
539   switch (image->depth)
540     {
541     case 1:
542     case 8:
543       image->bpp = 1;
544       break;
545     case 15:
546     case 16:
547       image->bpp = 2;
548       break;
549     case 24:
550       image->bpp = 3;
551       break;
552     case 32:
553       image->bpp = 4;
554       break;
555     default:
556       g_warning ("gdk_image_get: image->depth = %d", image->depth);
557       g_assert_not_reached ();
558     }
559   image->bits_per_pixel = image->depth;
560   image->byte_order = GDK_LSB_FIRST;
561   if (image->depth == 1)
562     image->bpl = ((width - 1)/32 + 1)*4;
563   else
564     image->bpl = ((width*image->bpp - 1)/4 + 1)*4;
565
566   GDK_NOTE (MISC, g_print ("... = %#x mem = %p, bpl = %d\n",
567                            (guint) private->hbitmap, image->mem, image->bpl));
568
569   return image;
570 }
571
572 guint32
573 gdk_image_get_pixel (GdkImage *image,
574                      gint      x,
575                      gint      y)
576 {
577   guint32 pixel;
578
579   g_return_val_if_fail (GDK_IS_IMAGE (image), 0);
580
581   if (!(x >= 0 && x < image->width && y >= 0 && y < image->height))
582       return 0;
583
584   if (image->depth == 1)
585     pixel = (((char *) image->mem)[y * image->bpl + (x >> 3)] & (1 << (7 - (x & 0x7)))) != 0;
586   else
587     {
588       guchar *pixelp = (guchar *) image->mem + y * image->bpl + x * image->bpp;
589       
590       switch (image->bpp)
591         {
592         case 1:
593           pixel = *pixelp;
594           break;
595
596         /* Windows is always LSB, no need to check image->byte_order. */
597         case 2:
598           pixel = pixelp[0] | (pixelp[1] << 8);
599           break;
600
601         case 3:
602           pixel = pixelp[0] | (pixelp[1] << 8) | (pixelp[2] << 16);
603           break;
604
605         case 4:
606           pixel = pixelp[0] | (pixelp[1] << 8) | (pixelp[2] << 16);
607           break;
608         }
609     }
610
611   return pixel;
612 }
613
614 void
615 gdk_image_put_pixel (GdkImage *image,
616                      gint       x,
617                      gint       y,
618                      guint32    pixel)
619 {
620   g_return_if_fail (image != NULL);
621
622   if  (!(x >= 0 && x < image->width && y >= 0 && y < image->height))
623     return;
624
625   if (image->depth == 1)
626     if (pixel & 1)
627       ((guchar *) image->mem)[y * image->bpl + (x >> 3)] |= (1 << (7 - (x & 0x7)));
628     else
629       ((guchar *) image->mem)[y * image->bpl + (x >> 3)] &= ~(1 << (7 - (x & 0x7)));
630   else
631     {
632       guchar *pixelp = (guchar *) image->mem + y * image->bpl + x * image->bpp;
633       
634       /* Windows is always LSB, no need to check image->byte_order. */
635       switch (image->bpp)
636         {
637         case 4:
638           pixelp[3] = 0;
639         case 3:
640           pixelp[2] = ((pixel >> 16) & 0xFF);
641         case 2:
642           pixelp[1] = ((pixel >> 8) & 0xFF);
643         case 1:
644           pixelp[0] = (pixel & 0xFF);
645         }
646     }
647 }
648
649 static void
650 gdk_win32_image_destroy (GdkImage *image)
651 {
652   GdkImagePrivateWin32 *private;
653
654   g_return_if_fail (GDK_IS_IMAGE (image));
655
656   private = IMAGE_PRIVATE_DATA (image);
657
658   if (private == NULL) /* This means that gdk_image_exit() destroyed the
659                         * image already, and now we're called a second
660                         * time from _finalize()
661                         */
662     return;
663   
664   GDK_NOTE (MISC, g_print ("gdk_win32_image_destroy: %#x\n",
665                            (guint) private->hbitmap));
666   
667   switch (image->type)
668     {
669     case GDK_IMAGE_SHARED:
670       if (!DeleteObject (private->hbitmap))
671         WIN32_GDI_FAILED ("DeleteObject");
672       break;
673
674     default:
675       g_assert_not_reached ();
676     }
677
678   g_free (private);
679   image->windowing_data = NULL;
680 }
681