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

Comparing CV/CV.xs (file contents):
Revision 1.43 by root, Sun May 3 08:16:47 2009 UTC vs.
Revision 1.58 by root, Mon Jan 4 04:49:04 2021 UTC

…		…
7	#include <math.h>	7	#include <math.h>
8		8
9	#include <magic.h>	9	#include <magic.h>
10		10
11	#include <jpeglib.h>	11	#include <jpeglib.h>
		12	#include <jerror.h>
		13
12	#include <glib.h>	14	#include <glib.h>
13	#include <gtk/gtk.h>	15	#include <gtk/gtk.h>
		16	#include <gdk/gdkx.h>
14	#include <gdk-pixbuf/gdk-pixbuf.h>	17	#include <gdk-pixbuf/gdk-pixbuf.h>
15		18
16	#include <gperl.h>	19	#include <gperl.h>
17	#include <gtk2perl.h>	20	#include <gtk2perl.h>
18		21
19	#include <assert.h>	22	#include <assert.h>
20		23
		24	#if WEBP
		25	#include <webp/demux.h>
		26	#include <webp/decode.h>
		27	#endif
		28
		29	#if JXL
		30	#include <jxl/decode.h>
		31	#include "jxl/thread_parallel_runner.h"
		32	#endif
		33
		34	#include "perlmulticore.h"
		35
21	#define IW 80 /* MUST match Schnauzer.pm! */	36	#define IW 80 /* MUST match Schnauzer.pm! */
22	#define IH 60 /* MUST match Schnauzer.pm! */	37	#define IH 60 /* MUST match Schnauzer.pm! */
23		38
24	#define RAND (seed = (seed + 7141) * 54773 % 134456)
25
26	#define LINELENGTH 240	39	#define LINELENGTH 240
27		40
28	#define ELLIPSIS "\xe2\x80\xa6"	41	#define ELLIPSIS "\xe2\x80\xa6"
29		42
30	typedef char *octet_string;	43	typedef char *octet_string;
		44
		45	static magic_t magic_cookie[2]; /* !mime, mime */
