make-atlas-assoc ( image-assoc -- texcoord-assoc atlas-image )

Vocabulary

images.atlas

Inputs

image-assoc

an object

Outputs

texcoord-assoc	an object
atlas-image	an object

Definition

USING: assocs kernel ;

IN: images.atlas

: make-atlas-assoc
    ( image-assoc -- texcoord-assoc atlas-image )
    dup values make-atlas [ [ at ] curry assoc-map ] dip ;