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
Wherever the Dreams may Lead
As they Continue

Video

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)