Midi Beispieldatei erzeugen

Zur Navigation springen Zur Suche springen

Dieser Code erzeugt eine Midi-Datei mit einer Liste von wählbaren Instrumenten. Jede Midi-Datei enthält im Namen das Instrument, zusätzlich wird eine dreistellige Nummer vor die Dateinamen gesetzt.

Ich habe den Tonumfang so groß wie möglich gewählt, außerdem verwende ich unterschiedliche Artikulationszeichen.

Alle 128 Midi-Instrumente werden auf den folgenden Seiten vorgestellt:

Midi Instrumente #1-#32 · Midi Instrumente #33-#64 · Midi Instrumente #65-#96 · Midi Instrumente #97-#128

Lilypond-Code

\version "2.20.0"
\language "deutsch"

\paper {
  indent = #0
}

\include "articulate.ly"
mus=\relative c'
{
  d4\ppp\< e f g a h c d e f g a h c d2 ~ d4
  c4\espressivo h\espressivo a\espressivo g\espressivo f\espressivo e\espressivo d\espressivo c\espressivo h\espressivo a\espressivo g\espressivo f\espressivo e\espressivo d2\ffff ~ d1 \break
  < c e g > < d f a > < e g h >
  < f a c > < g h d > < a c e > < h d f >
  < a c e >-_ < g h d >-_ < f a c >-_ < e g h >-_ < d f a >-_
  < c e g > ~ q
  \break \ottava #-1
  c,4( e g c e g c e g c g e c g e c g e c2 ~ c1 ) \break
  \ottava #0
  c'4-. e-. g-. c-. e-. g-. c-. e-. g-. c-. g-. e-. c-. g-. e-. c-. g-. e-. c2 ~ c1
  \break \ottava #1
  a'4-> c-> e-> a-> c-> e-> a-> c-> e->
  a-- e-- c-- a-- e-- c-- a-- e-- c-- a2 ~ a1
  \break \ottava #-1
  d,,4-! e-! f-! g-! a-! h-! c-! d-! e-! f-! g-! a-! h-! c-! d2-!
  c4-^ h-^ a-^ g-^ f-^ e-^ d-^ c-^ h-^ a-^ g-^ f-^ e-^ d2. ~ d1  %% abgesetzt, nicht gebunden
  \ottava #0 \break \time 3/4
  c'4 < c' e g > q g q q
  a, < a' c e > q e q q
  g, < g' h f' > q h, q q
  c4 < c' e g > q g, q q
  < c, e g c e g c >1 ~ q
}

#(define myzahl 0) %% zählt bei jedem Aufruf hoch

make-midi-list-harm-II =
#(define-void-function (name score tempo-list)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (instrument)
      (set! myzahl (+ myzahl 1))
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = 180
           \context {
             \Score
             midiMinimumVolume = #0.1
             midiMaximumVolume = #0.99
           }
           \context {
             \Staff
             midiInstrument = #instrument
           }
         }
       #}
       (format #f "~3,'0d_~a_~a"
         myzahl
         (or name (ly:parser-output-name))
         (string-join (string-split instrument #\SPACE) "_"))))
    tempo-list))

\make-midi-list-harm-II ""
\score { \new Staff { $mus } }
#'(
    "acoustic grand" "bright acoustic" "electric grand" "honky-tonk" "electric piano 1"
    "electric piano 2" "harpsichord" "clav" "celesta" "glockenspiel" "music box"
    "vibraphone" "marimba" "xylophone" "tubular bells" "dulcimer" "drawbar organ"
    "percussive organ" "rock organ" "church organ" "reed organ" "accordion" "harmonica"
    "concertina" "acoustic guitar (nylon)" "acoustic guitar (steel)" "electric guitar (jazz)"
    "electric guitar (clean)" "electric guitar (muted)" "overdriven guitar" "distorted guitar"
    "guitar harmonics" "acoustic bass" "electric bass (finger)" "electric bass (pick)"
    "fretless bass" "slap bass 1" "slap bass 2" "synth bass 1" "synth bass 2" "violin"
    "viola" "cello" "contrabass" "tremolo strings" "pizzicato strings" "orchestral harp"
    "timpani" "string ensemble 1" "string ensemble 2" "synthstrings 1" "synthstrings 2"
    "choir aahs" "voice oohs" "synth voice" "orchestra hit" "trumpet" "trombone" "tuba"
    "muted trumpet" "french horn" "brass section" "synthbrass 1" "synthbrass 2" "soprano sax"
    "alto sax" "tenor sax" "baritone sax" "oboe" "english horn" "bassoon" "clarinet" "piccolo"
    "flute" "recorder" "pan flute" "blown bottle" "shakuhachi" "whistle" "ocarina"
    "lead 1 (square)" "lead 2 (sawtooth)" "lead 3 (calliope)" "lead 4 (chiff)" "lead 5 (charang)"
    "lead 6 (voice)" "lead 7 (fifths)" "lead 8 (bass+lead)" "pad 1 (new age)" "pad 2 (warm)"
    "pad 3 (polysynth)" "pad 4 (choir)" "pad 5 (bowed)" "pad 6 (metallic)" "pad 7 (halo)"
    "pad 8 (sweep)" "fx 1 (rain)" "fx 2 (soundtrack)" "fx 3 (crystal)" "fx 4 (atmosphere)"
    "fx 5 (brightness)" "fx 6 (goblins)" "fx 7 (echoes)" "fx 8 (sci-fi)" "sitar" "banjo"
    "shamisen" "koto" "kalimba" "bagpipe" "fiddle" "shanai" "tinkle bell" "agogo" "steel drums"
    "woodblock" "taiko drum" "melodic tom" "synth drum" "reverse cymbal" "guitar fret noise"
    "breath noise" "seashore" "bird tweet" "telephone ring" "helicopter" "applause" "gunshot"
    )

