Re: hairpin on a single note

[Mats Bengtsson]

Mika Kuuskankare wrote:
> On 5.3.2010, at 13:42, Francisco Vila wrote:
>
>   
> > 2010/3/5 Mika Kuuskankare <address@hidden>:
> >
> >     
> > > %%%%%%% SNIPPET STARTS %%%%%
> > > scresc = #(define-music-function (parser location startDyn endDyn) (string? 
> > > string?)
> > >       
> > What about
> >
> > { c2\fp\<
> >         \override DynamicText #'extra-spacing-width = #'(-30 . 0)
> > r\fz
> > c1 }
> >
> >
> > --
> > Francisco Vila. Badajoz (Spain)
> > www.paconet.org , www.csmbadajoz.com
> >     
>
> Francisco,
>
> Thanks for your input. I'm in 2.12.3 and in this version I cannot see the hairpin at all 
> (it even says "crescendo too small")... furthermore, I really need to insert 
> the expression in one single event only...
>   
The following version of Francisco's example will work both in versions 
2.12 and 2.13.

{\once \override Hairpin #'minimum-length = #7 c2\fp\< r\fz c1 }



However, for your scheme version, you may want to use a solution like
\afterGrace {c1 \ff \> } {s16 \!\pp }
as a starting point. I made a quick attempt to make a music function 
solution for it, but didn't get further than the following, which gives 
syntax errors, probably because of limitations of what can be 
interpreted within a #{ ... #}. Writing it all in Scheme should work, 
though.


mycresc = #(define-music-function (parser location startDyn endDyn note) 
(string? string? ly:music? )
#{ \afterGrace {$note #(ly:export (make-music 'AbsoluteDynamicEvent 
'text $startDyn)) }
   { s #(ly:export (make-music 'AbsoluteDynamicEvent 'text $endDyn)) } #})


   /Mats