forked from dmitryvk/cl-gtk2
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathgdk.rgb.lisp
126 lines (97 loc) · 2.78 KB
/
gdk.rgb.lisp
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
(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)