directwrite-scale ( sx sy -- )

Vocabulary

ui.text.directwrite.transforms

Inputs

sx	an object
sy	an object

Outputs

None

Definition

USING: arrays kernel math namespaces opengl sequences ;

IN: ui.text.directwrite.transforms

:: directwrite-scale ( sx sy -- )
    directwrite-transform get [
        >array :> matrix 4 <iota> [| row |
            row matrix [ sx * ] change-nth row 4 + matrix
            [ sy * ] change-nth
        ] each matrix directwrite-transform set
    ] when* sx sy gl-scale-2d-legacy ;