ArcFul Sounds
For this week's Creative Code Challenge by @sableraph: "Arc", the arc is represented by the story arc of various circles communicating their stories.
Remixing a post WCCC submission for "Circles Creation" : https://blog.illestpreacha.com/wccchallengecirclecreations, where the focus is on the possible ranges of arcs that can be found in the 18 circles.
This week Language is SonicPi
Arc Design
Various random functions are used such as choose,use_random_seed, Time.now.to_i, dice,shuffle and plenty more to give a different voice each round
Poem
Arc
Architecture
Of the features
Features that are identifiable
As these arcs are the parks
The landmarks
Of their area
That there are carriers
For the barriers
Of these arcs
That are modifiable
Audio
IllestPreacha · ArcFulSounds
SonicPi Code
def circles1(radius,loop)
use_random_seed Math.hypot(Time.now.to_f,3)
circumference = 2 * Math::PI * radius
area = Math::PI * (radius ** 2)
arc = rrand(0.01,0.99)
arc_angle = 360 * arc
area_arc = arc_angle * area
live_loop loop do
use_bpm 90
use_random_seed Math.sqrt(Time.now.to_f)
with_fx :ping_pong,mix: 0.75 do
with_fx :gverb, damp: 0.5 do
use_synth :piano
play [circumference/3,circumference/7,arc_angle / 2.5 ].choose, decay: rrand(1,4), amp: 2
sample ['E:/Creatuve Code Challenges/SciArtSeptember_2023/simian/MonkeyScreaming.wav',:ambi_drone,:elec_beep,:loop_tabla,"C:/SonicPi/SocaRiddims/WaterMelonRiddim_Wav.wav"].choose, beat_stretch: area_arc / 170 ,amp: dice(5)
end
end
sleep [2,4,8,12,16].choose
end
end
def circles2(radius,loop)
use_random_seed Math.log2(Time.now.to_f)
circumference = 2 * Math::PI * radius
area = Math::PI * (radius ** 2)
arc = rrand(0.01,0.99)
arc_angle = 360 * arc
area_arc = arc_angle * area
live_loop loop do
use_bpm 135
use_random_seed Math.cbrt(Time.now.to_f)
with_fx [:echo,:whammy,:ixi_techno].choose, mix: rrand(0.4,0.8) do
with_fx :ixi_techno,mix: 0.75 do
with_fx :vowel, voice: dice(3) + 1 do
use_synth [:chipbass,:chipbass,:piano].choose
play [arc,arc/3, circumference/4].choose, sustain: dice(3), amp: 2
sample [:loop_mehackit1,:perc_swoosh,:glitch_robot2,:glitch_robot1].choose
sample ["E:/Creatuve Code Challenges/Cats/Asset/CAT MEOWING SOUNDS | Realistic Cat Sounds and Noises with Videos.wav",'C:/Audio/Rambling/JungleJazz.wav',:tabla_ghe2,:elec_beep,:drum_bass_hard,:perc_door].choose, rate: arc_angle / 40 , attack: dice(5), amp: dice(5)
end
end
end
sleep [1,3,8,16,].choose
end
end
sample :loop_tabla
live_loop :arcing do
use_random_seed Time.now.to_i
dice1 = dice(115)
dice2 = dice(7)
shuffle1 = [73,75,105,45,90,10,30]
rand1 = rrand_i(5,78)
dice3 = dice(28)+2
rand2 = rrand_i(48,112)
circles1(dice1,[:circle1,:circle7].choose)
circles2(dice2,[:circle2,:circle8,:circle9,:circle18].reverse.tick)
circles2(shuffle1.shuffle.tick,[:circle3,:circle10,:circle11,:circle12].choose)
circles1([rand1,rand2].tick,[:circle4,:circle13,:circle14].shuffle.tick)
circles2([dice3,dice2,dice1].choose,:circle5)
circles1(rrand_i(48,112),[:circle6,:circle15,:circle16,:circle17].shuffle.choose)
sleep [2,4,8,12,24].choose
end