[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: improvement(s) on LSR 445
From: |
-Eluze |
Subject: |
Re: improvement(s) on LSR 445 |
Date: |
Tue, 5 Apr 2011 04:36:28 -0700 (PDT) |
Gilles THIBAULT wrote:
>
>
>> both solutions eliminate dynamics and articulations on all notes!
>
> Have you try something like that :
>
> %%%%%%%%%%%%%%%%%%%
> deleteFingering = #(define-music-function (parser location music)
> (ly:music?)
> (music-filter
> (lambda (evt)
> (not (memq (ly:music-property evt 'name) (list 'FingeringEvent))))
> music))
> %%%%%%%%%%%%%%%%%%%%
>
> then
> \makeOctaves #1 \deleteFingering \music
> It seems to only delete fingering events.
>
yes, i had already adapted the definition of deleteDynamics to fit my
request. but it removes all the fingerings and i wanted to keep the original
ones while the fingerings of the octavized notes should be removed!
i tried to add a filter after let* ( ... (transposed-notes ...):
(pure-notes
(music-filter
(lambda (evt)
(not (memq (ly:music-property evt 'name) (list
'FingeringEvent
'StringNumberEvent
'StrokeFingerEvent
))))
transposed-notes)))
but seeing the reult this seems the wrong approach.
Eluze
--
View this message in context:
http://old.nabble.com/improvement%28s%29-on-LSR-445-tp31239262p31323217.html
Sent from the Gnu - Lilypond - Dev mailing list archive at Nabble.com.