[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-devel
Subject:    About issue 4931 make \deadNote work with different fonts
From:       Thomas Morley <thomasmorley65 () gmail ! com>
Date:       2016-07-26 15:05:53
Message-ID: CABsfGyXAKU30qBQ85Msasv3kiMQzVPxAeoKuGPPPP8J7gKQuCA () mail ! gmail ! com
[Download RAW message or body]

Hi,

I had a look at
https://sourceforge.net/p/testlilyissues/issues/4931/

Any reason not to do the most simple code below?

\version "2.19.45"

defaultNoteHeads = {
  \revert NoteHead.style
  \revert TabNoteHead.style
  \revert NoteHead.font-name
  \revert TabNoteHead.font-name
}

xNotesOn = {
  \temporary \override NoteHead.style = #'cross
  \temporary \override TabNoteHead.style = #'cross
  \temporary \override NoteHead.font-name = #'()
  \temporary \override TabNoteHead.font-name = #'()
}

xNotesOff = \defaultNoteHeads

xNote = {
  \once \override TabNoteHead.style = #'cross
  \once \override NoteHead.style = #'cross
  \once \override NoteHead.font-name = #'()
  \once \override TabNoteHead.font-name = #'()
}

%%% EXAMPLE:

mus = {
    c'4
    \xNotesOn
    c'
    <c' e'>
    \xNotesOff
    c'
    <c' e'>
    \xNote
    cis'
    d'
}

<<
  \new Staff  \mus
  \new TabVoice
    \with { \override TabNoteHead #'font-name = #"Nimbus Sans L Bold" }
    \mus
>>

Thanks,
  Harm

_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
[prev in list] [next in list] [prev in thread] [next in thread]