[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.10 by root, Tue Feb 8 10:34:19 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	int bigst = 1;
		257	int j = 0;
		258	SV sv = av_fetch (av, i, 1);
		259	STRLEN len;
		260	char *buf = SvPVbyte (sv, len);
		261	int tmphist[256];
		262	char *hist;
		263
		264	SV *histsv = newSV (257);//("", 0);
		265	sv_upgrade (histsv, SVt_PV);
		266	SvCUR_set (histsv, 256);
		267	hist = SvPV_nolen (histsv);
		268
		269	Zero (tmphist, 256, int);
		270
		271	while (len--)
		272	++tmphist[*buf++];
		273
		274	for (j = 0; j < 256; ++j)
		275	if (tmphist[j] > bigst)
		276	bigst = tmphist[j];
		277
		278	for (j = 0; j < 256; ++j)
		279	hist[j] = tmphist[j] * 255 / bigst;
		280
		281	av_push (result, histsv);
		282	}
		283
		284	RETVAL = newRV_noinc ((SV *)result);
		285	}
		286	OUTPUT:
		287	RETVAL
		288
		289
		290
		291	#############################################################################
		292
		293	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
		294
		295	void
		296	dump_ascii85 (PerlIO fp, GdkPixbuf pb)
		297	CODE:
		298	{
		299	int w = gdk_pixbuf_get_width (pb);
		300	int h = gdk_pixbuf_get_height (pb);
		301	int x, y, i;
		302	guchar *dst;
		303	int bpp = gdk_pixbuf_get_n_channels (pb);
		304	guchar *src = gdk_pixbuf_get_pixels (pb);
		305	int sstr = gdk_pixbuf_get_rowstride (pb);
		306
		307	a85_init ();
		308
		309	for (y = 0; y < h; y++)
		310	for (x = 0; x < w; x++)
		311	for (i = 0; i < (bpp < 3 ? 1 : 3); i++)
		312	a85_push (fp, src [x * bpp + y * sstr + i]);
		313
		314	a85_finish (fp);
		315	}
		316
		317	void
		318	dump_binary (PerlIO fp, GdkPixbuf pb)
		319	CODE:
		320	{
		321	int w = gdk_pixbuf_get_width (pb);
		322	int h = gdk_pixbuf_get_height (pb);
		323	int x, y, i;
		324	guchar *dst;
		325	int bpp = gdk_pixbuf_get_n_channels (pb);
		326	guchar *src = gdk_pixbuf_get_pixels (pb);
		327	int sstr = gdk_pixbuf_get_rowstride (pb);
		328
		329	for (y = 0; y < h; y++)
		330	for (x = 0; x < w; x++)
		331	for (i = 0; i < (bpp < 3 ? 1 : 3); i++)
		332	PerlIO_putc (fp, src [x * bpp + y * sstr + i]);
		333	}
		334
		335	#############################################################################
		336
		337	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
		338
		339	SV *
		340	pb_to_hv84 (GdkPixbuf *pb)
		341	CODE:
		342	{
		343	int w = gdk_pixbuf_get_width (pb);
		344	int h = gdk_pixbuf_get_height (pb);
		345	int x, y;
		346	guchar *dst;
		347	int bpp = gdk_pixbuf_get_n_channels (pb);
		348	guchar *src = gdk_pixbuf_get_pixels (pb);
		349	int sstr = gdk_pixbuf_get_rowstride (pb);
		350
		351	RETVAL = newSV (6 * 8 * 12 / 8);
		352	SvPOK_only (RETVAL);
		353	SvCUR_set (RETVAL, 6 * 8 * 12 / 8);
		354
		355	dst = SvPVX (RETVAL);
		356
		357	/* some primitive error distribution + random dithering */
		358
		359	for (y = 0; y < h; y++)
		360	{
		361	guchar p = src + y sstr;
		362
		363	for (x = 0; x < w; x += 2)
		364	{
		365	unsigned int r, g, b, h, s, v, H, V1, V2;
		366
		367	if (bpp == 3)
		368	r = p++, g = p++, b = *p++;
		369	else if (bpp == 1)
		370	r = g = b = *p++;
		371	else
		372	abort ();
		373
		374	rgb_to_hsv (r, g, b, &h, &s, &v);
		375
		376	H = (h * 15 / 255) << 4;
		377	V1 = v;
		378
		379	if (bpp == 3)
		380	r = p++, g = p++, b = *p++;
		381	else if (bpp == 1)
		382	r = g = b = *p++;
		383	else
		384	abort ();
		385
		386	rgb_to_hsv (r, g, b, &h, &s, &v);
		387
		388	H \|= h * 15 / 255;
		389	V2 = v;
		390
		391	*dst++ = H;
		392	*dst++ = V1;
		393	*dst++ = V2;
		394	}
		395	}
		396	}
		397	OUTPUT:
		398	RETVAL
		399
		400	SV *
		401	hv84_to_av (unsigned char *hv84)
		402	CODE:
		403	{
		404	int i = 72 / 3;
		405	AV *av = newAV ();
		406
		407	RETVAL = (SV )newRV_noinc ((SV )av);
		408	while (i--)
		409	{
		410	int h = *hv84++;
		411	int v1 = *hv84++;
		412	int v2 = *hv84++;
		413
		414	av_push (av, newSViv (v1));
		415	av_push (av, newSViv ((h >> 4) * 255 / 15));
		416	av_push (av, newSViv (v2));
		417	av_push (av, newSViv ((h & 15) * 255 / 15));
		418	}
		419	}
		420	OUTPUT:
		421	RETVAL
		422
		423
		424

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.10 by root, Tue Feb 8 10:34:19 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.10 by root, Tue Feb 8 10:34:19 2005 UTC