steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

normalizing alpha data for tiffs is done too often, check in test image for it

db4
Doug Coleman 2009-03-16 07:11:56 -05:00
parent bb33894d8a
commit 8eea41b537
1 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/images/tiff/tiff.factor
View File

@ -477,10 +477,8 @@ ERROR: unknown-component-order ifd ;
[ unknown-component-order ] [ unknown-component-order ]
} case ; } case ;
: handle-alpha-data ( ifd -- ifd ) : normalize-alpha-data ( seq -- byte-array )
dup extra-samples find-tag { ! [ normalize-alpha-data ] change-bitmap
{ extra-samples-associated-alpha-data [
[
B{ } like dup B{ } like dup
byte-array>float-array byte-array>float-array
4 <sliced-groups> 4 <sliced-groups>
@ -490,13 +488,13 @@ ERROR: unknown-component-order ifd ;
] [ ] [
[ 3 head-slice ] dip '[ _ / ] change-each [ 3 head-slice ] dip '[ _ / ] change-each
] if ] if
] each ] each ;
] change-bitmap
] } : handle-alpha-data ( ifd -- ifd )
{ extra-samples-unspecified-alpha-data [ dup extra-samples find-tag {
] } { extra-samples-associated-alpha-data [ ] }
{ extra-samples-unassociated-alpha-data [ { extra-samples-unspecified-alpha-data [ ] }
] } { extra-samples-unassociated-alpha-data [ ] }
[ bad-extra-samples ] [ bad-extra-samples ]
} case ; } case ;