ScoreTitle title = \markup { \with-url #'"scheme:(d-ScoreTitle)" "Click Title"} Click Title Click Title 36 PrintAllHeaders print-all-headers = ##t LimitInterSystemSpace page-limit-inter-system-space = ##t page-limit-inter-system-space-factor = 1.2 1.2 1 3 1 3 0 2147483647 2036 56 1136 1001 1668 a4 18 1 673 ScoreIndent \layout {indent = 19.8} indent=19.8 19.8 4 DenemoBar increaseBarNumber = \applyContext #(lambda (x) (let ((measurepos (ly:context-property x 'measurePosition))) ; Only increase bar number if not at start of measure. ; This way we ensure that you won't increase bar number twice ; if two parallel voices call increaseBarNumber simultanously: (if (< 0 (ly:moment-main-numerator measurepos)) ; ugh. ignore grace part (begin (ly:context-set-property! (ly:context-property-where-defined x 'internalBarNumber) 'internalBarNumber (1+ (ly:context-property x 'internalBarNumber))) (ly:context-set-property! (ly:context-property-where-defined x 'currentBarNumber) 'currentBarNumber (1+ (ly:context-property x 'currentBarNumber))) ; set main part of measurepos to zero, leave grace part as it is: (ly:context-set-property! (ly:context-property-where-defined x 'measurePosition) 'measurePosition (ly:make-moment 0 1 (ly:moment-grace-numerator measurepos) (ly:moment-grace-denominator measurepos))))))) % Named Increasing BAR nibar = #(define-music-function (parser location x) (string?) #{ \bar $x \increaseBarNumber #}) AutoBarline = \nibar "|" 16 ScoreTiming \set Score.timing = ##f 1 1 3 0 1 100 100 100 100 SuppressTitleRepeats title = ##f instrument = ##f PolymetricStaffs \context { \Score \remove "Timing_translator" \remove "Default_bar_line_engraver" \remove "Repeat_acknowledge_engraver" \remove "Volta_engraver" } \context{ \Staff \consists "Timing_translator" \consists "Default_bar_line_engraver" \consists "Repeat_acknowledge_engraver" \consists "Volta_engraver" } 1 4 120 C Trumpet 1 1 4 4 5 1 0 NONE 127 0 0 0 6 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 1 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "C Trumpet 1" } C Trumpet 1 4 ChoirStaffStart \new ChoirStaff << Choir Staff Start 52 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 RehearsalMark \mark \default RehearsalMark RehearsalMark 30 14 -35 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 Beam [ [ 6 6 5 6 Beam ] ] 6 5 DottedBarline \bar "!" \bar "!" 30 WholeMeasureRest R1*4/4 Measure Repeat 𝄎 Denemo 48 100 55 15 40 15 7 WholeMeasureRepeat \once \override MultiMeasureRest #'extra-offset = #'(0 . 0) \override MultiMeasureRest #'stencil = #ly:multi-measure-rest::percent \override MultiMeasureRest #'thickness = #0.48 1536 C Trumpet 2 1 4 4 5 1 0 NONE 127 0 0 0 5 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 1 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "C Trumpet 2" } C Trumpet 2 4 BraceEnd >>%Brace End Brace End 1 52 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 Beam [ [ 6 2 3 2 Beam ] ] 6 3 DottedBarline \bar "!" \bar "!" 30 WholeMeasureRest R1*4/4 Measure Repeat 𝄎 Denemo 48 100 55 15 40 15 7 WholeMeasureRepeat \once \override MultiMeasureRest #'extra-offset = #'(0 . 0) \override MultiMeasureRest #'stencil = #ly:multi-measure-rest::percent \override MultiMeasureRest #'thickness = #0.48 1536 Timpani 1 4 4 5 1 0 NONE 127 0 0 0 4 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 1 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "Timpani" } Timpani 4 -4 -4 -4 -4 -4 -4 -4 ! %{Partial Measure is Acceptable%} Partial Measure 30 -4 -4 -4 -4 RepeatStart \bar ".|:" \bar ".|:" RepeatStart 30 4 -4 -4 -4 -4 RepeatEnd \bar ":|." \bar ":|." RepeatEnd 30 10 4 Soprano 1 4 4 5 1 0 NONE 127 0 0 0 0 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 1 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "Soprano" } Soprano 4 ChoirStaffStart \new ChoirStaff << Choir Staff Start 52 ShortInstrumentName \set Staff.shortInstrumentName = "Sop" Sop 4 3 3 3 1 3 1 3 3 Alto 1 4 4 5 1 0 NONE 127 0 0 0 3 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 2 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "Alto" } Alto 4 ShortInstrumentName \set Staff.shortInstrumentName = "Alt" Alt 4 1 1 1 1 2 1 1 2 Tenor 1 4 4 5 1 0 NONE 127 0 0 0 4 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 3 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "Tenor" } Tenor 4 ShortInstrumentName \set Staff.shortInstrumentName = "Ten" Ten 4 2 2 2 1 2 1 2 2 Bass 1 4 4 5 1 0 NONE 127 0 0 0 5 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 4 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " "Bass" } Bass 4 BraceEnd >>%Brace End Brace End 1 52 ShortInstrumentName \set Staff.shortInstrumentName = "Bass" Bass 4 2 2 2 1 2 1 2 2