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.5 by root, Sat Nov 8 22:18:50 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
14static guint32 a85_val;
15static guint a85_cnt;
16static guchar a85_buf[80], *a85_ptr;
17
18static void
19a85_init (void)
20{
21 a85_cnt = 4;
22 a85_ptr = a85_buf;
23}
24
25static void
26a85_push (PerlIO *fp, guchar c)
27{
28 a85_val = a85_val << 8 | c;
29
30 if (!--a85_cnt)
31 {
32 a85_cnt = 4;
33 if (a85_val)
34 {
35 a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
36 a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
37 a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
38 a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
39 a85_ptr[0] = (a85_val ) + 33;
40
41 a85_ptr += 5;
42 }
43 else
44 *a85_ptr++ = 'z';
45
46 if (a85_ptr >= a85_buf + sizeof (a85_buf) - 7)
47 {
48 *a85_ptr++ = '\n';
49 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
50 a85_ptr = a85_buf;
51 }
52 }
53
54}
55
56a85_finish (PerlIO *fp)
57{
58 while (a85_cnt != 4)
59 a85_push (fp, 0);
60
61 *a85_ptr++ = '~'; // probably buggy end-marker
62 *a85_ptr++ = '>'; // probably buggy end-marker
63 *a85_ptr++ = '\n';
64
65 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
66}
67
10MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow 68MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow
11 69
12PROTOTYPES: ENABLE 70PROTOTYPES: ENABLE
13 71
14GdkPixbuf_noinc * 72GdkPixbuf_noinc *
… …
52 dstr = gdk_pixbuf_get_rowstride (RETVAL); 110 dstr = gdk_pixbuf_get_rowstride (RETVAL);
53 111
54 for (y = 0; y < h; y++) 112 for (y = 0; y < h; y++)
55 for (x = 0; x < w; x++) 113 for (x = 0; x < w; x++)
56 for (i = 0; i < bpp; i++) 114 for (i = 0; i < bpp; i++)
57 dst[(w - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i]; 115 dst[(w - 1 - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i];
58} 116}
59 OUTPUT: 117 OUTPUT:
60 RETVAL 118 RETVAL
61 119
62MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer 120MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
… …
95 int x, y; 153 int x, y;
96 guchar *dst; 154 guchar *dst;
97 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3; 155 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
98 guchar *src = gdk_pixbuf_get_pixels (pb); 156 guchar *src = gdk_pixbuf_get_pixels (pb);
99 int sstr = gdk_pixbuf_get_rowstride (pb); 157 int sstr = gdk_pixbuf_get_rowstride (pb);
158 int Er[IW], Eg[IW], Eb[IW];
159 int seed = 77;
100 160
101 RETVAL = newSV (w * h); 161 RETVAL = newSV (w * h);
102 SvPOK_only (RETVAL); 162 SvPOK_only (RETVAL);
103 SvCUR_set (RETVAL, w * h); 163 SvCUR_set (RETVAL, w * h);
104 164
105 dst = SvPVX (RETVAL); 165 dst = SvPVX (RETVAL);
106 166
167 memset (Er, 0, sizeof (int) * IW);
168 memset (Eg, 0, sizeof (int) * IW);
169 memset (Eb, 0, sizeof (int) * IW);
170
171 /* some primitive error distribution + random dithering */
172
107 for (y = 0; y < h; y++) 173 for (y = 0; y < h; y++)
108 { 174 {
109 /* use a very primitive form of error distribution. */
110 int er = 0, eg = 0, eb = 0; 175 int er = 0, eg = 0, eb = 0;
111 176
112 for (x = 0; x < w; x++) 177 for (x = 0; x < w; x++)
113 { 178 {
114 int r, g, b; 179 int r, g, b;
115 guchar *p = src + x * bpp + y * sstr; 180 guchar *p = src + x * bpp + y * sstr;
116 181
117 r = ((p[0] + er) * 7 + 128) / 255; 182 r = ((p[0] + er + Er[x]) * 7 + 128) / 255;
118 g = ((p[1] + eg) * 7 + 128) / 255; 183 g = ((p[1] + eg + Eg[x]) * 7 + 128) / 255;
119 b = ((p[2] + eb) * 3 + 128) / 255; 184 b = ((p[2] + eb + Eb[x]) * 3 + 128) / 255;
120 185
121 r = r > 7 ? 7 : r < 0 ? 0 : r; 186 r = r > 7 ? 7 : r < 0 ? 0 : r;
122 g = g > 7 ? 7 : g < 0 ? 0 : g; 187 g = g > 7 ? 7 : g < 0 ? 0 : g;
123 b = b > 3 ? 3 : b < 0 ? 0 : b; 188 b = b > 3 ? 3 : b < 0 ? 0 : b;
124 189
125 er += p[0] - (r * 255 + 4) / 7; 190 er += p[0] - (r * 255 + 4) / 7;
126 eg += p[1] - (g * 255 + 4) / 7; 191 eg += p[1] - (g * 255 + 4) / 7;
127 eb += p[2] - (b * 255 + 2) / 3; 192 eb += p[2] - (b * 255 + 2) / 3;
128 193
194 Er[x] = er / 2; er -= er / 2 + RAND % 7 - 3;
195 Eg[x] = eg / 2; eg -= eg / 2 + RAND % 7 - 3;
196 Eb[x] = eb / 2; eb -= eb / 2 + RAND % 7 - 3;
197
129 *dst++ = r << 5 | g << 2 | b; 198 *dst++ = r << 5 | g << 2 | b;
130 } 199 }
131 } 200 }
132} 201}
133 OUTPUT: 202 OUTPUT:
134 RETVAL 203 RETVAL
135 204
205MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
136 206
207void
208dump_pb (PerlIO *fp, GdkPixbuf *pb)
209 CODE:
210{
211 int w = gdk_pixbuf_get_width (pb);
212 int h = gdk_pixbuf_get_height (pb);
213 int x, y, i;
214 guchar *dst;
215 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
216 guchar *src = gdk_pixbuf_get_pixels (pb);
217 int sstr = gdk_pixbuf_get_rowstride (pb);
137 218
219 a85_init ();
220
221 for (y = 0; y < h; y++)
222 for (x = 0; x < w; x++)
223 for (i = 0; i < 3; i++)
224 a85_push (fp, src [x * bpp + y * sstr + i]);
225
226 a85_finish (fp);
227}
228
229
230
231

Diff Legend

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