gdk/gdk.rgb.lisp

   1 (in-package :gdk)
   2
   3 (defcfun (draw-rgb-image "gdk_draw_rgb_image") :void
   4   (drawable (g-object drawable))
   5   (gc (g-object graphics-context))
   6   (x :int)
   7   (y :int)
   8   (width :int)
   9   (height :int)
  10   (dither rgb-dither)
  11   (rgb-buf :pointer)
  12   (rowstride :int))
  13
  14 (export 'draw-rgb-image)
  15
  16 (defcfun (draw-rgb-image-dithalign "gdk_draw_rgb_image_dithalign") :void
  17   (drawable (g-object drawable))
  18   (gc (g-object graphics-context))
  19   (x :int)
  20   (y :int)
  21   (width :int)
  22   (height :int)
  23   (dither rgb-dither)
  24   (rgb-buf :pointer)
  25   (rowstride :int)
  26   (x-dith :int)
  27   (y-dith :int))
  28
  29 (export 'draw-rgb-image-dithalign)
  30
  31 (define-g-boxed-cstruct rgb-cmap nil
  32   (colors :uint32 :count 256 :initform (make-array 256 :element-type '(unsigned-byte 32) :initial-element 0))
  33   (n-colors :int :initform 0))
  34
  35 (defcfun (draw-indexed-image "gdk_draw_indexed_image") :void
  36   (drawable (g-object drawable))
  37   (gc (g-object graphics-context))
  38   (x :int)
  39   (y :int)
  40   (width :int)
  41   (height :int)
  42   (dither rgb-dither)
  43   (buf :pointer)
  44   (rowstring :int)
  45   (cmap (g-boxed-foreign rgb-cmap)))
  46
  47 (export 'draw-indexed-image)
  48
  49 (defcfun (draw-gray-image "gdk_draw_gray_image") :void
  50   (drawable (g-object drawable))
  51   (gc (g-object graphics-context))
  52   (x :int)
  53   (y :int)
  54   (width :int)
  55   (height :int)
  56   (dith rgb-dither)
  57   (buf :pointer)
  58   (rowstride :int))
  59
  60 (export 'draw-gray-image)
  61
  62 (defcfun (draw-rgb-32-image "gdk_draw_rgb_32_image") :void
  63   (drawable (g-object drawable))
  64   (gc (g-object graphics-context))
  65   (x :int)
  66   (y :int)
  67   (width :int)
  68   (height :int)
  69   (dither rgb-dither)
  70   (buf :pointer)
  71   (rowstride :int))
  72
  73 (export 'draw-rgb-32-image)
  74
  75 (defcfun (draw-rgb-32-image-dithalign "gdk_draw_rgb_32_image_dithalign") :void
  76   (drawable (g-object drawable))
  77   (gc (g-object graphics-context))
  78   (x :int)
  79   (y :int)
  80   (width :int)
  81   (height :int)
  82   (dither rgb-dither)
  83   (buf :pointer)
  84   (rowstride :int)
  85   (xdith :int)
  86   (ydith :int))
  87
  88 (export 'draw-rgb-32-image-dithalign)
  89
  90 (defcfun (rgb-find-color "gdk_rgb_find_color") :void
  91   (colormap (g-object colormap))
  92   (color (g-boxed-foreign color)))
  93
  94 (export 'rgb-find-color)
  95
  96 (defcfun (rgb-set-install "gdk_rgb_set_install") :void
  97   (install :boolean))
  98
  99 (export 'rgb-set-install)
 100
 101 (defcfun (rgb-set-min-colors "gdk_rgb_set_min_colors") :void
 102   (min-colors :int))
 103
 104 (export 'rgb-set-min-colors)
 105
 106 (defcfun (rgb-get-visual "gdk_rgb_get_visual") (g-object visual))
 107
 108 (export 'rgb-get-visual)
 109
 110 (defcfun (rgb-get-colormap "gdk_rgb_get_colormap") (g-object colormap))
 111
 112 (export 'rgb-get-colormap)
 113
 114 (defcfun (rgb-ditherable "gdk_rgb_ditherable") :boolean)
 115
 116 (export 'rgb-ditherable)
 117
 118 (defcfun (rgb-colormap-ditherable "gdk_rgb_colormap_ditherable") :boolean
 119   (colormap (g-object colormap)))
 120
 121 (export 'rgb-colormap-ditherable)
 122
 123 (defcfun (rgb-set-verbose "gdk_rgb_set_verbose") :void
 124   (verbose :boolean))
 125
 126 (export 'rgb-set-verbose)