Re: [Scheme coding] turning a list into a markup/string

[Kieren MacMillan]

HOLD THE PRESSES!!

I think I have it:

%%%%  SNIPPET BEGINS
\version "2.19.83"

some-music = { a'4 bes' b' aes' g' cis' d' ees' fis' f' e' c' }

#(define-markup-list-command (diffints layout props mus) (ly:music?)
   (interpret-markup-list layout props
     (map (lambda (d) (string-append (if (positive? d) "+" "") (number->string 
d)))
       (let ((muspst (map ly:pitch-semitones (music-pitches mus))))
         (map - (cdr muspst) muspst)))))

\markup \line \with-color #red \diffints #some-music
\markup \line  \with-color #red \diffints ##{ c' d' e' c' #}
%%%%  SNIPPET ENDS

Comments and code critique appreciated.

Thanks,
Kieren.
________________________________

Kieren MacMillan, composer (he/him/his)
‣ website: www.kierenmacmillan.info
‣ email: i...@kierenmacmillan.info