Re: need help building a Scheme function

[Kieren MacMillan]

Hi all,

Thank you for the rapid-iteration non-isochronous Scheme class!  :)

Before I do the next step, is this optimal at this point?

%%%  SNIPPET BEGINS
\version "2.25.11"

adjustPitch = 
#(define-music-function (pitchIn pitchOut music) (ly:pitch? ly:pitch? ly:music?)
   (music-map
    (lambda (m)
        (if (music-is-of-type? m 'note-event)
            (ly:message "Pitch is: ~a" (ly:music-property m 'pitch))
            #f)
        m)
    music))
   
\adjustPitch es es \fixed c' { c4 d e f g a b c' }
%%%  SNIPPET ENDS

Thanks,
Kieren.
______________________________________________

My work day may look different than your work day. Please do not feel obligated 
to read or respond to this email outside of your normal working hours.