Re: Export midi d'un fichier batterie

[filosophem]

Bonsoir,

Le code ci dessous marche impec chez moi:

\version "2.18.2"

#(define ma_notation '(
                        (bassdrum () #f -5)
                        (pedalhihat cross #f -5)
                        (snare () #f 0)
                        (lowfloortom () #f -3)
                        (lowmidtom () #f 1)
                        (himidtom () #f 3)
                        (closedhihat cross #f 5)
                        (halfopenhihat cross "halfopen" 5)
                        (openhihat xcircle #f 5)
                        (ridecymbal cross #f 6)
                        (crashcymbal xcircle #f 6)
                        (splashcymbal diamond #f 6)
                        (chinesecymbal mensural #f 6)
                        (ridebell diamond #f 6)))
%{
;bd
;hhp
;sn
;tomfl
;tomml
;tommh
;hhc
;hho
;hhho
;hhca
;c;ymc
;cyms
;cymch
%}

\header{
  title = "Oliver Swing"
  subtitle = ""
  composer = "Carl Bouchaux"
}

\paper {   % Pleine largeur
  ragged-right = ##f
}

D=^\markup { \fontsize #4 \char ##x00B0 }
G=^\markup { \char ##x2022 }

voixUNE = \drummode {
  \tempo 4 = 110

  s1
  cymc4^> cymr8 cymr cymr4 cymr
  s2. s8 cymc^>
  cymc4^> cymr8 cymr cymr4 cymr8 cymr
  \break
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr s2
  \break
  cymc4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  \break
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr8 s4.
  \break
  \break
  cymc4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  \break
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr8 s2. cymc8^> ~
  \break
  cymc4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymr cymr4 cymr8 cymr
  cymr4 cymr8 cymc^> ~ cymc8 cymc8^> ~ cymc4
  \break
  cymr4 cymr8 cymc^> ~ cymc2
  s1
  s2. s8. cymc16^>
  cymc1^> \fermata
  \break
  \bar "|."

}

voixDEUX = \drummode {

  \times 2/3 {sn8 sn tommh} tommh4 \times 2/3 {sn8 sn tomfl} tomfl4
  bd4 r2.
  \times 2/3 {sn8 sn tomfl} tomfl4 \times 2/3 {sn8\G sn\D tommh\G} tommh\D
bd
  bd4 r2.

  r8 bd r4 r8 sn ~ sn [bd] ~
  bd4 r8 sn ~ sn [bd] ~ bd4
  r8 sn ~ sn [bd] ~ bd4 r
  r2 \times 2/3 {sn8\G tomfl bd} \times 2/3
  {tommh\G tomfl bd}

  bd4 r8 sn sn4 r
  sn8 sn bd4 r tommh8 tommh
  bd4 r tomfl8 tomfl bd4
  r4 r8 bd bd [sn] sn4

  r4 r8 bd sn4_> r
  bd8 [bd] sn sn r bd tomfl4
  bd8 [bd] sn sn r bd tommh4
  bd4 r \times 2/3 {r8 tommh tomfl} \times 2/3
  {sn sn sn^>}

  bd4 r \times 2/3 {r4 sn sn}
  \times 2/3 {sn sn sn} bd4 sn8 bd~
  bd4 r \times 2/3 {r4 sn bd}
  \times 2/3 {tomfl bd tommh} bd4 bd8 sn~

  sn4 sn bd bd8 sn
  r2 \times 2/3 {sn8 bd sn} bd4
  r4 \times 2/3 {bd8 sn bd} sn4 r
  r8 tommh \times 2/3 {tommh sn sn} \times 2/3
  {sn tomfl sn} \times 2/3 {sn sn bd ~}

  bd4 r r8 sn sn [bd]
  bd4 r8 sn sn [bd] bd4
  r8 sn sn [bd] bd4 r8 sn
  sn [bd] bd bd ~ bd bd ~ bd4

  r4. bd8 ~ bd4 r8 bd
  \times 2/3 {sn8 sn sn} \times 2/3 {tommh
                                     tomfl bd} \times 2/3 {sn sn sn} \times
2/3 {tommh tomfl bd}
  sn16 sn bd tomfl tommh bd sn sn bd tomfl
  tommh bd \times 4/6 {sn sn sn tommh tomfl bd}
  bd1

}


\score { 
  \header {
    piece = "Oliver_Swing"
  }
  \new DrumStaff
  <<
    \new DrumVoice { \voiceOne \voixUNE }
    \new DrumVoice { \voiceTwo \voixDEUX }
  >>

  \layout {
    \numericTimeSignature
    \set DrumStaff.drumStyleTable = #(alist->hash-table ma_notation)
  }
} % score

\book {
  \bookOutputName "Oliver_Swing"
  \score {
    \new DrumStaff
    <<
      \time 4/4
      \tempo 4 = 110
      \new DrumVoice { \voiceOne \voixUNE }
      \new DrumVoice { \voiceTwo \voixDEUX }
    >>
    \midi { }
  }
}



-----

"/home sweet /home"

Filosophem
--
View this message in context: 
http://lilypond-french-users.1298960.n2.nabble.com/Export-midi-d-un-fichier-batterie-tp7584871p7584888.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.