From 2eea67a98851f6248ee5fb4d532b433536c0f140 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 13 May 2019 20:55:01 -0500 Subject: [PATCH] reversions --- pitfall/pitfall/font.rkt | 2 +- pitfall/pitfall/text.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pitfall/pitfall/font.rkt b/pitfall/pitfall/font.rkt index c440fbd8..62742011 100644 --- a/pitfall/pitfall/font.rkt +++ b/pitfall/pitfall/font.rkt @@ -32,7 +32,7 @@ (define (line-height f size [include-gap #f]) (define gap (if include-gap (pdf-font-line-gap f) 0)) - (* (/ (+ (pdf-font-ascender f) gap (- (pdf-font-descender f))) (pdf-font-upm f)) size)) + (* (/ (+ (pdf-font-ascender f) gap (- (pdf-font-descender f))) #;(pdf-font-upm f) 1000.0) size)) (define (open-pdf-font name id) ((if (standard-font-name? name) make-standard-font make-embedded-font) name id)) diff --git a/pitfall/pitfall/text.rkt b/pitfall/pitfall/text.rkt index d78dd234..3dd6ee94 100644 --- a/pitfall/pitfall/text.rkt +++ b/pitfall/pitfall/text.rkt @@ -48,7 +48,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/mixins/text.coffee (define (add-text doc x y str features) (match-define (list encoded-char-strs positions) (encode (pdf-current-font doc) str features)) - (define scale (/ (pdf-current-font-size doc) (pdf-font-upm (pdf-current-font doc)))) + (define scale (/ (pdf-current-font-size doc) #;(pdf-font-upm (pdf-current-font doc)) 1000.0)) (define commands empty) ;; Adds a segment of text to the TJ command buffer