make-atlas ( images -- image-texcoords atlas-image )


Vocabulary
images.atlas

Inputs
imagesan object


Outputs
image-texcoordsan object
atlas-imagean object


Definition
USING: assocs kernel ;

IN: images.atlas

: make-atlas ( images -- image-texcoords atlas-image )
pack-atlas dup (make-atlas)
[ [ image-placement>texcoords ] curry H{ } map>assoc ] keep
;