copy-image-into-atlas ( image-placement atlas -- )

Vocabulary

images.atlas.private

Inputs

image-placement	an object
atlas	an object

Outputs

None

Definition

USING: accessors images math sequences ;

IN: images.atlas.private

:: copy-image-into-atlas ( image-placement atlas -- )
    image-placement image>> :> image image dim>> first2
    :> ( w h ) image-placement loc>> first2 :> ( x y ) h <iota> 
    [| row |
        0 row w image pixel-row-slice-at x y row +
        w atlas set-pixel-row-at
    ] each ; inline