gdk/gdk.pixbufs.lisp

   1 (in-package :gdk)
   2
   3 (defcfun (pixbuf-render-threshold-alpha "gdk_pixbuf_render_threshold_alpha") :void
   4   (pixbuf (g-object pixbuf))
   5   (bitmap (g-object bitmap))
   6   (src-x :int)
   7   (src-y :int)
   8   (dest-x :int)
   9   (dest-y :int)
  10   (width :int)
  11   (height :int)
  12   (alpha-threshold :int))
  13
  14 (export 'pixbuf-render-threshold-alpha)
  15
  16 (defcfun (pixbuf-render-to-drawable "gdk_pixbuf_render_to_drawable") :void
  17   (pixbuf (g-object pixbuf))
  18   (drawable (g-object drawable))
  19   (gc (g-object graphics-context))
  20   (src-x :int)
  21   (src-y :int)
  22   (dest-x :int)
  23   (dest-y :int)
  24   (width :int)
  25   (height :int)
  26   (dither rgb-dither)
  27   (x-dither :int)
  28   (y-dither :int))
  29
  30 (export 'pixbuf-render-to-drawable)
  31
  32 (defcfun (pixbuf-render-to-drawable-alpha "gdk_pixbuf_render_to_drawable_alpha") :void
  33   (pixbuf (g-object pixbuf))
  34   (drawable (g-object drawable))
  35   (src-x :int)
  36   (src-y :int)
  37   (dest-x :int)
  38   (dest-y :int)
  39   (width :int)
  40   (height :int)
  41   (alpha-mode pixbuf-alpha-mode)
  42   (alpha-threshold :int)
  43   (dither rgb-dither)
  44   (x-dither :int)
  45   (y-dither :int))
  46
  47 (export 'pixbuf-render-to-drawable-alpha)
  48
  49 (defcfun gdk-pixbuf-render-pixmap-and-mask :void
  50   (pixbuf (g-object pixbuf))
  51   (pixmap-return :pointer)
  52   (mask-return :pointer)
  53   (alpha-threshold :int))
  54
  55 (defun pixbuf-render-pixmap-and-mask (pixbuf alpha-threshold)
  56   (with-foreign-objects ((pixmap-return :pointer) (mask-return :pointer))
  57     (gdk-pixbuf-render-pixmap-and-mask pixbuf pixmap-return mask-return alpha-threshold)
  58     (values (convert-from-foreign (mem-ref pixmap-return :pointer) '(g-object pixmap :already-referenced))
  59             (convert-from-foreign (mem-ref mask-return :pointer) '(g-object pixmap :already-referenced)))))
  60
  61 (export 'pixbuf-render-pixmap-and-mask)
  62
  63 (defcfun gdk-pixbuf-render-pixmap-and-mask-for-colormap :void
  64   (pixbuf (g-object pixbuf))
  65   (colormap (g-object colormap))
  66   (pixmap-return :pointer)
  67   (mask-return :pointer)
  68   (alpha-threshold :int))
  69
  70 (defun pixbuf-render-pixmap-and-mask-for-colormap (pixbuf colormap alpha-threshold)
  71   (with-foreign-objects ((pixmap-return :pointer) (mask-return :pointer))
  72     (gdk-pixbuf-render-pixmap-and-mask-for-colormap pixbuf colormap pixmap-return mask-return alpha-threshold)
  73     (values (convert-from-foreign (mem-ref pixmap-return :pointer) '(g-object pixmap :already-referenced))
  74             (convert-from-foreign (mem-ref mask-return :pointer) '(g-object pixmap :already-referenced)))))
  75
  76 (export 'pixbuf-render-pixmap-and-mask-for-colormap)
  77
  78 (defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf :already-referenced)
  79   (dest (g-object pixbuf))
  80   (src (g-object drawable))
  81   (colormap :pointer)
  82   (src-x :int)
  83   (src-y :int)
  84   (dest-x :int)
  85   (dest-y :int)
  86   (width :int)
  87   (height :int))
  88
  89 (defun pixbuf-get-from-drawable (pixbuf drawable &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
  90   (gdk-pixbuf-get-from-drawable pixbuf drawable (null-pointer) src-x src-y dest-x dest-y width height))
  91
  92 (export 'pixbuf-get-from-drawable)
  93
  94 (defcfun gdk-pixbuf-get-from-image (g-object pixbuf :already-referenced)
  95   (dest (g-object pixbuf))
  96   (src (g-object gdk-image))
  97   (colormap :pointer)
  98   (src-x :int)
  99   (src-y :int)
 100   (dest-x :int)
 101   (dest-y :int)
 102   (width :int)
 103   (height :int))
 104
 105 (defun pixbuf-get-from-image (pixbuf image &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
 106   (gdk-pixbuf-get-from-image pixbuf image (null-pointer) src-x src-y dest-x dest-y width height))
 107
 108 (export 'pixbuf-get-from-image)
 109
 110 (defcfun gdk-pixbuf-new (g-object pixbuf :already-referenced)
 111   (colorspace colorspace)
 112   (has-alpha :boolean)
 113   (bits-per-sample :int)
 114   (width :int)
 115   (height :int))
 116
 117 (defcfun gdk-pixbuf-scale-simple (g-object pixbuf :already-referenced)
 118   (src (g-object pixbuf))
 119   (dest-width :int)
 120   (dest-height :int)
 121   (interp-type gdk-interp-type))
 122
 123 (defun pixbuf-scale-simple (pixbuf dest-width dest-height &key (interp-type :bilinear))
 124   (gdk-pixbuf-scale-simple pixbuf dest-width dest-height interp-type))
 125
 126 (export 'pixbuf-scale-simple)
 127
 128 (defcfun (pixbuf-scale "gdk_pixbuf_scale") :void
 129   (src (g-object pixbuf))
 130   (dest (g-object pixbuf))
 131   (dest-x :int)
 132   (dest-y :int)
 133   (dest-width :int)
 134   (dest-height :int)
 135   (offset-x :double)
 136   (offset-y :double)
 137   (scale-x :double)
 138   (scale-y :double)
 139   (interp-type gdk-interp-type))
 140
 141 (export 'pixbuf-scale)
 142
 143 (defcfun (pixbuf-composite-color-simple "gdk_pixbuf_composite_color_simple") (g-object pixbuf :already-referenced)
 144   (src (g-object pixbuf))
 145   (dest-width :int)
 146   (dest-height :int)
 147   (interp-type gdk-interp-type)
 148   (overall-alpha :int)
 149   (check-size :int)
 150   (color-1 :uint32)
 151   (color-2 :uint32))
 152
 153 (export 'pixbuf-composite-color-simple)
 154
 155 (defcfun (pixbuf-composite "gdk_pixbuf_composite") :void
 156   (src (g-object pixbuf))
 157   (dest (g-object pixbuf))
 158   (dest-x :int)
 159   (dest-y :int)
 160   (dest-width :int)
 161   (dest-height :int)
 162   (offset-x :double)
 163   (offset-y :double)
 164   (scale-x :double)
 165   (scale-y :double)
 166   (interp-type gdk-interp-type)
 167   (overall-alpha :int))
 168
 169 (export 'pixbuf-composite)
 170
 171 (defcfun (pixbuf-composite-color "gdk_pixbuf_composite_color") :void
 172   (src (g-object pixbuf))
 173   (dest (g-object pixbuf))
 174   (dest-x :int)
 175   (dest-y :int)
 176   (dest-width :int)
 177   (dest-height :int)
 178   (offset-x :double)
 179   (offset-y :double)
 180   (scale-x :double)
 181   (scale-y :double)
 182   (interp-type gdk-interp-type)
 183   (overall-alpha :int)
 184   (check-x :int)
 185   (check-y :int)
 186   (check-size :int)
 187   (color-1 :uint32)
 188   (color-2 :uint32))
 189
 190 (export 'pixbuf-composite-color)
 191
 192 (defcfun (pixbuf-rotate-simple "gdk_pixbuf_rotate_simple") (g-object pixbuf :already-referenced)
 193   (src (g-object pixbuf))
 194   (angle gdk-pixbuf-rotation))
 195
 196 (export 'pixbuf-rotate-simple)
 197
 198 (defcfun (pixbuf-flip "gdk_pixbuf_flip") (g-object pixbuf :already-referenced)
 199   (src (g-object pixbuf))
 200   (horizontal :boolean))
 201
 202 (export 'pixbuf-flip)