# 240722 1550 Nahre Sol explaining Tigran Hamasyans music and my take of it with Sonic Pi YT
# Saved 240722 1550
# Created in Sonic pi by https://linktr.ee/relaxnow
# My performance https://youtu.be/3UOQ87aHdzU
# Inspired by
# The Pianist Changing the Music Scene Forever
# https://youtu.be/aN3tSw5nClY?feature=shared&t=195 (Image of notes and pattern used)
# piano arp 553 554 5
# ------------------------
/ song mixer /
set :pmv, 5 # 0-5 # Piano pattern mixer
set :kmv, 2 # 0-2 # Kick mixer
set :smv, 1 # 0-1 # snare and noise mixer
# ------------------------
set_volume! 2
use_bpm 30
define :s do |a,b|
spread(a,b)
end
/ piano arp pattern 553 554 5 inspired of Nahre Sol explaining Tigran Hamasyans music /
define :pm do |o, amp| # o = octav
n = :c2
pat1 = [0,7,14,16,23].look
pat2= [12,14,14,16,23].look
#pat2= [12,2,14,16,23].look #variation
pat3 = [0,7,14].look
pat4 = pat1+[2,2,2,1,1].look
pat5 = pat2+[2,2,2,1,1].look
pat6 = [9,16,17,24].look
pat7 = [5,16,17,26,28].look
/ full pattern /
pat = knit(pat1,5,pat2,5,pat3,3, pat4,5,pat5,5,pat6,4, pat7,5).look
/553/
# pat = knit(pat1,5,pat2,5,pat3,3).look
/554/
# pat = knit(pat3,5,pat4,5,pat5,4).look
/5/
#pat = knit(pat7,5).look
/ test individual /
# pat = pat7
/ #### piano pattern mixer #### /
pianomixer = get[:pmv] # auto above
#pianomixer = 2 # manual
case pianomixer
when 0 # mute piano
when 1 # original
play n+pat+o, amp: amp #original alone
when 2 # + 24 above
play n+pat+o, amp: amp, pan: -0.25 #original alone
play n+pat+o+24, amp: amp-0.25, pan: 0.25 #+ 2 octavs above
when 3# some 7/12 in top
play n+pat+o, amp: amp #original alone
play n+pat+o+12+[0,0,0,12].look, amp: amp if s(7,12).rotate(3).look # 1 octav above + 2 octav every 4 times + 7/12 pattern rotated 3
when 4 # chords plucky
r = 3
play n+pat+o, amp: amp if s(3,5*2).rotate(r).look
play n+pat+o+12+[0,0,0,12].look, amp: amp if s(8,7*2).rotate(r).look
when 5
r = 3 #3
play n+pat+o+24, amp: amp, pan: rdist(0.25) #+ 2 octavs above
play n+pat+o, amp: amp if s(3,5*2).rotate(r).look
play n+pat+o+12+[0,0,0,12].look, amp: amp if s(5,7*2).rotate(r).look
end
sleep 0.125
end
/ piano arp /
with_fx :reverb, room: 0.9 do
live_loop :a3 do
tick
use_synth :piano
use_synth_defaults release: [0.035,0.1,0.5].choose
pm(0,1+rdist(0.5)) #octav 0, amp: 2
end
/ snare + noise/
live_loop :a2 do
tick
smixer = get[:smv]
# smixer = 1
case smixer
when 0
sleep 0.125
when 1
sample :sn_generic, finish: 0.05, amp: 1 if s(1,12).rotate(8).look
density [1,1,1,1,2,4].choose do
use_synth :noise
use_synth_defaults release: [0.001,0.01,0.05].choose, amp: [1,1,1.5].choose-0.5
play :c5, on: knit(false, 32, true, 32).look, pan: rdist(0.5) if s(6,7).look
sleep 0.125
end
end
end
end
/ kick /
with_fx :reverb, room: 0.4 do
live_loop :a1 do
tick
#kickmixer = 2 # original (Manual)
kickmixer = get[:kmv]
case kickmixer
when 0
when 1
sample :bd_fat, amp: 2+rdist(0.25), cutoff: [80,100,115,130].choose if s(1,7*2).look
when 2
sample :bd_fat, amp: 2+rdist(0.25), cutoff: [80,100,115,130].choose if s(knit(1,3*3, 2,3, 6,7).look,7).look
end
sleep 0.125
end
end
# Inspired by
# The Pianist Changing the Music Scene Forever
# https://youtu.be/aN3tSw5nClY?feature=shared&t=195 (Image of notes and pattern used)
# piano arp 553 554 5
# cgdeh, cddeh, cgd, daefc, deefc, aefc, fefde
# cgdeh, cddeh, cgd, daefc, deefc, aefc, fefde
# c g d e h, c d d e h , c g d , d a efc, deefc, aefc, fefde
# 0 7 14 16 23, 12 14 14 16 23, 0 7 14
# 0 7 14 16 23, (0 2 2 4 13)+12, 0 7 14
Did I miss a meeting or something? 
There’s some pretty astounding music in there!