Hi Harm, Hi Kale,

2013/8/14 Thomas Morley <thomasmorle...@gmail.com>

>
>       \relative c' {
>

Two small remarks :
1) because of its tessitura, \relative is not needed for the guitar
2) better use \clef "G_8"

Here's Harm's code with "modern" fingerings and an alternative for the "no
left hand finger" in the exercise no.4

\version "2.17.23"
%\version "2.16.2"

%%%%%%% Right hand fingerings %%%%%%%%%%
rhp = -\rightHandFinger #1
rhi = -\rightHandFinger #2
rhm = -\rightHandFinger #3
rha = -\rightHandFinger #4
rhx = -\rightHandFinger #5

%%%% Aletrnate "No Left hand" fingering %%%%%
lnf =
#(let ((finger (make-music 'FingeringEvent)))
   (set! (ly:music-property finger 'tweaks)
   (acons 'text #{\markup\stencil #(make-circle-stencil 0.45 0.2 #f)#}
                (ly:music-property finger 'tweaks)))
   finger)

%%%%%%%%%%%%%%%%%%% score %%%%%%%%%%%%%%%%%%%%%%%%

\layout {
  ragged-right = ##f
  \context {
    \Voice
    \override TupletBracket #'bracket-visibility = ##f
    \override TupletNumber #'stencil = ##f
  }
  \context {
    \Staff
    \override VerticalAxisGroup.default-staff-staff-spacing =
      #'((basic-distance . 15)
         (minimum-distance . 10)
         (padding . 1))
  }
  \context {
    \Score
    \override SystemStartBar #'stencil = ##f
    \override NoteColumn #'force-hshift = #0
  }
}

<<
  \new Staff \with { instrumentName = "N° 3" }
    <<
      \new Voice
      \clef "G_8"
      {
      \voiceOne
      \set fingeringOrientations = #'(left)
      \set strokeFingerOrientations = #'(up)
      \override StrokeFinger #'add-stem-support = ##t
        \bar ".|:"
        \repeat volta 2 {
                \tupletSpan 4
                \times 2/3 {
                %mes. 1
                        c8 <e'-0\rhm> <c'-1\rhi> e e'\rhm c'\rhi
                        g e'\rhm c'\rhi c e'\rhm c'\rhi |
                        %mes. 2
                        b, <f'-1\rhm> <d'-4\rhi> d f'\rhm d'\rhi
                        g f'\rhm d'\rhi b, f'\rhm d'\rhi |
            }
        }
        % mes. 3
        <g-0 c'-1 e'-0>1 |
        \bar "|."
      }
      \new Voice
      {
          \voiceTwo
          \set fingeringOrientations = #'(left)
          \set strokeFingerOrientations = #'(down)
          \override StrokeFinger #'add-stem-support = ##t
            <c-3\rhp>4 <e-2\rhp> <g-0\rhp> c\rhp
            <b,-2\rhp> <d-0\rhp> <g-0\rhp> b,\rhp
            % mes. 3
            <c-3 e-2 >1 |
      }
    >>

  \new Staff \with { instrumentName = "N° 4" }
    <<
      \new Voice
      \clef "G_8"
      {
        \voiceOne
      \set fingeringOrientations = #'(left)
      \set strokeFingerOrientations = #'(up)
      \override StrokeFinger #'add-stem-support = ##t
      \bar ".|:"
        \repeat volta 2 {
            \tupletSpan 4
            \times 2/3 {
              c8 <e-2\rhi> <g\lnf\rhm> e g\rhi <c'-1\rhm>
              g c'\rhi <e'\lnf\rhm> c c'\rhi e'\rhm

                  b, <d\lnf\rhi> <g\lnf\rhm> d g\rhi <d'-4\rhm>
                  g d'\rhi <f'-1\rhm> b, d'\rhi f'\rhm
            }
        }
        <g\lnf c'-1 e'\lnf>1
        \bar "|."
      }
      \new Voice
      {
          \voiceTwo
          \set fingeringOrientations = #'(left)
          \set strokeFingerOrientations = #'(down)
          \override StrokeFinger #'add-stem-support = ##t
            <c-3\rhp>4 e\rhp g\rhp c\rhp
            <b,-2\rhp> d\rhp g\rhp b,\rhp
            <c-3 e-2>1
      }
    >>
>>

Cheers,
Pierre
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to