31		46
32	struct jpg_err_mgr	47	struct jpg_err_mgr
33	{	48	{
34	struct jpeg_error_mgr err;	49	struct jpeg_error_mgr err;
35	jmp_buf setjmp_buffer;	50	jmp_buf setjmp_buffer;
36	};	51	};
37		52
38	static void	53	static void
39	cv_error_exit (j_common_ptr cinfo)	54	cv_error_exit (j_common_ptr cinfo)
40	{	55	{
		56	cinfo->err->output_message (cinfo);
41	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);	57	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);
42	}	58	}
43		59
44	static void	60	static void
45	cv_error_output (j_common_ptr cinfo)	61	cv_error_output (j_common_ptr cinfo)
46	{	62	{
		63	char msg[JMSG_LENGTH_MAX];
		64
		65	cinfo->err->format_message (cinfo, msg);
		66
		67	fprintf (stderr, "JPEG decoding error: %s\n", msg);
47	return;	68	return;
48	}	69	}
49		70
50	static void	71	static void
51	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,	72	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,
…		…
148	if (!--a85_cnt)	169	if (!--a85_cnt)
149	{	170	{
150	a85_cnt = 4;	171	a85_cnt = 4;
151	if (a85_val)	172	if (a85_val)
152	{	173	{
153	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;	174	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
154	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;	175	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
155	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;	176	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
156	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;	177	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
157	a85_ptr[0] = (a85_val ) + 33;	178	a85_ptr[0] = (a85_val ) + 33;
158		179
159	a85_ptr += 5;	180	a85_ptr += 5;
160	}	181	}
…		…
183		204
184	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);	205	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
185	}	206	}
186		207
187	/////////////////////////////////////////////////////////////////////////////	208	/////////////////////////////////////////////////////////////////////////////
		209	// memory source for libjpeg
		210
		211	static void cv_ms_init (j_decompress_ptr cinfo)
		212	{
		213	}
		214
		215	static void cv_ms_term (j_decompress_ptr cinfo)
		216	{
		217	}
		218
		219	static boolean cv_ms_fill (j_decompress_ptr cinfo)
		220	{
		221	// unexpected EOF, warn and generate fake EOI marker
		222
		223	WARNMS (cinfo, JWRN_JPEG_EOF);
		224
		225	struct jpeg_source_mgr src = (struct jpeg_source_mgr )cinfo->src;
		226
		227	static const JOCTET eoi[] = { 0xFF, JPEG_EOI };
		228
		229	src->next_input_byte = eoi;
		230	src->bytes_in_buffer = sizeof (eoi);
		231
		232	return TRUE;
		233	}
		234
		235	static void cv_ms_skip (j_decompress_ptr cinfo, long num_bytes)
		236	{
		237	struct jpeg_source_mgr src = (struct jpeg_source_mgr )cinfo->src;
		238
		239	src->next_input_byte += num_bytes;
		240	src->bytes_in_buffer -= num_bytes;
		241	}
		242
		243	static void cv_jpeg_mem_src (j_decompress_ptr cinfo, void *buf, size_t buflen)
		244	{
		245	struct jpeg_source_mgr *src;
		246
		247	if (!cinfo->src)
		248	cinfo->src = (struct jpeg_source_mgr *)
		249	(*cinfo->mem->alloc_small) (
		250	(j_common_ptr) cinfo, JPOOL_PERMANENT, sizeof (struct jpeg_source_mgr)
		251	);
		252
		253	src = (struct jpeg_source_mgr *)cinfo->src;
		254	src->init_source = cv_ms_init;
		255	src->fill_input_buffer = cv_ms_fill;
		256	src->skip_input_data = cv_ms_skip;
		257	src->resync_to_restart = jpeg_resync_to_restart;
		258	src->term_source = cv_ms_term;
		259	src->next_input_byte = (JOCTET *)buf;
		260	src->bytes_in_buffer = buflen;
		261	}
		262
		263	/////////////////////////////////////////////////////////////////////////////
		264
		265	/* great, the jpeg-xl reference implementaton requires us to parse bmff files */
		266
		267	struct bmff_box
		268	{
		269	char type[4];
		270	const uint8_t *ptr;
		271	size_t size;
		272	};
		273
		274	static int
		275	bmff_parse_box (struct bmff_box box, const uint8_t next_in, size_t avail_in)
		276	{
		277	if (*avail_in < 8)
		278	return 0;
		279
		280	box->size = ((*next_in)[0] << 24)
		281	\| ((*next_in)[1] << 16)
		282	\| ((*next_in)[2] << 8)
		283	\| ((*next_in)[3] );
		284
		285	if (box->size < 8)
		286	return 0;
		287
		288	if (*avail_in < box->size)
		289	return 0;
		290
		291	memcpy (box->type, *next_in + 4, 4);
		292	box->ptr = *next_in + 8;
		293
		294	*next_in += box->size;
		295	*avail_in -= box->size;
		296
		297	box->size -= 8;
		298
		299	return 1;
		300	}
		301
		302	/////////////////////////////////////////////////////////////////////////////
188		303
189	MODULE = Gtk2::CV PACKAGE = Gtk2::CV	304	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
190		305
191	PROTOTYPES: ENABLE	306	PROTOTYPES: ENABLE
192		307
		308	# calculate the common prefix length of two strings
193	# missing function in perl. really :)	309	# missing function in perl. really :)
194	int	310	int
195	common_prefix_length (a, b)	311	common_prefix_length (a, b)
196	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);	312	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);
197	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);	313	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);
…		…
206		322
207	OUTPUT:	323	OUTPUT:
208	RETVAL	324	RETVAL
209		325
210	const char *	326	const char *
211	magic (octet_string path)	327	magic (SV *path_or_data)
		328	ALIAS:
		329	magic = 0
		330	magic_mime = 1
		331	magic_buffer = 2
		332	magic_buffer_mime = 3
212	CODE:	333	CODE:
213	{	334	{
214	static magic_t cookie;	335	STRLEN len;
		336	char *data = SvPVbyte (path_or_data, len);
215		337
216	if (!cookie)	338	if (!magic_cookie[0])
		339	{
		340	magic_cookie[0] = magic_open (MAGIC_SYMLINK);
		341	magic_cookie[1] = magic_open (MAGIC_SYMLINK \| MAGIC_MIME_TYPE);
		342	magic_load (magic_cookie[0], 0);
		343	magic_load (magic_cookie[1], 0);
217	{	344	}
218	cookie = magic_open (MAGIC_NONE);
219		345
220	if (cookie)	346	perlinterp_release ();
221	magic_load (cookie, 0);
222	else
223	XSRETURN_UNDEF;
224	}
225		347
226	RETVAL = magic_file (cookie, path);
227	}
228	OUTPUT:
229	RETVAL	348	RETVAL = ix & 2
		349	? magic_buffer (magic_cookie[ix & 1], data, len)
		350	: magic_file (magic_cookie[ix & 1], data);
230		351
231	const char *	352	perlinterp_acquire ();
232	magic_mime (octet_string path)
233	CODE:
234	{
235	static magic_t cookie;
236
237	if (!cookie)
238	{
239	cookie = magic_open (MAGIC_MIME);
240
241	if (cookie)
242	magic_load (cookie, 0);
243	else
244	XSRETURN_UNDEF;
245	}
246
247	RETVAL = magic_file (cookie, path);
248	}	353	}
249	OUTPUT:	354	OUTPUT:
250	RETVAL	355	RETVAL
251		356
252	# missing/broken in Gtk2 perl module	357	# missing/broken in Gtk2 perl module
…		…
268	RETVAL	373	RETVAL
269		374
270	GdkPixbuf_noinc *	375	GdkPixbuf_noinc *
271	dealpha_expose (GdkPixbuf *pb)	376	dealpha_expose (GdkPixbuf *pb)
272	CODE:	377	CODE:
		378	perlinterp_release ();