\version "2.20.0"
\language "deutsch"

\paper {
  indent = #0
}

\include "articulate.ly"
mus=\relative c'
{
  d4\ppp\< e f g a h c d e f g a h c d2 ~ d4
  c4\espressivo h\espressivo a\espressivo g\espressivo f\espressivo e\espressivo d\espressivo c\espressivo h\espressivo a\espressivo g\espressivo f\espressivo e\espressivo d2\ffff ~ d1 \break
  < c e g > < d f a > < e g h >
  < f a c > < g h d > < a c e > < h d f >
  < a c e >-_ < g h d >-_ < f a c >-_ < e g h >-_ < d f a >-_
  < c e g > ~ q
  \break \ottava #-1
  c,4( e g c e g c e g c g e c g e c g e c2 ~ c1 ) \break
  \ottava #0
  c'4-. e-. g-. c-. e-. g-. c-. e-. g-. c-. g-. e-. c-. g-. e-. c-. g-. e-. c2 ~ c1
  \break \ottava #1
  a'4-> c-> e-> a-> c-> e-> a-> c-> e->
  a-- e-- c-- a-- e-- c-- a-- e-- c-- a2 ~ a1
  \break \ottava #-1
  d,,4-! e-! f-! g-! a-! h-! c-! d-! e-! f-! g-! a-! h-! c-! d2-!
  c4-^ h-^ a-^ g-^ f-^ e-^ d-^ c-^ h-^ a-^ g-^ f-^ e-^ d2. ~ d1  %% abgesetzt, nicht gebunden
  \ottava #0 \break \time 3/4
  c'4 < c' e g > q g q q
  a, < a' c e > q e q q
  g, < g' h f' > q h, q q
  c4 < c' e g > q g, q q
  < c, e g c e g c >1 ~ q
}

#(define myzahl 0) %% zählt bei jedem Aufruf hoch

make-midi-list-harm-II =
#(define-void-function (name score tempo-list)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (instrument)
      (set! myzahl (+ myzahl 1))
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = 180
           \context {
             \Score
             midiMinimumVolume = #0.1
             midiMaximumVolume = #0.99
           }
           \context {
             \Staff
             midiInstrument = #instrument
           }
         }
       #}
       (format #f "~3,'0d_~a_~a"
         myzahl
         (or name (ly:parser-output-name))
         (string-join (string-split instrument #\SPACE) "_"))))
    tempo-list))

\make-midi-list-harm-II ""
\score { \new Staff { $mus } }
#'(
    "acoustic grand" "bright acoustic" "electric grand" "honky-tonk" "electric piano 1"
    "electric piano 2" "harpsichord" "clav" "celesta" "glockenspiel" "music box"
    "vibraphone" "marimba" "xylophone" "tubular bells" "dulcimer" "drawbar organ"
    "percussive organ" "rock organ" "church organ" "reed organ" "accordion" "harmonica"
    "concertina" "acoustic guitar (nylon)" "acoustic guitar (steel)" "electric guitar (jazz)"
    "electric guitar (clean)" "electric guitar (muted)" "overdriven guitar" "distorted guitar"
    "guitar harmonics" "acoustic bass" "electric bass (finger)" "electric bass (pick)"
    "fretless bass" "slap bass 1" "slap bass 2" "synth bass 1" "synth bass 2" "violin"
    "viola" "cello" "contrabass" "tremolo strings" "pizzicato strings" "orchestral harp"
    "timpani" "string ensemble 1" "string ensemble 2" "synthstrings 1" "synthstrings 2"
    "choir aahs" "voice oohs" "synth voice" "orchestra hit" "trumpet" "trombone" "tuba"
    "muted trumpet" "french horn" "brass section" "synthbrass 1" "synthbrass 2" "soprano sax"
    "alto sax" "tenor sax" "baritone sax" "oboe" "english horn" "bassoon" "clarinet" "piccolo"
    "flute" "recorder" "pan flute" "blown bottle" "shakuhachi" "whistle" "ocarina"
    "lead 1 (square)" "lead 2 (sawtooth)" "lead 3 (calliope)" "lead 4 (chiff)" "lead 5 (charang)"
    "lead 6 (voice)" "lead 7 (fifths)" "lead 8 (bass+lead)" "pad 1 (new age)" "pad 2 (warm)"
    "pad 3 (polysynth)" "pad 4 (choir)" "pad 5 (bowed)" "pad 6 (metallic)" "pad 7 (halo)"
    "pad 8 (sweep)" "fx 1 (rain)" "fx 2 (soundtrack)" "fx 3 (crystal)" "fx 4 (atmosphere)"
    "fx 5 (brightness)" "fx 6 (goblins)" "fx 7 (echoes)" "fx 8 (sci-fi)" "sitar" "banjo"
    "shamisen" "koto" "kalimba" "bagpipe" "fiddle" "shanai" "tinkle bell" "agogo" "steel drums"
    "woodblock" "taiko drum" "melodic tom" "synth drum" "reverse cymbal" "guitar fret noise"
    "breath noise" "seashore" "bird tweet" "telephone ring" "helicopter" "applause" "gunshot"
    )

Graphische Ausgabe