«  …11 12 13 14 15 16 17 »

Analogue Video In/Out on a Recent MacBook Pro

2012-04-22 11:35 other

For a project, I needed to take in and send out realtime analogue (composite) video. Analogue video input has always been a problem, but on recent laptops, Apple even removed the video output via DVI adapter option (i.e. there is no DisplayPort to video/s-video adapter).

So after experimenting and going through some old hardware I had laying around, I found a solution using two devices that I last used around 10 years ago.

analogvideoinout

Broderi

2011-10-03 14:02 electronics

Wireless sensor for embroidery.

The sensor is a tilt-compensated compass i.e. a 3D accelerometer in combo with a 3D magnetometer. Compared to my other wireless boxes, this one runs on 3.0V (two AAA batteries) and not 3.6V. This due to the LSM303DLH sensor's lack of onboard voltage regulators and 1.8V I2C data lines.

The ATmega168 has an Arduino sketch loaded as firmware and is using the internal 8 MHz oscillator. So the circuit is pretty minimal.

As part of the project knyppel with Ann Rosén. Also, see this post.

broderi photo1 broderi photo2

Schematics, Arduino firmware, parts list, MaxMSPJitter patches, SuperCollider class attached.

Attachments:
broderi.zip

Soft Modem

2011-09-29 16:42 electronics, supercollider

This summer I build 8 small circuits that can control a bunch of LEDs (6 channels PWM) from basically any iDevice or Android phone. The circuit connects to the audio jack of the phone and uses the right channel to send data commands (in the form of a modem signal).

We use rjdj (and Pdlib, SuperCollider, etc) to generate the data signal on the phone in realtime. And it's relatively easy to connect for example the built-in accelerometer in the phone to control some LEDs, or to run amplitude/pitch tracking on the microphone and let that flash some LEDs.

The circuits will be used in the rhyme research project as well as in the upcoming e-textile workshop in Oslo (Oct 2011).

softModem photo1 softModem photo2 softModem photo3 softModem photo4

The design is based on SoftModem by arms22. Attached below are my schematics, Pd FSK abstraction and Arduino firmware.

The modem signal is generated using Frequency-shift keying and here's how to do that in SuperCollider...

(
c= "how are you?";
{var t= 1/1225; var m= Duty.ar(Dseq([t*100]++t.dup(11*c.size)), 0, Dseq([1]++c.ascii.collect{|cc| [0]++(cc.asBinaryString.ascii-48).reverse++[1, 1]}.flat), 2); SinOsc.ar(m*(7350-4900)+4900)!2}.play(fadeTime:0);
)

This will send the characters "how are you?" at a baud rate of 1225. This is of course not a valid command for the circuit above, just something to demonstrate how it sounds. Below is an MP3...

Attachments:
softModem.zip

More MaxPat Pictures

2011-08-04 01:02 supercollider

With my SuperCollider class MaxPat that can manipulate and create MaxMSPJitter patches, I generated the following fully functional Max5 patches. These are just simple tests but I plan to do more advanced ones someday.

MaxPat 6 MaxPat 7 MaxPat 8 MaxPat 9 MaxPat 15+1 MaxPat 15+2

See the class help file for SuperCollider code and there is more info in the post /f0blog/maxpat-max-patch-parser-converter-manipulator-generator/.


Knyppel

2011-06-29 23:11 electronics

Wireless lace pillows. In collaboration with Ann Rosén.

See knyppel.se.

knyppel photo1 knyppel photo2

Schematics, firmware, parts list, MaxMSPJitter patches, SuperCollider class attached.

Updates:

Attachments:
knyppel.zip

monijonsyn3

2011-04-25 11:33 electronics

Things to do with an iPod case... Instead of throwing it away, I took some spare parts and built a new synth based on my monijonsyn2. The new synth has a push-button and one can now step through a few different programs. And the 2-way switch set different 'modes'. In this 1.0 version, there is only 3 programs and 2 modes.

The programs basically just map the 3 analogue inputs differently, and the modes switches left/right output channels.

It's very cheap and easy to build. 2 AA-batteries provide power, the inputs are 3 touchpoints, 2 potentiometers, 1 button and a combined on/off/mode switch. All the sound generation (2 PWM pins) and program logic happen inside the 8bit AVR ATmega8 chip and the code is easy to hack (see main.c in the zip below).

