[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: hairpin on a single note
From: |
Mika Kuuskankare |
Subject: |
Re: hairpin on a single note |
Date: |
Sat, 6 Mar 2010 12:49:04 +0200 |
On 5.3.2010, at 19:07, Mats Bengtsson wrote:
>
> 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
Thank you Mats and all who chimed in. I think I'll live with my original hack
for a while and see if I'll get into trouble or not.
best regards,
Mika Kuuskankare