Hi,
 
I was wondering if anyone would fancy giving any criticism (constructive or otherwise) on the engraving I'm currently working on. Comments greatly appreciated!
 
Thanks,
Stewart
\version "2.8.0"

#(set-default-paper-size "a4" )
#(set-global-staff-size 20 )

\header
{
	%Mutopia headers
	mutopiatitle = "Recuerdos de la Alhambra"
	mutopiacomposer = "F. Tárrega (1852-1909)"
	mutopiainstrument = "Guitar"
	source = "Orfeo Tracio Edition"
	style = "Romantic"
	copyright = "Public Domain"
	maintainer = "Stewart Holmes"
	lastupdated = "2006/May/26"

	dedication = "Hommage á l'eminent artiste Alfred Cottin"
	title = "Recuerdos de la Alhambra"
	composer =  "Francisco Tárrega (1852-1909)"
	arranger = "Fingerings revised by Stewart Holmes"
	copyright = "Public Domain"
}

top = \relative c
{
	\set subdivideBeams = ##t
	\slurDown
	
	%\override Beam #'positions = #'(4 . 4)

	%todo - move fingering into its own part

  a32
  
  %\once \override Fingering #'extra-offset = #'(5 . 5)
  \once \override StringNumber #'extra-offset = #'(0 . -5)
  \set fingeringOrientations = #'(left)
  
  <e''-4> e e e, e' e e c e e e e, e' e e b \once \override Fingering #'extra-offset = #'(0.12 . 0) <d-2> d d e, d' d d |
  a, <c'-1> c c e, c' c c a c c c e, c' c c b <d-2> d d e, d' d d |
  a, <e''-4> e e e, e' e e c e e e e, e' e e c e e e e, e' e e |
  a,, e'' e e e, e' e e c e e e e, e' e e d <f-2> f f g, f' f f |
  c, <g''-2> g g g, g' g g e g g g e, g' g g d <f-2> f f g, f' f f | % bar 5
  c, e' e e g, e' e e <c-4> e e e g, e' e e d <f-2> f f g, f' f f | 
  c, g'' g g g, g' g g e g g g g, g' g g e g g g g, g' g g |
  c,, g'' g g g, g' g g e g g g g, g' g g e g g g g, g' g g |
  f, c'' c c c, c' c c a c c c c, c' c c g b b b c, b' b b |
  f, a' a a c, a' a a f a a a c, a' a a d,, b'' b b f b b b | % bar 10
  
  e,,, a'' a a b, a'  \times 2/3 { a ( \set Score.beatLength = #(ly:make-moment 1 16) b a) } e32 \set Score.beatLength = #(ly:make-moment 1 4) gis gis gis b, gis' gis gis e gis gis gis b, gis' gis gis | 
  e,, gis'' gis gis d gis gis gis e gis gis gis d gis gis gis e gis gis gis d gis gis gis |
  a,, ais'' ais ais cis, ais' ais ais e ais ais ais cis, ais' ais ais e a a a cis, a' a a |
  cis,, g'' g g a, g' g g e g g g a, g' g g f a a a a, a' a a |
  d,, g' g g e g \times 2/3 { g ( \set Score.beatLength = #(ly:make-moment 1 16) a g) } d32 \set Score.beatLength = #(ly:make-moment 1 4) f f f a, f' f f d f f f a, f' f f | % bar 15 
  d, f' f f a, f' f f d f f f a, f' f f d f f f a, f' f f |
  d, e' e e a, e' e e b e e e a, e' e e b d d d a d d d |
  f,, c'' c c dis, c' c c a c c c dis, c' c c a d d d dis, d' d d | 
  e,, c'' c c e, c' \times 2/3 { c ( \set Score.beatLength = #(ly:make-moment 1 16) d c) } gis32 \set Score.beatLength = #(ly:make-moment 1 4) b b b e, b' b b gis b b b e, b' b b |  
  e,, b'' b b e, b' b b gis b b b e, b' b b gis b b b e, b' b b | % bar 20
  
  \bar ":|"
  \key a \major
  
  \repeat volta 2
  {
  a, e'' e e e, e' e e cis e e e e, e' e e b d d d e, d' d d |
  a, cis' cis cis e, cis' cis cis a cis cis cis e, cis' cis cis b d d d e, d' d d |
  a, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e | 
  a,, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e |
  a,, fis'' fis fis fis, fis' fis fis d fis fis fis fis, fis' fis fis d fis fis fis fis, fis' fis fis | % bar 25
  a,, d'' d d d, d' d d b d d d d, d' d d d, fis fis fis fis, fis' fis fis | 
  a,, fis'' fis fis d fis \times 2/3 { fis ( \set Score.beatLength = #(ly:make-moment 1 16) gis fis) } cis32 \set Score.beatLength = #(ly:make-moment 1 4) e e e e, e' e e cis e e e e, e' e e |
  a,, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e |
  fis,, a'' a a fis, a' a a a, a' a a cis, a' a a a, a' a a fis, a' a a | 
  gis,, gis'' gis gis gis, gis' gis gis c, gis' gis gis dis gis gis gis c, dis dis dis gis, dis' dis dis | % bar 30 
  
  cis, fis' fis fis gis, fis' fis fis cis e e e gis, e' e e cis e e e gis, e' e e | 
  cis, e' e e gis, e' e e cis e e e gis, e' e e cis e e e gis, e' e e |
  b, d' d d f, d' d d f, d' d d d, d' d d e, d' d d f, d' d d |
  e,, cis'' cis cis e, cis' cis cis e, cis' cis cis e, cis' cis cis e,, b'' b b d, b' b b | 
  a, b' b b e, b' \times 2/3 { b ( \set Score.beatLength = #(ly:make-moment 1 16) cis b) } e,32 \set Score.beatLength = #(ly:make-moment 1 4) a a a e a a a fis a a a gis a a a | % bar 35 
  }
  \alternative
  {
	  {a, a' a a e a a a cis, a' a a e b' b b a cis cis cis b d d d |}
	  {a, a' a a e a a a e a a a gis b b b a c c c b d d d |}
  }
}  

codatop = \relative c {  
  a32 a' a a e a a a e a a a e a a a e a a a e a a a | 
  a, a' a a f a a a f a a a f a a a f a a a f a a a | 
  a, b' b b f b b b a c c c f, c' c c a d d d f, d' d d | % bar 40
  
  a, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e |
  a,, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e | 
  e,, e'' e e gis, e' e e gis, e' e e gis, e' e e gis, e' e e gis, e' e e |
  e,, d'' d d fis, d' d d e, cis' cis cis e, cis' cis cis e,, b'' b b d, b' b b |
  a, a' a a e a a a e a a a f a a a fis a a a f a a a | % bar 45
  
  a, a' a a e a a a e a a a e a a a e a a a e a a a |
  a, a' a a f a a a f a a a f a a a f a a a f a a a |
  a, b' b b f b b b a c c c f, c' c c a d d d f, d' d d |
  a, e'' e e e, e' e e cis e e e e, e' e e cis e e e e, e' e e | 
  e,, gis'' gis gis e, gis' gis gis e gis gis gis e, gis' gis gis e gis gis gis e, gis' gis gis | % bar 50
  
  e,, fis'' fis fis e, fis' fis fis cis e e e e, e' e e b d d d e, d' d d |
  a, cis' cis cis e, cis' cis cis a cis cis cis e, cis' cis cis fis, cis' cis cis a cis cis cis |
  a, cis' cis cis e, cis' cis cis a cis cis cis e,, cis'' cis cis c, cis' cis cis cis, cis' cis cis |
  a, cis' cis cis e, cis' cis cis a cis cis cis e,, cis'' cis cis c, cis' cis cis cis, cis' cis cis | 
  a,8 e' a cis e a | % bar 55 
  
  <e' a, >2. |
  <a,, e >2 % bar 57	
}

pedal = \relative c
{
  a2. | a | \break
  a | a | \break %4
  c | c | \break 
  c | c | \break %6
  f | f2 d4 | \break 
  e,2. | e | \pageBreak  
  
  a | cis | \break %12
  d | d | \break %14
  d | f, | \break
  e | e | \break %18
  
  \bar ":|"
  \key a \major
  
  \repeat volta 2
  {
	  a | a | \break
	  a | a | \break %22
	  a | a | \pageBreak
	  
	  a | a | \break %26
	  fis | gis | \break %28
	  cis | cis | \break
	  b | e, | \break %32
	  a^\markup { \fontsize #0 \hspace #40.0 \raise #5.2 { "To " \hspace #1 \raise#0.9 { \musicglyph #"scripts.coda" } } } | 
  }
  \alternative { {a} { a^\markup { \fontsize #0 \hspace #70.0 \raise #-6 { "D.C. al " \hspace #1 \raise#0.9 { \musicglyph #"scripts.coda" } } } } } \bar ":|"
} 
 
codapedal = \relative c
{
  
  
  a2.^\markup { \hspace #0.15 \raise #2.5 \musicglyph #"scripts.coda" } | 
  
  a2. | \pageBreak
  a | a | \break 
  a | a | \break 
  e | e2 e4 | \break 
  a2. | a2. | \break 
  a | a | \break 
  a | e | \break 
  e | a | \break 
  a | a | <cis' a, > | <cis, a >2 | %55 	
}

bottom = \relative c
{
	\set fingeringOrientations = #'(left)
	
	s8 <e-1> <c'-3> e, <b'-3> e, |
	s8 <e-2> <a-3> e <b'-3> e, |
	\set fingeringOrientations = #'(left)
	s8 e c' e, c' e, |
	s8 e c' e, <d'-3> <g,-1> |
	s8 g <e'-3> g, <d'-3> g, |
	s8 g <c-3> g <d'-3> g, |
	s8 g <e'-3> g, e' g, | 
	s8 g e' g, e' g, |
	s8 <c-3> <a'-4> c, <g'-2> <c,-3> |
	s8 <c-3> <f-2> <c-3> s <f-2> | % bar 10
	
	s8 b, e b e b |
	s8 <d-3> e d e d |
	s8 cis e cis e cis | 
	s8 a e' a, f' a, |
	s8 e' d a d a |
	s8 a d a d a |
	s8 a b a b a |
	s8 dis, a' dis, a' dis, | 
	s8 e gis e gis e |
  	s8 e gis e gis e | % bar 20
	
	\bar ":|"
	\key a \major
	
	\repeat volta 2
	{
	s8 e cis' e, b' e, | 
	s8 e a e b' e, |
	s8 e cis' e, cis' e, | 
	s8 e cis' e, cis' e, |
	s8 fis d' fis, d' fis, | 
	s8 d' b' d, d fis, |
	s8 d' cis e, cis' e, | 
	s8 e cis' e, cis' e, |
	s8 fis a cis a fis |
	s8 gis c dis c gis | % bar 30
	
	s8 gis cis gis cis gis | 
	s8 gis cis gis cis gis |
	s8 f f d e f |
	s8 e e e e, d' | 
	s8 e e e fis gis | 
	
	
	}
	\alternative
	{
		{s8 e cis e a b |}
		
		{s8 e, e gis a b |}
	}
}

codabottom = \relative c {	
	s8 e e e e e |
	s8 f f f f f |
	s8 f a f a f | % bar 40
	
	s8 e cis' e, cis' e, |
	s8 e cis' e, cis' e, |
	s8 gis gis gis gis gis |
	s8 fis e e s d |
	s8 e e f fis f |
	s8 e e e e e | 
	s8 f f f f f  |
	s8 f a f a f |
	s8 e cis' e, cis' e, | 
	s8 e e' e, e' e, | % bar 50
	
	s8 e cis' e, b' e, | 
	s8 e a e fis a |
	s8 e a e, c' cis |
	s8 e a e, c' cis | 
}

dynamics =
{
	\override DynamicLineSpanner #'padding = #2.3
		
	s8\> s s s s s32 s s s\! |
	s8\< s s s s s32 s s s\! |
	s8\> s s s s s32 s s s\! |
	s8\< s s s s s32 s s s\! |
}

fingering = 
{
	s32 s^\markup { \hspace #0.08 \lower #2.0 \italic \small "a" } s^\markup { \hspace #-0.01 \lower #2.0 \italic \small "m" } s^\markup { \hspace #0.1 \lower #2.0 \italic \small "i" } |
	s s^\markup { \hspace #0.09 \lower #2.0 \italic \small "cont. sim" }
}

stringnumbers = 
{
	
}
barring =
{
	s2. s s s 
	
	\override TextSpanner #'padding = #6
	\override TextSpanner #'edge-text = #'("CIII" . "")
	
	s8\startTextSpan s s s32 s s s\stopTextSpan s8 s % bar 5
	
	s2.^\markup {"CIII"} s s |
	
	\override TextSpanner #'padding = #6
	\override TextSpanner #'edge-text = #'("CVIII" . "")
	s8\startTextSpan s s s s\stopTextSpan s |

}

partone =
{
	<<
		\context Voice = "1" { \voiceOne \top }
		\context Voice = "2" { \voiceTwo \pedal }
		\context Voice = "4" { \voiceFour \bottom }
	>>
}

parttwo =
{
	<<
		\context Voice = "1" { \voiceOne \codatop }
		\context Voice = "2" { \voiceTwo \codapedal }
		\context Voice = "4" { \voiceFour \codabottom }
	>>
}

fullscore =
{
	\partone
	\parttwo
}

thescore = \score
{
	<<
		\context Staff = guitar
		{
			\set Staff.midiInstrument = "acoustic guitar (nylon)"
			
			\clef "G_8"
			\time 3/4
			\key c \major
			
			#(override-auto-beam-setting '(end * * * *) 1 4 'Staff)
			#(override-auto-beam-setting '(end * * * *) 1 2 'Staff)
			#(override-auto-beam-setting '(end * * * *) 3 4 'Staff)
			
			\override Staff.NoteCollision  #'merge-differently-headed = ##t
			\override Staff.NoteCollision  #'merge-differently-dotted = ##t
			
			<<
				\context Voice = "1" { \voiceOne \top }
				\context Voice = "2" { \voiceTwo \pedal }
				\context Voice = "4" { \voiceFour \bottom }
				\context Voice = "3" { \voiceThree << \dynamics \\ << \fingering \\ \barring >> >> }
			>>			
		}
	>>
}

codascore = \score
{
	<<
		\context Staff = guitar
		{
			\set Staff.midiInstrument = "acoustic guitar (nylon)"
			
			\clef "G_8"
			\time 3/4
			\key c \major
			
			#(override-auto-beam-setting '(end * * * *) 1 4 'Staff)
			#(override-auto-beam-setting '(end * * * *) 1 2 'Staff)
			#(override-auto-beam-setting '(end * * * *) 3 4 'Staff)
			
			\override Staff.NoteCollision  #'merge-differently-headed = ##t
			\override Staff.NoteCollision  #'merge-differently-dotted = ##t
			
			<<
				\context Voice = "1" { \voiceOne \codatop }
				\context Voice = "2" { \voiceTwo \codapedal }
				\context Voice = "4" { \voiceFour \codabottom }
				%\context Voice = "3" { \voiceThree << \codadynamics \\ << \codafingering \\ \codabarring >> >> }
			>>			
			r4
			\bar "|."
		}
	>>
}

\book
{
	\paper
	{
		ragged-last-bottom = ##f
		ragged-bottom = ##f
		%annotate-spacing = ##t
		paper-width = 210\mm
		line-width = 180\mm		
		left-margin = 15\mm
		indent = 0\mm
		top-margin = 8\mm
		bottom-margin = 8\mm
	}
		
	\score
	{
		\thescore
		\layout { ragged-last = ##t }
	}
	
	\score
	{
		\codascore
		\layout { ragged-right = ##f }
	}
	
	\score
	{
		\new staff
		{
			\set Staff.midiInstrument = "acoustic guitar (nylon)"
			\clef "G_8"
			\time 3/4 
			\unfoldRepeats
			\fullscore
		}
		
		\midi
		{
			\tempo 4 = 74
		}
	}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to