Permalink
Switch branches/tags
Nothing to show
Find file Copy path
37e0b9c Jul 2, 2014
21 lines (14 sloc) 487 Bytes

binary-class-exif

Class for reading/changing Exif in JPEG

Based on http://planet.racket-lang.org/display.ss?package=mediafile.plt&owner=neil

To test

(define test (call-with-input-file "yourfile.jpg" read-jpeg-file-props))
(map parse-entry (read-ifd (get-field first-ifd (get-field tiff-header test))))

or

(define test (call-with-input-file "yourfile.tiff" read-tiff-file-props))
(map parse-entry (read-ifd (get-field first-ifd test)))