;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-public (set-paper-dimension-variables mod)
(module-define! mod 'dimension-variables
- '(after-title-space
- before-title-space
- between-system-padding
- between-system-space
- between-title-space
- blot-diameter
+ '(blot-diameter
bottom-margin
cm
foot-separation
line-thickness
line-width
mm
- page-top-space
paper-height
paper-width
pt
(setm! 'text-font-size (* 12 factor))
(setm! 'output-scale ss)
- (setm! 'fonts
- (if tex-backend?
- (make-cmr-tree factor)
- (make-century-schoolbook-tree factor)))
+ (setm! 'fonts (make-century-schoolbook-tree factor))
(setm! 'staff-height staff-height)
(setm! 'staff-space ss)
(cond
((not is-paper?)
- (ly:warning (_ "This is not a \\layout {} object, ~S" module)))
+ (ly:warning (_ "This is not a \\layout {} object, ~S") module))
((pair? entry)
(set! entry (eval (cdr entry) module))
(module-define! module 'landscape
(if landscape? #t #f)))
(else
- (ly:warning (_ "Unknown papersize: ~a" name))))))
+ (ly:warning (_ "Unknown paper size: ~a") name)))))
(define-safe-public (set-default-paper-size name . rest)
(internal-set-paper-size