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

images.atlas: add "make-atlas-assoc" word to take a name->image assoc and generate a name->texcoord assoc alongside the atlas

db4
Joe Groff 2010-02-04 19:43:14 -08:00
parent 2381e9bf24
commit 1df64a12ce
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/images/atlas/atlas.factor
View File

@ -121,3 +121,5 @@ PRIVATE>
: make-atlas ( images -- image-texcoords atlas-image )
pack-atlas dup (make-atlas) [ '[ _ image-placement>texcoords ] H{ } map>assoc ] keep ;
: make-atlas-assoc ( image-assoc -- texcoord-assoc atlas-image )
dup values make-atlas [ '[ _ at ] assoc-map ] dip ;