reversions

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))

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