Hello, you can find an example attached to this mail. It runs perfectly with Lily 2.8.0
Greetings Stefan Hackl [EMAIL PROTECTED] schrieb:
Stefan, Thank you for the assist to that question! Would you please e-mail me a .ly file I can test? I tried to use it in one of my files, but it hung up. I'm using v2.7.38 John
\version "2.8.0" barre = #(define-music-function (barre location str music) (string? ly:music?) (let ((spanned-music (let ((first-element #f) (last-element #f) (first-found? #f)) (music-map (lambda (m) (if (eqv? (ly:music-property m 'name) 'EventChord) (begin (if (not first-found?) (begin (set! first-found? #t) (set! first-element m))) (set! last-element m))) m) music) (if first-found? (begin (set! (ly:music-property first-element 'elements) (cons (make-music 'TextSpanEvent 'span-direction -1) (ly:music-property first-element 'elements))) (set! (ly:music-property last-element 'elements) (cons (make-music 'TextSpanEvent 'span-direction 1) (ly:music-property last-element 'elements))))) music))) (make-music 'SequentialMusic 'origin location 'elements (list #{ \once \override Voice . TextSpanner #'edge-text = #$(cons (format "C ~a" str) "") \once \override Voice . TextSpanner #'direction = #1 \once \override Voice . TextSpanner #'edge-height = #'(0 . 0.5) \once \override Voice . TextSpanner #'padding = #3 \once \override Voice . TextSpanner #'enclose-bounds = #1 #} spanned-music)))) \header { title = "V. Bourrée" composer = "J. S. Bach (1685-1750)" opus = "BWV 996" subtitle = "aus Lautensuite e-Moll" mutopiatitle = "V. Bourée" mutopiacomposer = "BachJS" mutopiainstrument = "Guitar" source = "unknown" style = "Classical" copyright = "Edited 2006 by Stefan Hackl" maintainer = "Stefan Hackl" maintainerEmail = "[EMAIL PROTECTED]" lastupdated = "2006/February/26" tagline = " " } \paper { ragged-last-bottom = ##f foot-separation = 0.5\cm left-margin = 2\cm line-width = 17\cm } \layout { indent = 0\cm } \score { { \set Staff.midiInstrument = "acoustic guitar (nylon)" \key e \minor \clef "G_8" \relative c' << { \partial 4 e8 fis g4 fis8-2 e dis4-4 e8 fis b,4 \barre #"II" { cis8-1 dis-4 e4-4 d8-4 c-1 b4 a8-2 } g fis4-4 g8 a b a g fis-4 e4-2 e'8 fis-2 g4 fis8 e dis4 e8 fis b,4 cis8 dis8 e4 d8 c b4 a8-1 g fis4.-3 g8 g2. \break \bar ":|:" b8 g d'4-4 a8-3 c-1 b4 g'8-4 d-3 e4 b8-4 d-2 c4-2 b8 a-3 gis4 a8 b c4 b8 a-3 a2. d8-4 a \break b4 g'8-4 d-3 e4 b8-4 d-2 c4-2 a'8-4 e-3 fis4-4 cis8-3 e d4-3 cis8-2 b \once \override Voice.Fingering #'padding = #1.5 \set fingeringOrientations =#'(right) <ais-3>4.-\trill b8 b2. b'8 fis gis4-4 fis8-2 e a4-4 e8 g-3 fis4-1 e8 d-3 g4-4 \barre #"III" { d8 f-4 } e4-3 \barre #"VII" { a8-4 e-3} fis4-4 cis8-2 e-0 dis4-4 b2 e8 b \break c4-2 d8-2 a b4 c8-1 g a4 b8 fis g4 fis8 e-1 dis4-1 e8-1 fis g4 fis8-4-\trill e e2. } \\ \relative c { g8 fis-1 e4 a b-1 a g-3 fis-1 e fis-2 g-3 a b-1 a g-3 b-1 e,8 fis-1 g-3 fis e4 a b a g fis e fis g c-2 d-4 d \set fingeringOrientations =#'(left)<g,-2 b-1 d>2. g4-3 fis-2 d' g,-2 b-1 c-2 gis-3 a d e-2 a, e' e, a8 b-2 a g-4 fis4-2 d' g,-2 b-1 c-2 gis-3 a cis-1 d ais-1 b e \set fingeringOrientations =#'(right) <fis-4> fis, b8-2 ais-1 b-2 cis-4 \set fingeringOrientations =#'(right) \set stringNumberOrientations = #'(down) \override StringNumber #'padding = #3 <dis-1\5>4 b-2 e-1 d cis-1 a d c-2 b-1 g-1 c-1 b-1 a fis-1 b4.-1 c8 b a gis4-4 a8 e'-3 fis4-3 g,8-4 dis'-2 e4-2 \barre #"II" { fis,8 cis-3 } dis4-3 e, a b-2 a b2-1 e,2. } >> \bar ":|" } \midi { \tempo 4=120 } \layout { } }
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user