Re: Can't use NoteNames twice in score block ??

[Michael Ellis]

I'm clearly Scheme challenged. I've spent several hours trying different variations of the following.

#(define (note? x)

     (eq? 'EventChord (ly:music-property x 'name)))

#(define notesOnly

;; Remove anything that is not a note.

  (define-music-function (parser location music) (ly:music?)

        (music-filter (lambda (x)  (if (note? x) x #f) )  music))) 

If I run different versions \notesOnly  on music containing notes plus other things, I get either everything passing through unchanged or everything removed.  What's the right way to construct  a music filter that returns only the pitch-carrying elements?

Cheers,
Mike

On Wed, Dec 22, 2010 at 2:14 PM, Michael Ellis <address@hidden> wrote:

Thanks, Carl.  This looks promising ...
Cheers,
Mike

On Wed, Dec 22, 2010 at 10:46 AM, Carl Sorensen <address@hidden> wrote:

On 12/22/10 8:08 AM, "Michael Ellis" <address@hidden> wrote:
>
>
> Putting this together with your workaround produces the code and output shown
> below.  This works quite well.  So the issue I'm wrestling with now is whether
> it's feasible to automate the editing of 400+ files to separate the clef and
> instrument names from the notation, detect the original key, and rewrite the
> score block to produce the desired results.  
>
> Thanks again for your help and any suggestions for how proceed with the
> automation are more than welcome.  

You might try using music-filter to help you.  Since you already have blocks
by voice, you could filter the full block to keep only EventChords (every
note, whether or not it's in a chord, is in an EventChord) and used the
filtered music for your NoteNames context.

Note that I haven't tried this, and won't have time to try it today.

You can see an example of how Valentin has done this here:

http://repo.or.cz/w/opus_libre.git/blob/HEAD:/lib/libdynamic.scm#l58

HTH,

Carl