lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Text in front of Staves


From: Pierre Perol-Schneider
Subject: Re: Text in front of Staves
Date: Wed, 14 Aug 2013 15:44:12 +0200

Hi Harm, Hi Kale,

2013/8/14 Thomas Morley <address@hidden>

      \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
 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]