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

support 48bpp tiffs

db4
Doug Coleman 2009-02-13 15:56:22 -06:00
parent 001a3eb8f1
commit 3cf4c6fee2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/images/images.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors grouping sequences combinators
math specialized-arrays.direct.uint byte-arrays ;
math specialized-arrays.direct.uint byte-arrays
specialized-arrays.direct.ushort ;
IN: images
SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR
@ -28,6 +29,13 @@ GENERIC: load-image* ( path tuple -- image )
>byte-array add-dummy-alpha
] change-bitmap
] }
{ R16G16B16 [
[
dup length 2 / <direct-ushort-array>
[ -8 shift ] map
>byte-array add-dummy-alpha
] change-bitmap
] }
{ BGRA [
[
4 <sliced-groups> dup [ [ 0 3 ] dip <slice> reverse-here ] each