working minimal font embed
parent
0c0631808f
commit
f16f3d8502
@ -0,0 +1,75 @@
|
|||||||
|
#lang pitfall/parse
|
||||||
|
|
||||||
|
null
|
||||||
|
true
|
||||||
|
false
|
||||||
|
1
|
||||||
|
-2
|
||||||
|
+100
|
||||||
|
612
|
||||||
|
0.05
|
||||||
|
.25
|
||||||
|
-3.14159
|
||||||
|
300.9001
|
||||||
|
/Type
|
||||||
|
/ThisIsName37
|
||||||
|
/Lime#20Green
|
||||||
|
/SSCN_SomeSecondClassName
|
||||||
|
/Adobe#20Green
|
||||||
|
/The_Key_of_F#23_Minor
|
||||||
|
(Testing)
|
||||||
|
(A\053B)
|
||||||
|
|
||||||
|
%(D:19990209153925-08'00')
|
||||||
|
<1C2D3F>
|
||||||
|
<1C 2D 3F>
|
||||||
|
[0 0 612 792]
|
||||||
|
[(T) -20.5 (H) 4 (E)]
|
||||||
|
[[1 2 3][4 5 6]]
|
||||||
|
<<
|
||||||
|
/Type /Example
|
||||||
|
/Subtype /DictionaryExample
|
||||||
|
/Version 0.01
|
||||||
|
/IntegerItem 12
|
||||||
|
/StringItem (a string)
|
||||||
|
/Subdictionary <<
|
||||||
|
/Item1 0.4
|
||||||
|
/Item2 true
|
||||||
|
/LastItem (not!)
|
||||||
|
/VeryLastItem (OK) >> >>
|
||||||
|
( This string contains \245two octal characters\307 . )
|
||||||
|
(Strings may contain balanced parentheses ( ) and special \ncharacters (*!&}^% and so on).)
|
||||||
|
% a more human-readable dictionary
|
||||||
|
<<
|
||||||
|
/Type /Page
|
||||||
|
/Author (Leonard Rosenthol)
|
||||||
|
/Resources 42
|
||||||
|
>>
|
||||||
|
% stripped
|
||||||
|
<</Length 3112/Subtype/XML/Type/Metadata>>
|
||||||
|
|
||||||
|
<<
|
||||||
|
/Type /Xobject /Subtype /Image /Filter /FlateDecode /Length 4 /Height 32 /Width 32
|
||||||
|
>>
|
||||||
|
stream
|
||||||
|
abcd
|
||||||
|
endstream
|
||||||
|
|
||||||
|
12 0 obj
|
||||||
|
( Brillig )
|
||||||
|
endobj
|
||||||
|
|
||||||
|
8 0 obj
|
||||||
|
63
|
||||||
|
endobj
|
||||||
|
|
||||||
|
7 0 obj
|
||||||
|
<< /Length 8 0 R >>
|
||||||
|
stream
|
||||||
|
BT
|
||||||
|
/F1 12 Tf
|
||||||
|
72 712 Td
|
||||||
|
(A stream with an indirect length) Tj
|
||||||
|
ET
|
||||||
|
endstream
|
||||||
|
endobj
|
@ -0,0 +1,88 @@
|
|||||||
|
#lang at-exp s-exp pitfall/render
|
||||||
|
|
||||||
|
;; catalog object
|
||||||
|
(co-io 1 0 (co-catalog #:pages (co-io-ref 2 0)))
|
||||||
|
|
||||||
|
;; pages
|
||||||
|
(co-io 2 0 (co-pages #:kids (list (co-io-ref 3 0))
|
||||||
|
#:count 1))
|
||||||
|
;; page
|
||||||
|
(co-io 3 0 (co-page #:parent (co-io-ref 2 0)
|
||||||
|
#:mediabox '(0 0 400 400)
|
||||||
|
#:resources (co-io-ref 4 0)
|
||||||
|
#:contents (co-io-ref 5 0)
|
||||||
|
|
||||||
|
; the value of annots must be an array
|
||||||
|
#:annots (co-array (list (co-io-ref 7 0)))
|
||||||
|
))
|
||||||
|
#;#:annots (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 100 100 Tm
|
||||||
|
1 0 0 RG
|
||||||
|
[2] 0 d
|
||||||
|
0.75 g
|
||||||
|
2 Tr
|
||||||
|
(Hello) Tj
|
||||||
|
2 0 0 2 160 100 Tm
|
||||||
|
0 0 0 RG
|
||||||
|
0 g
|
||||||
|
(World) Tj
|
||||||
|
ET
|
||||||
|
"))
|
||||||
|
|
||||||
|
|
||||||
|
;; font
|
||||||
|
(co-io 6 0
|
||||||
|
(make-co-dict
|
||||||
|
'Type 'Font
|
||||||
|
'Subtype 'Type1
|
||||||
|
'Name 'F1
|
||||||
|
'BaseFont 'Helvetica
|
||||||
|
'FontDescriptor (co-io-ref 9 0)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(co-io 7 0
|
||||||
|
(make-co-dict 'Type 'Annot
|
||||||
|
'Subtype 'Link
|
||||||
|
'Rect (co-array '(100 100 150 125))
|
||||||
|
'A (co-io-ref 8 0)))
|
||||||
|
|
||||||
|
|
||||||
|
(co-io 8 0
|
||||||
|
(make-co-dict 'Type 'Action
|
||||||
|
'S 'URI
|
||||||
|
'URI (co-string "http://practicaltypography.com")))
|
||||||
|
|
||||||
|
(co-io 9 0
|
||||||
|
(make-co-dict
|
||||||
|
'Type 'FontDescriptor
|
||||||
|
'FontName 'Miso
|
||||||
|
'FontFile3 (co-io-ref 10 0)
|
||||||
|
'Flags 262178
|
||||||
|
'FontBBox (co-array '(-177 -269 1123 866))
|
||||||
|
'MissingWidth 255
|
||||||
|
'StemV 105
|
||||||
|
'StemH 45
|
||||||
|
'CapHeight 660
|
||||||
|
'XHeight 394
|
||||||
|
'Ascent 720
|
||||||
|
'Descent '270
|
||||||
|
'Leading 83
|
||||||
|
'MaxWidth 1212
|
||||||
|
'AvgWidth 478
|
||||||
|
'ItalicAngle 0))
|
||||||
|
|
||||||
|
(co-io 10 0 (make-font-co-stream "miso.otf"))
|
Binary file not shown.
Loading…
Reference in New Issue