I wanted to get the output:
  { c'8 c'' d' d'' e' e'' } %etc.
  by typing: 
  { \changePitch \test { c' d' e' } }

Ok, i understand now.
Well, i think the \brokenOctaves has to be a little more complex.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\version "2.12"
\include "changePitch.ly"


brokenOctaves = #(define-music-function (parser location music) (ly:music?)
(let loop ((x music))
  (let ((e (ly:music-property x 'element))
        (es (ly:music-property x 'elements)))
    (cond
      ((eq? 'EventChord (ly:music-property x 'name))
        (if (and (pair? es)
                   (eq? 'NoteEvent (ly:music-property (car es) 'name)))
           (set! x (make-sequential-music (list
                      x
                      #{\transpose c c' $x #})))))
      (else
         (if (ly:music? e) (ly:music-set-property! x 'element (loop e)))
         (if (pair? es)(ly:music-set-property! x 'elements (map loop es))))))
  x))


test = { c8. c16}
\new Staff {  \changePitch \test  \brokenOctaves  { c' d' e' } }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Gilles

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to