From ae4d53a7876661b4a88c873e0b6780429364f1f4 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 7 Feb 2019 13:55:30 -0800 Subject: [PATCH] better zooming --- quad/qtest/markdown.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/quad/qtest/markdown.rkt b/quad/qtest/markdown.rkt index f33b8819..7e3a238a 100644 --- a/quad/qtest/markdown.rkt +++ b/quad/qtest/markdown.rkt @@ -322,11 +322,11 @@ (make-nobreak! ln)])) (cons ln reversed-lines))) -(define zoom-mode? #t) +(define zoom-mode? #f) (define zoom-scale 2) -(define top-margin 60) -(define bottom-margin 120) -(define side-margin 120) +(define top-margin (/ 60 (if zoom-mode? zoom-scale 1))) +(define bottom-margin (/ 120 (if zoom-mode? zoom-scale 1))) +(define side-margin (/ 120 (if zoom-mode? zoom-scale 1))) (define page-offset (pt (/ side-margin (if zoom-mode? 3 1)) (/ top-margin (if zoom-mode? 3 1)))) (require racket/date)