dqgorelick

// source code for Elegy for a Terrestrial Collapse, https://youtu.be/LfUB34frkPg

// visuals code (https://hydra.ojack.xyz/)

s0.initScreen() // screengrabs the video source

src(s0)
  .modulate(noise(4,0.1),0.01)
  .add(noise(2,0.1),0.3)
  .color(1,0.8,0.8)

dqgorelick

SuperDirt.start // start server

Server.killAll // kill server

Quarks.gui // open samples folder

// set inputs & outputs // you will need to kill the server and restart when changing the input / output

// list all devices:

dqgorelick

let position f d a b = (# begin (range a b $ slow d f))
let grain x = (# legato x)

d1
  $ grain 0.5
  $ position isaw 4 0.05 0.3
  $ density 16
  $ sound "numbers:1"

dqgorelick

osc(10, [0.2, 0.3, -0.3, -0.2].fast(0.002), [0.4,1].ease('sine').fast(0.05))
  .rotate([Math.PI/2, Math.PI].fast(0.1))
.saturate(2)
.kaleid([1,2,1,2,20].fast(0.001))
.mask(shape(100, [0.5, 0.3, 1.5].fast(0.001), 0.3))
.pixelate([1,10000].ease('sine').fast(0.1))
  .out()

dqgorelick

// Mouse controlled SuperCollider synths for TidalCycles
(
	SynthDef(\mousePan, {|out, pan, accelerate, freq, attack=0.01, decay=0.0, sustain=1, release=1.5, res=0.25 |
	    var sig, env;
	    env = EnvGen.kr(Env([0,1,1,0],[attack,decay,release],\sine), timeScale:sustain, doneAction: 2);
	    sig = Saw.ar(freq);
	   sig = RLPF.ar(sig, MouseY.kr(80, 24000, 1), res);
	    Out.ar(out, DirtPan.ar(sig * 0.7, ~dirt.numChannels, MouseX.kr(-2,2), env))
	}).add;
)

dqgorelick

SuperDirt.start // start server

Server.killAll // kill server

Quarks.gui // open samples folder

Platform.userExtensionDir // view extensions folder Platform.systemExtensionDir // view system extensions folder

~dirt.loadSoundFiles("/Users/dang/Documents/supercollider/samples/*") // load samples

dqgorelick

html {
  background: rgba(0, 0, 0, 1) !important;
}

atom-pane, atom-panel, atom-notification {
  // background: rgba(0, 0, 0, 0) !important;
}

atom-overlay {

dqgorelick

:set -XOverloadedStrings
:set prompt ""
:set prompt-cont ""

import Sound.Tidal.Context

-- total latency = oLatency + cFrameTimespan
tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20})

:{

dqgorelick

SuperDirt.start // start server

(
s.options.numBuffers = 1024 * 256;
s.options.memSize = 8192 * 16;
s.options.maxNodes = 1024 * 32;
s.options.numOutputBusChannels = 2; // total number of channels output
s.options.numInputBusChannels = 2;

s.waitForBoot {