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)