From 1df64a12ce7175d2a9f770265d67eae396ecfcbd Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 4 Feb 2010 19:43:14 -0800
Subject: [PATCH] images.atlas: add "make-atlas-assoc" word to take a
 name->image assoc and generate a name->texcoord assoc alongside the atlas

---
 extra/images/atlas/atlas.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/images/atlas/atlas.factor b/extra/images/atlas/atlas.factor
index 6496e51ab7..db1f0c2caf 100644
--- a/extra/images/atlas/atlas.factor
+++ b/extra/images/atlas/atlas.factor
@@ -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 ;