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

add 48bpp mode to tiff

db4
Doug Coleman 2009-02-13 10:16:58 -06:00
parent 50d6f3e9d5
commit 3fb733b53c
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/images/images.factor
View File

@ -5,7 +5,7 @@ math specialized-arrays.direct.uint byte-arrays ;
IN: images IN: images
SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR
32R32G32B ; 16R16G16B 32R32G32B ;
TUPLE: image dim component-order byte-order bitmap ; TUPLE: image dim component-order byte-order bitmap ;
@ -17,14 +17,6 @@ GENERIC: load-image* ( path tuple -- image )
dup component-order>> dup component-order>>
{ {
{ RGBA [ ] } { RGBA [ ] }
{ 32R32G32B [
[
! >byte-array
! dup length 4 /i <direct-uint-array> [ 32 2^ /i ] map
! >byte-array
! 4 <sliced-groups> le> [ 32 2^ /i ] map concat
] change-bitmap
] }
{ BGRA [ { BGRA [
[ [
4 <sliced-groups> dup [ [ 0 3 ] dip <slice> reverse-here ] each 4 <sliced-groups> dup [ [ 0 3 ] dip <slice> reverse-here ] each

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

@ -278,6 +278,7 @@ ERROR: unknown-component-order ifd ;
: ifd-component-order ( ifd -- byte-order ) : ifd-component-order ( ifd -- byte-order )
bits-per-sample find-tag { bits-per-sample find-tag {
{ { 32 32 32 } [ 32R32G32B ] } { { 32 32 32 } [ 32R32G32B ] }
{ { 16 16 16 } [ 16R16G16B ] }
{ { 8 8 8 8 } [ RGBA ] } { { 8 8 8 8 } [ RGBA ] }
{ { 8 8 8 } [ RGB ] } { { 8 8 8 } [ RGB ] }
[ unknown-component-order ] [ unknown-component-order ]