dont use boa constructor in tiff

db4
Doug Coleman 2009-06-10 15:52:55 -04:00
parent 71f0ce5688
commit 0fd46ac59d
1 changed files with 5 additions and 5 deletions

View File

@ -492,11 +492,11 @@ ERROR: unknown-component-order ifd ;
} case ;
: ifd>image ( ifd -- image )
{
[ [ image-width find-tag ] [ image-length find-tag ] bi 2array ]
[ ifd-component-order f ]
[ bitmap>> ]
} cleave image boa ;
[ <image> ] dip {
[ [ image-width find-tag ] [ image-length find-tag ] bi 2array >>dim ]
[ ifd-component-order >>component-order ]
[ bitmap>> >>bitmap ]
} cleave ;
: tiff>image ( image -- image )
ifds>> [ ifd>image ] map first ;