update-slab-for-atlas ( slab: slab images -- )


Vocabulary
papier.map

Inputs
slaba slab
imagesan object


Outputs
None

Definition
USING: accessors assocs kernel math.vectors.simd sequences
specialized-arrays.instances.math.vectors.simd.float-4 typed ;

IN: papier.map

TYPED: update-slab-for-atlas ( slab: slab images -- )
[ dup images>> ] dip [ at >float-4 ] curry
float-4-array{ } map-as >>texcoords drop ;