Re: trouble changing notehead size on percussion staff

[Niki Pantelias]

  Hi Mats,

  Thanks for the suggestion!  This successfully changes notehead size 
for "regular" noteheads, but unfortunately does not affect crosses 
and slashes.  I know that it is possible to scale the size of crosses 
and slashes, since I can do it in a "non-drum" voice by explicitly 
setting the notehead's style and font-relative-size properties.  But 
for some reason, when these noteheads are created by \apply 
#(drums->paper 'drums), the size change doesn't appear to be handled 
properly.

  Below I've pasted in an example .ly file that exhibits the problem.  
In the second bar, the "round" noteheads get reduced in size, but the 
"cross" noteheads don't.  I'm running lilypond 2.0.0 on RedHat 9.

  thanks,
  -- Niki

On Saturday 03 January 2004 04:41 pm, Mats Bengtsson wrote:
> Try to set the property on Thread.NoteHead instead of
> Voice.NoteHead. The reason is probably that the drums->paper
> function changes some NoteHead property only within the current
> Thread context, which means that a separate copy of the list of
> properties for the NoteHead is made for that context so the changes
> you do later in the Voice context are not seen. This is an
> intricate detail of the property setting mechanism that I didn't
> realize until very recently even though I've used LilyPond for
> several years.
>
>    /Mats
>
> Niki Pantelias wrote:
> > Hello,
> >
> >  The .ly file pasted in below demonstrates a problem I'm having
> > with changing notehead sizes in a drum part.  When I run it as
> > shown, the changes to font-relative-size have no effect, which
> > seems to me to be a bug.
> >
> >  If I comment out the line
> >  \apply #(drums->paper 'drums)
> > the notehead size _does_ change, although of course the result
> > looks nothing like a drum part :-)
> >
> >  thanks,
> >  -- Niki
> >
> >------------
> >\include "english.ly"
> >
> >papersize = "letter"
> >\include "paper20.ly"
> >
> >\include "drumpitch-init.ly"
> >Scale =
> >  \context Voice
> >  \notes
> >  {
> >    \time 4/4
> >    bd4 tomfl
> >    \property Voice.NoteHead \override #'font-relative-size = #-3
> >    tomfh tomml | tommh
> >    \property Voice.NoteHead \revert #'font-relative-size
> >    sn hh cymr |
> >    \bar"|."
> >  }
> >
> >\include "english.ly"
> >
> >\score {
> >  \apply #(drums->paper 'drums)
> >  \new Staff {
> >    \clef percussion
> >    \Scale
> >     }
> > \paper { papersize = "letter"
> >       linewidth = \hsize - 0.9 \in }
> > }
> >
> >
> >
> >_______________________________________________
> >Bug-lilypond mailing list
> >address@hidden
> >http://mail.gnu.org/mailman/listinfo/bug-lilypond