\version "2.12.0" % \include "ma_notation.ly" #(ly:set-option 'delete-intermediate-files #t) #(define ma_notation '( (openhihat xcircle #f 5) (bassdrum () #f -5) (snare () #f 0) (pedalhihat cross #f -5) (closedhihat cross #f 5) (hihat cross #f 5) (lowtom () #f -3) (hightom () #f 3) )) \paper { % between-system-padding = 8\mm % between-system-space = 25\mm % ragged-bottom = ##f % ragged-last-bottom = ##f } \header { title = "Modèle polyphonique pour Breaks en rock" } mains = \drummode { \time 4/4 #(override-auto-beam-setting '(end * * 4 4) 3 4) #(override-auto-beam-setting '(end * * 4 4) 1 4) %Break #1 \acciaccatura {sn16} sn16 r16 \acciaccatura {sn16} sn16 r16 \acciaccatura {sn16} sn8 \times 2/3 {sn16 sn16 sn16} \times 2/3 {sn16 sn16 sn16 sn16 sn16 sn16} \times 2/3 {sn16 sn16 sn16} r8 | % Pour avoir le hhp lié aux toms il faut remplacer le r8 par hhp8 (+ voir plus bas) \stemUp hh8 hho8 hh8 hho8 hh8 hho8 hh8 hho8 | % Pour que tout soit dans \mains j'aurai écrit: % hh8 hho8 8 hho8 hh8 16 sn16 hh8 hho8 | % mais ce n'est pas le rendu que tu attends %Break #2 \stemDown \times 4/6 {tomh16 tomh tomh sn sn sn} \times 4/6 {toml16 toml toml tomh tomh tomh} \times 4/6 {sn16 sn sn toml toml toml} \times 4/6 {tomh16 tomh tomh} r8 | hh8 hh8 hh8 hho8 hh8 hho8 hh8 hh8 | % Pour que tout soit dans \mains j'aurai écrit: % hh8 hh8 8 hho8 hh8 hho8 16 sn16 hh16 sn16 | } % fin de drummode mains pieds = \drummode { \time 4/4 %Break #1 \acciaccatura {s16} s16 \stemDown bd16 s16 bd16 s4 s4 s8 hhp8 | % C'est donc ici, dans \pieds, qu'on trouve les snares... bd8. bd16 sn16 bd8 bd16 r16 bd16[ r16 bd16] sn16 sn8 sn16 %Break #2 % Si tu veux lier le hhp aux toms il faut le déplacer dans \mains et remplacer ici hhp8 par s8 s2 s4 s8 hhp8 | } % fin de drummode pieds \score { << \new DrumStaff \with { drumStyleTable = #(alist->hash-table ma_notation) \override DrumStaff #'TimeSignature #'style = #'() } << \new DrumVoice { \voiceOne \mains } \new DrumVoice { \voiceTwo \pieds } \override Staff.NoteCollision #'merge-differently-headed = ##t \override Staff.NoteCollision #'merge-differently-dotted = ##t >> >> \layout {} \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 90 4) } } } % fin de score