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

Last change on this file since 24619 was 24619, checked in by Christian Kellermann, 9 years ago

Say hi to an libexif binding version 0.1

File size: 290 bytes
Line 
1(use exif srfi-4)
2
3(print (tag-alist-from-file "sony-cybershot.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.