2012/2/5 David Kastrup <d...@gnu.org>: > Federico Bruni <fedel...@gmail.com> writes: > >> Il 05/02/2012 16:37, Thomas Morley ha scritto: >>> Well, I looked at it now. And at >>> http://lilypond.org/ly-examples/tab-example-small.png >>> There is a printed flag in measure 4. It should be transparent, I >>> think. Perhaps it's possible to fix it in one go. >> >> It compiles fine on 2.14.2 >> But there is also this warning: >> >> \once \override Flag #'transparent = ##t >> tab-example.ly: warning: not a grob name, `Flag' >> >> It seems to me that this override is not necessary: if you comment it >> out, the flag is not printed anyway. > > On 2.14.2. > >> I can't test latest git version now (no time to compile it). >> >> The original snippet doesn't have that override: >> http://lsr.dsi.unimi.it/LSR/Snippet?id=633 > > 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 > > It was added in 2.15.13 > > -- > David Kastrup > > > _______________________________________________ > lilypond-devel mailing list > lilypond-devel@gnu.org > https://lists.gnu.org/mailman/listinfo/lilypond-devel
In order not to change other output I simply added \override NoteColumn #'ignore-collision = ##t Attached: file and png I'm afraid that's all I can do currently. 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 ) \override NoteColumn #'ignore-collision = ##t < 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\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.png>>
_______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel