center-rotation ( transform center -- transform )

Vocabulary

math.affine-transforms

Inputs

transform	an object
center	an object

Outputs

transform

an object

Definition

USING: accessors kernel math.vectors ;

IN: math.affine-transforms

: center-rotation ( transform center -- transform )
    [ [ x>> ] [ y>> ] [ ] tri ] dip [ vneg a.v ] [ v+ ] bi
    <affine-transform> ;