From f783961f637086d11ee579eb62d7ab956f46428f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 30 Nov 2018 12:05:46 -0800 Subject: [PATCH] structify bbox --- 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 4ba27a25..2681eb13 100644 --- a/pitfall/pitfall/embedded.rkt +++ b/pitfall/pitfall/embedded.rkt @@ -116,8 +116,8 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee 'FontName name 'Flags flags 'FontBBox (map (curry * (· this scale)) - (list (· bbox minX) (· bbox minY) - (· bbox maxX) (· bbox maxY))) + (list (BBox-minX bbox) (BBox-minY bbox) + (BBox-maxX bbox) (BBox-maxY bbox))) 'ItalicAngle (· this font italicAngle) 'Ascent (· this ascender) 'Descent (· this descender) @@ -210,7 +210,7 @@ HERE (module+ test (require rackunit fontland) - (define f (openSync "test/assets/Charter.ttf" #f)) + (define f (openSync "../ptest/assets/charter.ttf" #f)) (define ef (make-object EmbeddedFont #f f #f)) (check-equal? (send ef widthOfString "f" 1000) 321.0) (check-equal? (· ef ascender) 980)