pdf-page ( n -- page )

Vocabulary

text-to-pdf.private

Inputs

n

an object

Outputs

page

an object

Definition

USING: formatting make math splitting ;

IN: text-to-pdf.private

: pdf-page ( n -- page )
    [
        "<<" , "/Type /Page" , "/Parent 4 0 R" , 1 +
        "/Contents %d 0 R" sprintf ,
        "/Resources << /Font << /F1 3 0 R >> >>" , ">>" ,
    ] { } make join-lines ;