Re: improvement(s) on LSR 445

[-Eluze]

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.