lilypond-user
[Top][All Lists]
Advanced

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

Re: new website, nothing happening


From: Federico Bruni
Subject: Re: new website, nothing happening
Date: Fri, 16 Oct 2009 10:33:01 +0200
User-agent: Mozilla-Thunderbird 2.0.0.22 (X11/20090706)

Graham Percival wrote:


I'll be honest: I'm a bit disappointed that nobody has stepped
forward with a "I love lilypond, I love making fancy stuff, I'll
make an awesome tablature/educational/orchestra example" attitude.
(at least, nobody since Jonathan made the Goyescas example)

So at this point, I'm resorting to begging *somebody* to do
*something*, just to put a checkmark beside the box.


Ok, this is a very simple blues phrasing (so nothing that can be copyrighted, I hope.. I mean, this sort of licks is in the commons, hopefully).

I've tried to put as much effects as possible: slide, hammeron, pulloff, acciacatura, arpeggio, harmonics,..
Anyone can improve it, of course.
(I would have loved a bending in the first notes of the second bar, but this is not possible right now.. maybe Marc and his blackmagic powers can do it..)

Attached .ly and .png

I guess David promised something better for a tablature example, but if it's not ready we can use this basic thing in the meanwhile.
What do you think?

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

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

\version "2.13.5"

#(set-global-staff-size 22.45)

% hp.ly - hammeron and pulloff
#(define-public (slur::draw-tab-slur grob)
  (let* ((staff-symbol (ly:grob-object grob 'staff-symbol))
         (staff-space (ly:grob-property staff-symbol 'staff-space))
         (control-points (ly:grob-property grob 'control-points))
         (new-control-points (map (lambda (p)
                                          (cons (car p) (- (cdr p)
                                                        (* staff-space
                                                           (ly:grob-property 
grob 'direction)
                                                           0.35))))
                                  control-points)))
        (ly:grob-set-property! grob 'control-points new-control-points)
        (ly:slur::print grob)))

%% 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
}

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

upper=  \relative c' {
  \time 4/4 
  \key e \major
  \set Staff.midiInstrument = #"acoustic guitar (steel)"
  \set fingeringOrientations = #'(left)
  
  \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 \slurDown \upper }
      \context Voice = "lower guitar" { \clef "G_8" \voiceTwo \slurUp \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
    }
    
    \context {
    \TabVoice
    \override Stem #'length = #0
    \override Stem #'no-stem-extend = ##t
    \override Stem #'flag-style = #'no-flag
    \override Stem #'details = #'((lengths 0 0 0 0 0 0)
                                  (beamed-lengths 0 0 0)
                                  (beamed-minimum-free-lengths 0 0 0)
                                  (beamed-extreme-minimum-free-lengths 0 0)
                                  (stem-shorten 0 0))
    autoBeaming = ##f
    \override NoteColumn #'ignore-collision = ##t
    \override Slur #'stencil = #slur::draw-tab-slur
    }
  }

}

PNG image


reply via email to

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