Cyberpunk Rain in Dismay Spring

# 非人声部分

use_synth :piano

live_loop :helpless, delay: 3 do

 play 60

 sleep [0.5, 0.25].choose

end

notes = shuffle chord(:e, 'm7+5')

live_loop :angry, delay: 10 do

 play_pattern notes

 notes=notes.rotate(1)

end

define :plCrow do |n,nt,sr|

 #use :rpitch to calculate pitch for required note frequency

 #Natural note is 75.2 found by experiment comparing

 #play 75.2  and    sample :ambi_choir     sounds

 sample :misc_crow,rpitch: note(n)-65.2,sustain: nt*sr,release: nt*(1-sr),amp: 1

end

live_loop :cry, delay: 5 do

 n = scale(:c4, :major).tick

 nTime=rrand(10, 40);srRatio=rrand(0.55, 0.75)

 with_fx :echo, mix: rrand(0.2, 0.8) do

   plCrow n, nTime, srRatio

 end

 #sleep 0.5

 #play n,sustain: nTime*srRatio,release: nTime*(1-srRatio),amp: 0.5

 sleep [10, 20].choose

end

live_loop :world do

 use_synth :pnoise

 t=play :c, release: 100, amp: 0.3, note_slide: rrand(1,4), amp_slide: rrand(1,10)

 sleep 100

 control t, amp: rrand(0.3, 0.6), note: chord(:c, :minor).choose

end