<canvas> ( -- canvas )

Vocabulary

pdf.canvas

Inputs

None

Outputs

canvas

an object

Definition

USING: accessors fonts kernel ui.text ;

IN: pdf.canvas

: <canvas> ( -- canvas )
    canvas new 0 >>x 0 >>y 612 >>width 792 >>height
    54 54 54 54 <margin> >>margin 612 >>col-width
    sans-serif-font 12 >>size >>font SBUF" " >>stream
    0 >>line-height { 0 0 } >>inset
    dup font>> font-metrics >>metrics ;