(pack-images) ( images atlas-width sort-quot -- placements )


Vocabulary
images.atlas.private

Inputs
imagesan object
atlas-widthan object
sort-quotan object


Outputs
placementsan object


Definition
USING: images.atlas kernel math sequences sorting ;

IN: images.atlas.private

:: (pack-images)
( images atlas-width sort-quot -- placements )
images sort-quot inv-sort-by [ f image-placement boa ] map
:> image-placements 0 :> @y!
[ image-placements atlas-width @y (pack-stripe) ]
[ @y + @y! ] while* image-placements ; inline