273	{	379	{
274	int w = gdk_pixbuf_get_width (pb);	380	int w = gdk_pixbuf_get_width (pb);
275	int h = gdk_pixbuf_get_height (pb);	381	int h = gdk_pixbuf_get_height (pb);
276	int bpp = gdk_pixbuf_get_n_channels (pb);	382	int bpp = gdk_pixbuf_get_n_channels (pb);
277	int x, y, i;	383	int x, y, i;
…		…
286	for (x = 0; x < w; x++)	392	for (x = 0; x < w; x++)
287	for (y = 0; y < h; y++)	393	for (y = 0; y < h; y++)
288	for (i = 0; i < 3; i++)	394	for (i = 0; i < 3; i++)
289	dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];	395	dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];
290	}	396	}
		397	perlinterp_acquire ();
291	OUTPUT:	398	OUTPUT:
292	RETVAL	399	RETVAL
293		400
294	GdkPixbuf_noinc *	401	GdkPixbuf_noinc *
295	rotate (GdkPixbuf *pb, int angle)	402	rotate (GdkPixbuf *pb, int angle)
296	CODE:	403	CODE:
		404	perlinterp_release ();
		405	if (angle < 0)
		406	angle += 360;
297	RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE	407	RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE
298	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE	408	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE
299	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN	409	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN
300	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE	410	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE
301	: angle);	411	: angle);
		412	perlinterp_acquire ();
302	OUTPUT:	413	OUTPUT:
303	RETVAL	414	RETVAL
304		415
		416	const char *
		417	filetype (SV *image_data)
		418	CODE:
		419	{
		420	STRLEN data_len;
		421	U8 *data = SvPVbyte (image_data, data_len);
		422	static const unsigned char jxl_header[] = {
		423	0, 0, 0, 0x0c, 0x4a, 0x58, 0x4c, 0x20,
		424	0x0d, 0xa, 0x87, 0x0a, 0, 0, 0, 0x14,
		425	0x66, 0x74, 0x79, 0x70, 0x6a, 0x78, 0x6c, 0x20,
		426	0, 0, 0, 0, 0x6a, 0x78, 0x6c, 0x20,
		427	};
		428
		429	if (data_len >= 20
		430	&& data[0] == 0xff
		431	&& data[1] == 0xd8
		432	&& data[2] == 0xff)
		433	RETVAL = "image/jpeg";
		434	else if (data_len >= 12
		435	&& data[ 0] == (U8)'R'
		436	&& data[ 1] == (U8)'I'
		437	&& data[ 2] == (U8)'F'
		438	&& data[ 3] == (U8)'F'
		439	&& data[ 8] == (U8)'W'
		440	&& data[ 9] == (U8)'E'
		441	&& data[10] == (U8)'B'
		442	&& data[11] == (U8)'P')
		443	RETVAL = "image/webp";
		444	else if (data_len >= 16
		445	&& data[ 0] == 0x89
		446	&& data[ 1] == (U8)'P'
		447	&& data[ 2] == (U8)'N'
		448	&& data[ 3] == (U8)'G'
		449	&& data[ 4] == 0x0d
		450	&& data[ 5] == 0x0a
		451	&& data[ 6] == 0x1a
		452	&& data[ 7] == 0x0a)
		453	RETVAL = "image/png";
		454	else if (data_len >= sizeof (jxl_header) && memcmp (data, jxl_header, sizeof (jxl_header)) == 0)
		455	RETVAL = "image/jxl";
		456	else
		457	XSRETURN_UNDEF;
		458	}
		459	OUTPUT:
		460	RETVAL
		461
