From b4d316f4e6097994d33d3dddb24456d7e6143f78 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 14 May 2015 18:53:34 -0700
Subject: [PATCH] line quads are missing 'y attr

---
 quad/main-typed-sample.rkt | 4 +++-
 quad/main.rkt              | 2 +-
 quad/wrap.rkt              | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/quad/main-typed-sample.rkt b/quad/main-typed-sample.rkt
index c937a679..a92e1e8b 100644
--- a/quad/main-typed-sample.rkt
+++ b/quad/main-typed-sample.rkt
@@ -1,4 +1,5 @@
 #lang typed/racket/base
+(require typed/sugar/debug)
 (require "main-typed.rkt" "logger-typed.rkt" "world-typed.rkt" "samples-typed.rkt" "quads-typed.rkt")
 
 (require/typed profile
@@ -10,7 +11,8 @@
 (parameterize ([world:quality-default world:draft-quality]
                [world:paper-width-default 600.0]
                [world:paper-height-default 700.0])
-  (define sample (ti5))
+  (define sample (ti3))
   ;  (define to (time (profile-thunk #:delay 0.001 (λ () (typeset sample)))))
   (define to (time (typeset sample)))
+  (report to)
   (time (send (new pdf-renderer%) render-to-file to "foo-typed.pdf")))
\ No newline at end of file
diff --git a/quad/main.rkt b/quad/main.rkt
index 255e7fb9..9e9d41b7 100644
--- a/quad/main.rkt
+++ b/quad/main.rkt
@@ -205,6 +205,6 @@
   (parameterize ([world:quality-default world:draft-quality]
                  [world:paper-width-default 600]
                  [world:paper-height-default 700])
-    (define sample (ti5))
+    (define sample (ti3))
     (define to (begin (time (typeset sample))))
     (time (send (new pdf-renderer%) render-to-file to "foo.pdf"))))
diff --git a/quad/wrap.rkt b/quad/wrap.rkt
index 9ea584f5..def00f84 100644
--- a/quad/wrap.rkt
+++ b/quad/wrap.rkt
@@ -182,7 +182,7 @@
   (cond
     [(not (empty? exploded-line-quads))
      ;; after exploding, each quad will have a string with one character.
-     (for/list ([(q-left q q-right) (apply in-parallel (shift exploded-line-quads '(1 0 -1)))])
+     (for/list ([(q-left q q-right) (apply in-parallel (shifts exploded-line-quads '(1 0 -1)))])
        (if (optical-kern? q)
            (quad-attr-set q world:width-key (fl+ (overhang-width q-left) (overhang-width q-right)))
            q))]