;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2006--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2006--2015 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
system-separator-markup)
#f))
- (page-stencil (ly:make-stencil '()))
+ (page-stencil empty-stencil)
(last-system #f)
(last-y 0.0)
(add-system
(lambda (system)
(let* ((stencil (paper-system-stencil system))
- (y (ly:prob-property system 'Y-offset 0))
+ (extra-offset (ly:prob-property system 'extra-offset '(0 . 0)))
+ (x (+ (ly:prob-property system 'X-offset 0.0)
+ (car extra-offset)))
+ (y (+ (ly:prob-property system 'Y-offset 0.0)
+ (cdr extra-offset)))
(is-title (paper-system-title?
system)))
- (add-to-page stencil
- (ly:prob-property system 'X-offset 0.0)
- y)
+ (add-to-page stencil x y)
(if (and (ly:stencil? system-separator-stencil)
last-system
(not (paper-system-title? system))