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

Comparing CV/CV.xs (file contents):
Revision 1.2 by root, Mon Nov 3 00:04:22 2003 UTC vs.
Revision 1.7 by root, Wed Nov 12 23:54:54 2003 UTC

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

Diff Legend

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