From 3bad396c604b8efb8192d2265db81286a6f4879f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 16 May 2022 08:01:42 -0700 Subject: [PATCH] no scaling in render --- quad2/render.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/quad2/render.rkt b/quad2/render.rkt index dc764a1e..7cafa8b7 100644 --- a/quad2/render.rkt +++ b/quad2/render.rkt @@ -57,15 +57,13 @@ ($renderer void void - (let ([em-scale 30] - [my-face (match (get-face-list 'mono) + (let ([my-face (match (get-face-list 'mono) [(? null?) (error 'no-mono-font-available)] [(cons face _) face])]) (λ (width height) - (define target (make-bitmap (* em-scale width) (* em-scale height))) + (define target (make-bitmap width height)) (set! targets (cons target targets)) (set! dc (new bitmap-dc% [bitmap target])) - (send dc scale em-scale em-scale) (send dc set-font (make-font #:size 1 #:face my-face)) (send dc set-text-foreground "black"))) void