draw-line ( canvas width -- )

Vocabulary

pdf.canvas

Inputs

canvas	an object
width	an object

Outputs

None

Definition

USING: accessors kernel math pdf.text ;

IN: pdf.canvas

: draw-line ( canvas width -- )
    swap [ x ] [ y ] [ line-height>> 2 / - ] tri
    [ line-move ] [ [ + ] [ line-line ] bi* ] 2bi stroke ;