run-x ( run -- x )

Vocabulary

core-text

Inputs

run

an object

Outputs

x

an object

Definition

USING: accessors alien.data core-foundation core-graphics.types
;

IN: core-text

: run-x ( run -- x )
    0 1 <CFRange>
    { CGPoint } [ CTRunGetPositions ] with-out-parameters x>> ;