Create music for a poem

Hello everyone, this my first creation. I wanted to give music to a poem, because I also like the lyrics of the songs. The result came out very similar to Hip hop or rap.
The poem is Die Slowly by Martha Medeiros.
Have you done hip hop or rap genre in sonic pi?

#bpm: 120
c = 0.25 #Eighth note time
e = 3  #Repeats for chorus time
f = 5  #Ending chorus
#Rhythm/Intro
5.times do
  sample :bd_mehackit
  sample :drum_splash_soft
  sample :bass_hit_c
  sample :bd_sone
  sleep c
  3.times do
    sample :bd_fat
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    sample :sn_generic
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    sample :drum_cymbal_pedal
    sample :bass_hit_c
    sample :bd_sone
    sleep c
  end
end
#1st verse
in_thread do
  3.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
3.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end

#Chorus to separate the verses.
e.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
#2nd verse
in_thread do
  2.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
2.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end
#Chorus to separate the verses.
e.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
#3rd verse
in_thread do
  6.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
6.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end
#Chorus to separate the verses.
e.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
#4th verse
in_thread do
  5.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
5.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end
#Chorus to separate the verses.
e.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
#5th verse
in_thread do
  7.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
7.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end
#Chorus to separate the verses.
e.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
#6th verse
in_thread do
  2.times do
    sample :bd_mehackit
    sample :drum_splash_soft
    sample :bass_hit_c
    sample :bd_sone
    sleep c
    3.times do
      sample :bd_fat
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :sn_generic
      sample :bass_hit_c
      sample :bd_sone
      sleep c
      sample :drum_cymbal_pedal
      sample :bass_hit_c
      sample :bd_sone
      sleep c
    end
  end
end
#Melody
2.times do
  use_synth :chipbass
  play_pattern_timed [chord(:B3, :minor7), chord(:G3, :major7), chord(:D3, :major7), chord(:A3, "7"),
                      chord(:G3, :major7), chord(:E3, :minor7), chord(:Gb3, :minor7),
                      chord(:Db3, "m7-5"), chord(:E3, :minor7), chord(:A3, "7") ], c
  sleep c
end
#Final chorus.
f.times do
  sample :guit_e_fifths
  sample :guit_harmonics
  sample :guit_e_slide,cutoff:75
  sample :guit_em9
  sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:0
  sleep 1
end
sample :guit_e_fifths,attack:0,sustain:1,decay:5
sample :guit_harmonics,attack:0,sustain:1,decay:5
sample :guit_e_slide,cutoff:75,attack:0,sustain:1,decay:5
sample :guit_em9,attack:0,sustain:1,decay:5
sample :loop_garzul,cutoff:85,attack:0,sustain:1,decay:5

Hi Daniel,

Sorry no-ones answered you up to now… things have been a bit quiet I guess of late.

There are plenty of hiphop and rap beats available through SP… I think most people on
the forum have written and posted at least one…

Let me point you at a website called MeHackit, they are lovers of SP and have some basic
beats from all kinds of genre’s you can take and modify for yourself…

I like the Simple Slow Techo personally, if you speed it up to 120 BPM it’s useful for
lots of stuff. The Laidbback Breakbeat also has a lot of potential.

Have fun!.

Eli…

1 Like

Cool. Thanks for sharing. I dug the ending!

1 Like