Parcourir la source

BKM

tags/kitchen
Pete Shadbolt il y a 3 ans
Parent
révision
90049852c2
3 fichiers modifiés avec 16 ajouts et 9 suppressions
  1. +12
    -5
      dev.scd
  2. +2
    -2
      headless.py
  3. +2
    -2
      radio.py

+ 12
- 5
dev.scd Voir le fichier

@@ -23,14 +23,21 @@ s.waitForBoot {
// Filtered saw oscillator
oscillator = SawDPW.ar(frequency);
filter = DFM1.ar(oscillator, frequency*0.8, 0.8, 1.0, 0.0, 0.0006);
filter = DFM1.ar(oscillator, frequency*0.5, 0.8, 1.0, 0.0, 0.0006);

// Noise
qfactor = Lag.kr((1 - saturation)**4, lagtime);
noise = Crackle.ar(1.99, 1.0);
noise = BPF.ar(noise, frequency, qfactor);

// Mix noise and saw
mixer = Mix.ar([filter * saturation, noise*(1-saturation)]);

// Apply pan
panner = LinPan2.ar(filter, pan);
panner = LinPan2.ar(mixer, pan);

// Apply dynamics
output = panner * Lag.kr(HPF.kr(value, hue / (lagtime)), lagtime*4);
//output = panner * BPF.kr(value, 1 / lagtime, 100);
output = panner * Lag.kr(HPF.kr(value, 4 * hue / (lagtime)), lagtime);

// Compress
output = Compander.ar(output, output, 0.5, 0.3, 0.3, 0.1, lagtime);
@@ -49,7 +56,7 @@ s.waitForBoot {
arg index;
var pan, octave;
pan = 0 - ((index % 4) - 1.5)/1.5;
octave = (2 - (index / 4).floor);
octave = (2 - (index / 4).floor) * 2;
"Module %: Pan %, octave %\n".postf(index, pan.round(1e-1), octave.round(1e-1));
Synth.new(\module,
[\hue, 0.5, \saturation, 0.1, \value, 0.5, \pan, pan, \gain, 0.9, \octave, octave]


+ 2
- 2
headless.py Voir le fichier

@@ -47,8 +47,8 @@ def analyze(frame, osc):


if __name__ == '__main__':
# camera = cv2.VideoCapture("/dev/video2")
camera = cv2.VideoCapture(0)
camera = cv2.VideoCapture("/dev/video2")
#camera = cv2.VideoCapture(0)
osc = udp_client.SimpleUDPClient("0.0.0.0", 5005)
print("Radio is running...")



+ 2
- 2
radio.py Voir le fichier

@@ -70,8 +70,8 @@ def analyze(frame, osc):


if __name__ == '__main__':
# camera = cv2.VideoCapture("/dev/video2")
camera = cv2.VideoCapture(0)
camera = cv2.VideoCapture("/dev/video2")
# camera = cv2.VideoCapture(0)
osc = udp_client.SimpleUDPClient("0.0.0.0", 5005)

while True:


Chargement…
Annuler
Enregistrer