pdf-pages ( n -- str )


Vocabulary
text-to-pdf.private

Inputs and outputs
nan object
stran object


Definition


: pdf-pages ( n -- str )
[
"<<" , "/Type /Pages" , "/MediaBox [ 0 0 612 792 ]" ,
[ "/Count %d" sprintf , ] [
5 swap 2 range boa [ "%d 0 R " sprintf ] map
concat "/Kids [ " "]" surround ,
] bi ">>" ,
] { } make "\n" join ;