package camlimages
Image processing library
Install
Dune Dependency
Authors
Maintainers
Sources
camlimages-5.0.2.tar.bz2
sha256=8a36e7d5636358db533de71e55533fc8118444c607355b68357e0e619f3ab1d4
md5=956fc1942a4b4c5da473ddcd9c9d028b
doc/camlimages.exif/Exif/Analyze/index.html
Module Exif.Analyze
type datetime = [
| `EncodedInUnixTime of DateTime.t
(*Photos from some old Androids have non Ascii datetime. They have encoded 32 bit int in Unix time instead! :-(
*)| `Error of string
| `Ok of DateTime.t
]
val parse_datetime : string -> [> datetime ]
val analyze_ifd :
Entry.unpacked_entry ->
[> `DateTime of [> datetime ]
| `Make of string
| `Model of string
| `Orientation of
[> `BottomLeft
| `BottomRight
| `LeftBottom
| `LeftTop
| `RightBottom
| `RightTop
| `TopLeft
| `TopRight ]
| `ResolutionUnit of [> `Centimeters | `Inches ]
| `Software of Entry.Pack.unpacked
| `Unknown of Entry.unpacked_entry
| `XResolution of int64 * int64
| `YResolution of int64 * int64 ]
Analyze IFD. The unpacked_entry must come from ifd_0 or ifd_1 sub-IFDs
val analyze_exif :
Entry.unpacked_entry ->
[> `DateTimeDigitized of [> datetime ]
| `DateTimeOriginal of [> datetime ]
| `ExifVersion of string
| `MakerNote of string
| `SubsecTime of string
| `SubsecTimeDigitized of string
| `SubsecTimeOriginal of string
| `Unknown of Entry.unpacked_entry
| `UserComment of string ]
Analyze EXIF. The unpacked_entry must come from exif sub-IFD
val analyze_gps :
Entry.unpacked_entry ->
[> `AboveSeaLevel
| `Altitude of int64 * int64
| `BelowSeaLevel
| `EastLongitude
| `GPSDate of [> `Error of string | `Ok of Date.t ]
| `GPSMapDatum of string
| `GPSVersion of int * int * int * int
| `ImgDirection of int64 * int64
| `ImgDirectionMagnetic
| `ImgDirectionTrue
| `Latitude of int64 * int64
| `Longitude of int64 * int64
| `NorthLatitude
| `SouthLatitude
| `TimeStampUTC of float * float * float
| `TimeStampUTCinSRationals of float * float * float
| `Unknown of Entry.unpacked_entry
| `WestLongitude ]
Analyze GPS. The unpacked_entry must come from gps sub-IFD
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>