MushyRolls

For the16th day of NaPoWriMo/ NaPoGenMo 2024, “MushyRolls” is Coded with #Locomotion & #SonicPi. Poetic entry describes the world of Locomotion

Poem

Floating in Various Locations
In the realm of Locomotion
Open to the screen a their ocean
Open as the temperature may even reach frozen
As they are Floating in the Open

Video

Code

Locomotion

c = hsv (step [0,1/3,2/3] (phase 1 0)) 1 (range 0.5 1 (osc 0.25));


point {color = c, 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) };
directional { colour=0xf00f80, intensity = range 0 2 (osc 0.5), z = range 0 17 (osc 0.8), y = 10, x = -6 };
ambient { intensity = range 0.5 10.5 (osc 0.75) };


b n = dancer {url = "mushy", 
size =  ((n +8)/5)/5 + range 0 3 (osc 0.24),y = range 4 -4 (osc 0.15), ly = range (-10) 0 (in 10), lz = range (-10) 0.5 (in 20), lx = range -10 35 (osc 0.0135),
x = 0 + (n/5 + 1) + range -4 4 (osc 0.25),  z = range -5 5 (phase 1 (n/50) * 2 + (-2)), rx = n * 23.7,dur = 0.5};
for [0..15] b;

SonicPi

# remix of Hip Hop Beat by Mehackit 2016

n = ring(:b3,:c4,:c5)

use_bpm 90

with_fx :ixi_techno do
  live_loop :biitti do
    sample :bd_808 if spread(rrand(1,3),12).tick
    sleep 1
    sample :elec_hi_snare if spread(5,12).tick
    sleep 1
    sample :bd_haus if spread(rrand(1,3),12).tick
    sleep 1
    sample :perc_snap if spread(5,12).tick
    sleep 1
  end
end


live_loop :luuppi do
  sample :loop_breakbeat, beat_stretch: 4
  sleep 4
end

with_fx :flanger do
  live_loop :bassflow do
    use_bpm 90
    if one_in(2)
      sample :drum_bass_hard
      sleep 1
    else
      sample :drum_bass_soft
      sleep 1
    end
  end
end


with_fx :reverb do
  live_loop :kitaramelodia do
    sample :guit_e_fifths, rate: 0.5, amp: 1.5
    sample :guit_e_fifths, rate: 1, amp: 0.8
    sleep 1.5
    sample :guit_e_fifths, rate: 1.5, amp: 0.8
    sleep 1.5
    sample :guit_e_fifths, rate: 1.4, amp: 0.8
    sleep 3
    sample :perc_swash if spread(rrand(1,3),12).tick
    sleep 2
  end
end

with_fx :echo do
  live_loop :ujellus do
    with_fx :echo, phase: 1.5, mix: 0.5 do
      use_synth :chipbass
      use_synth_defaults mod_phase: 0.125, pulse_width: 0.8, mod_wave: 2, attack: 1
      play n.tick, on: spread(11,24).look, release: (1.0/24), pan: -0.5
      sleep 8
    end
  end
end

live_loop :hihat do
  16.times do
    sample :drum_cymbal_pedal if spread(rrand(1,3),12).tick
    sleep 0.125
  end
  4.times do
    sample :drum_cymbal_pedal if spread(rrand(1,5),12).tick
    sleep 0.25
  end
  16.times do
    sample :drum_cymbal_pedal if spread(5,12).tick
    sleep 0.0625
  end
end