;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2006--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
page-prev
page-printable-height
layout->page-init
- page-lines
page-force
page-penalty
page-configuration
(define (annotate-top-space first-system layout header-stencil stencil)
(let* ((top-margin (ly:output-def-lookup layout 'top-margin))
(sym (if (paper-system-title? first-system)
- 'top-title-spacing
+ 'top-markup-spacing
'top-system-spacing))
(spacing-spec (ly:output-def-lookup layout sym))
(X-offset (ly:prob-property first-system 'X-offset 5))
(add-system
(lambda (system)
(let* ((stencil (paper-system-stencil system))
- (y (ly:prob-property system 'Y-offset))
+ (y (ly:prob-property system 'Y-offset 0))
(is-title (paper-system-title?
system)))
(add-to-page stencil