From 765426d98034ca660820f89bcd5a33ac1639ad76 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 16 May 2022 08:01:57 -0700 Subject: [PATCH] no scaling in render pt 2 --- quad2/render.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/quad2/render.rkt b/quad2/render.rkt index 7cafa8b7..c5edba05 100644 --- a/quad2/render.rkt +++ b/quad2/render.rkt @@ -84,7 +84,6 @@ (define (html-renderer html-file) (let ([xmax 0] [ymax 0] - [em-scale 30] [page-quads null] [current-loc 0+0i] [pages null] @@ -103,7 +102,7 @@ (set! page-quads null)) (λ (charint) (set! page-quads (cons - `(div ((style ,(format "position: absolute;left:~apx;top:~apx;font-family:~a" (* em-scale (real-part current-loc)) (* em-scale (imag-part current-loc)) current-font))) + `(div ((style ,(format "position: absolute;left:~apx;top:~apx;font-family:~a" (real-part current-loc) (imag-part current-loc) current-font))) ,(string (integer->char charint))) page-quads))) (λ (ps) (set! current-font (hash-ref! fonts ps (λ () (gensym 'font)))))