yota moteuchi wrote:
How do I do with lilypond what it's called in french : "marche
unitonale" (that I can not translate in english)
I did that long time ago:
http://www.mail-archive.com/lilypond-user@gnu.org/msg00067.html
Here the file is converted to 2.10 (only tested on 2.11 but guess it
should work):
\version "2.10.0"
#(define ((shift-pitch amount) p)
(let* ((o (ly:pitch-octave p))
(a (ly:pitch-alteration p))
(n (ly:pitch-notename p)))
(set! n (+ amount n))
(while (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
(while (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
(ly:make-pitch o n a)))
#(define ((shift amount) music)
(let* ((es (ly:music-property music 'elements))
(e (ly:music-property music 'element))
(p (ly:music-property music 'pitch))
(body (ly:music-property music 'body))
(alts (ly:music-property music 'alternatives)))
(if (pair? es)
(ly:music-set-property!
music 'elements
(map (shift amount) es)))
(if (ly:music? alts)
(ly:music-set-property!
music 'alternatives
((shift amount) alts)))
(if (ly:music? body)
(ly:music-set-property!
music 'body
((shift amount) body)))
(if (ly:music? e)
(ly:music-set-property!
music 'element
((shift amount) e)))
(if (ly:pitch? p)
(begin
(set! p ((shift-pitch amount) p))
(ly:music-set-property! music 'pitch p)))
music))
sega = \relative c' <<
\context Voice=va {\stemUp e8^4 f e g^5 d^2 e}
\context Voice=vb {\stemDown c4._2 b_1 }
>>
segb = \relative c'' <<
\context Voice=va {\stemUp e4.^4 f^5 }
\context Voice=vb {\stemDown c8_2 b c a d^4 c }
>>
sequence = {
\sega
\applyMusic #(shift 1) \sega
\applyMusic #(shift 2) \sega
\applyMusic #(shift 3) \sega
\applyMusic #(shift 4) \sega
\applyMusic #(shift 5) \sega
\applyMusic #(shift 6) \sega
\segb
\applyMusic #(shift -1) \segb
\applyMusic #(shift -2) \segb
\applyMusic #(shift -3) \segb
\applyMusic #(shift -4) \segb
\applyMusic #(shift -5) \segb
\applyMusic #(shift -6) \segb
<<
\context Voice=va {\stemUp e'2.}
\context Voice=vb {\stemDown c'2.}
>>
}
\score {
\context Staff {
\time 6/8
\sequence
\transpose c g \sequence
\transpose c d \sequence
\transpose c a \sequence
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
