permute ( bytes width stride src-order dst-order -- new-bytes )

Vocabulary

images.normalization.private

Inputs

bytes	an object
width	an object
stride	an object
src-order	an object
dst-order	an object

Outputs

new-bytes

an object

Definition

USING: accessors grouping sequences ;

IN: images.normalization.private

:: permute
    ( bytes width stride src-order dst-order -- new-bytes )
    src-order name>> :> src dst-order name>> :> dst bytes stride
    group [
        src length group width head
        [ pad4 src dst permutation shuffle dst length head ] map
        concat
    ] map concat ;