Todo: add more fun programs to the firmware

monijonsyn3 photo1 monijonsyn3 photo2 monijonsyn3 photo3 monijonsyn3 photo4
monijonsyn3 schematics

Simple one-bit synthesizer based on the ATmega8 chip. On the top are 3 touchpoints that influence the sound.

Updates:

Attachments:
monijonsyn3.zip

droneSines

2011-03-18 00:16 supercollider

A very simple SuperCollider drone instrument I wrote for a friend. The GUI is automatically generated from the node proxy using the .edit method. Most of the code is defining specs (min, max curve, stepsize and default values) for all the parameters. The synthesis part is very simple - just an oscillator going through a reverb and the oscillator is frequency, phase and amplitude modulated by other oscillators.

droneSines screenshot
(
//redFrik 2011
s.waitForBoot{
  Spec.add(\freq1, #[20, 10000, \exp, 0, 100]);
  Spec.add(\freq2, #[20, 10000, \exp, 0, 200]);
  Spec.add(\freq3, #[20, 10000, \exp, 0, 300]);
  Spec.add(\fmod1, #[0.001, 100, \exp, 0, 0.11]);
  Spec.add(\fmod2, #[0.001, 100, \exp, 0, 0.22]);
  Spec.add(\fmod3, #[0.001, 100, \exp, 0, 0.33]);
  Spec.add(\fmoda1, #[0, 100, \lin, 0, 1]);
  Spec.add(\fmoda2, #[0, 100, \lin, 0, 1]);
  Spec.add(\fmoda3, #[0, 100, \lin, 0, 1]);
  Spec.add(\pmod1, #[0.001, 100, \exp, 0, 0.1]);
  Spec.add(\pmod2, #[0.001, 100, \exp, 0, 0.2]);
  Spec.add(\pmod3, #[0.001, 100, \exp, 0, 0.3]);
  Spec.add(\amod1, #[0.001, 100, \exp, 0, 0.01]);
  Spec.add(\amod2, #[0.001, 100, \exp, 0, 0.02]);
  Spec.add(\amod3, #[0.001, 100, \exp, 0, 0.03]);
  Spec.add(\amoda1, #[0, 10, \lin, 0, 0.05]);
  Spec.add(\amoda2, #[0, 10, \lin, 0, 0.05]);
  Spec.add(\amoda3, #[0, 10, \lin, 0, 0.05]);
  Spec.add(\smod, #[0.001, 100, \exp, 0, 0.13]);
  Spec.add(\smoda, #[0, 100, \lin, 0, 5]);
  Spec.add(\smodm, #[0, 100, \lin, 0, 6]);
  Spec.add(\smodaa, #[0, 100, \lin, 0, 8]);
  Spec.add(\smodmm, #[0, 100, \lin, 0, 50]);
  Spec.add(\cmod, #[0.001, 100, \exp, 0, 1.2]);
  Spec.add(\cmoda, #[0, 10, \lin, 0, 0.6]);
  Spec.add(\room, #[0, 300, \lin, 1, 20]);
  Spec.add(\reverb, #[0, 30, \lin, 0, 5]);
  Spec.add(\damp, #[0, 1, \lin, 0, 1]);
  Spec.add(\input, #[0, 1, \lin, 0, 0.5]);
  Spec.add(\spread, #[0, 100, \lin, 0, 25]);
  Spec.add(\dry, #[0, 1, \lin, 0, 0]);
  Spec.add(\early, #[0, 1, \lin, 0, 1]);
  Spec.add(\tail, #[0, 1, \lin, 0, 1]);
  Ndef(\droneSines).play;
  Ndef(\droneSines, {|freq1= 100, freq2= 200, freq3= 300, fmod1= 0.11, fmod2= 0.22, fmod3= 0.33, fmoda1= 1, fmoda2= 1, fmoda3= 1, pmod1= 0.1, pmod2= 0.2, pmod3= 0.3, amod1= 0.01, amod2= 0.02, amod3= 0.03, amoda1= 0.05, amoda2= 0.05, amoda3= 0.05, smod= 0.13, smoda= 5, smodm= 6, smodaa= 8, smodmm= 50, cmod= 1.2, cmoda= 0.6, room= 20, reverb= 5, damp= 1, input= 0.5, spread= 25, dry= 0, early= 1, tail= 1, amp= 0.7|
    Limiter.ar(LeakDC.ar(GVerb.ar(Splay.ar(SinOsc.ar([freq1, freq2, freq3]+SinOsc.ar([fmod1, fmod2, fmod3], 0, [fmoda1, fmoda2, fmoda3]), SinOsc.ar([pmod1, pmod2, pmod3], 0, 2pi), SinOsc.ar([amod1, amod2, amod3], 0, [amoda1, amoda2, amoda3])), SinOsc.ar(SinOsc.ar(SinOsc.ar(smod, 0, smoda, smodm), 0, smodaa, smodmm), 0, 1, 1), amp, SinOsc.ar(cmod, 0, cmoda)), room, reverb, damp, input, spread, dry, early, tail)));
  });
  Ndef(\droneSines).edit;
  s.meter;
};
)
//Ndef(\droneSines).clear;
Ndef(\droneSines).stop;

//--save a preset
Ndef(\droneSines).nodeMap.writeArchive("~/Desktop/pset1.txt".standardizePath)

//--recall a preset
Ndef(\droneSines).nodeMap= Object.readArchive("~/Desktop/pset1.txt".standardizePath)

//--scramble settings
(
Ndef(\droneSines).set(\amp, 0.05);
Ndef(\droneSines).controlKeys.do{|k|
  if(k!=\amp, {
    Ndef(\droneSines).set(k, k.asSpec.map(1.0.rand));
  });
};
)

Pact - Februari

2011-02-22 18:58 supercollider, visuals

Another 30 days of daily experiments. This time with Cairo 2D and Cinder + SuperCollider for sound. One very simple sketch per day to learn.

pakt29

Ndef(\wrap).play
(
Ndef(\wrap, {var n= 29; Splay.ar({|i|
  var w= i+LFSaw.ar(i+1*SinOsc.ar(0.1, i/n*2pi, 1, 0.1), 0, 2, 2);
  Saw.ar(340+LFSaw.ar(0.1, i/n, 10, 10).round(20)+i)%Saw.ar(60+w, SinOsc.ar(0.01, i/n*2pi, 2, 2.05))*0.25;
}!n)});
)
Ndef(\wrap).stop

pakt28

Ndef(\round).play
(
Ndef(\round, {var n= 28; GVerb.ar(Limiter.ar(LeakDC.ar(Mix({|i|
  var z= SinOsc.ar(i.linexp(0, n-1, 70, 1500), LFSaw.ar(i+1*5, 0, 0.5pi), LFSaw.ar(0.2+SinOsc.ar(i+1*0.001, 0, 0.5), i/n, 0.4).max(0))*SinOsc.ar(200+i, 0, SinOsc.ar(0.03, i+1, 0.5, 1))*SinOsc.ar(400+i, 0, SinOsc.ar(0.04, i+2, 0.5, 1))*SinOsc.ar(800+i, 0, SinOsc.ar(0.05, i+3, 0.5, 1));
  Pan2.ar(z, i.linlin(0, n-1, -0.925, 0.925), 1/n);
}!n))), 3, 5, 0.2, 0.8, 20, 0.1)});
)
Ndef(\round).stop

pakt27

Ndef(\sweep).play
(
Ndef(\sweep, {var n= 9; GVerb.ar(Mix({|i|
  var t= i/n;
  var t2pi= t*2pi;
  var f= 2**i*10+100;
  var z= LeakDC.ar(VarSaw.ar(SinOsc.ar(i+1*0.005, SinOsc.ar(i+1*SinOsc.ar(0.05, t2pi, 0.2, 0.4), 0, 2pi), f*SinOsc.ar(0.002, t2pi, 0.3, 0.5), f), t, SinOsc.ar(i+1*0.006, t2pi, 0.4, 0.5), i.linlin(0, n-1, 0.4, 0.1)));
  Pan2.ar(z, SinOsc.ar(0.015, t2pi, i.linlin(0, n-1, 0.99, 0.2)), 1/n);
}!n), 30, 5, 0.3, 0.8, 10)});
)
Ndef(\sweep).stop

pakt26

Ndef(\grid).play
(
Ndef(\grid, {var n= 8; Mix({|i|
  var t= i/n;
  var z= LeakDC.ar(VarSaw.ar(SinOsc.ar(VarSaw.ar(i+1*VarSaw.ar(0.048, 0, 0.5, 25, 150), t, 1/3, 150), VarSaw.ar(100+i, t, VarSaw.ar(0.024, t, 0.25, 0.475, 0.5))*pi, VarSaw.ar(0.012, t, 0.75, VarSaw.ar(0.064, t, 0.5, 25, 50), 200), VarSaw.ar(0.16, t, 2/3, VarSaw.ar(0.02, t, 0.5, 7.5).abs, 300)), t));
  Pan2.ar(z, VarSaw.ar(0.02, t, 0.5), 1/n);
}!n)});
)
Ndef(\grid).stop

pakt25

Ndef(\wobble).play
(
Ndef(\wobble, {var n= 5; Mix({|i|
  var z= SinOsc.ar(0, SinOsc.ar(60+(i*SinOsc.ar(0.004, 0, 0.8, 1)), i/n*2pi, SinOsc.ar(0, SinOsc.ar(1, 0, 2pi), SinOsc.ar(0.006), 2pi)), 1/n);
  Pan2.ar(z, z);
}!n)});
)
Ndef(\wobble).stop

pakt24

Ndef(\swoop).play
(
Ndef(\swoop, {var n= 24; Mix({|i|
  var t= i/n;
  var f= SinOsc.ar(0.01, t*0.5pi).exprange(i*22+100, i*44+1000);
  var a= SinOsc.ar(0.05*t, t*2pi, 0.15).max(0);
  var z= RLPF.ar(GrayNoise.ar(a), f*(a+1), 1.4-a-t);
  Pan2.ar(z, LFTri.ar(0.05, t*4, 0.95));
}!n)});
)
Ndef(\swoop).stop

pakt23

Ndef(\sway).play
(
Ndef(\sway, {var n= 23; LeakDC.ar(Splay.ar({|i|
  var t= i/n;
  var f= t.linexp(0, 1, LFTri.ar(0.04, t*4, 400, 600), LFTri.ar(0.03, t*4, 400, 600));
  var a= SinOsc.ar(SinOsc.ar(0.02, t*pi, 0.5), 0, 0.5).max(0);
  SinOsc.ar(f+SinOsc.ar(f, 0, f*a), LFTri.ar(SinOsc.ar(t+0.01, t, 20), t*4, 4pi), a)

}!n))});
)
Ndef(\sway).stop

pakt22

Ndef(\blob).play
(
Ndef(\blob, {var n= 33; Mix({|i|
  var t= i/n*2pi;
  Pan2.ar(
    LeakDC.ar(SinOsc.ar(Pulse.ar(0.0625, 2/3).range(0.0625, 0.125), SinOsc.ar(Pulse.ar(i+1, Pulse.ar(i+1*0.125, 0.4, 1/3, 0.5), i+1*n, i+1*n*2), t, SinOsc.ar(SinOsc.ar(0.0625, t), t, 2pi)), SinOsc.ar(i+1*0.125, t, i.linexp(0, n-1, 3/n, 0.001)))),
    SinOsc.ar(0.125, t, i.linlin(0, n-1, 0, 0.95))
  )
}!n)});
)
Ndef(\blob).stop

pakt21

Ndef(\flush).play
(
Ndef(\flush, {var a= {|i| 2.pow(i)}!7; Mix(
  Pan2.ar(
    Resonz.ar(SinOsc.ar(0, GrayNoise.ar(a*30*pi), 0.5), a*300, SinOsc.ar(a*0.13, 0, 0.4, 0.5)),
    SinOsc.ar(a*0.03, 0, 0.95)
  )
)});
)
Ndef(\flush).stop

pakt20

Ndef(\veil).play
(
Ndef(\veil, {var n= 15; GVerb.ar(Mix({|i|
  var t= i/n*2pi;
  var f= SinOsc.ar(SinOsc.ar(i*0.015+0.015, t), t);
  var a= SinOsc.ar(f*SinOsc.ar(i*0.15+0.15, t, 0.15, 0.3), t, 150, 300);
  var b= SinOsc.ar(f*SinOsc.ar(i*0.15+0.15, t, 0.15, 0.5), t, 1500, 3000);
  Pan2.ar(
    BPF.ar(
      Saw.ar(SinOsc.ar(f, t).exprange(a, b), SinOsc.ar(f, t, SinOsc.ar(0.015*t+0.15, t, 0.15).max(0))),
      a+b*0.5,
      0.15
    ),
    i/(n-1)*2-1
  );
}!n), 15, 1.5, 0.15)});
)
Ndef(\veil).stop

pakt19

Ndef(\bubbles).play
(
Ndef(\bubbles, {var n= 6;
  GVerb.ar(Mix({|i|
    var q= i/n*2pi;
    var t= Impulse.ar(SinOsc.ar(SinOsc.ar(0.125, q, 0.5), 0, 1.5, 2), i/n);
    Pan2.ar(
      SinOsc.ar(
        SinOsc.ar(0.01, q, SinOsc.ar(0.05, q, 50), 500),
        Decay2.ar(t, 0.02, 0.2, SinOsc.ar(0.05, q, SinOsc.ar(0.01, 0, 8pi, 8pi))),
        Decay2.ar(t, TRand.ar(0.003, 0.03, t), TRand.ar(0.05, 0.1, t), SinOsc.ar(0.08, q, 0.2, 0.05).max(0))
      ),
      (i/(n-1))*2-1
    );
  }!n), 40, 2, 0.6);
});
)
Ndef(\bubbles).stop

pakt18

Ndef(\grey).play
(
Ndef(\grey, {Mix({|i|
  var t= Impulse.ar(SinOsc.ar(0.1+(i*0.125), i/10*2pi+#[0, 0.1], 4, SinOsc.ar(0.01+(i*0.01), 0, 4, 12)));
  Pan2.ar(
    FreeVerb.ar(
      BPF.ar(
        GrayNoise.ar(
          Decay2.ar(
            t,
            TRand.ar(0.005, 0.015, t),
            TRand.ar(0.1, 0.15, t),
            TRand.ar(0.35, 0.5, t)
          )
        ),
        SinOsc.ar(i+1*0.032, #[0, 0.1]+i).exprange(i+1*300, i+1*600),
        SinOsc.ar(i+1*0.025, #[0, 0.1]+i).range(0.1, 1)
      ),
      0.3
    ),
    SinOsc.ar(0.1, #[0, 0.1]+i, 0.9)
  );
}!10)});
)
Ndef(\grey).stop

pakt17

Ndef(\shades).play
(
Ndef(\shades, {Mix({|i|
  var x= SinOsc.ar(0, SinOsc.ar(0.01*i+0.03, i, 2pi));
  var y= SelectX.ar(x.range(0, 4), [WhiteNoise.ar, GrayNoise.ar, PinkNoise.ar, BrownNoise.ar]);
  var z= Pan2.ar(y, x*0.4);
  BPF.ar(Rotate2.ar(z[0], z[1], i/3*2-1), i+1*500, SinOsc.kr(0, SinOsc.ar(i*0.02+0.01, i, pi)).range(1, 10), 0.3);
}!4)});
)
Ndef(\shades).stop

pakt16

Ndef(\wheel).play
(
Ndef(\wheel, {Splay.ar(BPF.ar(PinkNoise.ar(1!3)*SinOsc.ar(VarSaw.ar(#[0.011, 0.012, 0.013], #[0, 0.1, 0.2], 0.5, VarSaw.ar(#[0.01, 0.02, 0.03], #[0, 0.1, 0.2]).exprange(5, 50), #[300, 303, 309]), CombN.ar(Saw.ar(#[3, 2.5, 1], 0.5pi).sum, 0.05, 0.05), 3), VarSaw.ar(#[0.021, 0.022, 0.023], #[0.2, 0.1, 0.3]).exprange(500, 2000), VarSaw.ar(#[0.031, 0.032, 0.033], #[0, 0.1, 0.2]).exprange(0.06, 0.6)))});
)
Ndef(\wheel).stop

pakt15

Ndef(\spin).play
(
Ndef(\spin, {GVerb.ar(Mix(Pan2.ar(Formlet.ar(LPF.ar(Saw.ar((5..1)*LFPulse.ar(SinOsc.ar(0.1, 0, 0.5, 1), 0.5, 0.5, 10, 50)+SinOsc.ar((6..2)*0.05).exprange(0.05, 50), 0.3), 300)+Impulse.ar((0..4)+SinOsc.ar((4..8)*0.02).exprange(0.3, 300)), (1..5)*SinOsc.ar((5..9)*0.05).exprange(200, 2000)*SinOsc.ar(SinOsc.ar((2..6)*0.1, 0, 0.1), 0, 0.1, 1), 0.001, 0.0015), SinOsc.ar(SinOsc.ar((3..7)*0.1, 0, 0.1)))))});
)
Ndef(\spin).stop

pakt14

Ndef(\interfere).play
(
Ndef(\interfere, {var a= #[3, 1, 5, 2]; Limiter.ar(Splay.ar(Formlet.ar(LFPulse.ar(a*100+SinOsc.ar(a, 0, a/20), 0, SinOsc.ar(a/10, 0, 0.45, 0.5), LFPulse.ar(a+a, 0, SinOsc.ar(a/10, 0, 0.45, 0.5), 0.1)), a*100+LFPulse.ar(a/2, 0, 0.5, a*SinOsc.ar(a/100, 0, 150, 200)), SinOsc.ar(a/30, 0, 0.01, 0.0125), SinOsc.ar(a/60, 0, 0.05, 0.055), 0.2)))});
)
Ndef(\interfere).stop

pakt13

Ndef(\pulse).play
(
Ndef(\pulse, {GVerb.ar(Splay.ar(Resonz.ar(LFPulse.ar(#[121, 232, 343]), LFPulse.ar(#[0.121, 0.232, 0.343]).exprange(LFPulse.ar(#[12.1, 23.2, 34.3]).range(80, 100), LFPulse.ar(#[1.21, 2.32, 3.43].reverse).range(800, 1000)).sum*LFPulse.ar(#[0.121, 0.232, 0.343]).range(0.5, 1), 0.3, 0.15)), 34, 3, 0.2)});
)
Ndef(\pulse).stop

pakt12

Ndef(\waves).play
(
Ndef(\waves, {var n= 3; Mix({|i|
  var z= VarSaw.ar(i+1*0.01, 0, 0.5, 5, VarSaw.ar(i+1*10, 0, 0.5, 0.5, 10));
  var w= VarSaw.ar(i+1*VarSaw.ar(i+1*0.001, 0, 0.5, z, z*z), 0, 0.5, 0.5, 0.5);
  Pan2.ar(
    SinOsc.ar(0, VarSaw.ar(i+1*w*100, 0, w, 2pi), VarSaw.ar(i+1*w*0.1, 0, w, 0.5)),
    i.linlin(0, n-1, -0.9, 0.9),
    2/n
  )
}!n)});
)
Ndef(\waves).stop

pakt11

Ndef(\hail).play
(
Ndef(\hail, {Splay.ar(Ringz.ar(SinOsc.ar(#[0.000101, 0.000202, 0.000303, 0.000404, 0.000505, 0.000606], SinOsc.ar(#[101, 202, 303, 404, 505, 606], 0, SinOsc.ar(#[0.0101, 0.0202, 0.0303, 0.0404, 0.0505, 0.0606], 0, pi)))*VarSaw.ar(#[1.01, 2.02, 3.03, 4.04, 5.05, 6.06], #[0.101, 0.202, 0.303, 0.404, 0.505, 0.606], SinOsc.ar(#[0.00101, 0.00202, 0.00303, 0.00404, 0.00505, 0.00606], 0, 0.5, 0.5)), #[1010, 2020, 3030, 4040, 5050, 6060], SinOsc.ar(#[10.1, 20.2, 30.3, 40.4, 50.5, 60.6], 0, 0.1, 0.2), 0.2))});
)
Ndef(\hail).stop

pakt10

Ndef(\rain).play
(
Ndef(\rain, {
  var n= 30;
  Mix({|i|
    var z= SinOsc.ar(i+1*0.01, 0, 0.001);
    var f= i*100+100+SinOsc.ar(0.0123+z, i/n*2pi).exprange(1, 30);
    var q= SinOsc.ar(0.0234+z, i/n*2pi, 0.3, 0.7);
    var p= SinOsc.ar(0.0345+z, i/n*2pi);
    var a= SinOsc.ar(0.0456+z, i/n*2pi, 0.4, 0.45);
    var x= HPF.ar(BPF.ar(HPF.ar(ClipNoise.ar(2)*Crackle.ar(SinOsc.ar(0.0123+z, i/n*2pi, 0.1, 1.8))), f, q));
    Pan2.ar(x, p, a);
  }.dup(n));
});
)
Ndef(\rain).stop

pakt09

Ndef(\snow).play
(
Ndef(\snow, {
  Mix({|i|
    var m= SinOsc.ar(0.005, i/5*2pi, 2pi);
    var p= WhiteNoise.ar(SinOsc.ar(i*5000+5000)*SinOsc.ar(i*500+500)*SinOsc.ar(i*50+50)*SinOsc.ar(i*5+5));
    Pan2.ar(SinOsc.ar(p, p*m, p), p, 0.5);
  }.dup(5));
});
)
Ndef(\snow).stop

pakt08

Ndef(\redqueen3).play
(
Ndef(\redqueen3, {GVerb.ar(LeakDC.ar(
  Saw.ar(
    Saw.ar([100, 101]+Saw.ar([102, 103], Saw.ar([4, 5], Saw.ar([1, 2], 6, 7).sum).sum).sum).exprange(Saw.ar(1/12, 4, 50), Saw.ar(1/8, 3, Saw.ar(1/16, 4, 65))),
    Saw.ar([21, 20], Saw.ar([40, 41], 0, 0.1), 0.2)
)), 60, 4, 0.5, 0.5, 5, 0.5, 0.5, 0.75)});
)
Ndef(\redqueen3).stop

pakt07

Ndef(\redqueen2).play
(
Ndef(\redqueen2, {GVerb.ar(LeakDC.ar(
  SinOsc.ar(
    SinOsc.ar(
      SinOsc.ar(
        SinOsc.ar(
          SinOsc.ar(
            SinOsc.ar(
              SinOsc.ar(
                1,
                0,
                2,
                SinOsc.ar(1/2).exprange(1, 2)
              ),
              0,
              8,
              SinOsc.ar(1/4).exprange(4, 8)
            ),
            0,
            32,
            SinOsc.ar(1/8).exprange(16, 32)
          ),
          0,
          128,
          SinOsc.ar(1/16).exprange(64, 128)
        ),
        0,
        512,
        SinOsc.ar(1/32).exprange(256, 512)
      ),
      0,
      2048,
      SinOsc.ar(1/64).exprange(1024, 2048)
  ), 0, 0.1)
), 16, 8, 0.75, 0.5)});
)
Ndef(\redqueen2).stop

pakt06

Ndef(\redqueen).play
(
Ndef(\redqueen, {GVerb.ar(LeakDC.ar(SinOsc.ar(SinOsc.ar([1/16, 1/12], 0, 5), SinOsc.ar(0, SinOsc.ar([SinOsc.ar(3, 0, 5, 12), SinOsc.ar(4, 0, 4, 16)], SinOsc.ar([SinOsc.ar(1/64, SinOsc.ar(0.5, 0, pi)).exprange(1, 30), SinOsc.ar(1/48, SinOsc.ar(0.75, 0, pi)).exprange(1, 30)], SinOsc.ar(SinOsc.ar(1/32, 0, 4), 0, 2pi), SinOsc.ar([1/6, 1/8], 0, 0.5pi, 2pi)), SinOsc.ar([1/3, 2/3], 0, 0.5pi, SinOsc.ar(1/8, 0, 0.5pi, 2pi))), SinOsc.ar([4/3, 3/4], 0, 0.5pi, SinOsc.ar([SinOsc.ar(1/256).exprange(80, 800), SinOsc.ar(1/256).exprange(80.8, 808)], 0, 0.5pi, 2pi)))))*0.05, 10, 3, 0.5, 0.5)});
)
Ndef(\redqueen).stop

pakt05

Ndef(\noises).play
(
Ndef(\noises, {
  var freq= SinOsc.ar(SinOsc.ar((4..0)/150+SinOsc.ar((0..4)/18, 0, 0.8)), SinOsc.ar((0..4)/80+SinOsc.ar((0..4)/20, 0, 0.1), 0, 2pi)).exprange(100, 1000);
  var rq= SinOsc.ar(SinOsc.ar((0..4)/6+SinOsc.ar((0..4)/19, 0, 0.7), SinOsc.ar((4..0)/5+SinOsc.ar((4..0)/2, 0, 0.1), 0, 2pi))).exprange(0.4, 4);
  Splay.ar(BPF.ar(BPF.ar(ClipNoise.ar(1!5), freq, rq), freq, rq), 0.85);
});
)
Ndef(\noises).stop

pakt04

Ndef(\lines).play
(
Ndef(\lines, {Splay.ar(LeakDC.ar(SinOsc.ar([0.033, 0.066, 0.055, 0.044], SinOsc.ar([0.12, 0.13, 0.11, 0.14]*SinOsc.ar([0.151, 0.152, 0.153, 0.154], SinOsc.ar([5, 4, 3, 2], 0, 2pi), SinOsc.ar([0.043, 0.053, 0.063, 0.073], 0, [80, 60, 40, 100])), SinOsc.ar(([60, 64, 67, 71]+SinOsc.ar([0.024, 0.025, 0.026, 0.027], SinOsc.ar([0.01, 0.02, 0.03, 0.04], 0, pi), 1).round).midicps, 0, 2pi)), 0.2)))})
)
Ndef(\lines).stop

pakt03

Ndef(\varsaws).play
(
Ndef(\varsaws, {GVerb.ar(CombC.ar(VarSaw.ar(SinOsc.ar([0.1, 0.11], 0, 5, 100+SinOsc.ar([0.05, 0.055], 0, 50, 50).round(50)), 0, SinOsc.ar([0.2, 0.22], 0, 0.5, SinOsc.ar([0.3, 0.33], 0, 0.1, 0.5)), 0.1), 1.01, SinOsc.ar([0.4, 0.44], 0, 0.01, 1), 8), 80, 5, 0.9)})
)
Ndef(\varsaws).stop

pakt02

Ndef(\saws).play
(
Ndef(\saws, {Splay.ar(BPF.ar(LeakDC.ar(Saw.ar(SinOsc.ar((0..5)+1*0.02, SinOsc.ar((0..5)+1*101+300, 0, 2pi+SinOsc.ar(0.01, 0, 0.5*pi)), 400, 700))), SinOsc.ar((0..5)+1*0.004, 0, 100, 400), SinOsc.ar((0..5)+1*0.006, 0, 0.4, 0.8)))})
)
Ndef(\saws).stop

pakt01

Ndef(\moreSines).play
(
Ndef(\moreSines, {LeakDC.ar(Splay.ar(SinOsc.ar((0..20)/70+0.01, SinOsc.ar((0..20)+1*50+50+SinOsc.ar((0..20)+1/30), 0, 2pi), SinOsc.ar((0..20)+1/80, (0..20)/40, 0.2).max(0))))})
)
Ndef(\moreSines).stop

pakt00

Ndef(\sines).play
(
Ndef(\sines, {GVerb.ar(Splay.ar(SinOsc.ar([100, 200, 300]+SinOsc.ar([0.11, 0.22, 0.33]), SinOsc.ar([0.1, 0.2, 0.3], 0, 2pi), 0.1+SinOsc.ar([0.01, 0.02, 0.03], 0, 0.05)), SinOsc.ar(SinOsc.ar(SinOsc.ar(0.13, 0, 5, 6), 0, 8, 50), 0, 1, 1), 0.7, SinOsc.ar(1.2, 0, 0.6)), 20, 5, 1, 0.5, 25, 0, 1, 1)})
)
Ndef(\sines).stop

Updates:


«  …11 12 13 14 15 16 17 »