diff --git a/pitfall/pitfall/minimal-pdf-source.rkt b/pitfall/pitfall/minimal-pdf-source.rkt index 909e9e61..1ffc6ae0 100644 --- a/pitfall/pitfall/minimal-pdf-source.rkt +++ b/pitfall/pitfall/minimal-pdf-source.rkt @@ -1,9 +1,40 @@ #lang s-exp pitfall/render -(co-header "%PDF-1.1\n%¥±ë") +(co-io 1 0 (co-dict (hasheq 'Pages (co-io-ref 2 0) 'Type 'Catalog))) (co-io - 1 + 2 0 - (co-dict (hasheq 'Pages (co-io-ref 2 0) 'Type 'Catalog))) - -(co-trailer (co-dict (hasheq 'Size 1 'Root (co-io-ref 1 0)))) \ No newline at end of file + (co-dict + (hasheq + 'Count + 1 + 'Kids + (co-array (list (co-io-ref 3 0))) + 'Type + 'Pages + 'MediaBox + (co-array '(0 0 300 144))))) +(co-io + 3 + 0 + (co-dict + (hasheq + 'Resources + (co-dict + (hasheq + 'Font + (co-dict + (hasheq 'F1 (co-dict '#hasheq((Subtype . Type1) (BaseFont . Times-Roman) (Type . Font))))))) + 'Parent + (co-io-ref 2 0) + 'Contents + (co-io-ref 4 0) + 'Type + 'Page))) +(co-io + 4 + 0 + (co-stream + (co-dict '#hasheq((Length . 55))) + #" BT\n /F1 18 Tf\n 0 0 Td\n (Hello World) Tj\n ET")) +(co-trailer (co-dict (hasheq 'Size 5 'Root (co-io-ref 1 0)))) \ No newline at end of file