19 lines
550 B
Factor
19 lines
550 B
Factor
! Copyright (C) 2009 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: constructors kernel splitting unicode.case combinators
|
|
accessors images.bitmap images.tiff images io.backend
|
|
io.pathnames ;
|
|
IN: images.loader
|
|
|
|
ERROR: unknown-image-extension extension ;
|
|
|
|
: image-class ( path -- class )
|
|
file-extension >lower {
|
|
{ "bmp" [ bitmap-image ] }
|
|
{ "tiff" [ tiff-image ] }
|
|
[ unknown-image-extension ]
|
|
} case ;
|
|
|
|
: load-image ( path -- image )
|
|
dup image-class new load-image* normalize-image ;
|