pages>objects ( pdf -- objects )


Vocabulary
pdf.layout

Inputs
pdfan object


Outputs
objectsan object


Definition


:: pages>objects ( pdf -- objects )
[
pdf info>> pdf-value , pdf-catalog , {
T{ font
{ name "sans-serif" }
{ size 12 }
{ foreground COLOR: black }
{ background COLOR: white }
}
T{ font
{ name "serif" }
{ size 12 }
{ foreground COLOR: black }
{ background COLOR: white }
}
T{ font
{ name "monospace" }
{ size 12 }
{ foreground COLOR: black }
{ background COLOR: white }
}
} {
[ [ f >>bold? f >>italic? pdf-value , ] each ]
[ [ t >>bold? f >>italic? pdf-value , ] each ]
[ [ f >>bold? t >>italic? pdf-value , ] each ]
[ [ t >>bold? t >>italic? pdf-value , ] each ]
} cleave pdf pages>> length pdf-pages ,
pdf pages>> dup length 16 swap 2 range boa zip
[ pdf-page , , ] assoc-each
] { } make dup length [1..b] zip [ first2 pdf-object ] map ;