draw-page-color ( canvas -- )

Vocabulary

pdf.canvas

Inputs

canvas

an object

Outputs

None

Definition

USING: accessors io kernel pdf.text ;

IN: pdf.canvas

: draw-page-color ( canvas -- )
    dup page-color>> [
        "0.0 G" print foreground-color [ 0 0 ] dip
        [ width>> ] [ height>> ] bi rectangle fill
    ] [ drop ] if* ;