Re: website so close, and yet so far

[Federico Bruni]

Graham Percival wrote:
> On Sat, Oct 24, 2009 at 10:20:59AM -0500, Tim McNamara wrote:
> > On Oct 24, 2009, at 9:16 AM, Graham Percival wrote:
> >
> > > I have to admit I'm pretty disappointed with the user community.
> > Well, since you reject the majority of what is sent to you, it probably 
> > discourages people from trying to contribute.
>
> I asked a few people who sent examples to add a few tweaks.  Is
> that what you were talking about?  I really don't see 10 minutes
> of lilypond-file writing as a big chore.  

I was one of those..
I've cleaned up the file a little bit, as 2.13.6 has added support for 
hammeron and pulloff.

Unfortunately, I haven't figured out how to add the tweaks suggested 
by Graham.
So if someone else is able to do it, he's free to emprove the 
(attached) file (read the TODO section in the beginning).

I'm not good in tweaking yet, so don't rely on me for that stuff.
Also, I'd like to use my spare time to speed up the translation of doc 
into italian. This is my priority now.

Cheers,
Federico

--
Federico Bruni  |  http://www.gnurag.net/blog/

LibrePlanet Italia
http://groups.fsf.org/wiki/LibrePlanetItalia

\version "2.13.6"

#(set-global-staff-size 22.45)

% TODO
%{I used to add a custom #'gap = #0.5 and #'extra-offset  to
  glissandi that went to an accidental'd note.  You might want to
  do a similar thing, because I see collisions.%}

%% Hide fret number: useful to draw slide into/from a casual point of
%% the fretboard.
hideFretNumber = { \once \override TabNoteHead #'transparent = ##t 
                 \once \override NoteHead #'transparent = ##t 
                 \once \override Stem #'transparent = ##t
                 \once \override NoteHead #'no-ledgers = ##t 
}

\paper {
  indent= #0
  line-width= #180
}

upper=  \relative c' {
  \time 4/4 
  \key e \major
  \set Staff.midiInstrument = #"acoustic guitar (steel)"
  \set fingeringOrientations = #'(left)
  
  %\override Staff.Glissando #'extra-offset = #' (0.0 . 1.0)
  \partial 4. \acciaccatura c16 \glissando cis8  e4 
  < cis-1 g'-3 >2 s8 \grace a16 ( \glissando <b-2>8\3 )  <d-1> ( b ) |
  <e-3>\2 ( <d-1> b ) \grace <ais-2>16 ( \glissando  a8  g ) s4. |
  s4.  < d'\3 g\2 >8  < gis,\4  d'\3 fis\2 >2\arpeggio ~ |
  
  < gis\4  d'\3 fis\2 >2  < b'\2\harmonic e\harmonic >2^\markup { \musicglyph 
#"scripts.ufermata" } |
  
}

lower=  \relative c {
  \set fingeringOrientations = #'(left)
  
  \partial 4. s4. |
  s4  e,4  s2 |
  s2 s8 <e'-3>4. ~ |
  e4  \hideFretNumber \grace { b8 \glissando s4 }  <e-2>4\5  e,2 ~ |
  
  e2  < e'\6\harmonic > |
}

\score {
  \new StaffGroup <<
    \new Staff = "guitar" <<
      \context Voice = "upper guitar" { \clef "G_8" \voiceOne \upper }
      \context Voice = "lower guitar" { \clef "G_8" \voiceTwo \lower }
    >>
    \new TabStaff = "tab" <<
      \context TabVoice = "upper tab" { \clef "moderntab" \voiceOne \upper }
      \context TabVoice = "lower tab" { \clef "moderntab" \voiceTwo \lower }
    >>
  >>
  
 \midi {
    \context {
      \Score tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
  
 \layout {
    \context {
    \Staff
    \override StringNumber #'transparent = ##t
    }
    
    \context {
    \TabStaff
    \revert Arpeggio #'stencil
    }
  }
}