translate-directwrite-transform ( matrix point -- translated )

Vocabulary

ui.text.directwrite.transforms

Inputs

matrix	an object
point	an object

Outputs

translated

an object

Definition

USING: arrays math sequences ;

IN: ui.text.directwrite.transforms

:: translate-directwrite-transform
    ( matrix point -- translated )
    point first2 :> ( x y ) matrix >array :> translated 4 <iota> 
    [| row |
        row matrix nth x * row 4 + matrix nth y * + row 12 +
        matrix nth + row 12 + translated set-nth
    ] each translated ;