draw-background ( canvas line -- )

Vocabulary

pdf.canvas

Inputs

canvas	an object
line	an object

Outputs

None

Definition

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

IN: pdf.canvas

: draw-background ( canvas line -- )
    over background>> [
        "0.0 G" print foreground-color
        [ drop [ x ] [ y ] bi ]
        [ [ font>> ] [ text-dim first2 neg ] bi* ] 2bi rectangle
        fill
    ] [ 2drop ] if* ;