OTF test file

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

@ -6,7 +6,7 @@ fs = require 'fs'
make = (doc) -> make = (doc) ->
# Register a font name for use later # 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 # Set the font, draw some text
doc.font('the-font') doc.font('the-font')

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

Loading…
Cancel
Save