From 8bb5b6d1c96981e09b7d47c208d2ac0520e48fd5 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 5 Dec 2018 16:14:52 -0800
Subject: [PATCH] structify glyphrun

---
 pitfall/pitfall/embedded.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/pitfall/pitfall/embedded.rkt b/pitfall/pitfall/embedded.rkt
index 73ce19b7..baaed63d 100644
--- a/pitfall/pitfall/embedded.rkt
+++ b/pitfall/pitfall/embedded.rkt
@@ -54,7 +54,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
              (list string size (and features (sort features symbol<?)))
              (λ ()
                (define run (send (· this font) layout string features))
-               (define width (· run advanceWidth))
+               (define width (advanceWidth run))
                (define scale (/ size (+ (· this font unitsPerEm) 0.0)))
                (* width scale))))
 
@@ -65,10 +65,10 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
              (list/c (listof string?) (listof GlyphPosition?)))
   #;(report*/file 'starting-layout-in-embedded (description (· this font)))
   (define glyphRun (send (· this font) layout text features))
-  (define glyphs (· glyphRun glyphs))
+  (define glyphs (glyphrun-glyphs glyphRun))
   (for ([g (in-list glyphs)])
        (· g id))
-  (define positions (· glyphRun positions))
+  (define positions (glyphrun-positions glyphRun))
   #;(report/file (for/list ([p (in-list positions)])
                            (list (· p xAdvance) (· p xOffset))))
   (define-values (subset-idxs new-positions)