mbutz

# Sonic Pi Sequencer (beta)
# Not yet music, but a proof of concept and part of a toolbox to
# create pattern based music

# Rather than think about durations and time distances I'd like to think of
# bars and patterns. Something like that:

# | 16       | 1 | e | u | e | 2 | e | u | e | 3 | e | u | e | 4 | e | u | e |
# |----------+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|
# | Bass     | x |   | x | x |   |   | x |   |   | x |   |   |   |   | x |   |

mbutz

# Sonic Pi Sequencer (v2)
# Simplified notation of synth lines, can now play chords

use_debug false
set_volume! 1
use_bpm 120 # beat = quarter note

# TODO

# Make 'play_rhythm_bar' to work with an array of samples like 'play_melody_bar'

mbutz

# AFX Song Sketch
use_debug false
set_volume! 1
use_bpm 128 # beat = quarter note

# TODO

# Shaker
# Rework the tune synth
# Break at 19

mbutz

# AFX 1.7, prepare the tune

use_debug false
set_volume! 1
use_bpm 128

load_samples [:loop_compus, :elec_wood, :drum_bass_hard, :drum_snare_hard, :drum_snare_hard, :drum_cymbal_closed, :elec_snare, :drum_tom_hi_soft]

# Helper Functions

mbutz

# AFX 1.7, play the tune

use_debug false
set_volume! 1
use_bpm 128

puts "01"
mod_shaker
mod_bordun
sleep 16

mbutz

# AFX 1.8, No.1: set up some helper functions and define rhythmic/melodic patterns

use_debug false
set_volume! 1
use_bpm 128

load_samples [:loop_compus, :elec_wood, :drum_bass_hard, :drum_snare_hard, :drum_snare_hard, :drum_cymbal_closed, :elec_snare, :drum_tom_hi_soft]

# Helper Functions

mbutz

# AFX 1.8, define song modules and instruments

define :mod_shaker do

  in_thread do
    2.times do
      play_sample [:loop_compus, 5, 1, 0, 0.17, 0.2], get_cbsa_on_ptn_a
      play_sample [:loop_compus, 5, 1, 0, 0.17, 0.2], get_cbsa_on_ptn_b
    end
  end

mbutz

# AFX 1.8, play the tune

use_debug false
set_volume! 1
use_bpm 128

puts "01"
mod_shaker
mod_bordun
sleep 16

mbutz

# Combine chords, bass and flitter
uncomment do
  use_bpm 100
  my_a = [:a3, :c4, :e4, :g4]
  my_d = [:a3, :c4, :e4, :fs4]

  # set synth_default values

  define :get_sync_short do
    use_synth_defaults amp: 2, attack: 0, sustain: 0, release: 0.2

mbutz

use_bpm 110
use_debug true
set_sched_ahead_time! 2

live_loop :bar do
  cue :tick
  sleep 1
end

# beeps at beginning of bar