From 556377caab9a1c2564d790b42c435140bafb68a6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 5 Feb 2019 11:55:31 -0800 Subject: [PATCH] next: alignment of resized text --- quad/qtest/markdown.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quad/qtest/markdown.rkt b/quad/qtest/markdown.rkt index 89936c8f..f33b8819 100644 --- a/quad/qtest/markdown.rkt +++ b/quad/qtest/markdown.rkt @@ -323,6 +323,7 @@ (cons ln reversed-lines))) (define zoom-mode? #t) +(define zoom-scale 2) (define top-margin 60) (define bottom-margin 120) (define side-margin 120) @@ -331,7 +332,7 @@ (require racket/date) (define q:page (q #:offset page-offset #:draw-start (λ (q doc) (add-page doc) - (scale doc (if zoom-mode? 3 1) (if zoom-mode? 3 1))) + (scale doc (if zoom-mode? zoom-scale 1) (if zoom-mode? zoom-scale 1))) #:draw-end (λ (q doc) (font-size doc 10) (font doc default-font-face)