pdf-page ( n -- page )


Vocabulary
pdf.layout

Inputs
nan object


Outputs
pagean object


Definition
USING: formatting make math splitting ;

IN: pdf.layout

: pdf-page ( n -- page )
[
"<<" , "/Type /Page" , "/Parent 15 0 R" , 1 +
"/Contents %d 0 R" sprintf , "/Resources << /Font <<" ,
"/F1 3 0 R /F2 4 0 R /F3 5 0 R" ,
"/F4 6 0 R /F5 7 0 R /F6 8 0 R" ,
"/F7 9 0 R /F8 10 0 R /F9 11 0 R" ,
"/F10 12 0 R /F11 13 0 R /F12 14 0 R" , ">> >>" , ">>" ,
] { } make join-lines ;