/usr/share/lilypond/2.14.2/scm/paper-system.scm is in lilypond-data 2.14.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | ;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
;;;; 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
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; LilyPond is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public License
;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
(define-module (scm paper-system))
(use-modules (lily))
(define-public (paper-system-title? system)
(equal? #t (ly:prob-property system 'is-title)
))
(define-public (paper-system-stencil system)
(ly:prob-property system 'stencil))
(define-public (paper-system-layout system)
(let*
((g (paper-system-system-grob system)))
(if (ly:grob? g)
(ly:grob-layout g)
#f)))
(define-public (paper-system-system-grob paper-system)
(ly:prob-property paper-system 'system-grob))
(define-public (paper-system-extent system axis)
(ly:stencil-extent (paper-system-stencil system) axis))
(define-public (paper-system-staff-extents ps)
(ly:prob-property ps 'staff-refpoint-extent '(0 . 0)))
(define-public (paper-system-annotate-last system layout)
(let*
((bottomspace (ly:prob-property system 'bottom-space))
(y-extent (paper-system-extent system Y))
(x-extent (paper-system-extent system X))
(stencil (ly:prob-property system 'stencil))
(arrow (if (number? bottomspace)
(annotate-y-interval layout
"bottom-space"
(cons (- (car y-extent) bottomspace)
(car y-extent))
#t)
#f)))
(if arrow
(set! stencil
(ly:stencil-add stencil arrow)))
(set! (ly:prob-property system 'stencil)
stencil)
))
; TODO: annotate the spacing for every spaceable staff within the system.
(define-public (paper-system-annotate system next-system layout)
"Add arrows and texts to indicate which lengths are set."
(let* ((annotations (list))
(grob (ly:prob-property system 'system-grob))
(estimate-extent (if (ly:grob? grob)
(annotate-y-interval layout
"extent-estimate"
(ly:grob-property grob 'pure-Y-extent)
#f)
#f)))
(let* ((spacing-spec (cond ((and next-system
(paper-system-title? system)
(paper-system-title? next-system))
(ly:output-def-lookup layout 'markup-markup-spacing))
((paper-system-title? system)
(ly:output-def-lookup layout 'markup-system-spacing))
((and next-system
(paper-system-title? next-system))
(ly:output-def-lookup layout 'score-markup-spacing))
((not next-system)
(ly:output-def-lookup layout 'last-bottom-spacing))
(else
(ly:output-def-lookup layout 'system-system-spacing))))
(last-staff-Y (car (paper-system-staff-extents system))))
(set! annotations
(annotate-spacing-spec layout spacing-spec last-staff-Y (car (paper-system-extent system Y)))))
(if estimate-extent
(set! annotations
(stack-stencils X RIGHT 0.5
(list annotations
estimate-extent))))
(if (not (null? annotations))
(set! (ly:prob-property system 'stencil)
(ly:stencil-add
(ly:prob-property system 'stencil)
(ly:make-stencil
(ly:stencil-expr annotations)
(ly:stencil-extent empty-stencil X)
(ly:stencil-extent empty-stencil Y)))))
(ly:prob-property system 'stencil)))
|