draw-text ( canvas lines -- )

Vocabulary

pdf.canvas

Inputs

canvas	an object
lines	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: pdf.canvas

: draw-text ( canvas lines -- )
    [ drop ] [
        unclip-last
        [ [ draw-text1 dup line-break ] each ]
        [ [ draw-text1 ] when* ] bi* drop
    ] if-empty ;