3 hours 27 minutes 52 seconds: All movements all parts on 14/11/19 at 10:10:47 printer: HP-LaserJet-Professional-P-1102w 3 hours 38 minutes 29 seconds: All movements all parts on 14/11/19 at 10:21:58 printer: HP-LaserJet-Professional-P-1102w 4 hours 46 minutes 27 seconds: All movements all parts on 16/11/19 at 19:34:32 printer: HP-LaserJet-Professional-P-1102w 6 hours 27 minutes 7 seconds: All movements all parts on 19/11/19 at 12:02:53 printer: HP-LaserJet-Professional-P-1102w 6 hours 44 minutes 5 seconds: All movements all parts on 19/11/19 at 12:18:03 printer: HP-LaserJet-Professional-P-1102w 6 hours 45 minutes 50 seconds: All movements Part TrebleRecorder on 20/11/19 at 11:14:13 printer: HP-LaserJet-Professional-P-1102w ScoreTagline tagline = \markup { \with-url #'"scheme:(d-ScoreTagline)" ""} BookComposer composer = \markup { \with-url #'"scheme:(d-BookComposer)" {Composer}} Composer Composer 36 BookArranger arranger = \markup { \with-url #'"scheme:(d-BookArranger)" {Arranged by Richard Shann}} Arranged b... Arranged 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 36 BookTitle title = \markup { \with-url #'"scheme:(d-BookTitle)" {Sonata}} Sonata Sonata 36 BookDate date = \markup { \with-url #'"scheme:(d-BookDate)" {Op.}} Op. Op. 36 BookInstrumentation instrumentation = \markup { \with-url #'"scheme:(d-BookInstrumentation)" {Transverse Flute}} Transverse... Transverse Flute 36 2939333423 BookInstrumentation Transposed Version instrumentation = \markup { \with-url #'"scheme:(d-BookInstrumentation)" {Treble Recorder}} Treble Rec... Treble Recorder 32 953210140 641084658 2939333423 PrintAllHeaders print-all-headers = ##t 32 LimitInterSystemSpace page-limit-inter-system-space = ##t page-limit-inter-system-space-factor = 1.2 1.2 PageNumbersWithInstrument oddHeaderMarkup = \markup \fill-line { "" \on-the-fly #not-part-first-page \fromproperty #'header:instrumentation \on-the-fly #print-page-number-check-first \number \fromproperty #'page:page-number-string } %% evenHeaderMarkup would inherit the value of %% oddHeaderMarkup if it were not defined here evenHeaderMarkup = \markup \fill-line { \on-the-fly #print-page-number-check-first \number \fromproperty #'page:page-number-string \on-the-fly #not-part-first-page \fromproperty #'header:instrumentation "" } SetFontSize } #(set-global-staff-size 22) \paper { 22 1 3 1 3 0 2147483647 Not transposed a4 22 1 0 GlobalTranspose #(define DenemoTransposeStep 2) #(define DenemoTransposeAccidental -1/2) DenemoGlobalTranspose = #(define-music-function (parser location arg)(ly:music?) #{\transpose c ees#arg #}) 16 641084658 ScoreIndent \layout {indent = 33.0} indent=33.0 33.0 4 TopMargin #(define denemo-top-margin -5) -5 16 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 LilyPondInclude \include "simplified-book-titling.ily" \include "vibrato.ily" Included LilyPond Files '("simplified-book-titling.ily" "vibrato.ily") 268435472 FiguredBassTweak #(define-public (format-bass-figures figure event context) (let* ((fig (ly:event-property event 'figure)) (fig-markup (if (number? figure) ;; this is not very elegant, but center-aligning ;; all digits is problematic with other markups, ;; and shows problems in the (lack of) overshoot ;; of feta-alphabet glyphs. ((if (<= 10 figure) (lambda (y) (make-translate-scaled-markup (cons -0.7 0) y)) identity) (cond ((eq? #t (ly:event-property event 'diminished)) (markup #:slashed-digit figure)) ((eq? #t (ly:event-property event 'augmented-slash)) (markup #:backslashed-digit figure)) (else (markup #:number (number->string figure 10))))) #f)) (alt (ly:event-property event 'alteration)) (alt-markup (if (number? alt) (markup #:general-align Y DOWN #:fontsize (if (not (= alt DOUBLE-SHARP)) ;-2 2 ;; is the default (if (not fig-markup) 0 -2) 4 ;; changed ) (alteration->text-accidental-markup alt)) #f)) (plus-markup (if (eq? #t (ly:event-property event 'augmented)) (markup #:number "+") #f)) (alt-dir (ly:context-property context 'figuredBassAlterationDirection)) (plus-dir (ly:context-property context 'figuredBassPlusDirection))) (if (and (not fig-markup) alt-markup) (begin (set! fig-markup (markup #:left-align #:pad-around 0.3 alt-markup)) (set! alt-markup #f))) (if (and (eqv? 0 (ly:duration-log (ly:event-property event 'duration))) (markup? fig-markup)) (set! fig-markup (markup #:translate (cons 1.0 0) #:center-align fig-markup))) (if alt-markup (set! fig-markup (markup #:put-adjacent X (if (number? alt-dir) alt-dir LEFT) fig-markup #:pad-x 0.2 #:raise (if (= alt FLAT) 0.1 -0.1) alt-markup))) ;changed (if plus-markup (set! fig-markup (if fig-markup (markup #:put-adjacent X (if (number? plus-dir) plus-dir LEFT) fig-markup #:pad-x 0.2 plus-markup) plus-markup))) (if (markup? fig-markup) (markup #:fontsize -2 fig-markup) empty-markup))) \layout { \context { \Score figuredBassFormatter = #format-bass-figures } } AllowBreakAtHalfBar \layout {\context {\Score barNumberVisibility = #(every-nth-bar-number-visible 1) \override Score.BarNumber.break-visibility = #begin-of-line-visible }} ScoreComment 12 TransposeOnPrint \DenemoGlobalTranspose Print transposed: c ees 4 641084658 1 1 1 0 0 110 100 50 25 1869 286 320 SuppressTitleRepeats title = ##f instrument = ##f TitledPiece \titledPiece \markup { \with-url #'"scheme:(d-TitledPiece)" "I - Adagio"} I - Adagio I - Adagio 36 1 4 84 Solo 1 4 4 5 1 0 NONE 127 0 0 0 0 0 0 InstrumentName 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))) " "Transverse Flute" } \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))) " "Transverse Flute" } Transverse Flute 22 ChoirStaffStart \new ChoirStaff << Choir Staff Start 52 InstrumentName Transposed Version 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" } \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 18 641084658 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