305	GdkPixbuf_noinc *	462	GdkPixbuf_noinc *
306	load_jpeg (SV *path, int thumbnail=0)	463	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		464	CODE:
		465	{
		466	#if WEBP
		467	STRLEN data_size;
		468	int alpha;
		469	WebPData data;
		470	WebPDemuxer *demux;
		471	WebPIterator iter;
		472	WebPDecoderConfig config;
		473	int inw, inh;
		474
		475	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		476	data.size = data_size;
		477
		478	perlinterp_release ();
		479
		480	RETVAL = 0;
		481
		482	if (!(demux = WebPDemux (&data)))
		483	goto err_demux;
		484
		485	if (!WebPDemuxGetFrame (demux, 1, &iter))
		486	goto err_iter;
		487
		488	if (!WebPInitDecoderConfig (&config))
		489	goto err_iter;
		490
		491	config.options.use_threads = 1;
		492
		493	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
		494	goto err_iter;
		495
		496	inw = config.input.width;
		497	inh = config.input.height;
		498
		499	if (thumbnail)
		500	{
		501	if (inw * ih > inh * iw)
		502	ih = (iw * inh + inw - 1) / inw;
		503	else
		504	iw = (ih * inw + inh - 1) / inh;
		505
		506	config.options.bypass_filtering = 1;
		507	config.options.no_fancy_upsampling = 1;
		508
		509	config.options.use_scaling = 1;
		510	config.options.scaled_width = iw;
		511	config.options.scaled_height = ih;
		512	}
		513	else
		514	{
		515	iw = inw;
		516	ih = inh;
		517	}
		518
		519	alpha = !!config.input.has_alpha;
		520
		521	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
		522	if (!RETVAL)
		523	goto err_iter;
		524
		525	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
		526	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
		527	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
		528	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
		529	config.output.is_external_memory = 1;
		530
		531	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
		532	{
		533	g_object_unref (RETVAL);
		534	RETVAL = 0;
		535	goto err_iter;
		536	}
		537
		538	err_iter:
		539	WebPDemuxReleaseIterator (&iter);
		540	err_demux:
		541	WebPDemuxDelete (demux);
		542
		543	perlinterp_acquire ();
		544	#else
		545	croak ("load_webp: webp not enabled at compile time");
		546	#endif
		547	}
		548	OUTPUT:
		549	RETVAL
		550
		551	GdkPixbuf_noinc *
		552	decode_jxl (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		553	CODE:
		554	{
		555	#if JXL
		556	JxlDecoder *dec = JxlDecoderCreate (0);
		557	JxlBasicInfo info;
		558	const uint8_t next_in = (uint8_t )SvPVbyte_nolen (image_data);
		559	size_t avail_in = SvCUR (image_data);
		560	const char *error = 0;
		561	void *runner = 0;
		562	struct bmff_box box;
		563
		564	perlinterp_release ();
		565
		566	RETVAL = 0;
		567
		568	error = "JxlDecoderCreate failed";
		569	if (!dec)
		570	goto done;
		571
		572	runner = JxlThreadParallelRunnerCreate (0, JxlThreadParallelRunnerDefaultNumWorkerThreads ());
		573
		574	error = "JxlDecoderSetParallelRunner failed";
		575	if (JxlDecoderSetParallelRunner (dec, JxlThreadParallelRunner, runner) != JXL_DEC_SUCCESS)
		576	goto done;
		577
		578	error = "JxlDecoderSubscribeEvents failed";
		579	if (JxlDecoderSubscribeEvents (dec, JXL_DEC_FULL_IMAGE \| 0xffc0) != JXL_DEC_SUCCESS)
		580	goto done;
		581
		582	for (;;)
		583	{
		584	JxlDecoderStatus status = JxlDecoderProcessInput (dec, &next_in, &avail_in);
		585
		586	printf ("status %d\n",status);
		587
		588	switch (status)
		589	{
		590	case JXL_DEC_ERROR:
		591	error = "JxlDecoderProcessInput failed";
		592	goto done;
		593
		594	case JXL_DEC_NEED_MORE_INPUT:
		595	error = "incomplete file";
		596	goto done;
		597
		598	case JXL_DEC_SUCCESS:
		599	goto done;
		600
		601	case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
		602	{
		603	error = "JxlDecoderGetBasicInfo failed";
		604	if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
		605	goto done;
		606
		607	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
		608	error = "unable to allocate pixbuf";
		609	if (!RETVAL)
		610	goto done;
		611
		612	JxlPixelFormat format = {
		613	info.alpha_bits ? 4 : 3,
		614	JXL_TYPE_UINT8,
		615	JXL_NATIVE_ENDIAN,
		616	gdk_pixbuf_get_rowstride (RETVAL)
		617	};
		618
		619	error = "JxlDecoderSetImageOutBuffer failed";
		620	if (JxlDecoderSetImageOutBuffer (
		621	dec,
		622	&format,
		623	gdk_pixbuf_get_pixels (RETVAL),
		624	gdk_pixbuf_get_byte_length (RETVAL)
		625	) != JXL_DEC_SUCCESS)
		626	goto done;
		627	}
		628	break;
		629
		630	default:
		631	error = "unexpected event";
		632	goto done;
		633	}
		634	}
		635
		636	done:
		637	if (dec)
		638	JxlDecoderDestroy (dec);
		639
		640	if (runner)
		641	JxlThreadParallelRunnerDestroy (runner);
		642
		643	perlinterp_acquire ();
		644
		645	if (error)
		646	{
		647	if (RETVAL)
		648	g_object_unref (RETVAL);
		649
		650	croak ("load_jxl: %s", error);
		651	}
		652	#else
		653	croak ("load_jxl: jpeg-xl not enabled at compile time");
		654	#endif
		655	}
		656	OUTPUT:
		657	RETVAL
		658
		659	GdkPixbuf_noinc *
		660	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
307	CODE:	661	CODE:
308	{	662	{
309	struct jpeg_decompress_struct cinfo;	663	struct jpeg_decompress_struct cinfo;
310	struct jpg_err_mgr jerr;	664	struct jpg_err_mgr jerr;
311	guchar *data;
312	int rs;	665	int rs;
313	FILE *fp;
314	volatile GdkPixbuf *pb = 0;	666	volatile GdkPixbuf *pb = 0;
		667	STRLEN data_len;
		668	guchar *data = SvPVbyte (image_data, data_len);
315		669
316	RETVAL = 0;	670	RETVAL = 0;
317		671
318	fp = fopen (SvPVbyte_nolen (path), "rb");	672	perlinterp_release ();
319
320	if (!fp)
321	XSRETURN_UNDEF;
322		673
323	cinfo.err = jpeg_std_error (&jerr.err);	674	cinfo.err = jpeg_std_error (&jerr.err);
324		675
325	jerr.err.error_exit = cv_error_exit;	676	jerr.err.error_exit = cv_error_exit;
326	jerr.err.output_message = cv_error_output;	677	jerr.err.output_message = cv_error_output;
327		678
328	if ((rs = setjmp (jerr.setjmp_buffer)))	679	if ((rs = setjmp (jerr.setjmp_buffer)))
329	{	680	{
330	fclose (fp);
331	jpeg_destroy_decompress (&cinfo);	681	jpeg_destroy_decompress (&cinfo);
332		682
333	if (pb)	683	if (pb)
334	g_object_unref ((gpointer)pb);	684	g_object_unref ((gpointer)pb);
335		685
		686	perlinterp_acquire ();
336	XSRETURN_UNDEF;	687	XSRETURN_UNDEF;
337	}	688	}
338		689
		690	if (!data_len)
		691	longjmp (jerr.setjmp_buffer, 4);
		692
339	jpeg_create_decompress (&cinfo);	693	jpeg_create_decompress (&cinfo);
		694	cv_jpeg_mem_src (&cinfo, data, data_len);
340		695
341	jpeg_stdio_src (&cinfo, fp);
342	jpeg_read_header (&cinfo, TRUE);	696	jpeg_read_header (&cinfo, TRUE);
343		697
344	cinfo.dct_method = JDCT_DEFAULT;	698	cinfo.dct_method = JDCT_DEFAULT;
345	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */	699	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
346	cinfo.do_block_smoothing = FALSE;	700	cinfo.do_block_smoothing = FALSE;
…		…
356	{	710	{
357	cinfo.dct_method = JDCT_FASTEST;	711	cinfo.dct_method = JDCT_FASTEST;
358	cinfo.do_fancy_upsampling = FALSE;	712	cinfo.do_fancy_upsampling = FALSE;
359		713
360	while (cinfo.scale_denom < 8	714	while (cinfo.scale_denom < 8
361	&& cinfo.output_width >= IW*4	715	&& cinfo.output_width >= iw*4
362	&& cinfo.output_height >= IH*4)	716	&& cinfo.output_height >= ih*4)
363	{	717	{
364	cinfo.scale_denom <<= 1;	718	cinfo.scale_denom <<= 1;
365	jpeg_calc_output_dimensions (&cinfo);	719	jpeg_calc_output_dimensions (&cinfo);
366	}	720	}
367	}	721	}
368		722
		723	if (cinfo.output_components != 3)
		724	longjmp (jerr.setjmp_buffer, 3);
		725
		726	if (cinfo.jpeg_color_space == JCS_YCCK \|\| cinfo.jpeg_color_space == JCS_CMYK)
		727	{
		728	cinfo.out_color_space = JCS_CMYK;
		729	cinfo.output_components = 4;
		730	}
		731
369	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, cinfo.output_width, cinfo.output_height);	732	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.output_components == 4, 8, cinfo.output_width, cinfo.output_height);
370	if (!RETVAL)	733	if (!RETVAL)
371	longjmp (jerr.setjmp_buffer, 2);	734	longjmp (jerr.setjmp_buffer, 2);
372		735
373	data = gdk_pixbuf_get_pixels (RETVAL);	736	data = gdk_pixbuf_get_pixels (RETVAL);
374	rs = gdk_pixbuf_get_rowstride (RETVAL);	737	rs = gdk_pixbuf_get_rowstride (RETVAL);
375
376	if (cinfo.output_components != 3)
377	longjmp (jerr.setjmp_buffer, 3);
378		738
379	jpeg_start_decompress (&cinfo);	739	jpeg_start_decompress (&cinfo);
380		740
381	while (cinfo.output_scanline < cinfo.output_height)	741	while (cinfo.output_scanline < cinfo.output_height)
382	{	742	{
…		…
389	rp [3] = (guchar *)rp [2] + rs;	749	rp [3] = (guchar *)rp [2] + rs;
390		750
391	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);	751	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);
392	}	752	}
393		753
		754	if (cinfo.out_color_space == JCS_CMYK)
		755	{
		756	guchar end = data + cinfo.output_height rs;
		757
		758	while (data < end)
		759	{
		760	U32 c = data [0];
		761	U32 m = data [1];
		762	U32 y = data [2];
		763	U32 k = data [3];
		764
		765	if (0)
		766	if (cinfo.Adobe_transform == 2)
		767	{
		768	c ^= 0xff;
		769	m ^= 0xff;
		770	y ^= 0xff;
		771	k ^= 0xff;
		772	}
		773
		774	data [0] = (c * k + 0x80) / 0xff;
		775	data [1] = (m * k + 0x80) / 0xff;
		776	data [2] = (y * k + 0x80) / 0xff;
		777	data [3] = 0xff;
		778
		779	data += 4;
		780	}
		781	}
		782
