images.atlas: add "make-atlas-assoc" word to take a name->image assoc and generate a name->texcoord assoc alongside the atlas
parent
2381e9bf24
commit
1df64a12ce
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue