OTF test file

main
Matthew Butterick 6 years ago
parent 612c2903db
commit 0eab65ee31

@ -6,7 +6,7 @@ fs = require 'fs'
make = (doc) ->
# Register a font name for use later
doc.registerFont('the-font', 'assets/fira.otf')
doc.registerFont('the-font', 'assets/charter.otf')
# Set the font, draw some text
doc.font('the-font')

@ -1,13 +1,13 @@
#lang pitfall/pdftest
;; subset font with GPOS table
(define-runtime-path ttf-path "assets/fira.otf")
;; subset OTF font
(define-runtime-path otf-path "assets/charter.otf")
;; embed otf
(define (proc doc)
;; Register a font name for use later
(send doc registerFont "the-font" (path->string ttf-path))
(send doc registerFont "the-font" (path->string otf-path))
;; Set the font, draw some text
(send* doc
@ -17,7 +17,7 @@
;; test against non-subsetted font version
(define-runtime-path this "test20rkt.pdf")
(make-doc this #f proc )
(make-doc this #f proc #:test #f)
(define-runtime-path that "test20crkt.pdf")
(make-doc that #t proc #:pdfkit #f)
#;(define-runtime-path that "test20crkt.pdf")
#;(make-doc that #t proc #:pdfkit #f)

Loading…
Cancel
Save