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

Comparing CV/CV.xs (file contents):
Revision 1.3 by root, Wed Nov 5 00:22: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_noinc * 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);
… …
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);
… …
52 dstr = gdk_pixbuf_get_rowstride (RETVAL); 116 dstr = gdk_pixbuf_get_rowstride (RETVAL);
53 117
54 for (y = 0; y < h; y++) 118 for (y = 0; y < h; y++)
55 for (x = 0; x < w; x++) 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_noinc * 130GdkPixbuf_noinc *
65p7_to_pb (int w, int h, guchar *src) 131p7_to_pb (int w, int h, guchar *src)
… …
92{ 158{
93 int w = gdk_pixbuf_get_width (pb); 159 int w = gdk_pixbuf_get_width (pb);
94 int h = gdk_pixbuf_get_height (pb); 160 int h = gdk_pixbuf_get_height (pb);
95 int x, y; 161 int x, y;
96 guchar *dst; 162 guchar *dst;
97 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3; 163 int bpp = gdk_pixbuf_get_n_channels (pb);
98 guchar *src = gdk_pixbuf_get_pixels (pb); 164 guchar *src = gdk_pixbuf_get_pixels (pb);
99 int sstr = gdk_pixbuf_get_rowstride (pb); 165 int sstr = gdk_pixbuf_get_rowstride (pb);
166 int Er[IW], Eg[IW], Eb[IW];
167 int seed = 77;
100 168
101 RETVAL = newSV (w * h); 169 RETVAL = newSV (w * h);
102 SvPOK_only (RETVAL); 170 SvPOK_only (RETVAL);
103 SvCUR_set (RETVAL, w * h); 171 SvCUR_set (RETVAL, w * h);
104 172
105 dst = SvPVX (RETVAL); 173 dst = SvPVX (RETVAL);
106 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
107 for (y = 0; y < h; y++) 181 for (y = 0; y < h; y++)
108 { 182 {
109 /* use a very primitive form of error distribution. */
110 int er = 0, eg = 0, eb = 0; 183 int er = 0, eg = 0, eb = 0;
111 184
112 for (x = 0; x < w; x++) 185 for (x = 0; x < w; x++)
113 { 186 {
114 int r, g, b; 187 int r, g, b;
115 guchar *p = src + x * bpp + y * sstr; 188 guchar *p = src + x * bpp + y * sstr;
116 189
117 r = ((p[0] + er) * 7 + 128) / 255; 190 r = ((p[0] + er + Er[x]) * 7 + 128) / 255;
118 g = ((p[1] + eg) * 7 + 128) / 255; 191 g = ((p[1] + eg + Eg[x]) * 7 + 128) / 255;
119 b = ((p[2] + eb) * 3 + 128) / 255; 192 b = ((p[2] + eb + Eb[x]) * 3 + 128) / 255;
120 193
121 r = r > 7 ? 7 : r < 0 ? 0 : r; 194 r = r > 7 ? 7 : r < 0 ? 0 : r;
122 g = g > 7 ? 7 : g < 0 ? 0 : g; 195 g = g > 7 ? 7 : g < 0 ? 0 : g;
123 b = b > 3 ? 3 : b < 0 ? 0 : b; 196 b = b > 3 ? 3 : b < 0 ? 0 : b;
124 197
125 er += p[0] - (r * 255 + 4) / 7; 198 er += p[0] - (r * 255 + 4) / 7;
126 eg += p[1] - (g * 255 + 4) / 7; 199 eg += p[1] - (g * 255 + 4) / 7;
127 eb += p[2] - (b * 255 + 2) / 3; 200 eb += p[2] - (b * 255 + 2) / 3;
128 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
129 *dst++ = r << 5 | g << 2 | b; 206 *dst++ = r << 5 | g << 2 | b;
130 } 207 }
131 } 208 }
132} 209}
133 OUTPUT: 210 OUTPUT:
134 RETVAL 211 RETVAL
135 212
213#############################################################################
136 214
215MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
137 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