ArchivalSurvival

For this week's Creative Code challenge by @sableRaph:" Survival ”, ArchivalSurvival takes footage from the 1906 movie: Bob Electric Theatre and meshes it with code from HydraVideoSynth & LiveCodingYoutube to represent the survival process that occurs with archiving and the glitches that may occur in the output. Overlaid with a SonicPi Composition.

Poetry

Press the start button
As the day and its events
Begin to be summoned
How do you plan to transverse
This segments
That you couldn’t rehearse?
How would this be told?
How would these actions unfold?

Video

Code

LiveCodingYoutube

create(1,6,"v6vsyHxef5w")

speed([1,3,5],2)
speed([0,2,4],-0.5)

play(all)

Hydra

s0.initScreen()


src(s0).repeat(2,2).blend(s0).blend(src(s0).scale(0.75).invert(0.1)).
modulateScale(src(s0).colorama()).out()

SonicPi

#Color +Shadows
#RGB Values + XYZ

#Shadeofred [R,G,B, X, Y, Z]

# Crimson : 157,34,53
# Darkred : 139, 0, 0
# Firebrick : 178,34,34

#shadow length equation is Length = height / tan(angle)


#Creating Arrays
Crimson = [157,34,53,30.5810,16.0422,5.7596]
DarkRed = [139,0,0,10.6475,5.4890,0.4983]
FireBrick = [178,34,34,    19.2209,10.7245,2.5704]



with_fx :ixi_techno do
  live_loop :reds do
    i = 0

    with_fx :whammy, mix: rrand(0.25,0.7) do
      use_synth :pretty_bell
      play (Crimson[i] + DarkRed[i])/5 ,release: 3
      play Crimson[i] ,release: 3
    end


    with_fx :ping_pong, mix: rrand(0.3,0.75) do
      use_synth :chiplead
      play (FireBrick[i] + DarkRed[i])/5 ,release: 3, decay: dice(4)
    end

    sleep [0.5,1,2].choose
    if i < 7
      i+= 1
    end
  end
end

live_loop :redshuffle do

  CrimsonShuffle = Crimson.shuffle()
  DarkRedShuffle = DarkRed.shuffle()
  FireBrickShuffle = FireBrick.shuffle()

  i = 0

  with_fx :ixi_techno , mix: rrand(0.2,0.5) do
    use_synth :pretty_bell
    play (CrimsonShuffle[i] + DarkRedShuffle[i])/4 ,release: 3
    play Math.lgamma(CrimsonShuffle[i]/5 + 2),release: 3
  end

  with_fx :gverb, amp: dice(4), mix: rrand(0.2,0.6) do
    with_fx :ping_pong, mix: rrand(0.3,0.75) do
      use_synth :piano
      play (FireBrickShuffle[i] + DarkRedShuffle[i])/5 ,release: 3, decay: dice(4)
    end
  end


  sleep [0.5,1,2,Math.cbrt(CrimsonShuffle[i])].choose
  if i < 7
    i+= 1
  end
end


#shadow length component
with_fx :ixi_techno do
  live_loop :redsshadow do
    i = 0

    with_fx :pitch_shift, mix: rrand(0.2,0.3) do
      use_synth :piano
      play (Crimson[i]/Math.cbrt(70)).abs + (DarkRed[i]/Math.hypot(70,10)).abs/30  - 15,release: 3, sustain: 8
      sleep [0.25,0.5,1,2,4].choose
    end



    if i < 7
      i+= 1
    end
  end
end