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.3 by root, Wed Nov 5 00:22:22 2003 UTC

… …
9 9
10MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow 10MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow
11 11
12PROTOTYPES: ENABLE 12PROTOTYPES: ENABLE
13 13
14GdkPixbuf * 14GdkPixbuf_noinc *
15transpose (GdkPixbuf *pb) 15transpose (GdkPixbuf *pb)
16 CODE: 16 CODE:
17{ 17{
18 int w = gdk_pixbuf_get_width (pb); 18 int w = gdk_pixbuf_get_width (pb);
19 int h = gdk_pixbuf_get_height (pb); 19 int h = gdk_pixbuf_get_height (pb);
… …
25 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, h, w); 25 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, h, w);
26 26
27 dst = gdk_pixbuf_get_pixels (RETVAL); 27 dst = gdk_pixbuf_get_pixels (RETVAL);
28 dstr = gdk_pixbuf_get_rowstride (RETVAL); 28 dstr = gdk_pixbuf_get_rowstride (RETVAL);
29 29
30 for (x = 0; x < w; x++)
31 for (y = 0; y < h; y++) 30 for (y = 0; y < h; y++)
31 for (x = 0; x < w; x++)
32 for (i = 0; i < bpp; i++) 32 for (i = 0; i < bpp; i++)
33 dst[y * bpp + x * dstr + i] = src[x * bpp + y * sstr + i]; 33 dst[y * bpp + x * dstr + i] = src[x * bpp + y * sstr + i];
34} 34}
35 OUTPUT: 35 OUTPUT:
36 RETVAL 36 RETVAL
37 37
38GdkPixbuf * 38GdkPixbuf_noinc *
39flop (GdkPixbuf *pb) 39flop (GdkPixbuf *pb)
40 CODE: 40 CODE:
41{ 41{
42 int w = gdk_pixbuf_get_width (pb); 42 int w = gdk_pixbuf_get_width (pb);
43 int h = gdk_pixbuf_get_height (pb); 43 int h = gdk_pixbuf_get_height (pb);
… …
49 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, w, h); 49 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, w, h);
50 50
51 dst = gdk_pixbuf_get_pixels (RETVAL); 51 dst = gdk_pixbuf_get_pixels (RETVAL);
52 dstr = gdk_pixbuf_get_rowstride (RETVAL); 52 dstr = gdk_pixbuf_get_rowstride (RETVAL);
53 53
54 for (x = 0; x < w; x++)
55 for (y = 0; y < h; y++) 54 for (y = 0; y < h; y++)
55 for (x = 0; x < w; x++)
56 for (i = 0; i < bpp; i++) 56 for (i = 0; i < bpp; i++)
57 dst[(w - x) * bpp + y * dstr + i] = src[x *bpp + y * sstr + i]; 57 dst[(w - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i];
58} 58}
59 OUTPUT: 59 OUTPUT:
60 RETVAL 60 RETVAL
61 61
62MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer 62MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
63 63
64GdkPixbuf * 64GdkPixbuf_noinc *
65p7_to_pb (int w, int h, guchar *src) 65p7_to_pb (int w, int h, guchar *src)
66 CODE: 66 CODE:
67{ 67{
68 int x, y; 68 int x, y;
69 guchar *dst, *d; 69 guchar *dst, *d;
… …
74 dstr = gdk_pixbuf_get_rowstride (RETVAL); 74 dstr = gdk_pixbuf_get_rowstride (RETVAL);
75 75
76 for (y = 0; y < h; y++) 76 for (y = 0; y < h; y++)
77 for (d = dst + y * dstr, x = 0; x < w; x++) 77 for (d = dst + y * dstr, x = 0; x < w; x++)
78 { 78 {
79 *d++ = ((*src >> 5) & 7) * 255 / 7; 79 *d++ = (((*src >> 5) & 7) * 255 + 4) / 7;
80 *d++ = ((*src >> 2) & 7) * 255 / 7; 80 *d++ = (((*src >> 2) & 7) * 255 + 4) / 7;
81 *d++ = ((*src >> 0) & 3) * 255 / 3; 81 *d++ = (((*src >> 0) & 3) * 255 + 2) / 3;
82 82
83 src++; 83 src++;
84 } 84 }
85} 85}
86 OUTPUT: 86 OUTPUT:
87 RETVAL 87 RETVAL
88 88
89SV *
90pb_to_p7 (GdkPixbuf *pb)
91 CODE:
92{
93 int w = gdk_pixbuf_get_width (pb);
94 int h = gdk_pixbuf_get_height (pb);
95 int x, y;
96 guchar *dst;
97 int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;
98 guchar *src = gdk_pixbuf_get_pixels (pb);
99 int sstr = gdk_pixbuf_get_rowstride (pb);
100
101 RETVAL = newSV (w * h);
102 SvPOK_only (RETVAL);
103 SvCUR_set (RETVAL, w * h);
104
105 dst = SvPVX (RETVAL);
106
107 for (y = 0; y < h; y++)
108 {
109 /* use a very primitive form of error distribution. */
110 int er = 0, eg = 0, eb = 0;
111
112 for (x = 0; x < w; x++)
113 {
114 int r, g, b;
115 guchar *p = src + x * bpp + y * sstr;
116
117 r = ((p[0] + er) * 7 + 128) / 255;
118 g = ((p[1] + eg) * 7 + 128) / 255;
119 b = ((p[2] + eb) * 3 + 128) / 255;
120
121 r = r > 7 ? 7 : r < 0 ? 0 : r;
122 g = g > 7 ? 7 : g < 0 ? 0 : g;
123 b = b > 3 ? 3 : b < 0 ? 0 : b;
124
125 er += p[0] - (r * 255 + 4) / 7;
126 eg += p[1] - (g * 255 + 4) / 7;
127 eb += p[2] - (b * 255 + 2) / 3;
128
129 *dst++ = r << 5 | g << 2 | b;
130 }
131 }
132}
133 OUTPUT:
134 RETVAL
89 135
90 136
137

Diff Legend

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