ScoreTagline tagline = \markup { \with-url #'"scheme:(d-ScoreTagline)" ""} BookComposer composer = \markup { \with-url #'"scheme:(d-BookComposer)" "Composer"} Composer 36 BookArranger arranger = \markup { \with-url #'"scheme:(d-BookArranger)" "Edited by Richard Shann"} Edited by Richard Shann 36 TaglineLink tagline = \markup { \with-url #"http://www.denemo.org" "Created with Denemo the free music notation editor: http://denemo.org"} Created with Denemo the free music notation editor: http://denemo.org 36 BookTitle title = \markup { \with-url #'"scheme:(d-BookTitle)" "Sonata"} Sonata Sonata 36 PrintAllHeaders print-all-headers = ##t 32 LimitInterSystemSpace page-limit-inter-system-space = ##t page-limit-inter-system-space-factor = 1.2 1.2 1 3 1 3 0 2147483647 1912 26 1280 1005 1227 a4 22 1 48 GlobalTranspose #(define DenemoTransposeStep 2) #(define DenemoTransposeAccidental -1/2) DenemoGlobalTranspose = #(define-music-function (parser location arg)(ly:music?) #{\transpose c ees#arg #}) 16 ScoreIndent \layout {indent = 30.0} indent=30.0 4 TransposeOnPrint \DenemoGlobalTranspose Print transposed: c ees 4 TopMargin #(define denemo-top-margin 0) 0 16 LilyPondInclude \include "simplified-book-titling.ily" Included LilyPond Files '("simplified-book-titling.ily") 268435472 Allow tupletBracketToSlur tupletBracketToSlur = { % Use slur-stencil \override TupletBracket.stencil = #ly:slur::print %% Use 'thickness from Slur \override TupletBracket.thickness = #1.2 %% 'control-points need to be set \override TupletBracket.control-points = #(lambda (grob) (let* ((x-pos (ly:grob-property grob 'X-positions)) (pos (ly:grob-property grob 'positions)) (x-ln (interval-length x-pos)) (dir (ly:grob-property grob 'direction)) ;; read out the height of the TupletBracket, maybe negative! (height (- (cdr pos) (car pos))) ;; height-corr is introduced because sometimes the shape of the ;; slur needs to be adjusted. ;; It is used in the 2nd/3rd control-point. ;; The value of 0.3 is found by trial and error (height-corr (* 0.3 dir height)) (edge-height (ly:grob-property grob 'edge-height '(0.7 . 0.7))) (pad 1.0)) (list ;; first cp (cons (+ (car x-pos) 0.5) (- (+ (* dir pad) (+ (car pos) (* -1 dir (car edge-height)))) (if (= dir -1) (if (> height 3) (/ dir 2.0) 0.0) (if (< height -3) (/ dir 2.0) 0.0)))) ;; second cp (cons (+ (car x-pos) (* x-ln 1/4)) (+ (* dir pad) (+ (car pos) (* dir (+ 0.5 height-corr))))) ;; third cp (cons (+ (car x-pos) (* x-ln 3/4)) (+ (* dir pad) (+ (cdr pos) (* dir (- 0.5 height-corr))))) ;; fourth cp (cons (- (cdr x-pos) 0.5) (+ (* dir pad) (+ (cdr pos) (* -1 dir (cdr edge-height))))) ))) \override TupletBracket.staff-padding = #'() #(define (invert-direction x) (if (eq? UP (ly:tuplet-bracket::calc-direction x)) DOWN UP)) \override TupletBracket.direction = #invert-direction } tupletBracketToSlur 16 1 2 2 2 0 100 100 50 25 1869 286 320 SuppressTitleRepeats title = ##f instrument = ##f CurvedTupletBrackets \tupletBracketToSlur 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" } TitledPiece \titledPiece \markup { \with-url #'"scheme:(d-TitledPiece)" "I - Adagio"} I - Adagio 36 1 4 120 Treble Recorder 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))) " "Treble Recorder" } Treble Recorder 4 ChoirStaffStart \new ChoirStaff << Choir Staff Start 52 5 8 10 12 RepeatEndStart \bar ":..:" \bar ":..:" RepeatEndStart 50 25 4 11 Basso 1 4 4 5 1 0 NONE 127 0 0 0 1 1 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))) " "Basso" } Basso 4 BraceEnd >>%Brace End Brace End 1 52 -9 -11 -9 -11 DoubleBarline \bar "||" \bar "||" DoubleBarline 30 4 -9