Class for reading/changing Exif in JPEG
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
binary-class
LICENSE
README.md
info.rkt

README.md

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)))