rotate' ( image n -- image )

Vocabulary

images.processing.rotation.private

Inputs

image	an object
n	an object

Outputs

image

an object

Definition

USING: accessors ;

IN: images.processing.rotation.private

:: rotate' ( image n -- image )
    n normalize-degree :> n' image image>pixel-rows
    :> pixel-table image n' ?reverse-dimensions
    pixel-table n' (rotate)
    :> table-rotated image table-rotated flatten-table >>bitmap
    ;