atlas-image-format ( image-placements -- component-order component-type upside-down? )

Vocabulary

images.atlas.private

Inputs

image-placements

an object

Outputs

component-order	an object
component-type	an object
upside-down?	an object

Definition

USING: accessors combinators.short-circuit images.atlas kernel
sequences ;

IN: images.atlas.private

: atlas-image-format
    ( image-placements -- component-order component-type upside-down? )
    [ image>> ] map dup unclip [
        {
            [ [ component-order>> ] same? ]
            [ [ component-type>> ] same? ]
            [ [ upside-down?>> ] same? ]
        } 2&&
    ] curry all? [
        first
        [ component-order>> ] [ component-type>> ]
        [ upside-down?>> ] tri
    ] [ atlas-image-formats-dont-match ] if ; inline