refactor tiff loading a bit, identify lots of ifd header tags
Doug Coleman
parent
f4a242f341
commit
5ef7afcbb3
|
|
@ -24,7 +24,16 @@ SINGLETONS: photometric-interpretation
|
||||||
photometric-interpretation-white-is-zero
|
photometric-interpretation-white-is-zero
|
||||||
photometric-interpretation-black-is-zero
|
photometric-interpretation-black-is-zero
|
||||||
photometric-interpretation-rgb
|
photometric-interpretation-rgb
|
||||||
photometric-interpretation-palette-color ;
|
photometric-interpretation-palette-color
|
||||||
|
photometric-interpretation-transparency-mask
|
||||||
|
photometric-interpretation-separated
|
||||||
|
photometric-interpretation-ycbcr
|
||||||
|
photometric-interpretation-cielab
|
||||||
|
photometric-interpretation-icclab
|
||||||
|
photometric-interpretation-itulab
|
||||||
|
photometric-interpretation-logl
|
||||||
|
photometric-interpretation-logluv ;
|
||||||
|
|
||||||
ERROR: bad-photometric-interpretation n ;
|
ERROR: bad-photometric-interpretation n ;
|
||||||
: lookup-photometric-interpretation ( n -- singleton )
|
: lookup-photometric-interpretation ( n -- singleton )
|
||||||
{
|
{
|
||||||
|
|
@ -32,21 +41,73 @@ ERROR: bad-photometric-interpretation n ;
|
||||||
{ 1 [ photometric-interpretation-black-is-zero ] }
|
{ 1 [ photometric-interpretation-black-is-zero ] }
|
||||||
{ 2 [ photometric-interpretation-rgb ] }
|
{ 2 [ photometric-interpretation-rgb ] }
|
||||||
{ 3 [ photometric-interpretation-palette-color ] }
|
{ 3 [ photometric-interpretation-palette-color ] }
|
||||||
|
{ 4 [ photometric-interpretation-transparency-mask ] }
|
||||||
|
{ 5 [ photometric-interpretation-separated ] }
|
||||||
|
{ 6 [ photometric-interpretation-ycbcr ] }
|
||||||
|
{ 8 [ photometric-interpretation-cielab ] }
|
||||||
|
{ 9 [ photometric-interpretation-icclab ] }
|
||||||
|
{ 10 [ photometric-interpretation-itulab ] }
|
||||||
|
{ 32844 [ photometric-interpretation-logl ] }
|
||||||
|
{ 32845 [ photometric-interpretation-logluv ] }
|
||||||
[ bad-photometric-interpretation ]
|
[ bad-photometric-interpretation ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
SINGLETONS: compression
|
SINGLETONS: compression
|
||||||
compression-none
|
compression-none
|
||||||
compression-CCITT-2
|
compression-CCITT-2
|
||||||
|
compression-CCITT-3
|
||||||
|
compression-CCITT-4
|
||||||
compression-lzw
|
compression-lzw
|
||||||
compression-pack-bits ;
|
compression-jpeg-old
|
||||||
|
compression-jpeg-new
|
||||||
|
compression-adobe-deflate
|
||||||
|
compression-9
|
||||||
|
compression-10
|
||||||
|
compression-deflate
|
||||||
|
compression-next
|
||||||
|
compression-ccittrlew
|
||||||
|
compression-pack-bits
|
||||||
|
compression-thunderscan
|
||||||
|
compression-it8ctpad
|
||||||
|
compression-it8lw
|
||||||
|
compression-it8mp
|
||||||
|
compression-it8bl
|
||||||
|
compression-pixarfilm
|
||||||
|
compression-pixarlog
|
||||||
|
compression-dcs
|
||||||
|
compression-jbig
|
||||||
|
compression-sgilog
|
||||||
|
compression-sgilog24
|
||||||
|
compression-jp2000 ;
|
||||||
ERROR: bad-compression n ;
|
ERROR: bad-compression n ;
|
||||||
: lookup-compression ( n -- compression )
|
: lookup-compression ( n -- compression )
|
||||||
{
|
{
|
||||||
{ 1 [ compression-none ] }
|
{ 1 [ compression-none ] }
|
||||||
{ 2 [ compression-CCITT-2 ] }
|
{ 2 [ compression-CCITT-2 ] }
|
||||||
|
{ 3 [ compression-CCITT-3 ] }
|
||||||
|
{ 4 [ compression-CCITT-4 ] }
|
||||||
{ 5 [ compression-lzw ] }
|
{ 5 [ compression-lzw ] }
|
||||||
|
{ 6 [ compression-jpeg-old ] }
|
||||||
|
{ 7 [ compression-jpeg-new ] }
|
||||||
|
{ 8 [ compression-adobe-deflate ] }
|
||||||
|
{ 9 [ compression-9 ] }
|
||||||
|
{ 10 [ compression-10 ] }
|
||||||
|
{ 32766 [ compression-next ] }
|
||||||
|
{ 32771 [ compression-ccittrlew ] }
|
||||||
{ 32773 [ compression-pack-bits ] }
|
{ 32773 [ compression-pack-bits ] }
|
||||||
|
{ 32809 [ compression-thunderscan ] }
|
||||||
|
{ 32895 [ compression-it8ctpad ] }
|
||||||
|
{ 32896 [ compression-it8lw ] }
|
||||||
|
{ 32897 [ compression-it8mp ] }
|
||||||
|
{ 32898 [ compression-it8bl ] }
|
||||||
|
{ 32908 [ compression-pixarfilm ] }
|
||||||
|
{ 32909 [ compression-pixarlog ] }
|
||||||
|
{ 32946 [ compression-deflate ] }
|
||||||
|
{ 32947 [ compression-dcs ] }
|
||||||
|
{ 34661 [ compression-jbig ] }
|
||||||
|
{ 34676 [ compression-sgilog ] }
|
||||||
|
{ 34677 [ compression-sgilog24 ] }
|
||||||
|
{ 34712 [ compression-jp2000 ] }
|
||||||
[ bad-compression ]
|
[ bad-compression ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
|
|
@ -86,6 +147,7 @@ ERROR: bad-planar-configuration n ;
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
SINGLETONS: sample-format
|
SINGLETONS: sample-format
|
||||||
|
sample-format-none
|
||||||
sample-format-unsigned-integer
|
sample-format-unsigned-integer
|
||||||
sample-format-signed-integer
|
sample-format-signed-integer
|
||||||
sample-format-ieee-float
|
sample-format-ieee-float
|
||||||
|
|
@ -94,6 +156,7 @@ ERROR: bad-sample-format n ;
|
||||||
: lookup-sample-format ( sequence -- object )
|
: lookup-sample-format ( sequence -- object )
|
||||||
[
|
[
|
||||||
{
|
{
|
||||||
|
{ 0 [ sample-format-none ] }
|
||||||
{ 1 [ sample-format-unsigned-integer ] }
|
{ 1 [ sample-format-unsigned-integer ] }
|
||||||
{ 2 [ sample-format-signed-integer ] }
|
{ 2 [ sample-format-signed-integer ] }
|
||||||
{ 3 [ sample-format-ieee-float ] }
|
{ 3 [ sample-format-ieee-float ] }
|
||||||
|
|
@ -123,9 +186,31 @@ xmp iptc fill-order document-name page-number page-name
|
||||||
x-position y-position host-computer copyright artist
|
x-position y-position host-computer copyright artist
|
||||||
min-sample-value max-sample-value make model cell-width cell-length
|
min-sample-value max-sample-value make model cell-width cell-length
|
||||||
gray-response-unit gray-response-curve color-map threshholding
|
gray-response-unit gray-response-curve color-map threshholding
|
||||||
image-description free-offsets free-byte-counts
|
image-description free-offsets free-byte-counts tile-width tile-length
|
||||||
|
matteing data-type image-depth tile-depth
|
||||||
|
ycbcr-subsampling gdal-metadata
|
||||||
|
tile-offsets tile-byte-counts jpeg-qtables jpeg-dctables jpeg-actables
|
||||||
|
ycbcr-positioning ycbcr-coefficients reference-black-white halftone-hints
|
||||||
|
jpeg-interchange-format
|
||||||
|
jpeg-interchange-format-length
|
||||||
|
jpeg-restart-interval jpeg-tables
|
||||||
|
t4-options clean-fax-data bad-fax-lines consecutive-bad-fax-lines
|
||||||
|
sto-nits print-image-matching-info
|
||||||
unhandled-ifd-entry ;
|
unhandled-ifd-entry ;
|
||||||
|
|
||||||
|
SINGLETONS: jpeg-proc
|
||||||
|
jpeg-proc-baseline
|
||||||
|
jpeg-proc-lossless ;
|
||||||
|
|
||||||
|
ERROR: bad-jpeg-proc n ;
|
||||||
|
|
||||||
|
: lookup-jpeg-proc ( sequence -- object )
|
||||||
|
{
|
||||||
|
{ 1 [ jpeg-proc-baseline ] }
|
||||||
|
{ 14 [ jpeg-proc-lossless ] }
|
||||||
|
[ bad-jpeg-proc ]
|
||||||
|
} case ;
|
||||||
|
|
||||||
ERROR: bad-tiff-magic bytes ;
|
ERROR: bad-tiff-magic bytes ;
|
||||||
: tiff-endianness ( byte-array -- ? )
|
: tiff-endianness ( byte-array -- ? )
|
||||||
{
|
{
|
||||||
|
|
@ -149,12 +234,12 @@ ERROR: bad-tiff-magic bytes ;
|
||||||
4 read endian>
|
4 read endian>
|
||||||
4 read endian> <ifd-entry> ;
|
4 read endian> <ifd-entry> ;
|
||||||
|
|
||||||
: read-ifds ( tiff -- tiff )
|
: read-ifds ( tiff offset -- tiff )
|
||||||
dup ifd-offset>> seek-absolute seek-input
|
seek-absolute seek-input
|
||||||
2 read endian>
|
2 read endian>
|
||||||
dup [ read-ifd ] replicate
|
dup [ read-ifd ] replicate
|
||||||
4 read endian>
|
4 read endian>
|
||||||
[ <ifd> push-ifd ] [ 0 = [ read-ifds ] unless ] bi ;
|
[ <ifd> push-ifd ] [ dup 0 = [ drop ] [ read-ifds ] if ] bi ;
|
||||||
|
|
||||||
ERROR: no-tag class ;
|
ERROR: no-tag class ;
|
||||||
|
|
||||||
|
|
@ -276,6 +361,7 @@ ERROR: bad-small-ifd-type n ;
|
||||||
{ 289 [ free-byte-counts ] }
|
{ 289 [ free-byte-counts ] }
|
||||||
{ 290 [ gray-response-unit ] }
|
{ 290 [ gray-response-unit ] }
|
||||||
{ 291 [ gray-response-curve ] }
|
{ 291 [ gray-response-curve ] }
|
||||||
|
{ 292 [ t4-options ] }
|
||||||
{ 296 [ lookup-resolution-unit resolution-unit ] }
|
{ 296 [ lookup-resolution-unit resolution-unit ] }
|
||||||
{ 297 [ page-number ] }
|
{ 297 [ page-number ] }
|
||||||
{ 305 [ ascii decode software ] }
|
{ 305 [ ascii decode software ] }
|
||||||
|
|
@ -284,21 +370,52 @@ ERROR: bad-small-ifd-type n ;
|
||||||
{ 316 [ ascii decode host-computer ] }
|
{ 316 [ ascii decode host-computer ] }
|
||||||
{ 317 [ lookup-predictor predictor ] }
|
{ 317 [ lookup-predictor predictor ] }
|
||||||
{ 320 [ color-map ] }
|
{ 320 [ color-map ] }
|
||||||
|
{ 321 [ halftone-hints ] }
|
||||||
|
{ 322 [ tile-width ] }
|
||||||
|
{ 323 [ tile-length ] }
|
||||||
|
{ 324 [ tile-offsets ] }
|
||||||
|
{ 325 [ tile-byte-counts ] }
|
||||||
|
{ 326 [ bad-fax-lines ] }
|
||||||
|
{ 327 [ clean-fax-data ] }
|
||||||
|
{ 328 [ consecutive-bad-fax-lines ] }
|
||||||
{ 330 [ sub-ifd ] }
|
{ 330 [ sub-ifd ] }
|
||||||
{ 338 [ lookup-extra-samples extra-samples ] }
|
{ 338 [ lookup-extra-samples extra-samples ] }
|
||||||
{ 339 [ lookup-sample-format sample-format ] }
|
{ 339 [ lookup-sample-format sample-format ] }
|
||||||
|
{ 347 [ jpeg-tables ] }
|
||||||
|
{ 512 [ lookup-jpeg-proc jpeg-proc ] }
|
||||||
|
{ 513 [ jpeg-interchange-format ] }
|
||||||
|
{ 514 [ jpeg-interchange-format-length ] }
|
||||||
|
{ 515 [ jpeg-restart-interval ] }
|
||||||
|
{ 519 [ jpeg-qtables ] }
|
||||||
|
{ 520 [ jpeg-dctables ] }
|
||||||
|
{ 521 [ jpeg-actables ] }
|
||||||
|
{ 529 [ ycbcr-coefficients ] }
|
||||||
|
{ 530 [ ycbcr-subsampling ] }
|
||||||
|
{ 531 [ ycbcr-positioning ] }
|
||||||
|
{ 532 [ reference-black-white ] }
|
||||||
{ 700 [ utf8 decode xmp ] }
|
{ 700 [ utf8 decode xmp ] }
|
||||||
|
{ 32995 [ matteing ] }
|
||||||
|
{ 32996 [ data-type ] }
|
||||||
|
{ 32997 [ image-depth ] }
|
||||||
|
{ 32998 [ tile-depth ] }
|
||||||
{ 33432 [ copyright ] }
|
{ 33432 [ copyright ] }
|
||||||
{ 33723 [ iptc ] }
|
{ 33723 [ iptc ] }
|
||||||
{ 34377 [ photoshop ] }
|
{ 34377 [ photoshop ] }
|
||||||
{ 34665 [ exif-ifd ] }
|
{ 34665 [ exif-ifd ] }
|
||||||
{ 34675 [ inter-color-profile ] }
|
{ 34675 [ inter-color-profile ] }
|
||||||
|
{ 37439 [ sto-nits ] }
|
||||||
|
{ 42112 [ gdal-metadata ] }
|
||||||
|
{ 50341 [ print-image-matching-info ] }
|
||||||
[ nip unhandled-ifd-entry swap ]
|
[ nip unhandled-ifd-entry swap ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
: process-ifd ( ifd -- ifd )
|
: process-ifds ( parsed-tiff -- parsed-tiff )
|
||||||
dup ifd-entries>>
|
[
|
||||||
[ process-ifd-entry swap ] H{ } map>assoc >>processed-tags ;
|
[
|
||||||
|
dup ifd-entries>>
|
||||||
|
[ process-ifd-entry swap ] H{ } map>assoc >>processed-tags
|
||||||
|
] map
|
||||||
|
] change-ifds ;
|
||||||
|
|
||||||
ERROR: unhandled-compression compression ;
|
ERROR: unhandled-compression compression ;
|
||||||
|
|
||||||
|
|
@ -396,23 +513,36 @@ ERROR: unknown-component-order ifd ;
|
||||||
: tiff>image ( image -- image )
|
: tiff>image ( image -- image )
|
||||||
ifds>> [ ifd>image ] map first ;
|
ifds>> [ ifd>image ] map first ;
|
||||||
|
|
||||||
: load-tiff ( path -- parsed-tiff )
|
: with-tiff-endianness ( parsed-tiff quot -- )
|
||||||
|
[ dup endianness>> ] dip with-endianness ; inline
|
||||||
|
|
||||||
|
: load-tiff-ifds ( path -- parsed-tiff )
|
||||||
binary [
|
binary [
|
||||||
<parsed-tiff>
|
<parsed-tiff>
|
||||||
read-header dup endianness>> [
|
read-header [
|
||||||
read-ifds
|
dup ifd-offset>> read-ifds
|
||||||
dup ifds>> [
|
process-ifds
|
||||||
process-ifd read-strips
|
] with-tiff-endianness
|
||||||
uncompress-strips
|
|
||||||
strips>bitmap
|
|
||||||
fix-bitmap-endianness
|
|
||||||
strips-predictor
|
|
||||||
dup extra-samples tag? [ handle-alpha-data ] when
|
|
||||||
drop
|
|
||||||
] each
|
|
||||||
] with-endianness
|
|
||||||
] with-file-reader ;
|
] with-file-reader ;
|
||||||
|
|
||||||
|
: process-tif-ifds ( parsed-tiff -- parsed-tiff )
|
||||||
|
dup ifds>> [
|
||||||
|
read-strips
|
||||||
|
uncompress-strips
|
||||||
|
strips>bitmap
|
||||||
|
fix-bitmap-endianness
|
||||||
|
strips-predictor
|
||||||
|
dup extra-samples tag? [ handle-alpha-data ] when
|
||||||
|
drop
|
||||||
|
] each ;
|
||||||
|
|
||||||
|
: load-tiff ( path -- parsed-tiff )
|
||||||
|
[ load-tiff-ifds ] [
|
||||||
|
binary [
|
||||||
|
[ process-tif-ifds ] with-tiff-endianness
|
||||||
|
] with-file-reader
|
||||||
|
] bi ;
|
||||||
|
|
||||||
! tiff files can store several images -- we just take the first for now
|
! tiff files can store several images -- we just take the first for now
|
||||||
M: tiff-image load-image* ( path tiff-image -- image )
|
M: tiff-image load-image* ( path tiff-image -- image )
|
||||||
drop load-tiff tiff>image ;
|
drop load-tiff tiff>image ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue