リディアンクロマチックコンセプトによるジャズウォーキングベース Jazz walking bass by Lydian Chromatic Concept

sonic-pi.net/

[@minervascientia282]

use_random_seed Time.new.usec
set_volume! 1.2
use_synth :piano
i = rrand_i(0, 100)
oct = 0
loop do
use_octave oct/12.0 - 0.75
m = rrand_i(1, 4)
m.times do
lydian1 = ring(:F,:G,:A,:B,:C5,:D5,:E5,:F5,
:E5,:D5,:C5,:B,:A,:G,:F,:E) #Lydian
lydian2 = ring(:F,:G,:A,:B,:C5+1,:D5,:E5,:F5,
:E5,:D5,:C5+1,:B,:A,:G,:F,:E) #LydianAugument
lydian3 = ring(:F,:G,:A-1,:B,:C5,:D5,:E5,:F5,
:E5,:D5,:C5,:B,:A-1,:G,:F,:E) #LydianDiminish
lydian4 = ring(:F,:G,:A,:B,:C5,:D5,:E5-1,:F5,
:E5-1,:D5,:C5,:B,:A,:G,:F,:E-1) #LydianFlatSeventh
scale_new = [lydian1, lydian2, lydian3, lydian4].choose
chord_new = [scale_new[0], scale_new[2], scale_new[4], scale_new[6]]
use_bpm 60+2*rand
in_thread do
8.times do
play scale_new[i], amp: rand
sleep [0.26, 0.24].tick
i = i + [-1,1,1].choose
end
end
play chord_new[0]-24, amp: rand
sleep 0.5
walking = [chord_new[1], chord_new[2], chord_new[3]].shuffle
play walking[0]-24, amp: rand
play chord_new
sleep 0.5
play walking[1]-24, amp: rand
sleep 0.5
play walking[2]-24, amp: rand
play chord_new
sleep 0.5
end
oct = oct+5
oct = oct%12
end

[@user_fyu64477]

頭がめっちゃいいのはわかった

[@korn1nu161]

アルゴリズムってすげー(小並感)