(module-define! old-mod '$defaultpaper new-paper)))
(define-public paper-alist
- '(("a7" . (cons (* 74.48 mm) (* 105 mm)))
- ("a6" . (cons (* 105 mm) (* 148.95 mm)))
- ("a5" . (cons (* 148.95 mm) (* 210 mm)))
- ("a4" . (cons (* 210 mm) (* 297.9 mm)))
- ("a3" . (cons (* 297.9 mm) (* 420 mm)))
+
+ ;; don't use decimals.
+ ;; ISO 216 has a tolerance of +- 2mm
+
+ '(("a7" . (cons (* 74 mm) (* 105 mm)))
+ ("a6" . (cons (* 105 mm) (* 149 mm)))
+ ("a5" . (cons (* 149 mm) (* 210 mm)))
+ ("a4" . (cons (* 210 mm) (* 298 mm)))
+ ("a3" . (cons (* 298 mm) (* 420 mm)))
("legal" . (cons (* 8.5 in) (* 14.0 in)))
("letter" . (cons (* 8.5 in) (* 11.0 in)))
("11x17" . (cons (* 11.0 in) (* 17.0 in)))
(set-paper-dimensions module (car entry) (cdr entry))
(module-define! module 'papersizename name)
-
- (if landscape?
- (module-define! module 'landscape #t)))
+ (module-define! module 'landscape
+ (if landscape? #t #f)))
(else
- (ly:warning (_ ("Unknown papersize: ~a" name)))))))
+ (ly:warning (_ "Unknown papersize: ~a" name))))))
(define-safe-public (set-default-paper-size name . rest)
(internal-set-paper-size