[ViewVC] Diff of: cvs/CV/CV.xs

Comparing CV/CV.xs (file contents):
Revision 1.3 by root, Wed Nov 5 00:22:22 2003 UTC vs.
Revision 1.15 by root, Tue Feb 8 16:27:10 2005 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
		18	static guint32 a85_val;
		19	static guint a85_cnt;
		20	static guchar a85_buf[LINELENGTH], *a85_ptr;
		21
		22	static void
		23	a85_init (void)
		24	{
		25	a85_cnt = 4;
		26	a85_ptr = a85_buf;
		27	}
		28
		29	static void
		30	a85_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
		60	static void
		61	a85_finish (PerlIO *fp)
		62	{
		63	while (a85_cnt != 4)
		64	a85_push (fp, 0);
		65
		66	*a85_ptr++ = '~'; // probably buggy end-marker
		67	*a85_ptr++ = '>'; // probably buggy end-marker
		68	*a85_ptr++ = '\n';
		69
		70	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
		71	}
		72
		73	static void
		74	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,
		75	unsigned int h, unsigned int s, unsigned int *v)
		76	{
		77	unsigned int mx = r; if (g > mx) mx = g; if (b > mx) mx = b;
		78	unsigned int mn = r; if (g < mn) mn = g; if (b < mn) mn = b;
		79	unsigned int delta = mx - mn;
		80
		81	*v = mx;
		82
		83	s = mx ? delta 255 / mx : 0;
		84
		85	if (delta == 0)
		86	*h = 0;
		87	else
		88	{
		89	if (r == mx)
		90	h = ((int)g - (int)b) 255 / (int)(delta * 3);
		91	else if (g == mx)
		92	h = ((int)b - (int)r) 255 / (int)(delta * 3) + 52;
		93	else if (b == mx)
		94	h = ((int)r - (int)g) 255 / (int)(delta * 3) + 103;
		95
		96	*h &= 255;
		97	}
		98	}
		99
		100	/////////////////////////////////////////////////////////////////////////////
		101
10	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow	102	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
11		103
12	PROTOTYPES: ENABLE	104	PROTOTYPES: ENABLE
13		105
14	GdkPixbuf_noinc *	106	GdkPixbuf_noinc *
15	transpose (GdkPixbuf *pb)	107	transpose (GdkPixbuf *pb)
16	CODE:	108	CODE:
17	{	109	{
18	int w = gdk_pixbuf_get_width (pb);	110	int w = gdk_pixbuf_get_width (pb);
19	int h = gdk_pixbuf_get_height (pb);	111	int h = gdk_pixbuf_get_height (pb);
20	int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;	112	int bpp = gdk_pixbuf_get_n_channels (pb);
21	int x, y, i;	113	int x, y, i;
22	guchar src = gdk_pixbuf_get_pixels (pb), dst;	114	guchar src = gdk_pixbuf_get_pixels (pb), dst;
23	int sstr = gdk_pixbuf_get_rowstride (pb), dstr;	115	int sstr = gdk_pixbuf_get_rowstride (pb), dstr;
24		116
25	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, h, w);	117	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, h, w);
…		…
39	flop (GdkPixbuf *pb)	131	flop (GdkPixbuf *pb)
40	CODE:	132	CODE:
41	{	133	{
42	int w = gdk_pixbuf_get_width (pb);	134	int w = gdk_pixbuf_get_width (pb);
43	int h = gdk_pixbuf_get_height (pb);	135	int h = gdk_pixbuf_get_height (pb);
44	int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;	136	int bpp = gdk_pixbuf_get_n_channels (pb);
45	int x, y, i;	137	int x, y, i;
46	guchar src = gdk_pixbuf_get_pixels (pb), dst;	138	guchar src = gdk_pixbuf_get_pixels (pb), dst;
47	int sstr = gdk_pixbuf_get_rowstride (pb), dstr;	139	int sstr = gdk_pixbuf_get_rowstride (pb), dstr;
48		140
49	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, w, h);	141	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, bpp == 4, 8, w, h);
…		…
52	dstr = gdk_pixbuf_get_rowstride (RETVAL);	144	dstr = gdk_pixbuf_get_rowstride (RETVAL);
53		145
54	for (y = 0; y < h; y++)	146	for (y = 0; y < h; y++)
55	for (x = 0; x < w; x++)	147	for (x = 0; x < w; x++)
56	for (i = 0; i < bpp; i++)	148	for (i = 0; i < bpp; i++)
57	dst[(w - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i];	149	dst[(w - 1 - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i];
58	}	150	}
59	OUTPUT:	151	OUTPUT:
60	RETVAL	152	RETVAL
		153
		154	#############################################################################
