normalize-scan-line-order ( image -- image' )

Vocabulary

images.normalization.private

Inputs

image

an object

Outputs

image'

an object

Definition

USING: accessors grouping kernel math sequences ;

IN: images.normalization.private

: normalize-scan-line-order ( image -- image' )
    dup upside-down?>> [
        dup dim>> first 4 * [ <groups> reverse concat ] curry
        change-bitmap f >>upside-down?
    ] when ;