<?xml version="1.0" encoding="UTF-8"?>
<score xmlns="http://denemo.org/xmlns/Denemo" version="8">
  <printhistory>
1 hours 26 minutes 35 seconds: All movements all parts on 01/10/20 at 17:15:48 printer: HP-LaserJet-Professional-P-1102w
1 hours 29 minutes 10 seconds: All movements all parts on 01/10/20 at 17:18:47 printer: HP-LaserJet-Professional-P-1102w</printhistory>
  <scoreheader-directives>
    <directive>
      <tag>ScoreTagline</tag>
      <postfix>tagline =  \markup { \with-url #'"scheme:(d-ScoreTagline)"  ""}

</postfix>
    </directive>
    <directive>
      <tag>BookComposer</tag>
      <postfix>composer = \markup { \with-url #'"scheme:(d-BookComposer)" {Servaas van Konink}}
</postfix>
      <display>Servaas va...</display>
      <data>Servaas van Konink</data>
      <override>36</override>
    </directive>
    <directive>
      <tag>BookArranger</tag>
      <postfix>arranger = \markup { \with-url #'"scheme:(d-BookArranger)" {Edited by Richard Shann}}
</postfix>
      <display>Edited by ...</display>
      <data>Edited by Richard Shann</data>
      <override>36</override>
    </directive>
    <directive>
      <tag>TaglineLink</tag>
      <postfix>tagline = \markup { \with-url #"http://www.denemo.org" "Source file at http://denemo.org"}
</postfix>
      <display>Source fil...</display>
      <data>(cons "Source file at http://denemo.org" "http://www.denemo.org")</data>
      <override>36</override>
    </directive>
    <directive>
      <tag>BookTitle</tag>
      <postfix>title = \markup { \with-url #'"scheme:(d-BookTitle)" {Sonata I}}
</postfix>
      <display>Sonata I</display>
      <data>Sonata I</data>
      <override>36</override>
    </directive>
    <directive>
      <tag>BookInstrumentation</tag>
      <postfix>instrumentation = \markup { \with-url #'"scheme:(d-BookInstrumentation)" {Transverse Flute}}
</postfix>
      <display>Transverse...</display>
      <data>Transverse Flute</data>
      <override>36</override>
      <allow>
        <layout>2939333423</layout>
      </allow>
    </directive>
    <directive>
      <tag>BookInstrumentation
Transposed Version</tag>
      <postfix>instrumentation = \markup { \with-url #'"scheme:(d-BookInstrumentation)" {Treble Recorder}}
</postfix>
      <display>Treble Rec...</display>
      <data>Treble Recorder</data>
      <override>32</override>
      <allow>
        <layout>953210140</layout>
        <layout>641084658</layout>
        <layout>2939333423</layout>
      </allow>
    </directive>
    <directive>
      <tag>BookArranger
Transposed Version</tag>
      <postfix>arranger = \markup { \with-url #'"scheme:(d-BookArranger)" {Arranged by Richard Shann}}
</postfix>
      <display>Arranged b...</display>
      <data>Arranged by Richard Shann</data>
      <override>32</override>
      <ignore>
        <layout>641084658</layout>
      </ignore>
    </directive>
    <directive>
      <tag>PrintAccompanistsScore</tag>
      <postfix>instrumentation = \markup {Accompanist's Score}
</postfix>
      <data>Accompanist's Score</data>
      <override>32</override>
      <allow>
        <layout>953210140</layout>
      </allow>
    </directive>
  </scoreheader-directives>
  <paper-directives>
    <directive>
      <tag>PrintAllHeaders</tag>
      <postfix>
print-all-headers = ##t
</postfix>
      <override>32</override>
    </directive>
    <directive>
      <tag>LimitInterSystemSpace</tag>
      <postfix>
page-limit-inter-system-space = ##t
page-limit-inter-system-space-factor = 1.2</postfix>
      <data>1.2</data>
    </directive>
    <directive>
      <tag>PageNumbersWithInstrument</tag>
      <postfix>
   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
     ""
   }
</postfix>
    </directive>
    <directive>
      <tag>SetFontSize</tag>
      <postfix>
} #(set-global-staff-size 22) \paper {
</postfix>
      <data>22</data>
    </directive>
  </paper-directives>
  <thumbnail>
    <first-staff>1</first-staff>
    <last-staff>3</last-staff>
    <first-measure>1</first-measure>
    <last-measure>3</last-measure>
    <first-obj>0</first-obj>
    <last-obj>2147483647</last-obj>
  </thumbnail>
  <sourcefile>
    <x>1280</x>
    <y>26</y>
    <width>1047</width>
    <height>991</height>
    <scale>1650</scale>
  </sourcefile>
  <omission-criterion>Not transposed</omission-criterion>
  <lilycontrol>
    <papersize>a4</papersize>
    <lilyversion>2.20</lilyversion>
    <fontsize>22</fontsize>
    <orientation>1</orientation>
    <total-edit-time>57</total-edit-time>
    <score-directives>
      <directive>
        <tag>GlobalTranspose</tag>
        <prefix>#(define DenemoTransposeStep 2)
#(define DenemoTransposeAccidental -1/2)

DenemoGlobalTranspose = #(define-music-function ( arg)(ly:music?) #{\transpose c ees#arg #})
</prefix>
        <override>16</override>
        <ignore>
          <layout>641084658</layout>
        </ignore>
      </directive>
      <directive>
        <tag>ScoreIndent</tag>
        <prefix>\layout {indent = 33.0}
</prefix>
        <display>indent=33.0</display>
        <data>33.0</data>
        <override>4</override>
      </directive>
      <directive>
        <tag>TopMargin</tag>
        <prefix>#(define denemo-top-margin -5)
</prefix>
        <data>-5</data>
        <override>16</override>
      </directive>
      <directive>
        <tag>Allow
tupletBracketToSlur</tag>
        <prefix>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 (&gt; height 3)
                    (/ dir 2.0)
                    0.0)
                  (if (&lt; 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
}
</prefix>
        <display>tupletBracketToSlur</display>
        <override>16</override>
      </directive>
      <directive>
        <tag>LilyPondInclude</tag>
        <prefix>\include "simplified-book-titling.ily"
\include "vibrato.ily"
</prefix>
        <display>Included LilyPond Files</display>
        <data>'("simplified-book-titling.ily" "vibrato.ily")</data>
        <override>268435472</override>
      </directive>
      <directive>
        <tag>FiguredBassTweak</tag>
        <prefix>#(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 (&lt;= 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-&gt;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-&gt;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
  }
} </prefix>
      </directive>
      <directive>
        <tag>AllowBreakAtHalfBar</tag>
        <prefix>
\layout {\context {\Score 
    barNumberVisibility = #(every-nth-bar-number-visible 1) 
    \override Score.BarNumber.break-visibility = #begin-of-line-visible }}
</prefix>
      </directive>
      <directive>
        <tag>ScoreComment</tag>
        <override>12</override>
      </directive>
      <directive>
        <tag>TransposeOnPrint</tag>
        <postfix>\DenemoGlobalTranspose </postfix>
        <display>Print transposed:  c ees </display>
        <override>4</override>
        <ignore>
          <layout>641084658</layout>
        </ignore>
      </directive>
      <directive>
        <tag>Allow
tremblement</tag>
        <prefix>tremblement = \markup {\epsfile #X #2 #"/home/rshann/local/share/denemo/actions/graphics/tremblement.eps"}
</prefix>
        <display>tremblement</display>
        <data>(list "tremblement" "/home/rshann/local/share/denemo/actions/graphics/tremblement.eps" "2")</data>
        <override>16</override>
      </directive>
      <directive>
        <tag>Allow
trill</tag>
        <prefix>trill = #(make-articulation "stopped")
</prefix>
        <display>trill</display>
        <override>16</override>
      </directive>
      <directive>
        <tag>GraceAfter</tag>
        <prefix>GraceAfter = #(define-music-function (parser location note graces) (ly:music? ly:music?)
         (if (null? (ly:music-property graces 'element))
             (begin
              (ly:warning (_ "No grace notes follow this note the afterGrace will be ignored."))
              (make-music
                      'SequentialMusic 
                      'elements
                      (list note graces)))
              ;(make-music 'Music 'void #t))
              
             (let ((skip (/ (* 3(/ (ly:moment-main-numerator (ly:duration-length (ly:music-property note 'duration)))
                          (ly:moment-main-denominator (ly:duration-length (ly:music-property note 'duration))))) 4))
                   (thegraces  (ly:music-property (list-ref (ly:music-property 
                                             (ly:music-property graces 'element) 'elements) 1) 'elements)))
                (define gracenotes (make-music 'GraceMusic 'element (make-music
                                'SequentialMusic
                                'elements
                                thegraces)))
                   (make-music
                      'SimultaneousMusic 
                      'elements
                      (list
                         note 
                        (make-music
                         'SequentialMusic
                          'elements
                          (list
                                 (make-music
                                      'SkipMusic
                                      'duration
                                      (ly:make-duration 0 0 skip))
                                    gracenotes)))))))</prefix>
        <override>16</override>
      </directive>
    </score-directives>
  </lilycontrol>
  <movement-number>1</movement-number>
  <movement>
    <edit-info>
      <staffno>1</staffno>
      <measureno>1</measureno>
      <cursorposition>1</cursorposition>
      <tonalcenter>-1</tonalcenter>
      <zoom>100</zoom>
      <system-height>100</system-height>
      <page-zoom>50</page-zoom>
      <page-system-height>25</page-system-height>
      <page-width>1869</page-width>
      <page-height>286</page-height>
      <measure-width>320</measure-width>
    </edit-info>
    <header-directives>
      <directive>
        <tag>SuppressTitleRepeats</tag>
        <postfix>title = ##f
instrument = ##f
</postfix>
      </directive>
    </header-directives>
    <movementcontrol-directives>
      <directive>
        <tag>TitledPiece</tag>
        <prefix>\titledPiece \markup { \with-url #'"scheme:(d-TitledPiece)" "I - Adagio"}
</prefix>
        <display>I - Adagio</display>
        <data>I - Adagio</data>
        <override>36</override>
      </directive>
    </movementcontrol-directives>
    <score-info>
      <tempo>
        <bpm>108</bpm>
      </tempo>
    </score-info>
    <staves>
      <staff id="id0"></staff>
      <staff id="id1"></staff>
    </staves>
    <voices>
      <voice id="id2">
        <voice-info>
          <voice-name>Solo</voice-name>
          <first-measure-number>1</first-measure-number>
        </voice-info>
        <initial-voice-params>
          <staff-ref staff="id0"></staff-ref>
          <clef name="treble"></clef>
          <key-signature>
            <modal-key-signature note-name="F" mode="major"></modal-key-signature>
          </key-signature>
          <time-signature>
            <simple-time-signature>
              <numerator>4</numerator>
              <denominator>4</denominator>
            </simple-time-signature>
          </time-signature>
        </initial-voice-params>
        <voice-props>
          <number-of-lines>5</number-of-lines>
          <voice-control>1</voice-control>
          <transpose>0</transpose>
          <instrument></instrument>
          <device-port>NONE</device-port>
          <volume>127</volume>
          <override_volume>0</override_volume>
          <mute>0</mute>
          <midi_prognum>0</midi_prognum>
          <midi_channel>0</midi_channel>
          <hasfigures>0</hasfigures>
          <hasfakechords>0</hasfakechords>
          <staff-directives>
            <directive>
              <tag>InstrumentName</tag>
              <prefix>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" }</prefix>
              <postfix>\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" }</postfix>
              <display>Transverse Flute</display>
              <override>22</override>
            </directive>
            <directive>
              <tag>ChoirStaffStart</tag>
              <prefix> \new ChoirStaff &lt;&lt;
</prefix>
              <display>Choir Staff Start</display>
              <override>52</override>
            </directive>
            <directive>
              <tag>InstrumentName
Transposed Version</tag>
              <prefix>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" }</prefix>
              <postfix>\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" }</postfix>
              <display>Treble Recorder</display>
              <override>18</override>
              <ignore>
                <layout>641084658</layout>
              </ignore>
            </directive>
            <directive>
              <tag>PrintAccompanistsScore</tag>
              <prefix> fontSize = #-3
 \override StaffSymbol #'staff-space = #(magstep -3)
</prefix>
              <override>22</override>
              <allow>
                <layout>953210140</layout>
              </allow>
            </directive>
          </staff-directives>
        </voice-props>
        <measures>
          <measure>
            <lily-directive>
              <tag>DenemoLink</tag>
              <postfix>%/home/rshann/musicScores/Konink/IMSLP709394-PMLP1132800-Konink_Son.pdf:76:1838:2
</postfix>
              <data>/home/rshann/musicScores/Konink/IMSLP709394-PMLP1132800-Konink_Son.pdf:76:1838:2</data>
              <graphic_name>
⬁
denemo
24</graphic_name>
              <minpixels>30</minpixels>
              <gy>10</gy>
            </lily-directive>
          </measure>
        </measures>
      </voice>
      <voice id="id3">
        <voice-info>
          <voice-name>Basso</voice-name>
          <first-measure-number>1</first-measure-number>
        </voice-info>
        <initial-voice-params>
          <staff-ref staff="id1"></staff-ref>
          <clef name="bass"></clef>
          <key-signature>
            <modal-key-signature note-name="F" mode="major"></modal-key-signature>
          </key-signature>
          <time-signature>
            <simple-time-signature>
              <numerator>4</numerator>
              <denominator>4</denominator>
            </simple-time-signature>
          </time-signature>
        </initial-voice-params>
        <voice-props>
          <number-of-lines>5</number-of-lines>
          <voice-control>1</voice-control>
          <transpose>0</transpose>
          <instrument></instrument>
          <device-port>NONE</device-port>
          <volume>127</volume>
          <override_volume>0</override_volume>
          <mute>0</mute>
          <midi_prognum>0</midi_prognum>
          <midi_channel>1</midi_channel>
          <hasfigures>1</hasfigures>
          <hasfakechords>0</hasfakechords>
          <staff-directives>
            <directive>
              <tag>InstrumentName</tag>
              <postfix>\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" }</postfix>
              <display>Basso</display>
              <override>4</override>
            </directive>
            <directive>
              <tag>BraceEnd</tag>
              <postfix> &gt;&gt;%Brace End
</postfix>
              <display>Brace End</display>
              <data>1</data>
              <override>52</override>
            </directive>
          </staff-directives>
        </voice-props>
        <measures>
          <measure></measure>
        </measures>
      </voice>
    </voices>
  </movement>
</score>
