load-papier-images ( path -- images atlas )


Vocabulary
papier.map

Inputs
pathan object


Outputs
imagesan object
atlasan object


Definition
USING: assocs images.atlas images.loader io.directories
io.pathnames kernel sequences ;

IN: papier.map

: load-papier-images ( path -- images atlas )
[
[ file-extension { "tiff" "png" } member? ] filter
[ dup load-image ] H{ } map>assoc
] with-directory-files make-atlas-assoc ;