61		155
62	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer	156	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
63		157
64	GdkPixbuf_noinc *	158	GdkPixbuf_noinc *
65	p7_to_pb (int w, int h, guchar *src)	159	p7_to_pb (int w, int h, guchar *src)
…		…
92	{	186	{
93	int w = gdk_pixbuf_get_width (pb);	187	int w = gdk_pixbuf_get_width (pb);
94	int h = gdk_pixbuf_get_height (pb);	188	int h = gdk_pixbuf_get_height (pb);
95	int x, y;	189	int x, y;
96	guchar *dst;	190	guchar *dst;
97	int bpp = gdk_pixbuf_get_has_alpha (pb) ? 4 : 3;	191	int bpp = gdk_pixbuf_get_n_channels (pb);
98	guchar *src = gdk_pixbuf_get_pixels (pb);	192	guchar *src = gdk_pixbuf_get_pixels (pb);
99	int sstr = gdk_pixbuf_get_rowstride (pb);	193	int sstr = gdk_pixbuf_get_rowstride (pb);
		194	int Er[IW], Eg[IW], Eb[IW];
		195	int seed = 77;
100		196
101	RETVAL = newSV (w * h);	197	RETVAL = newSV (w * h);
102	SvPOK_only (RETVAL);	198	SvPOK_only (RETVAL);
103	SvCUR_set (RETVAL, w * h);	199	SvCUR_set (RETVAL, w * h);
104		200
105	dst = SvPVX (RETVAL);	201	dst = SvPVX (RETVAL);
106		202
		203	memset (Er, 0, sizeof (int) * IW);
		204	memset (Eg, 0, sizeof (int) * IW);
		205	memset (Eb, 0, sizeof (int) * IW);
		206
		207	/* some primitive error distribution + random dithering */
		208
107	for (y = 0; y < h; y++)	209	for (y = 0; y < h; y++)
108	{	210	{
109	/* use a very primitive form of error distribution. */
110	int er = 0, eg = 0, eb = 0;	211	int er = 0, eg = 0, eb = 0;
111		212
112	for (x = 0; x < w; x++)	213	for (x = 0; x < w; x++)
113	{	214	{
114	int r, g, b;	215	int r, g, b;
115	guchar p = src + x bpp + y * sstr;	216	guchar p = src + x bpp + y * sstr;
116		217
117	r = ((p[0] + er) * 7 + 128) / 255;	218	r = ((p[0] + er + Er[x]) * 7 + 128) / 255;
118	g = ((p[1] + eg) * 7 + 128) / 255;	219	g = ((p[1] + eg + Eg[x]) * 7 + 128) / 255;
119	b = ((p[2] + eb) * 3 + 128) / 255;	220	b = ((p[2] + eb + Eb[x]) * 3 + 128) / 255;
120		221
121	r = r > 7 ? 7 : r < 0 ? 0 : r;	222	r = r > 7 ? 7 : r < 0 ? 0 : r;
122	g = g > 7 ? 7 : g < 0 ? 0 : g;	223	g = g > 7 ? 7 : g < 0 ? 0 : g;
123	b = b > 3 ? 3 : b < 0 ? 0 : b;	224	b = b > 3 ? 3 : b < 0 ? 0 : b;
124		225
125	er += p[0] - (r * 255 + 4) / 7;	226	er += p[0] - (r * 255 + 4) / 7;
126	eg += p[1] - (g * 255 + 4) / 7;	227	eg += p[1] - (g * 255 + 4) / 7;
127	eb += p[2] - (b * 255 + 2) / 3;	228	eb += p[2] - (b * 255 + 2) / 3;
128		229
		230	Er[x] = er / 2; er -= er / 2 + RAND % 7 - 3;
		231	Eg[x] = eg / 2; eg -= eg / 2 + RAND % 7 - 3;
		232	Eb[x] = eb / 2; eb -= eb / 2 + RAND % 7 - 3;
		233
129	*dst++ = r << 5 \| g << 2 \| b;	234	*dst++ = r << 5 \| g << 2 \| b;
130	}	235	}
131	}	236	}
132	}	237	}
133	OUTPUT:	238	OUTPUT:
134	RETVAL	239	RETVAL
135		240
		241	SV *
		242	make_histogram (SV *ar)
		243	CODE:
		244	{
		245	int i;
		246	AV av, result;
136		247
		248	if (!SvROK (ar) \|\| SvTYPE (SvRV (ar)) != SVt_PVAV)
		249	croak ("Not an array ref as first argument to make_histogram");
137		250
		251	av = (AV *) SvRV (ar);
		252	result = newAV ();
		253
		254	for (i = 0; i <= av_len (av); ++i)
		255	{
		256	const int HISTSIZE = 64;
		257
		258	int j;
		259	SV sv = av_fetch (av, i, 1);
		260	STRLEN len;
		261	char *buf = SvPVbyte (sv, len);
		262
		263	int tmphist[HISTSIZE];
		264	float *hist;
		265
		266	SV histsv = newSV (HISTSIZE sizeof (float) + 1);
		267	SvPOK_on (histsv);
		268	SvCUR_set (histsv, HISTSIZE * sizeof (float));
		269	hist = (float *)SvPVX (histsv);
		270
		271	Zero (tmphist, sizeof (tmphist), char);
		272
		273	for (j = len; j--; )
		274	{
		275	unsigned int idx
		276	= ((*buf & 0xc0) >> 2)
		277	\| ((*buf & 0x18) >> 1)
		278	\| (*buf & 0x03);
		279
		280	++tmphist[idx];
		281	++buf;
		282	}
		283
		284	for (j = 0; j < HISTSIZE; ++j)
		285	hist[j] = (float)tmphist[j] / (len + 1e-30);
		286
		287	av_push (result, histsv);
		288	}
		289
		290	RETVAL = newRV_noinc ((SV *)result);
		291	}
		292	OUTPUT:
		293	RETVAL
		294
		295
		296
		297	#############################################################################
		298
		299	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
		300
		301	void
		302	dump_ascii85 (PerlIO fp, GdkPixbuf pb)
		303	CODE:
		304	{
		305	int w = gdk_pixbuf_get_width (pb);
		306	int h = gdk_pixbuf_get_height (pb);
		307	int x, y, i;
		308	guchar *dst;
		309	int bpp = gdk_pixbuf_get_n_channels (pb);
		310	guchar *src = gdk_pixbuf_get_pixels (pb);
		311	int sstr = gdk_pixbuf_get_rowstride (pb);
		312
		313	a85_init ();
		314
		315	for (y = 0; y < h; y++)
		316	for (x = 0; x < w; x++)
		317	for (i = 0; i < (bpp < 3 ? 1 : 3); i++)
		318	a85_push (fp, src [x * bpp + y * sstr + i]);
		319
		320	a85_finish (fp);
		321	}
		322
		323	void
		324	dump_binary (PerlIO fp, GdkPixbuf pb)
		325	CODE:
		326	{
		327	int w = gdk_pixbuf_get_width (pb);
		328	int h = gdk_pixbuf_get_height (pb);
		329	int x, y, i;
		330	guchar *dst;
		331	int bpp = gdk_pixbuf_get_n_channels (pb);
		332	guchar *src = gdk_pixbuf_get_pixels (pb);
		333	int sstr = gdk_pixbuf_get_rowstride (pb);
		334
		335	for (y = 0; y < h; y++)
		336	for (x = 0; x < w; x++)
		337	for (i = 0; i < (bpp < 3 ? 1 : 3); i++)
		338	PerlIO_putc (fp, src [x * bpp + y * sstr + i]);
		339	}
		340
		341	#############################################################################
		342
		343	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
		344
		345	SV *
		346	pb_to_hv84 (GdkPixbuf *pb)
		347	CODE:
		348	{
		349	int w = gdk_pixbuf_get_width (pb);
		350	int h = gdk_pixbuf_get_height (pb);
		351	int x, y;
		352	guchar *dst;
		353	int bpp = gdk_pixbuf_get_n_channels (pb);
		354	guchar *src = gdk_pixbuf_get_pixels (pb);
		355	int sstr = gdk_pixbuf_get_rowstride (pb);
		356
		357	RETVAL = newSV (6 * 8 * 12 / 8);
		358	SvPOK_only (RETVAL);
		359	SvCUR_set (RETVAL, 6 * 8 * 12 / 8);
		360
		361	dst = SvPVX (RETVAL);
		362
		363	/* some primitive error distribution + random dithering */
		364
		365	for (y = 0; y < h; y++)
		366	{
		367	guchar p = src + y sstr;
		368
		369	for (x = 0; x < w; x += 2)
		370	{
		371	unsigned int r, g, b, h, s, v, H, V1, V2;
		372
		373	if (bpp == 3)
		374	r = p++, g = p++, b = *p++;
		375	else if (bpp == 1)
		376	r = g = b = *p++;
		377	else
		378	abort ();
		379
		380	rgb_to_hsv (r, g, b, &h, &s, &v);
		381
		382	H = (h * 15 / 255) << 4;
		383	V1 = v;
		384
		385	if (bpp == 3)
		386	r = p++, g = p++, b = *p++;
		387	else if (bpp == 1)
		388	r = g = b = *p++;
		389	else
		390	abort ();
		391
		392	rgb_to_hsv (r, g, b, &h, &s, &v);
		393
		394	H \|= h * 15 / 255;
		395	V2 = v;
		396
		397	*dst++ = H;
		398	*dst++ = V1;
		399	*dst++ = V2;
		400	}
		401	}
		402	}
		403	OUTPUT:
		404	RETVAL
		405
		406	SV *
		407	hv84_to_av (unsigned char *hv84)
		408	CODE:
		409	{
		410	int i = 72 / 3;
		411	AV *av = newAV ();
		412
		413	RETVAL = (SV )newRV_noinc ((SV )av);
		414	while (i--)
		415	{
		416	int h = *hv84++;
		417	int v1 = *hv84++;
		418	int v2 = *hv84++;
		419
		420	av_push (av, newSViv (v1));
		421	av_push (av, newSViv ((h >> 4) * 255 / 15));
		422	av_push (av, newSViv (v2));
		423	av_push (av, newSViv ((h & 15) * 255 / 15));
		424	}
		425	}
		426	OUTPUT:
		427	RETVAL
		428
		429
		430

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.3 by root, Wed Nov 5 00:22:22 2003 UTC vs. Revision 1.15 by root, Tue Feb 8 16:27:10 2005 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.3 by root, Wed Nov 5 00:22:22 2003 UTC vs.
Revision 1.15 by root, Tue Feb 8 16:27:10 2005 UTC