Difference between revisions of "FractalMelody.ck"

From CSWiki
Jump to: navigation, search
 
Line 1: Line 1:
// Fractal-Glitchy-Techno by Kristjan Varnik  
+
// Fractal-Glitchy-Techno by Kristjan Varnik  
// Placed in the Public Domain. 2005
+
// Placed in the Public Domain. 2005
 
+
120.0 * 0.2 => float tempo;
+
120.0 * 0.2 => float tempo;
.5::second => dur T;
+
.5::second => dur T;
T - (now % T) => now;
+
T - (now % T) => now;
0.0 => float pitch;
+
0.0 => float pitch;
 
+
fun float getStep(float step) {
+
fun float getStep(float step) {
  60.0/tempo => float beat;   
+
  60.0/tempo => float beat;   
  beat / 2.0 => float step1;
+
  beat / 2.0 => float step1;
  return step * step1;
+
  return step * step1;
}
+
}
 
+
// the patch
+
// the patch
sinosc s=> gain g => dac;
+
sinosc s=> gain g => dac;
 
+
fun void playA(float time, float pitch) {
+
fun void playA(float time, float pitch) {
  pitch => s.freq;
+
    pitch => s.freq;
}
+
}
 
+
fun void playRecursive(float levels, float time, float pitch) {     
+
fun void playRecursive(float levels, float time, float pitch) {     
    levels -1.0 => levels;
+
    levels -1.0 => levels;
    if (levels < 0.0) {
+
    if (levels < 0.0) {
      playA(time, pitch);
+
        playA(time, pitch);
    } else {
+
    } else {
      playRecursive(levels, time, pitch * 1.0);
+
        playRecursive(levels, time, pitch * 1.0);
      getStep(time)::T => now;
+
        getStep(time)::T => now;
      playRecursive(levels, time, pitch * 1.0);
+
        playRecursive(levels, time, pitch * 1.0);
      getStep(time * 0.5)::T => now;
+
        getStep(time * 0.5)::T => now;
      playRecursive(levels, time, pitch * 1.0);
+
        playRecursive(levels, time, pitch * 1.0);
      getStep(time)::T => now;
+
        getStep(time)::T => now;
      playRecursive(levels, time, pitch * 1.414);
+
        playRecursive(levels, time, pitch * 1.414);
      getStep(time)::T => now;
+
        getStep(time)::T => now;
    }
+
    }
}
+
}
 
+
// go
+
// go
playRecursive(5.0,0.07, 110.0);
+
playRecursive(5.0,0.07, 110.0);
0.0 => g.gain;
+
0.0 => g.gain;

Revision as of 17:14, 21 February 2006

// Fractal-Glitchy-Techno by Kristjan Varnik 
// Placed in the Public Domain. 2005

120.0 * 0.2 => float tempo;
.5::second => dur T;
T - (now % T) => now;
0.0 => float pitch;

fun float getStep(float step) {
  60.0/tempo => float beat;   
  beat / 2.0 => float step1;
  return step * step1;
}

// the patch
sinosc s=> gain g => dac;

fun void playA(float time, float pitch) {
   pitch => s.freq;
}

fun void playRecursive(float levels, float time, float pitch) {     
    levels -1.0 => levels;
    if (levels < 0.0) {
       playA(time, pitch);
    } else {
       playRecursive(levels, time, pitch * 1.0);
       getStep(time)::T => now;
       playRecursive(levels, time, pitch * 1.0);
       getStep(time * 0.5)::T => now;
       playRecursive(levels, time, pitch * 1.0);
       getStep(time)::T => now;
       playRecursive(levels, time, pitch * 1.414);
       getStep(time)::T => now;
    }
}

// go
playRecursive(5.0,0.07, 110.0);
0.0 => g.gain;