Sonic Pi

# For ESILV Inside

# play

# sleep

# use_bpm

# sample

# sample_duration

# amen

# live_loop

# beat_stretch

# list

# tick

# chord

use_bpm 150

#sample :ambi_lunar_land

set_mixer_control! amp: 0.7, amp_slide: 1

#          88                                                      

#          88                                                      

#          88                                                      

# ,adPPYb, 88 8b,dPPYba, 88       88 88,dPYba,,adPYba,  ,adPPYba,  

# a8"    `Y88 88P'   "Y8 88       88 88P'   "88"    "8a I8[    ""  

# 8b       88 88         88       88 88      88      88  `"Y8ba,  

# "8a,   ,d88 88         "8a,   ,a88 88      88      88 aa    ]8I  

#  `"8bbdP"Y8 88          `"YbbdP'Y8 88      88      88 `"PPPPP"'                                                

live_loop :amen do

  time = 4

  sample :loop_amen, beat_stretch: time;

  sleep time

end

live_loop :drum, sync: :amen do

  #stop

  sample :drum_heavy_kick, amp: 2

  sleep 1

end

live_loop :snare, sync: :amen, delay: 1 do

  #stop

  sample :drum_snare_hard

  sleep 2

end

#88                                          

#88                                          

#88                                          

#88,dPPYba,  ,adPPYYba, ,adPPYba, ,adPPYba,  

#88P'    "8a ""     `Y8 I8[    "" I8[    ""  

#88       d8 ,adPPPPP88  `"Y8ba,   `"Y8ba,  

#88b,   ,a8" 88,    ,88 aa    ]8I aa    ]8I  

#8Y"Ybbd8"'  `"8bbdP"Y8 `"YbbdP"' `"YbbdP"'        

live_loop :bass do

  use_synth :bass_foundation

  note = [:g1, :bb1, :f1, :fs1].ring.tick;

  #note = [:bb1, :bb1, :c1, :c1].ring.tick;

  speed = 0.5

  time = 16 / speed

  time.times do

    play note + 12 * [0, 1].choose ;

    sleep speed;

  end

end

# _______________________________________

# |  | | | |  |  | | | | | |  |  | | | |  |

# |  | | | |  |  | | | | | |  |  | | | |  |

# |  | | | |  |  | | | | | |  |  | | | |  |

# |  |_| |_|  |  |_| |_| |_|  |  |_| |_|  |

# |   |   |   |   |   |   |   |   |   |   |

# |   |   |   |   |   |   |   |   |   |   |

# |___|___|___|___|___|___|___|___|___|___|

live_loop :realchords, sync: :melody do

  with_fx :reverb, mix: 0.3, amp: 0.3 do

  use_synth :dsaw

  #c = [chord(:g4, :minor7), chord(:bb4, :major7), chord(:f4, "7"), chord(:d4, :"7")].tick

  c = [chord(:g4, :minor7), chord(:bb4, :major7), chord(:f4, "7"), chord(:d4, :"7")].tick

  #c = [chord(:bb3, :major7), chord(:bb3, :major7), chord(:c3, :minor7), chord(:c3, :minor7)].tick

  play c, decay: 8;

  sleep 8

  end

end

#      ;

#      ;;

#      ;';.

#      ;  ;;

#      ;   ;;

#      ;    ;;

#      ;    ;;

#      ;   ;'

#      ;  '

# ,;;;,;

# ;;;;;;

# `;;;;'

live_loop :doubling_melody do

  use_synth :prophet

  with_fx :reverb, mix: 0.5, amp: 0.5 do

  c = [chord(:g3, :minor7), chord(:bb3, :major7), chord(:f3, "7"), chord(:d3, "7")].tick

  #c = [chord(:bb3, :major7), chord(:bb3, :major7), chord(:c3, :minor7), chord(:c3, :minor7)].tick

  speed = 0.25

  time = 16 / speed

  time.times do

      play c.choose + [24, 12].choose

      sleep speed

  end

  end

end

live_loop :melody do

  use_synth :sine

  with_fx :reverb, mix: 0.5, amp: 0.8 do

  c = [chord(:g3, :minor7), chord(:bb3, :major7), chord(:f3, "7"), chord(:d3, "7")].tick

  #c = [chord(:bb3, :major7), chord(:bb3, :major7), chord(:c3, :minor7), chord(:c3, :minor7)].tick

  speed = 0.25

  time = 16 / speed

  time.times do

      play c.choose

      sleep speed

  end

  end

end

live_loop :melody2, sync: :melody do

#stop

with_fx :reverb, amp: 0.15, mix: 0.5 do

    note = [:g5, :a5, :bb5, :c5].ring.tick

    play note

    sleep 0.25

  end

end