Subject: Simplification

From: moebius <[email-masked]>
Date: Mon, 26 Feb 2018 19:23:16 +0100

Bonjour,
Toujours des questions !!! Bon, c'est un peu le principe ici :)
j'ai pas mal de mesures de piano à écrire ; peut-on faire plus simple 
que mon code, passablement fastidieux à entrer   ?

cordialement,

-----------------------------------------------------------------------------------

\version "2.19.81"

\header {

}
cha = \change Staff = "right"
cba = \change Staff = "left"
\paper {
   #(set-paper-size "a4")
}

\layout {
   \context {
     \Voice
     \consists "Melody_engraver"
     \override Stem #'neutral-direction = #'()
   }
}

global = {
   \key as \major
   \numericTimeSignature
   \time 2/4
   \tempo "moderato"
}

right = \relative c'' {
   \global
   % En avant la musique !
   r16 c, ees aes s aes[ s bes] |
   r 16 c, f aes s aes c aes
}

left = \relative c' {
   \global
   % En avant la musique !
   aes,8 aes' \cha \stemDown <c aes'>16[ s bes' s] |
    \cba d,,8 aes' \cha \stemDown aes'16 s4.
}

\score {
   \new PianoStaff \with {
     instrumentName = "Piano"
   } <<
     \new Staff = "right" \with {
       midiInstrument = "acoustic grand"
     } \right
     \new Staff = "left" \with {
       midiInstrument = "acoustic grand"
     } { \clef bass \left }
   \layout { }
   \midi {
     \tempo 4=70
   }
}