From be3ed2fe370ef129390ac4926e9e41284363b00d Mon Sep 17 00:00:00 2001
From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 1 Nov 2009 18:31:08 +0300
Subject: [PATCH] Add Gdk/RGB

---
 gdk/cl-gtk2-gdk.asd |    3 +-
 gdk/gdk.rgb.lisp    |  126 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 128 insertions(+), 1 deletion(-)
 create mode 100644 gdk/gdk.rgb.lisp

diff --git a/gdk/cl-gtk2-gdk.asd b/gdk/cl-gtk2-gdk.asd
index 7853bcd..96691fe 100644
--- a/gdk/cl-gtk2-gdk.asd
+++ b/gdk/cl-gtk2-gdk.asd
@@ -13,5 +13,6 @@
                (:file "gdk.region")
                (:file "gdk.gc")
                (:file "gdk.drawing-primitives")
-               (:file "gdk.bitmaps"))
+               (:file "gdk.bitmaps")
+               (:file "gdk.rgb"))
   :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-pango))
\ No newline at end of file
diff --git a/gdk/gdk.rgb.lisp b/gdk/gdk.rgb.lisp
new file mode 100644
index 0000000..9d069f0
--- /dev/null
+++ b/gdk/gdk.rgb.lisp
@@ -0,0 +1,126 @@
+(in-package :gdk)
+
+(defcfun (draw-rgb-image "gdk_draw_rgb_image") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dither rgb-dither)
+  (rgb-buf :pointer)
+  (rowstride :int))
+
+(export 'draw-rgb-image)
+
+(defcfun (draw-rgb-image-dithalign "gdk_draw_rgb_image_dithalign") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dither rgb-dither)
+  (rgb-buf :pointer)
+  (rowstride :int)
+  (x-dith :int)
+  (y-dith :int))
+
+(export 'draw-rgb-image-dithalign)
+
+(define-g-boxed-cstruct rgb-cmap nil
+  (colors :uint32 :count 256 :initform (make-array 256 :element-type '(unsigned-byte 32) :initial-element 0))
+  (n-colors :int :initform 0))
+
+(defcfun (draw-indexed-image "gdk_draw_indexed_image") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dither rgb-dither)
+  (buf :pointer)
+  (rowstring :int)
+  (cmap (g-boxed-foreign rgb-cmap)))
+
+(export 'draw-indexed-image)
+
+(defcfun (draw-gray-image "gdk_draw_gray_image") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dith rgb-dither)
+  (buf :pointer)
+  (rowstride :int))
+
+(export 'draw-gray-image)
+
+(defcfun (draw-rgb-32-image "gdk_draw_rgb_32_image") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dither rgb-dither)
+  (buf :pointer)
+  (rowstride :int))
+
+(export 'draw-rgb-32-image)
+
+(defcfun (draw-rgb-32-image-dithalign "gdk_draw_rgb_32_image_dithalign") :void
+  (drawable (g-object drawable))
+  (gc (g-object graphics-context))
+  (x :int)
+  (y :int)
+  (width :int)
+  (height :int)
+  (dither rgb-dither)
+  (buf :pointer)
+  (rowstride :int)
+  (xdith :int)
+  (ydith :int))
+
+(export 'draw-rgb-32-image-dithalign)
+
+(defcfun (rgb-find-color "gdk_rgb_find_color") :void
+  (colormap (g-object colormap))
+  (color (g-boxed-foreign color)))
+
+(export 'rgb-find-color)
+
+(defcfun (rgb-set-install "gdk_rgb_set_install") :void
+  (install :boolean))
+
+(export 'rgb-set-install)
+
+(defcfun (rgb-set-min-colors "gdk_rgb_set_min_colors") :void
+  (min-colors :int))
+
+(export 'rgb-set-min-colors)
+
+(defcfun (rgb-get-visual "gdk_rgb_get_visual") (g-object visual))
+
+(export 'rgb-get-visual)
+
+(defcfun (rgb-get-colormap "gdk_rgb_get_colormap") (g-object colormap))
+
+(export 'rgb-get-colormap)
+
+(defcfun (rgb-ditherable "gdk_rgb_ditherable") :boolean)
+
+(export 'rgb-ditherable)
+
+(defcfun (rgb-colormap-ditherable "gdk_rgb_colormap_ditherable") :boolean
+  (colormap (g-object colormap)))
+
+(export 'rgb-colormap-ditherable)
+
+(defcfun (rgb-set-verbose "gdk_rgb_set_verbose") :void
+  (verbose :boolean))
+
+(export 'rgb-set-verbose)
-- 
1.7.10.4