From f472405f20fc7796e36b91a4d29a9dda4f21fb9c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 11 Apr 2017 19:57:53 -0700 Subject: [PATCH] working minimal annotation --- pitfall/pitfall/minimal-annotation.rkt | 63 ++++++++------------------ 1 file changed, 19 insertions(+), 44 deletions(-) diff --git a/pitfall/pitfall/minimal-annotation.rkt b/pitfall/pitfall/minimal-annotation.rkt index 17ccd103..f7ddbad1 100644 --- a/pitfall/pitfall/minimal-annotation.rkt +++ b/pitfall/pitfall/minimal-annotation.rkt @@ -8,57 +8,32 @@ #:count 1)) ;; page (co-io 3 0 (co-page #:parent (co-io-ref 2 0) - #:mediabox '(0 0 612 792) - #:resources (co-io-ref 4 0) + #:mediabox '(0 0 400 400) #:contents (co-io-ref 5 0) - )) -#;#:annots (co-io-ref 7 0) + ; the value of annots must be an array + #:annots (co-array (list (co-io-ref 7 0))))) -;; resources -(co-io 4 0 - (make-co-dict - 'ProcSet (co-array '(PDF Text)) - 'Font (make-co-dict 'F1 (co-io-ref 6 0)))) ;; contents (co-io 5 0 (make-co-stream - #"BT -/F1 24 Tf -1 0 0 1 260 600 Tm -(Hello World)Tj -ET")) + #" +BT +0.9 g +100 100 100 100 re +F +ET +")) - -;; font -(co-io 6 0 - (make-co-dict - 'Type 'Font 'Subtype 'Type1 'Name 'F1 'BaseFont 'Helvetica)) - -;; annots -#| (co-io 7 0 - (co-array (list (co-io-ref 8 0))) + (make-co-dict 'Type 'Annot + 'Subtype 'Link + ;; rect is left bottom right top in page coordinates + 'Rect (co-array '(125 125 175 175)) + 'A (co-io-ref 8 0))) + (co-io 8 0 - (co-dict - (hasheq - 'Rect - (co-array '(260 596.0184 404.048 613.331)) - 'Subtype - 'StrikeOut - 'Contents - "" - 'F - 4 - 'M - "D:20170405003853Z00'00'" - 'Type - 'Annot - 'C - (co-array '(0.8945577 0.05464891 0.07036456)) - 'AP - (co-io-ref 11 0) - 'QuadPoints - (co-array '(260 613.331 404.048 613.331 260 596.0184 404.048 596.0184))))) -|# \ No newline at end of file + (make-co-dict 'Type 'Action + 'S 'URI + 'URI (co-string "http://practicaltypography.com"))) \ No newline at end of file