2012/2/5 Phil Holmes <m...@philholmes.net>: > ----- Original Message ----- From: "Graham Percival" > <gra...@percival-music.ca> > To: "Thomas Morley" <thomasmorle...@googlemail.com> > Cc: "David Kastrup" <d...@gnu.org>; <lilypond-devel@gnu.org> > Sent: Sunday, February 05, 2012 5:21 PM > > Subject: Re: Errors in examples > > > On Sun, Feb 05, 2012 at 05:57:31PM +0100, Thomas Morley wrote: >> >> 2012/2/5 David Kastrup <d...@gnu.org>: >> > Hardly surprising. From changes.tely: >> > >> > @item >> > Flags are now treated as separate objects rather than as stem parts. >> > @lilypond[fragment,quote,relative=2] >> > \override Flag #'color = #red >> > g8 >> > @end lilypond > > > Yes, and I remember Mike manually changing a bunch of files, then > running convert-ly, then undoing his manual changes... or > something. There was certainly something to do with Stem vs. > Flag and transparency. > >> In order not to change other output I simply added \override >> NoteColumn #'ignore-collision = ##t > > > I'm not certain that's a great solution. Is there a good reason > why they're colliding? > > - Graham > ========================== > > From a quick look - they don't actually collide since their pitch is so > different, but their columns collide, since there's no use of voice. Best > solution would probably be to set the piece with voiceTwo and voiceFour , > but IIRC that would offset the lower notes. > > > -- > Phil Holmes > >
I added \voiceOne near the end of the first voice. Of course this changes the stem-direction (which I'd prefer) but Graham told not to change the output. Harm
\version "2.15.24"
#(set-global-staff-size 22.45)
#(define (glissando::calc-extra-dy grob)
(let* ((original (ly:grob-original grob))
(left-bound (ly:spanner-bound original LEFT))
(right-bound (ly:spanner-bound original RIGHT))
(left-pitch (ly:event-property (event-cause left-bound) 'pitch))
(right-pitch (ly:event-property (event-cause right-bound) 'pitch)))
(if (and (= (ly:pitch-octave left-pitch) (ly:pitch-octave right-pitch))
(= (ly:pitch-notename left-pitch) (ly:pitch-notename right-pitch)))
(- (ly:pitch-alteration right-pitch) (ly:pitch-alteration left-pitch))
0 )))
% Hide fret number: useful to draw slide into/from a casual point of
% the fretboard.
hideFretNumber = {
\once \override TabNoteHead #'transparent = ##t
\once \override TabNoteHead #'whiteout = ##f
\once \override NoteHead #'transparent = ##t
\once \override Stem #'transparent = ##t
\once \override Flag #'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)
\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.
\voiceOne {
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\fermata
}
}
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
\override Glissando #'gap = #0.5
\override Glissando #'extra-offset = #'(-0.5 . 0)
\override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
\override Glissando #'minimum-length = #4
\override Glissando #'extra-dy = #glissando::calc-extra-dy
\upper
}
\context Voice = "lower guitar" {
\clef "G_8" \voiceTwo
\override Glissando #'bound-details #'right #'padding = #1
\override Glissando #'bound-details #'left #'padding = #0.2
\lower
}
>>
\new TabStaff = "tab" <<
\context TabVoice = "upper tab" { \clef "moderntab" \voiceOne \upper }
\context TabVoice = "lower tab" { \clef "moderntab" \voiceTwo \lower }
>>
>>
\layout {
\context {
\Staff
\override StringNumber #'transparent = ##t
}
\context {
\TabStaff
\revert Arpeggio #'stencil
}
}
}
<<attachment: tab-example-rev.png>>
_______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel
