Ciao a tutti!
Vorrei sapere se c'รจ un modo per rendere "costante" la distanza delle corde
dalle note!
Grazie!
--
oiram/bin/selom
app = {\override StrokeFinger #'text = #(lambda (grob) (markup #:center-column (#:lower 2.5 "^" (stroke-finger::calc-text grob))))}
napp = {\override StrokeFinger #'text = #(lambda (grob) (markup #:center-column (#:lower 2.5 "" (stroke-finger::calc-text grob))))}
cofon ={\cadenzaOff \bar "|"\cadenzaOn}
snu = { \set stringNumberOrientations = #'(up) }
snd = { \set stringNumberOrientations = #'(down) }
snl = { \set stringNumberOrientations = #'(left) }
snr = { \set stringNumberOrientations = #'(right)}
fou = { \set fingeringOrientations = #'(up) }
fod = { \set fingeringOrientations = #'(down) }
fol = { \set fingeringOrientations = #'(left) }
for = { \set fingeringOrientations = #'(right) }
\version "2.12.1"
\header {
meter = \markup {\override #'(font-name . "URW Palladio L italic"){"(Potenza, 7 sep. 1973)"}}
poet = \markup {\override #'(font-name . "URW Palladio L italic"){"Trascrizione e diteggiatura di Mario Moles"}}
title = \markup {\override #'(font-name . "URW Palladio L bold italic"){\fontsize #2 "FANTASIA" }}
subsubtitle = \markup {\override #'(font-name . "URW Palladio L italic"){"trascrizione per chitarra"}}
composer = \markup {\override #'(font-name . "URW Palladio L italic"){ "Sylvius Leopold Weiss" }}
arranger = \markup {\override #'(font-name . "URW Palladio L italic"){ "(Grottkau, 12 oct. 1686 - Dresde, 16 oct. 1750)"}}
tagline = \markup {\override #'(font-name . "URW Palladio L"){ "Created using LilyPond"}}
}
\layout {
indent = 0.5\cm
}
#(set-global-staff-size 20)
#(define RH rightHandFinger)
\new Staff <<
\new Voice
\relative c, {
\clef "G_8"
\key e \minor
\cadenzaOn
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StringNumber #'extra-offset = #'(0 . 3.2)
\fol \snd
\voiceOne
\once \override Slur #'height-limit = #4
e16\f( <g'-\RH #2 > <b-\RH #3 > <g-\RH #2 >
<e'-\RH #3 > <b-\RH #2 > <g'-\RH #4 -1 > <e-\RH #3 -3\2>
<b'-\RH #4 -1 > <g-\RH #3 -2\2> <c-\RH #4 -3 > <e,-\RH #3 -0 >)
#(set-octavation 1) \set Staff.ottavation = \markup { \upright {\tiny "III 1/2" } }
\override Staff.OttavaBracket #'dash-period = #0.2
<fis,-1>([ <fis'-\RH #2 -3> <a-\RH #3 > <fis-\RH #2 >] <d'-\RH #3 -2>
[<a-\RH #2 >#(set-octavation 0) <fis-\RH #4 > <d-\RH #3 >] <a'-\RH #4 -1>
[ <fis-\RH #3 -3\2> < b-\RH #4 -4> < d,-\RH #2 -3\3> ]) g,, [(<g'-\RH #2 > <b-\RH #3 > <g-\RH #2 >]
<e'-\RH #3 > [<b-\RH #2 > <g'-\RH #4 > <e-\RH #3 >]\app <b'-\RH #4 >_\( [\napp <a-1>\)
<b-\RH #3 > <d,-\RH #2 >])\cofon
a, c' b c fis,, d'' c d g,, b' a b g g' b, fis' c [e b e] a,, [c'' e, g]
d, [fis' c d] b [c fis b,] cis, [a' g' fis] dis, [fis' b, a]
e [fis' g, fis']\cofon \break
cis e b e fis,, e'' ais, fis g, d'' b g e, [cis'' b g] fis, [ais' fis' e]
}
\new Voice
\relative c, {
\clef "G_8"
\key e \minor
\cadenzaOn
\voiceTwo
\set strokeFingerOrientations = #'(down)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
<e-\RH #1 > 2. <fis'-\RH #1 > <g,-\RH #1 > \cofon
<a-\RH #1 >4 <fis-\RH #1 > <g-\RH #1 > <g'-\RH #1 >8 [b]
c [b] a,4 d2 cis4 dis e8 [g]\cofon \break
}
>>_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
