ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/CV.xs
(Generate patch)

Comparing CV/CV.xs (file contents):
Revision 1.45 by root, Fri Aug 29 18:35:25 2014 UTC vs.
Revision 1.48 by root, Wed May 24 05:00:57 2017 UTC

… …
16#include <gperl.h> 16#include <gperl.h>
17#include <gtk2perl.h> 17#include <gtk2perl.h>
18 18
19#include <assert.h> 19#include <assert.h>
20 20
21#include "perlmulticore.h"
22
21#define IW 80 /* MUST match Schnauzer.pm! */ 23#define IW 80 /* MUST match Schnauzer.pm! */
22#define IH 60 /* MUST match Schnauzer.pm! */ 24#define IH 60 /* MUST match Schnauzer.pm! */
23 25
24#define RAND (seed = (seed + 7141) * 54773 % 134456) 26#define RAND (seed = (seed + 7141) * 54773 % 134456)
25 27
… …
36}; 38};
37 39
38static void 40static void
39cv_error_exit (j_common_ptr cinfo) 41cv_error_exit (j_common_ptr cinfo)
40{ 42{
43 cinfo->err->output_message (cinfo);
41 longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99); 44 longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);
42} 45}
43 46
44static void 47static void
45cv_error_output (j_common_ptr cinfo) 48cv_error_output (j_common_ptr cinfo)
46{ 49{
50 char msg[JMSG_LENGTH_MAX];
51
52 cinfo->err->format_message (cinfo, msg);
53
54 fprintf (stderr, "JPEG decoding error: %s\n", msg);
47 return; 55 return;
48} 56}
49 57
50static void 58static void
51rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b, 59rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,
… …
242 magic_load (cookie, 0); 250 magic_load (cookie, 0);
243 else 251 else
244 XSRETURN_UNDEF; 252 XSRETURN_UNDEF;
245 } 253 }
246 254
255 perlinterp_release ();
247 RETVAL = magic_file (cookie, path); 256 RETVAL = magic_file (cookie, path);
257 perlinterp_acquire ();
248} 258}
249 OUTPUT: 259 OUTPUT:
250 RETVAL 260 RETVAL
251 261
252# missing/broken in Gtk2 perl module 262# missing/broken in Gtk2 perl module
… …
268 RETVAL 278 RETVAL
269 279
270GdkPixbuf_noinc * 280GdkPixbuf_noinc *
271dealpha_expose (GdkPixbuf *pb) 281dealpha_expose (GdkPixbuf *pb)
272 CODE: 282 CODE:
283 perlinterp_release ();
273{ 284{
274 int w = gdk_pixbuf_get_width (pb); 285 int w = gdk_pixbuf_get_width (pb);
275 int h = gdk_pixbuf_get_height (pb); 286 int h = gdk_pixbuf_get_height (pb);
276 int bpp = gdk_pixbuf_get_n_channels (pb); 287 int bpp = gdk_pixbuf_get_n_channels (pb);
277 int x, y, i; 288 int x, y, i;
… …
286 for (x = 0; x < w; x++) 297 for (x = 0; x < w; x++)
287 for (y = 0; y < h; y++) 298 for (y = 0; y < h; y++)
288 for (i = 0; i < 3; i++) 299 for (i = 0; i < 3; i++)
289 dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i]; 300 dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];
290} 301}
302 perlinterp_acquire ();
291 OUTPUT: 303 OUTPUT:
292 RETVAL 304 RETVAL
293 305
294GdkPixbuf_noinc * 306GdkPixbuf_noinc *
295rotate (GdkPixbuf *pb, int angle) 307rotate (GdkPixbuf *pb, int angle)
296 CODE: 308 CODE:
309 perlinterp_release ();
297 if (angle < 0) 310 if (angle < 0)
298 angle += 360; 311 angle += 360;
299 RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE 312 RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE
300 : angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE 313 : angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE
301 : angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN 314 : angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN
302 : angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE 315 : angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE
303 : angle); 316 : angle);
317 perlinterp_acquire ();
304 OUTPUT: 318 OUTPUT:
305 RETVAL 319 RETVAL
306 320
307GdkPixbuf_noinc * 321GdkPixbuf_noinc *
308load_jpeg (SV *path, int thumbnail=0) 322load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0)
309 CODE: 323 CODE:
310{ 324{
311 struct jpeg_decompress_struct cinfo; 325 struct jpeg_decompress_struct cinfo;
312 struct jpg_err_mgr jerr; 326 struct jpg_err_mgr jerr;
313 guchar *data; 327 guchar *data;
… …
320 fp = fopen (SvPVbyte_nolen (path), "rb"); 334 fp = fopen (SvPVbyte_nolen (path), "rb");
321 335
322 if (!fp) 336 if (!fp)
323 XSRETURN_UNDEF; 337 XSRETURN_UNDEF;
324 338
339 perlinterp_release ();
340
325 cinfo.err = jpeg_std_error (&jerr.err); 341 cinfo.err = jpeg_std_error (&jerr.err);
326 342
327 jerr.err.error_exit = cv_error_exit; 343 jerr.err.error_exit = cv_error_exit;
328 jerr.err.output_message = cv_error_output; 344 jerr.err.output_message = cv_error_output;
329 345
… …
333 jpeg_destroy_decompress (&cinfo); 349 jpeg_destroy_decompress (&cinfo);
334 350
335 if (pb) 351 if (pb)
336 g_object_unref ((gpointer)pb); 352 g_object_unref ((gpointer)pb);
337 353
354 perlinterp_acquire ();
338 XSRETURN_UNDEF; 355 XSRETURN_UNDEF;
339 } 356 }
340 357
341 jpeg_create_decompress (&cinfo); 358 jpeg_create_decompress (&cinfo);
342 359
… …
358 { 375 {
359 cinfo.dct_method = JDCT_FASTEST; 376 cinfo.dct_method = JDCT_FASTEST;
360 cinfo.do_fancy_upsampling = FALSE; 377 cinfo.do_fancy_upsampling = FALSE;
361 378
362 while (cinfo.scale_denom < 8 379 while (cinfo.scale_denom < 8
363 && cinfo.output_width >= IW*4 380 && cinfo.output_width >= iw*4
364 && cinfo.output_height >= IH*4) 381 && cinfo.output_height >= ih*4)
365 { 382 {
366 cinfo.scale_denom <<= 1; 383 cinfo.scale_denom <<= 1;
367 jpeg_calc_output_dimensions (&cinfo); 384 jpeg_calc_output_dimensions (&cinfo);
368 } 385 }
369 } 386 }
370 387
388 if (cinfo.output_components != 3)
389 longjmp (jerr.setjmp_buffer, 3);
390
391 if (cinfo.jpeg_color_space == JCS_YCCK || cinfo.jpeg_color_space == JCS_CMYK)
392 {
393 cinfo.out_color_space = JCS_CMYK;
394 cinfo.output_components = 4;
395 }
396
371 pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, cinfo.output_width, cinfo.output_height); 397 pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.output_components == 4, 8, cinfo.output_width, cinfo.output_height);
372 if (!RETVAL) 398 if (!RETVAL)
373 longjmp (jerr.setjmp_buffer, 2); 399 longjmp (jerr.setjmp_buffer, 2);
374 400
375 data = gdk_pixbuf_get_pixels (RETVAL); 401 data = gdk_pixbuf_get_pixels (RETVAL);
376 rs = gdk_pixbuf_get_rowstride (RETVAL); 402 rs = gdk_pixbuf_get_rowstride (RETVAL);
377
378 if (cinfo.output_components != 3)
379 longjmp (jerr.setjmp_buffer, 3);
380 403
381 jpeg_start_decompress (&cinfo); 404 jpeg_start_decompress (&cinfo);
382 405
383 while (cinfo.output_scanline < cinfo.output_height) 406 while (cinfo.output_scanline < cinfo.output_height)
384 { 407 {
… …
391 rp [3] = (guchar *)rp [2] + rs; 414 rp [3] = (guchar *)rp [2] + rs;
392 415
393 jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4); 416 jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);
394 } 417 }
395 418
419 if (cinfo.out_color_space == JCS_CMYK)
420 {
421 guchar *end = data + cinfo.output_height * rs;
422
423 while (data < end)
424 {
425 U32 c = data [0];
426 U32 m = data [1];
427 U32 y = data [2];
428 U32 k = data [3];
429
430 data [0] = c * k / 255;
431 data [1] = m * k / 255;
432 data [2] = y * k / 255;
433 data [3] = 255;
434
435 data += 4;
436 }
437 }
438
396 jpeg_finish_decompress (&cinfo); 439 jpeg_finish_decompress (&cinfo);
397 fclose (fp); 440 fclose (fp);
398 jpeg_destroy_decompress (&cinfo); 441 jpeg_destroy_decompress (&cinfo);
442 perlinterp_acquire ();
399} 443}
400 OUTPUT: 444 OUTPUT:
401 RETVAL 445 RETVAL
402 446
403void 447void
404compare (GdkPixbuf *a, GdkPixbuf *b) 448compare (GdkPixbuf *a, GdkPixbuf *b)
405 PPCODE: 449 PPCODE:
450 perlinterp_release ();
406{ 451{
407 int w = gdk_pixbuf_get_width (a); 452 int w = gdk_pixbuf_get_width (a);
408 int h = gdk_pixbuf_get_height (a); 453 int h = gdk_pixbuf_get_height (a);
409 454
410 int sa = gdk_pixbuf_get_rowstride (a); 455 int sa = gdk_pixbuf_get_rowstride (a);
… …
437 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d)); 482 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d));
438 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d)); 483 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d));
439 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d)); 484 d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d));
440 } 485 }
441 } 486 }
487
488 perlinterp_acquire ();
442 489
443 EXTEND (SP, 2); 490 EXTEND (SP, 2);
444 PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.))))); 491 PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));
445 PUSHs (sv_2mortal (newSVnv (peak / 255.))); 492 PUSHs (sv_2mortal (newSVnv (peak / 255.)));
446} 493}

Diff Legend

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