394	jpeg_finish_decompress (&cinfo);	783	jpeg_finish_decompress (&cinfo);
395	fclose (fp);
396	jpeg_destroy_decompress (&cinfo);	784	jpeg_destroy_decompress (&cinfo);
		785	perlinterp_acquire ();
397	}	786	}
398	OUTPUT:	787	OUTPUT:
399	RETVAL	788	RETVAL
400		789
401	void	790	void
402	compare (GdkPixbuf a, GdkPixbuf b)	791	compare (GdkPixbuf a, GdkPixbuf b)
403	PPCODE:	792	PPCODE:
		793	perlinterp_release ();
404	{	794	{
405	int w = gdk_pixbuf_get_width (a);	795	int w = gdk_pixbuf_get_width (a);
406	int h = gdk_pixbuf_get_height (a);	796	int h = gdk_pixbuf_get_height (a);
407		797
408	int sa = gdk_pixbuf_get_rowstride (a);	798	int sa = gdk_pixbuf_get_rowstride (a);
…		…
435	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	825	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
436	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	826	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
437	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	827	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
438	}	828	}
439	}	829	}
		830
		831	perlinterp_acquire ();
440		832
441	EXTEND (SP, 2);	833	EXTEND (SP, 2);
442	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));	834	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));
443	PUSHs (sv_2mortal (newSVnv (peak / 255.)));	835	PUSHs (sv_2mortal (newSVnv (peak / 255.)));
444	}	836	}

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.43 by root, Sun May 3 08:16:47 2009 UTC vs. Revision 1.58 by root, Mon Jan 4 04:49:04 2021 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.43 by root, Sun May 3 08:16:47 2009 UTC vs.
Revision 1.58 by root, Mon Jan 4 04:49:04 2021 UTC