·

# LurkingHaiku

For the16th day of NaPoWriMo/ NaPoGenMo 2024, “Lurking Haiku” is Coded with #Locomotion & #SonicPi. To give motion and feeling to the Haiku written

## Poem

``````Linking Quietly
As they Continue
``````

## Code

### Locomotion Code

``````point {color = 0x5555A7, x = 0, y = range -3 3 (osc 2), z = 4};
directional { colour=0xf00f80, intensity = range 0 2 (osc 0.5), z = range 0 17 (osc 1), y = 10, x = range -6 6 (osc 1.4) };

b n = dancer {url = "https://raw.githubusercontent.com/IllestPreacha/CreativeDataStuff/8f284bda83b0a6f57920cef8d00187aec69494cb/3Dmodel/Haiku_3D.glb",
size =  ((n +8)/5) + 6, y = range 4 -4 (osc 0.15),
x = 0 + (n/5 + 1),  z = range -5 5 (phase 1 (n/50) * 2 + (-2)), rx = n * 23.7};
for [0..5] b;
``````

### SonicPi Code

``````def Sine_ing(looping,samp1,samp2,samp3)
rangeFul = (0..17).to_a.shuffle() #shuffling a range of numbers from 0 to 17 into an array
#setting counters
i = 0
j = rangeFul.length()

#setting the live loop
live_loop looping do

with_fx :echo, mix: Math.sin(j).abs do
with_fx :distortion,mix: Math.sin(i).abs do
#If the sin makes the number a negative
if Math.sin(rangeFul[i]) > 0
sample [samp1,samp3].choose,rate: Math.sin(rangeFul[i])
end
end
end

with_fx :ping_pong, mix: Math.sin(i).abs do
#If the sin makes the number a positive
if Math.sin(rangeFul[i]) >  0
sample [samp2,samp3].choose
end
end

with_fx :ixi_techno, mix: Math.sin(j).abs do
with_fx :vowel, mix: Math.cos(j).abs do
#If the sin makes the number 0
if Math.sin(rangeFul[i]) == 0
sample [samp1,samp2].choose
end
end
end

i += 1

if i >= rangeFul.length()
i = 0
end

j -= 1

if j <= 0
j = 0
end

sleep [Math.sin(i).abs + 0.25,Math.sin(j).abs + 0.25].choose #to avoid the issue with zero

end
end

sample

Sine_ing(:SineFul,:tabla_ghe5,:drum_bass_soft,:elec_blip)
Sine_ing(:SineFul2,:ambi_dark_woosh,:perc_snap2,:glitch_perc5)
Sine_ing(:SineFul3,:ambi_piano,:ambi_haunted_hum,:vinyl_backspin)
``````