draw-text1 ( canvas line -- canvas )

Vocabulary

pdf.canvas

Inputs

canvas	an object
line	an object

Outputs

canvas

an object

Definition

USING: accessors kernel math pdf.text ui.text ;

IN: pdf.canvas

: draw-text1 ( canvas line -- canvas )
    [ draw-background ] [
        text-start over font>> text-size over foreground>>
        [ foreground-color ] when* over
        [ x ] [ y ] [ metrics>> ascent>> - ] tri text-location
        over dup font>> pick text-width inc-x text-write
        text-end
    ] 2bi ;