ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/CV.xs
(Generate patch)

Comparing CV/CV.xs (file contents):
Revision 1.1 by root, Sun Nov 2 12:55:41 2003 UTC vs.
Revision 1.6 by root, Wed Nov 12 00:59:01 2003 UTC

1#include "EXTERN.h" 1#include "EXTERN.h"
2#include "perl.h" 2#include "perl.h"
3#include "XSUB.h" 3#include "XSUB.h"
4 4
5#include <gdk-pixbuf/gdk-pixbuf.h>
6
7#include <gperl.h>
8#include <gtk2perl.h>
9
10#define IW 80
11
12#define RAND (seed = (seed + 7141) * 54773 % 134456)
13
14#define ELLIPSIS "\xe2\x80\xa6"
15
16static guint32 a85_val;
17static guint a85_cnt;
18static guchar a85_buf[80], *a85_ptr;
19
20static void
21a85_init (void)
22{
23 a85_cnt = 4;
24 a85_ptr = a85_buf;
25}
26
27static void
28a85_push (PerlIO *fp, guchar c)
29{
30 a85_val = a85_val << 8 | c;
31
32 if (!--a85_cnt)
33 {
34 a85_cnt = 4;
35 if (a85_val)
36 {
37 a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
38 a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
39 a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
40 a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
41 a85_ptr[0] = (a85_val ) + 33;
42
43 a85_ptr += 5;
44 }
45 else
46 *a85_ptr++ = 'z';
47
48 if (a85_ptr >= a85_buf + sizeof (a85_buf) - 7)
49 {
50 *a85_ptr++ = '\n';
51 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
52 a85_ptr = a85_buf;
53 }
54 }
55
56}
57
58a85_finish (PerlIO *fp)
59{
60 while (a85_cnt != 4)
61 a85_push (fp, 0);
62
63 *a85_ptr++ = '~'; // probably buggy end-marker
64 *a85_ptr++ = '>'; // probably buggy end-marker
65 *a85_ptr++ = '\n';
66
67 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
68}
69
70/////////////////////////////////////////////////////////////////////////////
71
5MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow 72MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow
6 73
7PROTOTYPES: ENABLE 74PROTOTYPES: ENABLE
8 75
76GdkPixbuf_noinc *
77transpose (GdkPixbuf *pb)
78 CODE:
79{
80 int w = gdk_pixbuf_get_width (pb);
81 int h = gdk_pixbuf_get_height (pb);
82 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
83 int x, y, i;
84 guchar *src = gdk_pixbuf_get_pixels (pb), *dst;
85 int sstr = gdk_pixbuf_get_rowstride (pb), dstr;
9 86
87 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, h, w);
88
89 dst = gdk_pixbuf_get_pixels (RETVAL);
90 dstr = gdk_pixbuf_get_rowstride (RETVAL);
91
92 for (y = 0; y < h; y++)
93 for (x = 0; x < w; x++)
94 for (i = 0; i < bpp; i++)
95 dst[y * bpp + x * dstr + i] = src[x * bpp + y * sstr + i];
96}
97 OUTPUT:
98 RETVAL
99
100GdkPixbuf_noinc *
101flop (GdkPixbuf *pb)
102 CODE:
103{
104 int w = gdk_pixbuf_get_width (pb);
105 int h = gdk_pixbuf_get_height (pb);
106 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
107 int x, y, i;
108 guchar *src = gdk_pixbuf_get_pixels (pb), *dst;
109 int sstr = gdk_pixbuf_get_rowstride (pb), dstr;
110
111 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, w, h);
112
113 dst = gdk_pixbuf_get_pixels (RETVAL);
114 dstr = gdk_pixbuf_get_rowstride (RETVAL);
115
116 for (y = 0; y < h; y++)
117 for (x = 0; x < w; x++)
118 for (i = 0; i < bpp; i++)
119 dst[(w - 1 - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i];
120}
121 OUTPUT:
122 RETVAL
123
124#############################################################################
125
126MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
127
128GdkPixbuf_noinc *
129p7_to_pb (int w, int h, guchar *src)
130 CODE:
131{
132 int x, y;
133 guchar *dst, *d;
134 int dstr;
135
136 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, w, h);
137 dst = gdk_pixbuf_get_pixels (RETVAL);
138 dstr = gdk_pixbuf_get_rowstride (RETVAL);
139
140 for (y = 0; y < h; y++)
141 for (d = dst + y * dstr, x = 0; x < w; x++)
142 {
143 *d++ = (((*src >> 5) & 7) * 255 + 4) / 7;
144 *d++ = (((*src >> 2) & 7) * 255 + 4) / 7;
145 *d++ = (((*src >> 0) & 3) * 255 + 2) / 3;
146
147 src++;
148 }
149}
150 OUTPUT:
151 RETVAL
152
153SV *
154pb_to_p7 (GdkPixbuf *pb)
155 CODE:
156{
157 int w = gdk_pixbuf_get_width (pb);
158 int h = gdk_pixbuf_get_height (pb);
159 int x, y;
160 guchar *dst;
161 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
162 guchar *src = gdk_pixbuf_get_pixels (pb);
163 int sstr = gdk_pixbuf_get_rowstride (pb);
164 int Er[IW], Eg[IW], Eb[IW];
165 int seed = 77;
166
167 RETVAL = newSV (w * h);
168 SvPOK_only (RETVAL);
169 SvCUR_set (RETVAL, w * h);
170
171 dst = SvPVX (RETVAL);
172
173 memset (Er, 0, sizeof (int) * IW);
174 memset (Eg, 0, sizeof (int) * IW);
175 memset (Eb, 0, sizeof (int) * IW);
176
177 /* some primitive error distribution + random dithering */
178
179 for (y = 0; y < h; y++)
180 {
181 int er = 0, eg = 0, eb = 0;
182
183 for (x = 0; x < w; x++)
184 {
185 int r, g, b;
186 guchar *p = src + x * bpp + y * sstr;
187
188 r = ((p[0] + er + Er[x]) * 7 + 128) / 255;
189 g = ((p[1] + eg + Eg[x]) * 7 + 128) / 255;
190 b = ((p[2] + eb + Eb[x]) * 3 + 128) / 255;
191
192 r = r > 7 ? 7 : r < 0 ? 0 : r;
193 g = g > 7 ? 7 : g < 0 ? 0 : g;
194 b = b > 3 ? 3 : b < 0 ? 0 : b;
195
196 er += p[0] - (r * 255 + 4) / 7;
197 eg += p[1] - (g * 255 + 4) / 7;
198 eb += p[2] - (b * 255 + 2) / 3;
199
200 Er[x] = er / 2; er -= er / 2 + RAND % 7 - 3;
201 Eg[x] = eg / 2; eg -= eg / 2 + RAND % 7 - 3;
202 Eb[x] = eb / 2; eb -= eb / 2 + RAND % 7 - 3;
203
204 *dst++ = r << 5 | g << 2 | b;
205 }
206 }
207}
208 OUTPUT:
209 RETVAL
210
211#############################################################################
212
213MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
214
215void
216dump_pb (PerlIO *fp, GdkPixbuf *pb)
217 CODE:
218{
219 int w = gdk_pixbuf_get_width (pb);
220 int h = gdk_pixbuf_get_height (pb);
221 int x, y, i;
222 guchar *dst;
223 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
224 guchar *src = gdk_pixbuf_get_pixels (pb);
225 int sstr = gdk_pixbuf_get_rowstride (pb);
226
227 a85_init ();
228
229 for (y = 0; y < h; y++)
230 for (x = 0; x < w; x++)
231 for (i = 0; i < 3; i++)
232 a85_push (fp, src [x * bpp + y * sstr + i]);
233
234 a85_finish (fp);
235}
236
237
238
239

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines