1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
|
; gdk-pixbuf.defs -*- lisp -*-
(import "gdk.defs")
(define-boxed GdkPixbuf
(copy gdk_pixbuf_ref)
(free gdk_pixbuf_unref))
(define-enum GdkColorspace
(rgb GDK_COLORSPACE_RGB))
(define-enum GdkPixbufAlphaMode
(bilevel GDK_PIXBUF_ALPHA_BILEVEL)
(full GDK_PIXBUF_ALPHA_FULL))
(define-enum GdkInterpType
(nearest GDK_INTERP_NEAREST)
(tiles GDK_INTERP_TILES)
(bilinear GDK_INTERP_BILINEAR)
(hyper GDK_INTERP_HYPER))
;;; accessors
(define-func gdk_pixbuf_get_colorspace
GdkColorspace
((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_n_channels
int
((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_has_alpha
bool
((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_bits_per_sample
int
((GdkPixbuf pixbuf)))
;(define-func gdk_pixbuf_get_pixels
; ??
; ((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_width
int
((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_height
int
((GdkPixbuf pixbuf)))
(define-func gdk_pixbuf_get_rowstride
int
((GdkPixbuf pixbuf)))
;;; creation
(define-func gdk_pixbuf_new
(GdkPixbuf (copy nil))
((GdkColorspace colorspace)
(bool has_alpha)
(int bits_per_sample)
(int width)
(int height)))
(define-func gdk_pixbuf_copy
(GdkPixbuf (copy nil))
((GdkPixbuf pixbuf)))
;;; loading
(define-func gdk_pixbuf_new_from_file
(GdkPixbuf (copy nil))
((string filename)
;; XXX fix this
(pointer gerror (= "0"))))
;why the fuck was this changed to take a const char **?
;(define-func gdk_pixbuf_new_from_xpm_data
; (GdkPixbuf (copy nil))
; ((string data)))
;;; manipulation
(define-func gdk_pixbuf_add_alpha
(GdkPixbuf (copy nil))
((GdkPixbuf pixbuf)
(bool subst_color)
(uint r)
(uint g)
(uint b)))
(define-func gdk_pixbuf_copy_area
none
((GdkPixbuf src_pixbuf)
(int src_x)
(int src_y)
(int width)
(int height)
(GdkPixbuf dest_pixbuf)
(int dest_x)
(int dest_y)))
;(define-func gdk_pixbuf_render_threshold_alpha
; none
; ((GdkPixbuf pixbuf)
; (GdkBitmap bitmap)
; (int src_x)
; (int src_y)
; (int dest_x)
; (int dest_y)
; (int width)
; (int height)
; (int alpha_threshold)))
;(define-func gdk_pixbuf_render_to_drawable
; none
; ((GdkPixbuf pixbuf)
; (GdkDrawable drawable)
; (GdkGC gc)
; (int src_y)
; (int dest_x)
; (int dest_y)
; (int width)
; (int height)
; (GdkRgbDither dither)
; (int x_dither)
; (int y_dither)))
;(define-func gdk_pixbuf_render_to_drawable_alpha
; none
; ((GdkPixbuf pixbuf)
; (GdkDrawable drawable)
; (GdkGC gc)
; (int src_y)
; (int dest_x)
; (int dest_y)
; (int width)
; (int height)
; (GdkPixbufAlphaMode alpha_mode)
; (int alpha_threshold)
; (GdkRgbDither dither)
; (int x_dither)
; (int y_dither)))
;(define-func gdk_pixbuf_render_pixmap_and_mask
; none
; ((GdkPixbuf pixbuf)
; ((ret GdkPixmap) pixmap_return)
; ((ret GdkBitmap) mask_return)
; (int alpha_threshold)))
;; gdk_pixbuf_get_from_drawable
;;; scaling
(define-func gdk_pixbuf_scale
none
((GdkPixbuf src)
(GdkPixbuf dest)
(int dest_x)
(int dest_y)
(int dest_width)
(int dest_height)
(double offset_x)
(double offset_y)
(double scale_x)
(double scale_y)
(GdkInterpType interp_type)))
(define-func gdk_pixbuf_composite
none
((GdkPixbuf src)
(GdkPixbuf dest)
(int dest_x)
(int dest_y)
(int dest_width)
(int dest_height)
(double offset_x)
(double offset_y)
(double scale_x)
(double scale_y)
(GdkInterpType interp_type)
(int overall_alpha)))
(define-func gdk_pixbuf_composite_color
none
((GdkPixbuf src)
(GdkPixbuf dest)
(int dest_x)
(int dest_y)
(int dest_width)
(int dest_height)
(double offset_x)
(double offset_y)
(double scale_x)
(double scale_y)
(GdkInterpType interp_type)
(int overall_alpha)
(int check_x)
(int check_y)
(int check_size)
(uint color1)
(uint color2)))
(define-func gdk_pixbuf_scale_simple
(GdkPixbuf (copy nil))
((GdkPixbuf src)
(int dest_width)
(int dest_height)
(GdkInterpType interp_type)))
(define-func gdk_pixbuf_composite_color_simple
(GdkPixbuf (copy nil))
((GdkPixbuf src)
(int dest_width)
(int dest_height)
(GdkInterpType interp_type)
(int overall_alpha)
(int check_size)
(uint color1)
(uint color2)))
;;; XXX animations
(options
(includes "#include <gdk-pixbuf/gdk-pixbuf.h>")
(init-func "sgtk_init_gdk_pixbuf_glue")
(other-inits "sgtk_init_gtk_glib_glue")
(other-inits "sgtk_init_gtk_gdk_glue"))
|
