source: project/release/4/exif/trunk/test-exif.scm @ 33716

Last change on this file since 33716 was 33716, checked in by Christian Kellermann, 4 years ago

Properly ref the exif data array, do not unref single entries, bump version

File size: 285 bytes
Line 
1(use exif srfi-4)
2
3(print (tag-alist-from-file "img_3942.jpg" '(model make date-time)))
4(and-let* ((thumb (thumbnail->u8vector "sony-cybershot.jpg")))
5  (with-output-to-file "thumb.jpg" (lambda ()
6                                     (display (blob->string (u8vector->blob thumb))))))
Note: See TracBrowser for help on using the repository browser.