Re: [WAS: Re: handbells] Tabulating notes used in a score

[David Nalesnik]

Simon,

On Mon, May 26, 2014 at 7:54 AM, Simon Albrecht <address@hidden> wrote:

The version statement should be \version "2.19", since the music contains standalone durations like @code{ ees4~ 16 }, which can’t be handled by 2.18.

True, didn't notice that.  Also interesting is that omitting the pitchname on tied notes gives a different count for the affected note than repeating the name does.  Attach the following lines to the file above to get the count:

countOccurrences =

#(define-scheme-function

  (parser location lst)

  (list?)

  (let* ((pitch-list (sort (delete-duplicates lst) ly:pitch<?))

          (tabulation (make-list (length pitch-list) '())))

    (map (lambda (p)

               (cons p (count (lambda (x) (equal? x p)) lst)))

      pitch-list)))

#(display #{ \countOccurrences \extractPitches \Bach #})

%%%%

-David