From 09e9629f22bc74cc86b30d5219917a32f2711a51 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 16 May 2017 22:02:47 -0700 Subject: [PATCH] test 4 complete --- pitfall/pitfall/alltest.rkt | 1 + pitfall/pitfall/font.rkt | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/pitfall/pitfall/alltest.rkt b/pitfall/pitfall/alltest.rkt index 4885e8d4..dd055e74 100644 --- a/pitfall/pitfall/alltest.rkt +++ b/pitfall/pitfall/alltest.rkt @@ -4,4 +4,5 @@ pitfall/test/test1 pitfall/test/test2 pitfall/test/test3 + pitfall/test/test4 pitfall/page-test)) \ No newline at end of file diff --git a/pitfall/pitfall/font.rkt b/pitfall/pitfall/font.rkt index 4d2f9c73..ac926cf3 100644 --- a/pitfall/pitfall/font.rkt +++ b/pitfall/pitfall/font.rkt @@ -84,7 +84,7 @@ (define glyphs (send this-font glyphsForString str)) (define advances (send this-font advancesForGlyphs glyphs)) (define width (apply + advances)) - (define scale (/ size 1000)) + (define scale (/ size 1000.0)) (* width scale))