init commit
Nova deViator
commit
81fb74dc00
|
|
@ -0,0 +1,237 @@
|
|||
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
Interface Fractures III - SILICON
|
||||
(c) nova@deviator.si
|
||||
|
||||
IF3Si.pde
|
||||
|
||||
*/
|
||||
|
||||
// undecorate window (remove window borders etc) - - - - - - - - - - - - - - -
|
||||
public void init() { frame.removeNotify(); frame.setUndecorated(true);
|
||||
frame.addNotify(); super.init(); }
|
||||
|
||||
// load libs
|
||||
import oscP5.*; // Open Sound Control
|
||||
import netP5.*;
|
||||
|
||||
|
||||
// declarations - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
// declare OSC object
|
||||
OscP5 oscP5;
|
||||
|
||||
|
||||
// IMAGE POOL, a 2D array
|
||||
PImage[][] imgPool;
|
||||
|
||||
// texture (tiles)
|
||||
float texX = 0;
|
||||
float texY = 0;
|
||||
|
||||
// generate an array of random numbers
|
||||
int[] rands = new int[500];
|
||||
IntList randz; // arrayList
|
||||
|
||||
// for draw cube
|
||||
int cubesnum = 20;
|
||||
PGraphics[] cubes = new PGraphics[cubesnum];
|
||||
PShader blur;
|
||||
PGraphics bpass1, bpass2;
|
||||
|
||||
// spheres
|
||||
int ptsW, ptsH;
|
||||
|
||||
int numPointsW;
|
||||
int numPointsH_2pi;
|
||||
int numPointsH;
|
||||
|
||||
float[] coorX;
|
||||
float[] coorY;
|
||||
float[] coorZ;
|
||||
float[] multXZ;
|
||||
|
||||
PGraphics sphere;
|
||||
|
||||
|
||||
|
||||
void setup() { // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
float sizefactor = 1; // define the size of the screen, 1 = 1080p
|
||||
size( int( 1920 * sizefactor ),
|
||||
int( 1080 * sizefactor ),
|
||||
P3D ); // renderer
|
||||
|
||||
// framerate
|
||||
frameRate(60);
|
||||
smooth(32); // 32??
|
||||
noCursor();
|
||||
background(10);
|
||||
|
||||
println("\n\n~~~ Hello. Starting Interface Fractures III - SILICON." +
|
||||
" - - - - - - - - - - - - - - - - - - - - - -\n");
|
||||
|
||||
// start oscP5, listening for incoming messages at port 12000
|
||||
println("~~~ starting oscP5 ...");
|
||||
oscP5 = new OscP5(this,12000);
|
||||
oscP5.plug(this,"ctlin","/ctlin"); // to be converted for PD OSC input
|
||||
|
||||
// get all textures into an image pool
|
||||
println("\n\n~~~ loading textures into image pool ...\n");
|
||||
imgPool = getImages("/images/");
|
||||
|
||||
// create an array of random value between -50 and 50
|
||||
for (int i=0; i < 500; i++) { rands[i] = i-250; }
|
||||
shuffle(rands);
|
||||
|
||||
|
||||
// drawCube ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `
|
||||
// an array of PGraphics
|
||||
for (int i = 0; i < cubesnum; i++) {
|
||||
cubes[i] = createGraphics(width, height, P3D);
|
||||
}
|
||||
blur = loadShader("blur.glsl");
|
||||
bpass1 = createGraphics(width, height, P3D);
|
||||
bpass1.smooth();
|
||||
bpass2 = createGraphics(width, height, P3D);
|
||||
bpass2.smooth();
|
||||
|
||||
|
||||
randz = new IntList(width);
|
||||
for (int i=0; i < width; i++) {
|
||||
randz.set(i, i);
|
||||
}
|
||||
randz.shuffle();
|
||||
//println(randz);
|
||||
|
||||
// spheres
|
||||
ptsW=30;
|
||||
ptsH=30;
|
||||
initializeSphere(ptsW, ptsH); // number of vertices around the width and height
|
||||
sphere = createGraphics(width, height, P3D);
|
||||
|
||||
}
|
||||
|
||||
void draw() { // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
// clean screen ````````````````````````````````````````````````````|
|
||||
/*
|
||||
blendMode(BLEND);
|
||||
screenClean(color(50));
|
||||
|
||||
// SPHERES -----------------------------------------------------------
|
||||
//offscreen render spheres
|
||||
|
||||
sphere.beginDraw();
|
||||
sphere.blendMode(BLEND);
|
||||
sphere.rect(0, 0, width, height);
|
||||
sphere.blendMode(DARKEST);
|
||||
sphere.noStroke();
|
||||
sphere.pushMatrix();
|
||||
sphere.translate(width/2+(width/8), height/2, 580);
|
||||
sphere.rotateX(radians(float(frameCount) * 0.1));
|
||||
sphere.rotateY(radians(float(frameCount) * 0.23));
|
||||
sphere.rotateZ(radians(float(frameCount) * 0.2));
|
||||
textureSphere(sphere, 400, 400, 400, imgPool[3][1]);
|
||||
sphere.popMatrix();
|
||||
|
||||
sphere.pushMatrix();
|
||||
sphere.translate(width/2+(width/8), height/2, 580);
|
||||
sphere.rotateX(radians(float(frameCount) * 0.2));
|
||||
sphere.rotateY(radians(float(frameCount) * 0.13));
|
||||
sphere.rotateZ(radians(float(frameCount) * 0.01));
|
||||
textureSphere(sphere, 390, 390, 390, imgPool[3][1]);
|
||||
sphere.popMatrix();
|
||||
|
||||
sphere.endDraw();
|
||||
|
||||
|
||||
// tint(0);
|
||||
// image(sphere, 0, 0);
|
||||
|
||||
textureWrap(REPEAT);
|
||||
//textureMode(NORMAL);
|
||||
|
||||
pushMatrix();
|
||||
//tint(255);
|
||||
translate(width/2, height/2); // center coordinate system
|
||||
translate(((frameCount*1) % width) - width/2,0);
|
||||
//stroke(0,50);
|
||||
//strokeWeight(1);
|
||||
noStroke();
|
||||
|
||||
float quadW = 500;
|
||||
float quadH = height;
|
||||
|
||||
float v1x = 0; // sin(radians(frameCount))*250+400;
|
||||
|
||||
pushMatrix() ;
|
||||
//rotate(PI/PI);
|
||||
|
||||
beginShape(QUADS);
|
||||
texture(sphere);
|
||||
vertex(-quadW/2, -quadH/2, 0, 0);
|
||||
vertex( quadW/2, -quadH/2, quadW, 0);
|
||||
vertex( quadW/2, quadH/2, quadW, quadH);
|
||||
vertex(-quadW/2, quadH/2, 0, quadH);
|
||||
endShape();
|
||||
popMatrix();
|
||||
popMatrix();
|
||||
|
||||
*/
|
||||
|
||||
// --------------------------------------------------------------------------
|
||||
// SCENENGINES
|
||||
|
||||
|
||||
|
||||
|
||||
// draw tiles `````````````````````````````````````````````````````|
|
||||
tiles(boolean(1), // render on/off
|
||||
color(0, 0, 0, 80), // background color (HSBA)
|
||||
color(80, 70, 20, 100), // tile color
|
||||
20, // tile hue distance
|
||||
0, // blendMode
|
||||
6, // number of tiles on X axis
|
||||
1, // number of tiles on Y axis
|
||||
2, // texture bank number
|
||||
0, // texture number/id
|
||||
10, // texture speed X
|
||||
1, // texture speed Y
|
||||
64 // overlap. 127 = 300%
|
||||
);
|
||||
|
||||
|
||||
|
||||
// draw cubes `````````````````````````````````````````````````````|
|
||||
drawCube(boolean(0), cubes,
|
||||
100, height/2, -100,
|
||||
400, 300, 300,
|
||||
radians(frameCount), radians(frameCount*0.7), PI/2,
|
||||
0);
|
||||
|
||||
|
||||
|
||||
// test pattern```````````````````````````````````````````````````|
|
||||
testPattern(boolean(0), // on/off
|
||||
2, 0, // img bank & ID
|
||||
255, // image alpha
|
||||
10, // number of horizontal 'lanes'
|
||||
10, // density
|
||||
4, // stroke width
|
||||
255, // stroke alpha
|
||||
2 // speed
|
||||
);
|
||||
|
||||
|
||||
// debug `````````````````````````````````````````````````````````|
|
||||
// draw test picture
|
||||
testPicture(boolean(0));
|
||||
|
||||
// frames per second
|
||||
displayFps(true);
|
||||
// document
|
||||
autoSnap(false);
|
||||
} // --------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,59 @@
|
|||
// Adapted from:
|
||||
// http://callumhay.blogspot.com/2010/09/gaussian-blur-shader-glsl.html
|
||||
|
||||
#ifdef GL_ES
|
||||
precision mediump float;
|
||||
precision mediump int;
|
||||
#endif
|
||||
|
||||
#define PROCESSING_TEXTURE_SHADER
|
||||
|
||||
uniform sampler2D texture;
|
||||
|
||||
// The inverse of the texture dimensions along X and Y
|
||||
uniform vec2 texOffset;
|
||||
|
||||
varying vec4 vertColor;
|
||||
varying vec4 vertTexCoord;
|
||||
|
||||
uniform int blurSize;
|
||||
uniform int horizontalPass; // 0 or 1 to indicate vertical or horizontal pass
|
||||
uniform float sigma; // The sigma value for the gaussian function: higher value means more blur
|
||||
// A good value for 9x9 is around 3 to 5
|
||||
// A good value for 7x7 is around 2.5 to 4
|
||||
// A good value for 5x5 is around 2 to 3.5
|
||||
// ... play around with this based on what you need :)
|
||||
|
||||
const float pi = 3.14159265;
|
||||
|
||||
void main() {
|
||||
float numBlurPixelsPerSide = float(blurSize / 2);
|
||||
|
||||
vec2 blurMultiplyVec = 0 < horizontalPass ? vec2(1.0, 0.0) : vec2(0.0, 1.0);
|
||||
|
||||
// Incremental Gaussian Coefficent Calculation (See GPU Gems 3 pp. 877 - 889)
|
||||
vec3 incrementalGaussian;
|
||||
incrementalGaussian.x = 1.0 / (sqrt(2.0 * pi) * sigma);
|
||||
incrementalGaussian.y = exp(-0.5 / (sigma * sigma));
|
||||
incrementalGaussian.z = incrementalGaussian.y * incrementalGaussian.y;
|
||||
|
||||
vec4 avgValue = vec4(0.0, 0.0, 0.0, 0.0);
|
||||
float coefficientSum = 0.0;
|
||||
|
||||
// Take the central sample first...
|
||||
avgValue += texture2D(texture, vertTexCoord.st) * incrementalGaussian.x;
|
||||
coefficientSum += incrementalGaussian.x;
|
||||
incrementalGaussian.xy *= incrementalGaussian.yz;
|
||||
|
||||
// Go through the remaining 8 vertical samples (4 on each side of the center)
|
||||
for (float i = 1.0; i <= numBlurPixelsPerSide; i++) {
|
||||
avgValue += texture2D(texture, vertTexCoord.st - i * texOffset *
|
||||
blurMultiplyVec) * incrementalGaussian.x;
|
||||
avgValue += texture2D(texture, vertTexCoord.st + i * texOffset *
|
||||
blurMultiplyVec) * incrementalGaussian.x;
|
||||
coefficientSum += 2.0 * incrementalGaussian.x;
|
||||
incrementalGaussian.xy *= incrementalGaussian.yz;
|
||||
}
|
||||
|
||||
gl_FragColor = avgValue / coefficientSum;
|
||||
}
|
||||
|
|
@ -0,0 +1,456 @@
|
|||
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
Interface Fractures III - SILICON
|
||||
(c) nova@deviator.si
|
||||
|
||||
functions.pde
|
||||
|
||||
*/
|
||||
|
||||
// loads all images into an array - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
PImage[][] getImages(String folder) {
|
||||
|
||||
PImage[][] imgPool; // declare 2D array imgPool
|
||||
|
||||
File dir = new File(dataPath(sketchPath + folder)); // first folder
|
||||
String[] dirlist = dir.list(); // an array of folders (strings)
|
||||
dirlist = sort(dirlist); //
|
||||
imgPool = new PImage[dirlist.length][10]; // create 2d array imgPool
|
||||
|
||||
|
||||
for (int i = 0; i < dirlist.length; i++) {
|
||||
String fulldir = dataPath(sketchPath + folder + dirlist[i]) + "/";
|
||||
File dir2 = new File(fulldir);
|
||||
String[] filelist = dir2.list(); // an array of image names
|
||||
filelist = sort(filelist);
|
||||
|
||||
if (filelist.length != 0) {
|
||||
|
||||
for (int j = 0; j < filelist.length; j++) {
|
||||
println("imgPool[" + i + "][" + j + "]: " + fulldir + filelist[j]);
|
||||
imgPool[i][j] = loadImage(fulldir + filelist[j]);
|
||||
}
|
||||
|
||||
} else {
|
||||
println("No files in this folder: " + fulldir);
|
||||
}
|
||||
}
|
||||
|
||||
return imgPool;
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
// function to shuffle an array of integers - - - - - - - - - - - - - - - - - - - - -
|
||||
void shuffle(int[] a)
|
||||
{
|
||||
int temp, pick;
|
||||
|
||||
for(int i=0; i<a.length; i++)
|
||||
{
|
||||
temp = a[i];
|
||||
pick = (int)random(a.length);
|
||||
a[i] = a[pick];
|
||||
a[pick] = temp;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
void switchBlendMode(int blendMode) // - - - - - - - - - - - - - - - - - - - - - - -
|
||||
{
|
||||
switch(blendMode) {
|
||||
case 0:
|
||||
blendMode(ADD); // additive blending with white clip: C = min(A*factor + B, 255)
|
||||
break;
|
||||
case 1:
|
||||
blendMode(SUBTRACT); // subtractive blend w/ black clip: C = max(B - A*factor, 0)
|
||||
break;
|
||||
case 2:
|
||||
blendMode(LIGHTEST); // only the lightest colour succeeds: C = max(A*factor, B)
|
||||
break;
|
||||
case 3:
|
||||
blendMode(DARKEST); // only the darkest colour succeeds: C = min(A*factor, B)
|
||||
break;
|
||||
case 4:
|
||||
blendMode(SCREEN); // opposite multiply, uses inverse values of the colors.
|
||||
break;
|
||||
case 5:
|
||||
blendMode(MULTIPLY); // multiply the colors, result will always be darker.
|
||||
break;
|
||||
case 6:
|
||||
blendMode(EXCLUSION); // similar to DIFFERENCE, but less extreme.
|
||||
break;
|
||||
case 7:
|
||||
blendMode(REPLACE); // pixels entirely replace others + don't utilize alpha values
|
||||
break;
|
||||
default:
|
||||
blendMode(BLEND); // linear interp. of colours: C = A*factor + B. Default.
|
||||
break;
|
||||
} // DIFFERENCE: subtract colors from underlying image. NOT SUPPORTED BY P3D!! */
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// TILES - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
/* TODO:
|
||||
- different zooms (random?)
|
||||
- better rotation
|
||||
- multiple instances of the same thing - with
|
||||
different texture & some parameters + parameterize
|
||||
|
||||
- zoom variations
|
||||
- ?amount of speed variations accross tiles
|
||||
*/
|
||||
|
||||
void tiles( boolean render, // should we render or not?
|
||||
color bgfill, // backgorund color
|
||||
color tilecolor, // tile color
|
||||
int huedist, // tile color distance for interpolation
|
||||
int blendMode, // blending mode of tiles
|
||||
int numx, // number of tiles on X
|
||||
int numy, // number of tiles on Y
|
||||
int texBank,
|
||||
int texNum,
|
||||
float texSpeedX,
|
||||
float texSpeedY,
|
||||
float overlap )
|
||||
{
|
||||
if (render) {
|
||||
|
||||
colorMode(HSB, 360, 100, 100, 100);
|
||||
blendMode(BLEND);
|
||||
fill(bgfill);
|
||||
noStroke();
|
||||
rect(0, 0, width, height);
|
||||
switchBlendMode(blendMode); // blendMode function using integers
|
||||
|
||||
texSpeedX *= 0.01;
|
||||
texSpeedY *= 0.01;
|
||||
texX += sq(texSpeedX);
|
||||
texY += sq(texSpeedY);
|
||||
|
||||
float numxfact = 1 / float(numx);
|
||||
float numyfact = 1 / float(numy);
|
||||
float aspectRatio = (height / float(numy)) / (width / float(numx));
|
||||
|
||||
float offsetPerc = overlap * (300/127);
|
||||
|
||||
float uniZoom = numxfact * (float(width)/1024);
|
||||
|
||||
float offsetX = width * numxfact * offsetPerc * 0.01;
|
||||
float offsetY = height * numyfact * offsetPerc * 0.01;
|
||||
float texoffsetX = 1 + 0.01 * offsetPerc ;
|
||||
float texoffsetY = texoffsetX;
|
||||
|
||||
float huefactor = float(huedist) / (numx * numy);
|
||||
|
||||
for (int nx=0; nx < numx; nx++) {
|
||||
|
||||
for (int ny=0; ny < numy; ny++) {
|
||||
|
||||
int tileID = nx * numy + ny;
|
||||
float randX = rands[ (tileID % rands.length) ] * 0.01;
|
||||
float randY = rands[ ((tileID + 50) % rands.length) ] * 0.01;
|
||||
float newhue = hue(tilecolor) + huefactor * tileID;
|
||||
tint(newhue, saturation(tilecolor), brightness(tilecolor), alpha(tilecolor));
|
||||
textureWrap(REPEAT);
|
||||
textureMode(NORMAL);
|
||||
|
||||
beginShape();
|
||||
|
||||
texture(imgPool[texBank][texNum]);
|
||||
vertex(width * numxfact * nx - offsetX, height * numyfact * ny - offsetY, 0 + texX * randX, 0 + texY * randY);
|
||||
vertex(width * numxfact * (nx + 1) + offsetX, height * numyfact * ny - offsetY, 1 * uniZoom * texoffsetX + texX * randX, 0 + texY * randY);
|
||||
vertex(width * numxfact * (nx + 1) + offsetX, height * numyfact * (ny + 1) + offsetY, 1 * uniZoom * texoffsetX + texX * randX, aspectRatio * uniZoom * texoffsetY + texY * randY);
|
||||
vertex(width * numxfact * nx - offsetX, height * numyfact * (ny + 1) + offsetY, 0 + texX * randX, aspectRatio * uniZoom * texoffsetY + texY * randY);
|
||||
|
||||
endShape();
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// TEST PICTURE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
void testPicture(boolean render) {
|
||||
if (render) {
|
||||
|
||||
fill(127);
|
||||
stroke(255);
|
||||
strokeWeight(1);
|
||||
|
||||
rect(1, 1, width-2, height-2);
|
||||
|
||||
ellipse(width/2, height/2, height-4, height-4);
|
||||
|
||||
ellipse(height/4, height/4, height/2-4, height/2-4);
|
||||
ellipse(height/4, 3*height/4, height/2-4, height/2-4);
|
||||
ellipse(width-height/4, height/4, height/2-4, height/2-4);
|
||||
ellipse(width-height/4, 3*height/4, height/2-4, height/2-4);
|
||||
|
||||
line(width/2, 0, width/2, height);
|
||||
line(0, height/2, width, height/2);
|
||||
|
||||
fill(0);
|
||||
textSize(50);
|
||||
textAlign(CENTER,CENTER);
|
||||
|
||||
text("Interface Fractures III", width/2, height/2,4);
|
||||
|
||||
/* more tests:
|
||||
|
||||
- horizontal and vertical block, moving fast!
|
||||
- flicker test, black&white, 60Hz
|
||||
- color and gray stripes of interpolation
|
||||
|
||||
|
||||
*/
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// DRAW CUBE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
void drawCube( boolean render, PGraphics cubes[],
|
||||
int posX, int posY, int posZ,
|
||||
int dimW, int dimH, int dimL,
|
||||
float rotX, float rotY, float rotZ,
|
||||
int blurAmount
|
||||
//float xd, float yd
|
||||
)
|
||||
{
|
||||
if (render) {
|
||||
|
||||
blendMode(BLEND);
|
||||
fill(0);
|
||||
rect(0, 0, width, height);
|
||||
//blendMode(LIGHTEST);
|
||||
for (int i=0; i < cubes.length; i++) {
|
||||
|
||||
posX += 100;
|
||||
|
||||
cubes[i].beginDraw();
|
||||
cubes[i].clear();
|
||||
cubes[i].smooth();
|
||||
cubes[i].lights();
|
||||
|
||||
cubes[i].stroke(255);
|
||||
cubes[i].strokeWeight(10);
|
||||
cubes[i].fill(127);
|
||||
//cubes[i].noFill();
|
||||
cubes[i].translate(posX, posY, posZ);
|
||||
cubes[i].rotateX(rotX);
|
||||
cubes[i].rotateY(rotY);
|
||||
cubes[i].rotateZ(rotZ);
|
||||
cubes[i].box(dimW, dimH, dimL);
|
||||
cubes[i].endDraw();
|
||||
|
||||
if (blurAmount != 0) { // this blur chokes graphic processor
|
||||
|
||||
blur.set("blurSize", blurAmount);
|
||||
blur.set("sigma", 9.0f);
|
||||
|
||||
blur.set("horizontalPass", 0);
|
||||
bpass1.beginDraw();
|
||||
bpass1.clear();
|
||||
//bpass1.noLights();
|
||||
bpass1.shader(blur);
|
||||
bpass1.image(cubes[i], 0, 0);
|
||||
bpass1.endDraw();
|
||||
|
||||
blur.set("horizontalPass", 1);
|
||||
cubes[i].beginDraw();
|
||||
cubes[i].clear();
|
||||
//cubes[i].noLights();
|
||||
cubes[i].shader(blur);
|
||||
cubes[i].image(bpass1, 0, 0);
|
||||
cubes[i].endDraw();
|
||||
}
|
||||
|
||||
image(cubes[i], 0, 0);
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// TEST PATTERN - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
/* TO BE ADDED:
|
||||
- use quads
|
||||
- add textures
|
||||
>- more TO BE EXPANDED / REFINED!!! */
|
||||
|
||||
void testPattern( boolean render,
|
||||
int imgBank, int imgID,
|
||||
int imgAlpha,
|
||||
int ylines,
|
||||
int density,
|
||||
int lwidth,
|
||||
int lalpha,
|
||||
int speed
|
||||
)
|
||||
{
|
||||
if (render) {
|
||||
|
||||
tint(imgAlpha);
|
||||
image(imgPool[imgBank][imgID], 0, 0);
|
||||
|
||||
blendMode(BLEND);
|
||||
|
||||
int yheight = height/ylines;
|
||||
|
||||
for (int y=0; y < ylines; y++) {
|
||||
int yloc = int((y+1)*height/(ylines+1));
|
||||
for (int x=0; x < width; x++) {
|
||||
|
||||
int index = x + (y * (width/ylines));
|
||||
index = index % width;
|
||||
if (randz.get(index) < density * 0.01 * randz.get((index + x + y) % randz.size())) {
|
||||
|
||||
int fx = (x + frameCount); // move!
|
||||
fx = fx * speed * 1 * randz.get((abs(index - x + y) % randz.size())) / randz.size(); // speed!
|
||||
fx %= width; // wrap at the right edge
|
||||
|
||||
color imgC = imgPool[imgBank][imgID].get(fx, yloc);
|
||||
stroke(imgC, lalpha);
|
||||
strokeWeight(1 + map(brightness(imgC), 0, 255, 0, lwidth));
|
||||
|
||||
line(fx, yheight * y + (yheight/30), fx, yheight * (y+1) - (yheight/30));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// SPHERES - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
// A 3D textured sphere with simple rotation control.
|
||||
// thanks to https://processing.org/examples/texturesphere.html
|
||||
// Texture Sphere written by Gillian Ramsay to better display the poles.
|
||||
// Previous version by Mike 'Flux' Chang (and cleaned up by Aaron Koblin).
|
||||
// Original based on code by Toxi.
|
||||
// modified to accomodate offscreen PGraphics
|
||||
|
||||
void initializeSphere(int numPtsW, int numPtsH_2pi) {
|
||||
|
||||
// The number of points around the width and height
|
||||
numPointsW=numPtsW+1;
|
||||
numPointsH_2pi=numPtsH_2pi; // How many actual pts around the sphere (not just from top to bottom)
|
||||
numPointsH=ceil((float)numPointsH_2pi/2)+1; // How many pts from top to bottom (abs(....) b/c of the possibility of an odd numPointsH_2pi)
|
||||
|
||||
coorX=new float[numPointsW]; // All the x-coor in a horizontal circle radius 1
|
||||
coorY=new float[numPointsH]; // All the y-coor in a vertical circle radius 1
|
||||
coorZ=new float[numPointsW]; // All the z-coor in a horizontal circle radius 1
|
||||
multXZ=new float[numPointsH]; // The radius of each horizontal circle (that you will multiply with coorX and coorZ)
|
||||
|
||||
for (int i=0; i<numPointsW ;i++) { // For all the points around the width
|
||||
float thetaW=i*2*PI/(numPointsW-1);
|
||||
coorX[i]=sin(thetaW);
|
||||
coorZ[i]=cos(thetaW);
|
||||
}
|
||||
|
||||
for (int i=0; i<numPointsH; i++) { // For all points from top to bottom
|
||||
if (int(numPointsH_2pi/2) != (float)numPointsH_2pi/2 && i==numPointsH-1) { // If the numPointsH_2pi is odd and it is at the last pt
|
||||
float thetaH=(i-1)*2*PI/(numPointsH_2pi);
|
||||
coorY[i]=cos(PI+thetaH);
|
||||
multXZ[i]=0;
|
||||
}
|
||||
else {
|
||||
//The numPointsH_2pi and 2 below allows there to be a flat bottom if the numPointsH is odd
|
||||
float thetaH=i*2*PI/(numPointsH_2pi);
|
||||
|
||||
//PI+ below makes the top always the point instead of the bottom.
|
||||
coorY[i]=cos(PI+thetaH);
|
||||
multXZ[i]=sin(thetaH);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void textureSphere(PGraphics pg, float rx, float ry, float rz, PImage t) {
|
||||
// These are so we can map certain parts of the image on to the shape
|
||||
float changeU=t.width/(float)(numPointsW-1);
|
||||
float changeV=t.height/(float)(numPointsH-1);
|
||||
float u=0; // Width variable for the texture
|
||||
float v=0; // Height variable for the texture
|
||||
|
||||
pg.beginShape(TRIANGLE_STRIP);
|
||||
pg.texture(t);
|
||||
for (int i=0; i<(numPointsH-1); i++) { // For all the rings but top and bottom
|
||||
// Goes into the array here instead of loop to save time
|
||||
float coory=coorY[i];
|
||||
float cooryPlus=coorY[i+1];
|
||||
|
||||
float multxz=multXZ[i];
|
||||
float multxzPlus=multXZ[i+1];
|
||||
|
||||
for (int j=0; j<numPointsW; j++) { // For all the pts in the ring
|
||||
pg.normal(coorX[j]*multxz, coory, coorZ[j]*multxz);
|
||||
pg.vertex(coorX[j]*multxz*rx, coory*ry, coorZ[j]*multxz*rz, u, v);
|
||||
pg.normal(coorX[j]*multxzPlus, cooryPlus, coorZ[j]*multxzPlus);
|
||||
pg.vertex(coorX[j]*multxzPlus*rx, cooryPlus*ry, coorZ[j]*multxzPlus*rz, u, v+changeV);
|
||||
u+=changeU;
|
||||
}
|
||||
v+=changeV;
|
||||
u=0;
|
||||
}
|
||||
pg.endShape();
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// TOOLS - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
void screenClean(color c) { // -----------------------------------------
|
||||
fill(c);
|
||||
noStroke();
|
||||
rect(0, 0, width, height);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void displayFps(boolean render) { // -----------------------------------
|
||||
if (render){
|
||||
// Display Fps
|
||||
fill(0); noStroke(); rect(width-80, height-30, 80, 30, 4);
|
||||
fill(200); text(int(frameRate)+"fps", width-40, height-10, 5);}
|
||||
}
|
||||
|
||||
void autoSnap(boolean render) { // -------------------------------------
|
||||
// auto-save snapshots
|
||||
if (frameCount == 1000) {
|
||||
saveFrame("../snapshots/"
|
||||
+ year() + nf(month(),2)
|
||||
+ nf(day(),2)
|
||||
+ nf(hour(),2)
|
||||
+ nf(minute(),2)
|
||||
+ nf(second(),2)
|
||||
+ "_.png");
|
||||
}
|
||||
}
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
random@trin.5102:1441790855
|
||||
|
|
@ -0,0 +1,69 @@
|
|||
(/* Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
SuperCollider main patch
|
||||
|
||||
.______________________ _________.__
|
||||
| \_ _____/\_____ \ / _____/|__|
|
||||
| || __) _(__ < \_____ \ | |
|
||||
| || \ / \/ \| |
|
||||
|___|\___ / /______ /_______ /|__|
|
||||
\/ \/ \/
|
||||
*/
|
||||
// Be nice. Say hi!
|
||||
postln("\n\n
|
||||
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
>>> Hello. Starting Interface Fractures III - SILICON <<<
|
||||
.______________________ _________.__
|
||||
| \\_ _____/\\_____ \\ \/ _____\/|__|
|
||||
| || __) _(__ < \\_____ \\ | |
|
||||
| || \\ / \\/ \\| |
|
||||
|___|\\___ / /______ /_______ /|__|
|
||||
\\/ \\/ \\/
|
||||
|
||||
");
|
||||
|
||||
Server.default.waitForBoot {
|
||||
|
||||
// where are we?
|
||||
var dir = PathName(thisProcess.nowExecutingPath).pathOnly;
|
||||
|
||||
// this might go to separate file at some point... ---------------------|
|
||||
// will load samples for granular synthesis
|
||||
// var dir = PathName(thisProcess.nowExecutingPath).pathOnly; //
|
||||
var granSmp = PathName(dir +/+ "../smp/granul/").files;
|
||||
var granBfr = List();
|
||||
|
||||
postln("\n~~~ Loading samples for granular synthesis ..." );
|
||||
granSmp.do({ |item, i|
|
||||
postln(" " + i + "" + item.folderName +/+ item.fileName);
|
||||
granBfr.add(Buffer.readChannel(s, item.fullPath, channels:[0])); // [0] forces mono!
|
||||
});
|
||||
postln("");
|
||||
// ---------------------------------------------------------------------|
|
||||
|
||||
// what are the files?
|
||||
~files = List[
|
||||
"sdefs.scd", // SynthDef definitions
|
||||
"snd_lines.scd", // converting Si spectra lines to sound
|
||||
"gui_core.scd", // basic general GUI setup
|
||||
"gui_chaos.scd", // chaos tab
|
||||
"gui_granul.scd", //
|
||||
"gui_main.scd"
|
||||
];
|
||||
|
||||
// for each file in list, load/execute it
|
||||
~files.do({|item, i| this.executeFile(dir +/+ item) });
|
||||
|
||||
}
|
||||
)
|
||||
|
||||
|
||||
//s.meter;
|
||||
//s.plotTree;
|
||||
EnvirGui
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,835 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
gui_chaos.scd - takes care of all GUI elements under
|
||||
the chaos tab...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
|
||||
~tab_views[~tab_names.at("chaos")].layout = HLayout();
|
||||
~tab_views[~tab_names.at("chaos")].layout.margins = 0;
|
||||
~tab_views[~tab_names.at("chaos")].layout.add(nil);
|
||||
|
||||
|
||||
// create a view for StandardMap synth ---------------------------------------------------------
|
||||
~standardMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
~standardMapView.background = Color.gray(0.5);
|
||||
~standardMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Standard"],
|
||||
["Standard", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~standard2D = Synth(\StandardMap, [\amp, 0]);},
|
||||
1, {~standard2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,270))
|
||||
.minWidth_(70) .minHeight_(270)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~standard2D.set(\minfreq, minfreq.value);
|
||||
~standard2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
StaticText().string_("k"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 2.8);
|
||||
~standard2D.set(\k, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("x0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 4.9789799812499 * 2);
|
||||
~standard2D.set(\x0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("y0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 5.7473416156381 * 2);
|
||||
if(~standard2D.isPlaying, {
|
||||
~standard2D.set(\x0, val); }
|
||||
);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout( // gains and filters section
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~standard2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~standard2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~standard2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~standard2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~standard2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~standard2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
|
||||
|
||||
|
||||
// -------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
// create a view for GbmanMap synth ---------------------------------------------------------
|
||||
~gbmanMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
|
||||
~gbmanMapView.background = Color.gray(0.5);
|
||||
~gbmanMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Gbman"],
|
||||
["Gbman", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~gbman2D = Synth(\GbmanMap, [\amp, 0]);},
|
||||
1, {~gbman2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,270))
|
||||
.minWidth_(70) .minHeight_(270)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~gbman2D.set(\minfreq, minfreq.value);
|
||||
~gbman2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
|
||||
StaticText().string_("x0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 1.2 * 2);
|
||||
~gbman2D.set(\x0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("y0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 2.1 * 2);
|
||||
~gbman2D.set(\y0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout( // gains and filters section
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~gbman2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~gbman2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~gbman2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~gbman2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~gbman2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~gbman2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
// -------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
|
||||
// create a view for HenonMap synth ---------------------------------------------------------
|
||||
~henonMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
|
||||
~henonMapView.background = Color.gray(0.5);
|
||||
~henonMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Henon"],
|
||||
["Henon", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~henon2D = Synth(\HenonMap, [\amp, 0]);},
|
||||
1, {~henon2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,270))
|
||||
.minWidth_(70) .minHeight_(270)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~henon2D.set(\minfreq, minfreq.value);
|
||||
~henon2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
|
||||
StaticText().string_("a"),
|
||||
Knob() .centered_(true) .value_(0.9) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.explin(0.01, 1, 0, 1.42);
|
||||
~henon2D.set(\a, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout( // gains and filters section - - - -
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~henon2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~henon2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~henon2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~henon2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~henon2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~henon2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
// -------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
// create a view for LatoocarfianMap synth ---------------------------------------------------------
|
||||
~latoocarfianMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
~latoocarfianMapView.background = Color.gray(0.5);
|
||||
~latoocarfianMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Latoocarfian"],
|
||||
["Latoocarfian", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~latoocarfian2D = Synth(\LatoocarfianMap, [\amp, 0]);},
|
||||
1, {~latoocarfian2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,180))
|
||||
.minWidth_(70) .minHeight_(180)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~latoocarfian2D.set(\minfreq, minfreq.value);
|
||||
~latoocarfian2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
StaticText().string_("a"),
|
||||
Knob().centered_(true) .value_(0.5).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg a;
|
||||
a = a.value.linlin(0, 1, 0, 2);
|
||||
~latoocarfian2D.set(\a, a);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("b"),
|
||||
Knob().centered_(true) .value_(0.5) .mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg b;
|
||||
b = b.value.linlin(0, 1, 0, 6);
|
||||
~latoocarfian2D.set(\b, b);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("c"),
|
||||
Knob().centered_(true) .value_(0.5) .mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg c;
|
||||
c = c.value;
|
||||
~latoocarfian2D.set(\c, c);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("d"),
|
||||
Knob().centered_(true) .value_(0.5) .mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg d;
|
||||
d = d.value;
|
||||
~latoocarfian2D.set(\d, d);
|
||||
}),
|
||||
|
||||
|
||||
nil
|
||||
|
||||
),
|
||||
|
||||
|
||||
VLayout( // gains and filters section
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~latoocarfian2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~latoocarfian2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~latoocarfian2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~latoocarfian2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~latoocarfian2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~latoocarfian2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
|
||||
|
||||
// create a view for LorenzMap synth ---------------------------------------------------------
|
||||
~lorenzMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
~lorenzMapView.background = Color.gray(0.5);
|
||||
~lorenzMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Lorenz"],
|
||||
["Lorenz", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~lorenz2D = Synth(\LorenzMap, [\amp, 0]);},
|
||||
1, {~lorenz2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,270))
|
||||
.minWidth_(70) .minHeight_(270)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~lorenz2D.set(\minfreq, minfreq.value);
|
||||
~lorenz2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
|
||||
|
||||
|
||||
StaticText().string_("x0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.090879182417163 * 2);
|
||||
~lorenz2D.set(\x0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("y0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 2.97077458055 * 2);
|
||||
~lorenz2D.set(\y0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("z0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 24.282041054363 * 2);
|
||||
~lorenz2D.set(\z0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
nil
|
||||
),
|
||||
|
||||
|
||||
VLayout(
|
||||
|
||||
nil,
|
||||
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("s"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 10 * 2);
|
||||
~lorenz2D.set(\s, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("r"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 28 * 2);
|
||||
~lorenz2D.set(\r, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("b"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 2.666666667 * 2);
|
||||
~lorenz2D.set(\b, val);
|
||||
}),
|
||||
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("h"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.02 * 2);
|
||||
~lorenz2D.set(\h, val);
|
||||
}),
|
||||
|
||||
nil
|
||||
|
||||
),
|
||||
|
||||
|
||||
VLayout( // gains and filters section
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~lorenz2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~lorenz2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~lorenz2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~lorenz2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~lorenz2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~lorenz2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// create a view for FhnMap synth ---------------------------------------------------------
|
||||
~fhnMapView = View.new(~tab_views[~tab_names.at("chaos")]);
|
||||
~fhnMapView.background = Color.gray(0.5);
|
||||
~fhnMapView.layout = VLayout( // vert. layout:
|
||||
|
||||
Button()
|
||||
.states_([
|
||||
["Fhn"],
|
||||
["Fhn", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {~fhn2D = Synth(\FhnMap, [\amp, 0]);},
|
||||
1, {~fhn2D.free;}
|
||||
);
|
||||
})
|
||||
.minHeight_(40).minWidth_(70),
|
||||
|
||||
|
||||
|
||||
HLayout(
|
||||
|
||||
VLayout( // parameters
|
||||
StaticText().string_("frq"),
|
||||
RangeSlider(nil,Rect(0,0,20,270))
|
||||
.minWidth_(70) .minHeight_(270)
|
||||
.lo_(0) .hi_(0.11)
|
||||
.action_({ | slider |
|
||||
var minfreq, maxfreq;
|
||||
minfreq = slider.lo.value.linexp(0, 1, 10, 15000);
|
||||
maxfreq = slider.hi.value.linexp(0, 1, 10, 15000);
|
||||
~fhn2D.set(\minfreq, minfreq.value);
|
||||
~fhn2D.set(\maxfreq, maxfreq.value);
|
||||
}),
|
||||
|
||||
/* urate: 0.1, wrate: 0.1,
|
||||
b0: 0.6, b1: 0.8,
|
||||
i: 0, u0: 0, w0: 0, */
|
||||
StaticText().string_("urate"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.1 * 2);
|
||||
~fhn2D.set(\urate, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("wrate"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.1 * 2);
|
||||
~fhn2D.set(\wrate, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
nil
|
||||
),
|
||||
|
||||
|
||||
VLayout(
|
||||
|
||||
nil,
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("b0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.6 * 2);
|
||||
~fhn2D.set(\b0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("b1"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, 0, 0.8 * 2);
|
||||
~fhn2D.set(\b1, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("i"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, -1, 1);
|
||||
~fhn2D.set(\i, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("u0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, -1, 1);
|
||||
~fhn2D.set(\u0, val);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("w0"),
|
||||
Knob() .centered_(true) .value_(0.5) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ | val |
|
||||
val = val.value.linlin(0, 1, -1, 1);
|
||||
~fhn2D.set(\w0, val);
|
||||
}),
|
||||
nil
|
||||
|
||||
),
|
||||
|
||||
|
||||
VLayout( // gains and filters section
|
||||
|
||||
StaticText().string_("OUT"),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("N"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~fhn2D.set(\ampN, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("L"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~fhn2D.set(\ampL, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("C"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~fhn2D.set(\ampC, amp);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("f"),
|
||||
Knob() .value_(1) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({arg freq;
|
||||
freq = freq.value.linexp(0, 1, 40, 20000);
|
||||
~fhn2D.set(\bpffreq, freq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().align_(\left).string_("q"),
|
||||
Knob() .value_(0) .mode_(\horiz) .step_(0.003) .minHeight_(60).minWidth_(60)
|
||||
.action_({ arg rq;
|
||||
rq = abs(rq.value - 1);
|
||||
rq = rq.value.linexp(0, 1, 0.1, 100);
|
||||
~fhn2D.set(\bpfrq, rq);
|
||||
}),
|
||||
|
||||
StaticText().maxHeight_(1).background_(Color.gray(0.1,0.2)),
|
||||
StaticText().string_("A"),
|
||||
Knob().value_(0).mode_(\horiz).step_(0.003).minHeight_(60).minWidth_(60)
|
||||
.action_({ arg amp;
|
||||
amp = amp.value.linexp(0, 1, 0.01, 1) - 0.01;
|
||||
~fhn2D.set(\amp, amp);
|
||||
}),
|
||||
nil
|
||||
)
|
||||
),
|
||||
nil;
|
||||
);
|
||||
|
||||
|
||||
|
||||
// -------------------------------------------------------------------------------------------------
|
||||
|
||||
~tab_views[~tab_names.at("chaos")].layout.add(nil);
|
||||
|
||||
// -------------------------------------------------------------------------------------------------
|
||||
|
|
@ -0,0 +1,146 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
gui_core.scd - takes care of core GUI things: layouts,
|
||||
tabs, window, sizes...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
|
||||
|
||||
// general color palette
|
||||
QtGUI.palette = QPalette.dark;
|
||||
|
||||
~screenWidth = 1348;
|
||||
~screenHeight = 753;
|
||||
|
||||
~pagerbuttonwidth = 90;
|
||||
~pagerbuttonheight = 55;
|
||||
~pagerbuttonpadding = 3;
|
||||
|
||||
~pagerwidth = ~pagerbuttonpadding + ~pagerbuttonwidth * ~tabs.size - ~pagerbuttonpadding;
|
||||
~pagerheight = ~pagerbuttonheight;
|
||||
|
||||
|
||||
// make a window
|
||||
w = Window.new( name: "Interface Fractures III",
|
||||
bounds: Rect(0, 2, ~screenWidth, ~screenHeight),
|
||||
//bounds: w.availableBounds,
|
||||
resizable: true,
|
||||
border: false,
|
||||
server: s,
|
||||
scroll: true
|
||||
).front;
|
||||
w.fullScreen;
|
||||
postln("~~~ Created window ..." + w.bounds);
|
||||
w.background_(Color.gray(0.2));
|
||||
|
||||
|
||||
~pager = View.new(w, Rect(0,0,100,100))
|
||||
.minHeight_(~pagerheight)
|
||||
.minWidth_(~pagerwidth)
|
||||
.background_(Color.gray(0.4,0.0));
|
||||
|
||||
~content = View.new(w, w.view.bounds)
|
||||
.minWidth_(w.view.bounds.width - 2)
|
||||
.minHeight_(w.view.bounds.height - ~pagerheight - 20)
|
||||
.background_(Color.gray(0.3,0.2));
|
||||
|
||||
w.layout = VLayout( [~pager, align:\top],
|
||||
[~content, align:\center], nil );
|
||||
w.layout.margins = 2;
|
||||
|
||||
~pager.layout = HLayout();//margins=1;
|
||||
~pager.layout.margins = 1;
|
||||
|
||||
// CREATE TABS ---------------------------------------------------------------
|
||||
~tabs = List["chaos", "granul", "players", "processing", "main"];
|
||||
~tab_btns = List();
|
||||
~tab_views = List();
|
||||
~tab_names = Dictionary.new;
|
||||
//~tab_btns_view = View.new();
|
||||
|
||||
// go through all of tabs and make buttons and views
|
||||
~tabs.do(
|
||||
{ |item, i|
|
||||
|
||||
~tab_names.put(item, i);
|
||||
|
||||
// views / containers / pages - - - - -
|
||||
~tab_views.add(
|
||||
View.new(~content,Rect(0, 0, 1344, 700))
|
||||
.background_(Color.gray(0.4,0.4))
|
||||
//.layout(HLayout)
|
||||
.visible_(0);
|
||||
|
||||
);
|
||||
|
||||
// buttons / tabs - - - - -
|
||||
~tab_btns.add(
|
||||
//Button(~pager, Rect((~pagerbuttonpadding + ~pagerbuttonwidth * i), 0, ~pagerbuttonwidth, ~pagerbuttonheight))
|
||||
Button(~pager, Rect((~pagerbuttonpadding + ~pagerbuttonwidth * i), 0, ~pagerbuttonwidth, ~pagerbuttonheight))
|
||||
.states_([[item],
|
||||
[item, Color.white, Color.gray(0.6)]])
|
||||
.action_({arg btn;
|
||||
switch(btn.value,
|
||||
0, { postln("~~~ Hide:" + item);
|
||||
~tab_views[i].visible = 0; },
|
||||
1, { ~tab_btns.do(
|
||||
{ |b_item,b_i|
|
||||
if (b_i != i, {
|
||||
~tab_btns[b_i].enabled_(1);
|
||||
~tab_btns[b_i].valueAction = 0;
|
||||
})
|
||||
});
|
||||
~tab_btns[i].enabled_(0);
|
||||
postln("~~~ Show:" + item + "\n");
|
||||
~tab_views[i].visible = 1;
|
||||
|
||||
})
|
||||
})
|
||||
.minHeight_(~pagerbuttonheight).minWidth_(~pagerbuttonwidth);
|
||||
);
|
||||
}
|
||||
);
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// CLOSING ////////////////////////////////////////////////////////////////////////
|
||||
|
||||
w.view.keyDownAction_({ |view, char, modifiers, unicode, keycode, key|
|
||||
if (unicode == 27) {
|
||||
postln("\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - - \n");
|
||||
postln("~~~ Cought an ESC key. Closing window, freeing synths...");
|
||||
postln("~~~ Wait, let me see the window bounds:" + w.bounds + "!\n");
|
||||
|
||||
w.close;
|
||||
postln("\n\n<<< So long and thanks for all the fish! >>>"
|
||||
+ "\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ");
|
||||
}
|
||||
});
|
||||
|
||||
|
||||
|
||||
// free all UGens on server (stop sound, etc)
|
||||
w.onClose_({
|
||||
postln("<<< Platform IDE:" + Platform.ideName);
|
||||
s.freeAll;
|
||||
|
||||
// when running 'standalone' from shell:
|
||||
if (Platform.ideName == "none") {
|
||||
postln("<<< ... sclang is killed. Stockhausen forgives you!");
|
||||
0.exit;
|
||||
} {
|
||||
postln("<<< ... stopping Main.");
|
||||
thisProcess.stop;
|
||||
};
|
||||
postln("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - \n");
|
||||
});
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,588 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
gui_granul.scd - takes care of all GUI elements under
|
||||
the 'granul' tab...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
|
||||
~tab_views[~tab_names.at("granul")].layout = HLayout(
|
||||
|
||||
VLayout( // left half starts here
|
||||
|
||||
|
||||
//~tab_views[~tab_names.at("granul")].layout.add(nil);
|
||||
|
||||
//~granSynth1 = View.new(~tab_views[~tab_names.at("granul")]);
|
||||
//~granSynth1.background = Color.gray(0.5);
|
||||
//~granSynth1.layout = HLayout( // vert. layout:
|
||||
|
||||
// Synth starts here --------------------------------------------------------------------
|
||||
HLayout(
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("GRANULATOR"),
|
||||
Button()
|
||||
.states_([
|
||||
["OFF", Color.gray(0.2), Color.gray(0.8)],
|
||||
["ON", Color.gray(0.8), Color.grey(0.2)] ])
|
||||
.mouseDownAction_({
|
||||
arg state;
|
||||
state.value.postln;
|
||||
if (state.value == 0) {
|
||||
~granSynth = Synth(\Granny, [\bufnum, b]);
|
||||
} {
|
||||
~granSynth.free;
|
||||
}
|
||||
})
|
||||
.minHeight_(70)
|
||||
.minWidth_(70),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout(
|
||||
PopUpMenu().items_(["buffer1","file2","file3"]).font_(Font("Sans",20)),
|
||||
StaticText().string_("Filter vs. Position"),
|
||||
Slider2D()
|
||||
.x_(0.05)
|
||||
.y_(0.05)
|
||||
.action_({ arg slider;
|
||||
~granSynth.set(\pos, slider.x);
|
||||
~granSynth.set(\lpfFreq, slider.y.value.linexp(0,1,30,20000,nil))}),
|
||||
StaticText().string_("Position variation"),
|
||||
Slider(nil,Rect(0,0,50,10))
|
||||
.minHeight_(20)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg posvar;
|
||||
posvar = posvar.value;
|
||||
~granSynth.set(\posvar, posvar.value);
|
||||
})
|
||||
),
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("Frequency of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg freq;
|
||||
freq = ((freq.value * 200) + 1).asInt;
|
||||
~granSynth.set(\freq, freq.value); freq.value.postln;
|
||||
~nbf.value_(freq)}),
|
||||
VLayout(nil,
|
||||
~nbf = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans",20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);
|
||||
)
|
||||
),
|
||||
HLayout(
|
||||
StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg fvar;
|
||||
fvar = fvar.value * 2;
|
||||
~granSynth.set(\fvar, fvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Duration of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg dur;
|
||||
dur = dur.value;
|
||||
~granSynth.set(\dur, dur.value);
|
||||
~nbd.value_((dur.value * 100).asInt); }),
|
||||
VLayout(nil,
|
||||
~nbd = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg durvar;
|
||||
durvar = durvar.value * 2;
|
||||
~granSynth.set(\durvar, durvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Pitch"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg pitch;
|
||||
pitch = pitch.value * 2;
|
||||
~granSynth.set(\pitch, pitch.value);
|
||||
~nbp.value_(pitch.value); }),
|
||||
VLayout(nil,
|
||||
~nbp = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg pitchvar;
|
||||
pitchvar = pitchvar.value;
|
||||
~granSynth.set(\pitchvar, pitchvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Width (Stereo)"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg width;
|
||||
width = width.value;
|
||||
~granSynth.set(\width, width.value);
|
||||
~nbw.value_(width.value);
|
||||
}),
|
||||
VLayout(nil,
|
||||
~nbw = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
)
|
||||
),
|
||||
VLayout(
|
||||
StaticText().string_("Gain")
|
||||
.align_(\center),
|
||||
Slider(nil, Rect(0,0,1,2))
|
||||
.minWidth_(50)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg gain;
|
||||
~granSynth.set(\gain, gain.value.linexp(0,1,0.01,10,nil)-0.01 * 0.05)})
|
||||
.valueAction_(0)
|
||||
;
|
||||
)
|
||||
), // synth ends here
|
||||
|
||||
|
||||
|
||||
HLayout( // bottom left synth starts here --------------------------------------------------------------------
|
||||
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("GRANULATOR"),
|
||||
Button()
|
||||
.states_([
|
||||
["OFF", Color.gray(0.2), Color.gray(0.8)],
|
||||
["ON", Color.gray(0.8), Color.grey(0.2)] ])
|
||||
.mouseDownAction_({
|
||||
arg state;
|
||||
state.value.postln;
|
||||
if (state.value == 0) {
|
||||
~granSynth = Synth(\Granny, [\bufnum, b]);
|
||||
} {
|
||||
~granSynth.free;
|
||||
}
|
||||
})
|
||||
.minHeight_(70)
|
||||
.minWidth_(70),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout(
|
||||
PopUpMenu().items_(["buffer1","file2","file3"]).font_(Font("Sans",20)),
|
||||
StaticText().string_("Filter vs. Position"),
|
||||
Slider2D()
|
||||
.x_(0.05)
|
||||
.y_(0.05)
|
||||
.action_({ arg slider;
|
||||
~granSynth.set(\pos, slider.x);
|
||||
~granSynth.set(\lpfFreq, slider.y.value.linexp(0,1,30,20000,nil))}),
|
||||
StaticText().string_("Position variation"),
|
||||
Slider(nil,Rect(0,0,50,10))
|
||||
.minHeight_(20)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg posvar;
|
||||
posvar = posvar.value;
|
||||
~granSynth.set(\posvar, posvar.value);
|
||||
})
|
||||
),
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("Frequency of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg freq;
|
||||
freq = ((freq.value * 200) + 1).asInt;
|
||||
~granSynth.set(\freq, freq.value); freq.value.postln;
|
||||
~nbf.value_(freq)}),
|
||||
VLayout(nil,
|
||||
~nbf = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans",20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);
|
||||
)
|
||||
),
|
||||
HLayout(
|
||||
StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg fvar;
|
||||
fvar = fvar.value * 2;
|
||||
~granSynth.set(\fvar, fvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Duration of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg dur;
|
||||
dur = dur.value;
|
||||
~granSynth.set(\dur, dur.value);
|
||||
~nbd.value_((dur.value * 100).asInt); }),
|
||||
VLayout(nil,
|
||||
~nbd = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg durvar;
|
||||
durvar = durvar.value * 2;
|
||||
~granSynth.set(\durvar, durvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Pitch"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg pitch;
|
||||
pitch = pitch.value * 2;
|
||||
~granSynth.set(\pitch, pitch.value);
|
||||
~nbp.value_(pitch.value); }),
|
||||
VLayout(nil,
|
||||
~nbp = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg pitchvar;
|
||||
pitchvar = pitchvar.value;
|
||||
~granSynth.set(\pitchvar, pitchvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Width (Stereo)"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg width;
|
||||
width = width.value;
|
||||
~granSynth.set(\width, width.value);
|
||||
~nbw.value_(width.value);
|
||||
}),
|
||||
VLayout(nil,
|
||||
~nbw = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
)
|
||||
),
|
||||
VLayout(
|
||||
StaticText().string_("Gain")
|
||||
.align_(\center),
|
||||
Slider(nil, Rect(0,0,1,2))
|
||||
.minWidth_(50)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg gain;
|
||||
~granSynth.set(\gain, gain.value.linexp(0,1,0.01,10,nil)-0.01 * 0.05)})
|
||||
.valueAction_(0)
|
||||
;
|
||||
)
|
||||
); // bottom left synth ends here
|
||||
), // left half ends here
|
||||
|
||||
VLayout( // right half starts here
|
||||
|
||||
|
||||
// left top synth starts here --------------------------------------------------------------------
|
||||
HLayout(
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("GRANULATOR"),
|
||||
Button()
|
||||
.states_([
|
||||
["OFF", Color.gray(0.2), Color.gray(0.8)],
|
||||
["ON", Color.gray(0.8), Color.grey(0.2)] ])
|
||||
.mouseDownAction_({
|
||||
arg state;
|
||||
state.value.postln;
|
||||
if (state.value == 0) {
|
||||
~granSynth = Synth(\Granny, [\bufnum, b]);
|
||||
} {
|
||||
~granSynth.free;
|
||||
}
|
||||
})
|
||||
.minHeight_(70)
|
||||
.minWidth_(70),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout(
|
||||
PopUpMenu().items_(["buffer1","file2","file3"]).font_(Font("Sans",20)),
|
||||
StaticText().string_("Filter vs. Position"),
|
||||
Slider2D()
|
||||
.x_(0.05)
|
||||
.y_(0.05)
|
||||
.action_({ arg slider;
|
||||
~granSynth.set(\pos, slider.x);
|
||||
~granSynth.set(\lpfFreq, slider.y.value.linexp(0,1,30,20000,nil))}),
|
||||
StaticText().string_("Position variation"),
|
||||
Slider(nil,Rect(0,0,50,10))
|
||||
.minHeight_(20)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg posvar;
|
||||
posvar = posvar.value;
|
||||
~granSynth.set(\posvar, posvar.value);
|
||||
})
|
||||
),
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("Frequency of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg freq;
|
||||
freq = ((freq.value * 200) + 1).asInt;
|
||||
~granSynth.set(\freq, freq.value); freq.value.postln;
|
||||
~nbf.value_(freq)}),
|
||||
VLayout(nil,
|
||||
~nbf = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans",20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);
|
||||
)
|
||||
),
|
||||
HLayout(
|
||||
StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg fvar;
|
||||
fvar = fvar.value * 2;
|
||||
~granSynth.set(\fvar, fvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Duration of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg dur;
|
||||
dur = dur.value;
|
||||
~granSynth.set(\dur, dur.value);
|
||||
~nbd.value_((dur.value * 100).asInt); }),
|
||||
VLayout(nil,
|
||||
~nbd = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg durvar;
|
||||
durvar = durvar.value * 2;
|
||||
~granSynth.set(\durvar, durvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Pitch"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg pitch;
|
||||
pitch = pitch.value * 2;
|
||||
~granSynth.set(\pitch, pitch.value);
|
||||
~nbp.value_(pitch.value); }),
|
||||
VLayout(nil,
|
||||
~nbp = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg pitchvar;
|
||||
pitchvar = pitchvar.value;
|
||||
~granSynth.set(\pitchvar, pitchvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Width (Stereo)"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg width;
|
||||
width = width.value;
|
||||
~granSynth.set(\width, width.value);
|
||||
~nbw.value_(width.value);
|
||||
}),
|
||||
VLayout(nil,
|
||||
~nbw = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
)
|
||||
),
|
||||
VLayout(
|
||||
StaticText().string_("Gain")
|
||||
.align_(\center),
|
||||
Slider(nil, Rect(0,0,1,2))
|
||||
.minWidth_(50)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg gain;
|
||||
~granSynth.set(\gain, gain.value.linexp(0,1,0.01,10,nil)-0.01 * 0.05)})
|
||||
.valueAction_(0)
|
||||
;
|
||||
)
|
||||
), // synth ends here
|
||||
|
||||
|
||||
|
||||
HLayout( // bottom right synth starts here --------------------------------------------------------------------
|
||||
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("GRANULATOR"),
|
||||
Button()
|
||||
.states_([
|
||||
["OFF", Color.gray(0.2), Color.gray(0.8)],
|
||||
["ON", Color.gray(0.8), Color.grey(0.2)] ])
|
||||
.mouseDownAction_({
|
||||
arg state;
|
||||
state.value.postln;
|
||||
if (state.value == 0) {
|
||||
~granSynth = Synth(\Granny, [\bufnum, b]);
|
||||
} {
|
||||
~granSynth.free;
|
||||
}
|
||||
})
|
||||
.minHeight_(70)
|
||||
.minWidth_(70),
|
||||
nil
|
||||
),
|
||||
|
||||
VLayout(
|
||||
PopUpMenu().items_(["buffer1","file2","file3"]).font_(Font("Sans",20)),
|
||||
StaticText().string_("Filter vs. Position"),
|
||||
Slider2D()
|
||||
.x_(0.05)
|
||||
.y_(0.05)
|
||||
.action_({ arg slider;
|
||||
~granSynth.set(\pos, slider.x);
|
||||
~granSynth.set(\lpfFreq, slider.y.value.linexp(0,1,30,20000,nil))}),
|
||||
StaticText().string_("Position variation"),
|
||||
Slider(nil,Rect(0,0,50,10))
|
||||
.minHeight_(20)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg posvar;
|
||||
posvar = posvar.value;
|
||||
~granSynth.set(\posvar, posvar.value);
|
||||
})
|
||||
),
|
||||
|
||||
VLayout(
|
||||
|
||||
StaticText().string_("Frequency of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg freq;
|
||||
freq = ((freq.value * 200) + 1).asInt;
|
||||
~granSynth.set(\freq, freq.value); freq.value.postln;
|
||||
~nbf.value_(freq)}),
|
||||
VLayout(nil,
|
||||
~nbf = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans",20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);
|
||||
)
|
||||
),
|
||||
HLayout(
|
||||
StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg fvar;
|
||||
fvar = fvar.value * 2;
|
||||
~granSynth.set(\fvar, fvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Duration of grains"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(50).thumbSize_(50)
|
||||
.action_({ arg dur;
|
||||
dur = dur.value;
|
||||
~granSynth.set(\dur, dur.value);
|
||||
~nbd.value_((dur.value * 100).asInt); }),
|
||||
VLayout(nil,
|
||||
~nbd = NumberBox(nil,Rect(0,0,1,1))
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg durvar;
|
||||
durvar = durvar.value * 2;
|
||||
~granSynth.set(\durvar, durvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Pitch"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg pitch;
|
||||
pitch = pitch.value * 2;
|
||||
~granSynth.set(\pitch, pitch.value);
|
||||
~nbp.value_(pitch.value); }),
|
||||
VLayout(nil,
|
||||
~nbp = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
),
|
||||
HLayout(StaticText().string_("variation"),
|
||||
Slider(nil,Rect(0,0,2,1)).thumbSize_(50)
|
||||
.action_({ arg pitchvar;
|
||||
pitchvar = pitchvar.value;
|
||||
~granSynth.set(\pitchvar, pitchvar.value);
|
||||
})
|
||||
),
|
||||
nil,
|
||||
StaticText().string_("Width (Stereo)"),
|
||||
HLayout(
|
||||
Slider(nil,Rect(0,0,2,1)).minHeight_(20).thumbSize_(50)
|
||||
.action_({ arg width;
|
||||
width = width.value;
|
||||
~granSynth.set(\width, width.value);
|
||||
~nbw.value_(width.value);
|
||||
}),
|
||||
VLayout(nil,
|
||||
~nbw = NumberBox()
|
||||
.font_(Font("Sans", 20))
|
||||
.maxWidth_(50)
|
||||
.minHeight_(30);)
|
||||
)
|
||||
),
|
||||
VLayout(
|
||||
StaticText().string_("Gain")
|
||||
.align_(\center),
|
||||
Slider(nil, Rect(0,0,1,2))
|
||||
.minWidth_(50)
|
||||
.thumbSize_(50)
|
||||
.action_({ arg gain;
|
||||
~granSynth.set(\gain, gain.value.linexp(0,1,0.01,10,nil)-0.01 * 0.05)})
|
||||
.valueAction_(0)
|
||||
;
|
||||
)
|
||||
); // bottom right synth ends here
|
||||
); // right half ends here
|
||||
|
||||
);
|
||||
|
||||
|
||||
~tab_views[~tab_names.at("granul")].layout.margins = 2;
|
||||
|
|
@ -0,0 +1,45 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
gui_main.scd - responsible for GUI elements under
|
||||
the 'main' tab ...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
|
||||
~tab_views[~tab_names.at("main")].layout = HLayout(
|
||||
|
||||
nil,
|
||||
|
||||
VLayout(
|
||||
|
||||
nil,
|
||||
Button()
|
||||
.states_([
|
||||
["Clock"],
|
||||
["Clock", Color.gray(0.2), Color.grey(0.8)] ])
|
||||
.mouseDownAction_({ | state |
|
||||
switch(state.value,
|
||||
0, {
|
||||
postln("\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - ");
|
||||
postln("~~~ starting clock!");
|
||||
TempoClock.default.sched(0, ~mainTimeline);
|
||||
~mainTimeline.reset;
|
||||
},
|
||||
1, {
|
||||
postln("\n~~~ stopping clock!");
|
||||
~mainTimeline.stop;
|
||||
//~mainTimeline.reset;
|
||||
postln("~~~ some synths might still be running");
|
||||
}
|
||||
);
|
||||
})
|
||||
.minHeight_(70).minWidth_(70),
|
||||
|
||||
|
||||
nil),
|
||||
nil);
|
||||
|
||||
|
|
@ -0,0 +1,265 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
sdefs.scd - should contain most of SynthDefs ...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
|
||||
|
||||
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
// NOISE
|
||||
|
||||
SynthDef(\StandardMap, {
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
k=1.4, x0=4.9789799812499, y0=5.7473416156381,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
postln("~~~ Loading StandardMap to server...");
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
/* Standard2DN.ar(minfreq: 11025, maxfreq: 22050,
|
||||
k: 1.4, x0: 4.9789799812499, y0: 5.7473416156381, mul: 1, add: 0) */
|
||||
signal = Standard2DN.ar( minfreq, maxfreq, k, x0, y0, ampN )
|
||||
+ Standard2DL.ar( minfreq, maxfreq, k, x0, y0, ampL )
|
||||
+ Standard2DC.ar( minfreq, maxfreq, k, x0, y0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal)
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
//Gbman2DN Gbman2DL Gbman2DC GbmanTrig
|
||||
//(minfreq: 11025, maxfreq: 22050, x0: 1.2, y0: 2.1, mul: 1, add: 0)
|
||||
|
||||
|
||||
SynthDef(\GbmanMap, {
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
x0=1.2, y0=2.1,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
postln("~~~ Loading GbmanMap to server...");
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
signal = Gbman2DN.ar( minfreq, maxfreq, x0, y0, ampN )
|
||||
+ Gbman2DL.ar( minfreq, maxfreq, x0, y0, ampL )
|
||||
+ Gbman2DC.ar( minfreq, maxfreq, x0, y0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal)
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
//Henon2DN
|
||||
// a: 1.4, b: 0.3,
|
||||
// x0: 0.30501993062401, y0: 0.20938865431933,
|
||||
|
||||
SynthDef(\HenonMap, {
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
a = 1.4, b = 0.3,
|
||||
x0 = 0.30501993062401, y0 = 0.20938865431933,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
signal = Henon2DN.ar( minfreq, maxfreq, a, b, x0, y0, ampN )
|
||||
+ Henon2DL.ar( minfreq, maxfreq, a, b, x0, y0, ampL )
|
||||
+ Henon2DC.ar( minfreq, maxfreq, a, b, x0, y0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal);
|
||||
|
||||
postln("~~~ Loading HenonMap to server...");
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
SynthDef(\LatoocarfianMap, {
|
||||
|
||||
/* a: 1, b: 3, c: 0.5, d: 0.5,
|
||||
x0: 0.34082301375036, y0: -0.38270086971332, */
|
||||
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
a = 1, b = 3, c = 0.5, d = 0.5,
|
||||
x0 = 0.34082301375036, y0 = -0.38270086971332,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
/* Latoocarfian2DN.ar(minfreq: 11025, maxfreq: 22050,
|
||||
k: 1.4, x0: 4.9789799812499, y0: 5.7473416156381, mul: 1, add: 0) */
|
||||
signal = Latoocarfian2DN.ar( minfreq, maxfreq, a, b, c, d, x0, y0, ampN )
|
||||
+ Latoocarfian2DL.ar( minfreq, maxfreq, a, b, c, d, x0, y0, ampL )
|
||||
+ Latoocarfian2DC.ar( minfreq, maxfreq, a, b, c, d, x0, y0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal);
|
||||
|
||||
postln("~~~ Loading LatoocarfianMap to server...");
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
|
||||
|
||||
/*
|
||||
s: 10, r: 28, b: 2.6666667, h: 0.02,
|
||||
x0: 0.090879182417163, y0: 2.97077458055, z0: 24.282041054363, */
|
||||
|
||||
SynthDef(\LorenzMap, {
|
||||
|
||||
/* a: 1, b: 3, c: 0.5, d: 0.5,
|
||||
x0: 0.34082301375036, y0: -0.38270086971332, */
|
||||
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
s = 10, r = 28, b = 2.6666667, h = 0.02,
|
||||
x0 = 0.090879182417163, y0 = 2.97077458055, z0 = 24.282041054363,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
signal = Lorenz2DN.ar( minfreq, maxfreq, s, r, b, h, x0, y0, z0, ampN )
|
||||
+ Lorenz2DL.ar( minfreq, maxfreq, s, r, b, h, x0, y0, z0, ampL )
|
||||
+ Lorenz2DC.ar( minfreq, maxfreq, s, r, b, h, x0, y0, z0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal);
|
||||
|
||||
postln("~~~ Loading LorenzMap to server...");
|
||||
|
||||
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
/* urate: 0.1, wrate: 0.1,
|
||||
b0: 0.6, b1: 0.8,
|
||||
i: 0, u0: 0, w0: 0, */
|
||||
|
||||
|
||||
SynthDef(\FhnMap, {
|
||||
|
||||
|
||||
arg out=0, minfreq=10, maxfreq=22,
|
||||
urate = 0.1, wrate = 0.1,
|
||||
b0 = 0.6, b1 = 0.8,
|
||||
i = 0, u0 = 0, w0 = 0,
|
||||
ampN=0, ampL=0, ampC=0,
|
||||
amp=0, bpffreq=20000, bpfrq = 100 ;
|
||||
var signal ;
|
||||
|
||||
// poor man's stereo expander
|
||||
minfreq = [minfreq, minfreq +1 ];
|
||||
maxfreq = [maxfreq, maxfreq -1 ];
|
||||
|
||||
signal = Fhn2DN.ar( minfreq, maxfreq, urate, wrate, b0, b1, i, u0, w0, ampN )
|
||||
+ Fhn2DL.ar( minfreq, maxfreq, urate, wrate, b0, b1, i, u0, w0, ampL )
|
||||
+ Fhn2DC.ar( minfreq, maxfreq, urate, wrate, b0, b1, i, u0, w0, ampC );
|
||||
|
||||
// band pass filter // ----- BPF.ar(in: 0, freq: 440, rq: 1, mul: 1, add: 0)
|
||||
signal = BPF.ar(in: signal, freq: bpffreq.min(bpffreq / bpfrq), rq: bpfrq);
|
||||
|
||||
signal = signal * amp;
|
||||
signal = signal.clip2(0.99);
|
||||
Out.ar(out, signal);
|
||||
|
||||
|
||||
postln("~~~ Loading FhnMap to server...");
|
||||
|
||||
|
||||
}).add;
|
||||
|
||||
|
||||
|
||||
|
||||
// GRANULATORS
|
||||
|
||||
|
||||
SynthDef(\Granny, {
|
||||
|
||||
arg bufnum,
|
||||
freq = 10, fvar = 1,
|
||||
dur = 0.1, durvar = 0,
|
||||
pos = 0, posvar = 0,
|
||||
pitch = 1, pitchvar = 0,
|
||||
width = 0.2,
|
||||
gain = 0.5,
|
||||
lpfFreq = 400
|
||||
;
|
||||
var signal;
|
||||
|
||||
signal = GrainBuf.ar(
|
||||
numChannels: 2, // we want stereo!
|
||||
trigger: Impulse.kr(freq + (freq * (fvar * LFNoise2.kr(freq)))), // a UGen?
|
||||
dur: dur + (durvar * LFNoise2.kr(freq)), // in seconds
|
||||
sndbuf: bufnum,
|
||||
rate: pitch + (pitchvar * LFNoise2.kr(5)), // pitch !! WHAT IS THE SPEED OF VARIATIONS? setable??
|
||||
pos: pos + (posvar * LFNoise2.kr(freq)), // position 0-1
|
||||
interp: 2, // interpolation for pitchshifting
|
||||
pan: LFNoise1.kr(10).range(width.neg, width), // if numChannels=2, similar to Pan2, -1 left, +1 right
|
||||
// envbunum: -1, // the buffer number cont. grain envelope
|
||||
maxGrains: 512,
|
||||
mul: gain,
|
||||
add: 0
|
||||
);
|
||||
|
||||
signal = LPF.ar(
|
||||
in: signal,
|
||||
freq: lpfFreq);
|
||||
|
||||
Out.ar(0, signal);
|
||||
|
||||
postln("~~~ adding SynthDef: Granny ...");
|
||||
|
||||
}).add;
|
||||
|
||||
|
|
@ -0,0 +1,402 @@
|
|||
/*
|
||||
part of: Interface Fractures III - Silicon
|
||||
|
||||
(c) Luka Prinčič / Nova deViator
|
||||
nova@deviator.si
|
||||
|
||||
snd_lines.scd - deals with converting spectral lines
|
||||
of silicon into sound in time...
|
||||
|
||||
********************************************************** */
|
||||
|
||||
var dir = PathName(thisProcess.nowExecutingPath).pathOnly;
|
||||
var siLines = FileReader.read(path: dir +/+ "../dev/silicon_lines.txt", skipBlanks:true, skipEmptyLines:true);
|
||||
|
||||
|
||||
|
||||
( /////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
|
||||
// split function:
|
||||
// 1) List-generation
|
||||
// 2) draw the spectrum/score
|
||||
// add 3) synth uses generated List
|
||||
|
||||
~siLinesData = List[];
|
||||
|
||||
~printLines = {
|
||||
|
||||
var dir = PathName(thisProcess.nowExecutingPath).pathOnly;
|
||||
var siLines = FileReader.read(path: dir +/+ "../dev/silicon_lines.txt", skipBlanks:true, skipEmptyLines:true);
|
||||
var intensity, minutes, seconds, freq1, freq2, midi1, midi2, red, green, blue;
|
||||
var colors = [ // these are taken from http://astro.u-strasbg.fr/~koppen/discharge/discharge.html
|
||||
[ 3800.0, 0, 0, 0],
|
||||
[ 4000.0, 150, 0, 150],
|
||||
[ 4400.0, 120, 0, 255], // violet
|
||||
[ 4500.0, 0, 0, 255], // blue
|
||||
[ 4800.0, 0, 255, 255], // cyan
|
||||
[ 5200.0, 0, 255, 0], // green
|
||||
[ 5800.0, 255, 255, 0], // yellow
|
||||
[ 6500.0, 255, 0, 0], // red
|
||||
[ 7000.0, 80, 0, 0],
|
||||
[ 7300.0, 0, 0, 0] ];
|
||||
|
||||
//
|
||||
var threshold = 0;
|
||||
var linewidth = 3;
|
||||
var spectrumheight = 750;
|
||||
var colorpenlen = 40;
|
||||
var siLinesData = List.newClear(0);
|
||||
|
||||
|
||||
|
||||
var w = Window("TempSpectre", Rect(600, 5, width:560, height:spectrumheight));
|
||||
w.view.background_(Color.black);
|
||||
w.drawFunc = {
|
||||
|
||||
siLinesData = List.newClear(0);
|
||||
|
||||
spectrumheight = w.bounds.height;
|
||||
Pen.smoothing_(false);
|
||||
Pen.translate(0,0);
|
||||
|
||||
Pen.fillColor = Color.white;
|
||||
Pen.fillRect(Rect(colorpenlen * 3, 0, w.bounds.width - (colorpenlen * 3), spectrumheight));
|
||||
|
||||
// function that prints a table of data from lines and draws a window with lines
|
||||
~processItem = { |item, i, reverse=false, layer=0, tscale=1, toffset=0|
|
||||
|
||||
// if(i == 0, { post("\n--- processing spectrum ...\n")}); // nice output
|
||||
|
||||
if((item[1].asInt > threshold) && (item[0].asInt < 6741) && (item[0].asInt > 3950), {
|
||||
var peny, penx;
|
||||
var alpha = item[1].asFloat.linlin(0, 1000, 10, 255);
|
||||
var color;
|
||||
var time, time_end = 60*37+5;
|
||||
|
||||
|
||||
// wavelength
|
||||
//post(item[0]);
|
||||
//post("nm");
|
||||
|
||||
// intensity
|
||||
intensity = item[1].asInt;
|
||||
//post(item[1].asString.padLeft(5, " "));
|
||||
//post(" ");
|
||||
|
||||
// time
|
||||
if(reverse == false,
|
||||
// then
|
||||
{ time = (item[0].asFloat.linlin(3950, 6741, 0, time_end)); },
|
||||
// else:
|
||||
{ time = (item[0].asFloat.linlin(3950, 6741, time_end, 0)); } );
|
||||
time = time * tscale ;
|
||||
time = time + (toffset * time_end);
|
||||
|
||||
minutes = (time / 60).round(1);
|
||||
seconds = (time % 60).round(1);
|
||||
/*
|
||||
post(time.round(0.001) + "");
|
||||
if ( minutes < 10, {post("0")});
|
||||
post(minutes);
|
||||
post(":");
|
||||
|
||||
if(seconds < 10, {post("0")});
|
||||
post(seconds);
|
||||
post(" ");
|
||||
*/
|
||||
|
||||
|
||||
//freq1
|
||||
freq1 = item[0].asFloat.linexp(3900, 7200, 16000, 40 ).asInt;
|
||||
freq1 = freq1.asString.padLeft(5, " ");
|
||||
// post(freq1); post("hz"); post(" ");
|
||||
|
||||
// freq2
|
||||
freq2 = item[0].asFloat.linexp(3900, 7200, 40, 16000 ).asInt;
|
||||
freq2 = freq2.asString.padLeft(5, " ");
|
||||
// post(freq2); post("Hz"); post(" ");
|
||||
|
||||
// midi
|
||||
midi1 = item[0].asFloat.linlin(3900, 7200, 0, 12 ).round(0.01);
|
||||
// post(midi1.asString.padRight(5, " "));
|
||||
// post(" ");
|
||||
|
||||
midi2 = item[0].asFloat.linlin(3900, 7200, 12, 0 ).round(0.01);
|
||||
// post(midi2.asString.padRight(6, " "));
|
||||
|
||||
colors.do({ |colordb, i|
|
||||
var thisboundary = colors[i][0];
|
||||
if (i+1 < colors.size, {
|
||||
var nextboundary = colors[i+1][0];
|
||||
if ((item[0].asFloat > thisboundary) && (item[0].asFloat < nextboundary), {
|
||||
|
||||
var range = nextboundary - thisboundary;
|
||||
var koef = (item[0].asFloat-thisboundary / range).round(0.0001);
|
||||
var red = colors[i][1] + ( ( (colors[i+1][1] - colors[i][1]) / (colors[i+1][0] - colors[i][0]) )
|
||||
* (item[0].asFloat - colors[i][0]) );
|
||||
var green = colors[i][2] + ( ( (colors[i+1][2] - colors[i][2]) / (colors[i+1][0] - colors[i][0]) )
|
||||
* (item[0].asFloat - colors[i][0]) );
|
||||
var blue = colors[i][3] + ( ( (colors[i+1][3] - colors[i][3]) / (colors[i+1][0] - colors[i][0]) )
|
||||
* (item[0].asFloat - colors[i][0]) );
|
||||
var color = Color.new255(red.round(1),green.round(1),blue.round(1), alpha);
|
||||
var colorHSV = color.asHSV;
|
||||
peny = time.linlin(0, time_end, 0, spectrumheight);
|
||||
penx = 2 - layer * colorpenlen;
|
||||
|
||||
Pen.fillColor = color;
|
||||
Pen.fillRect(Rect(penx, peny, colorpenlen, alpha.linlin(0,255,1,linewidth)));
|
||||
Pen.fillColor = Color.black.alpha_(alpha.linlin(0,255,0,1));
|
||||
Pen.fillRect(Rect( colorpenlen*3, peny,
|
||||
w.bounds.width - (colorpenlen * 3) * intensity.linlin(0,1000,0,1),
|
||||
alpha.linlin(0,255,1,linewidth)));
|
||||
Pen.stroke; // draw the path
|
||||
|
||||
/*
|
||||
post("R");
|
||||
post( red.round(1));
|
||||
post(" G");
|
||||
post(green.round(1));
|
||||
post(" B");
|
||||
post( blue.round(1));
|
||||
|
||||
post(" H");
|
||||
post((colorHSV[0]*360).round(1));
|
||||
post(" S");
|
||||
post((colorHSV[1]*100).round(1));
|
||||
post(" V");
|
||||
post((colorHSV[2]*100).round(1));
|
||||
post(" A");
|
||||
post((colorHSV[3]*100).round(1));
|
||||
post("");
|
||||
*/
|
||||
|
||||
// add line data as a List to the siLinesData List
|
||||
~siLinesData.add(List[
|
||||
time,
|
||||
layer,
|
||||
item[0],
|
||||
intensity,
|
||||
freq1, freq2,
|
||||
midi1, midi2,
|
||||
// R, G, B,
|
||||
red.round(1), green.round(1), blue.round(1),
|
||||
// H, S, V, Alpha
|
||||
(colorHSV[0] * 360).round(1), // hue
|
||||
(colorHSV[1] * 100).round(1), // saturation
|
||||
(colorHSV[2] * 100).round(1), // value
|
||||
(colorHSV[3] * 100).round(1), // ALPHA
|
||||
item[0]
|
||||
]);
|
||||
|
||||
|
||||
});
|
||||
|
||||
|
||||
});
|
||||
|
||||
});
|
||||
//post("\n");
|
||||
|
||||
});
|
||||
|
||||
}; // end of function
|
||||
|
||||
|
||||
|
||||
siLines.do({ |item, i| ~processItem.value(item, i, layer:0); });
|
||||
|
||||
siLines.do({ | item, i| ~processItem.value(item, i, layer:1, reverse:true,
|
||||
tscale:0.618); });
|
||||
|
||||
siLines.do({ | item, i| ~processItem.value(item, i, layer:1, reverse:true,
|
||||
tscale: 0.618.squared, toffset:0.618); });
|
||||
|
||||
siLines.do({ | item, i| ~processItem.value(item, i, layer:2, reverse:false,
|
||||
tscale: 0.618.cubed, toffset:(0.618.squared-0.618.cubed)+0.618); });
|
||||
|
||||
}; // end of drawFunc
|
||||
|
||||
w.refresh;
|
||||
w.front;
|
||||
|
||||
|
||||
siLinesData;
|
||||
|
||||
};
|
||||
|
||||
// execute it
|
||||
~siLinesData = ~printLines.value;
|
||||
|
||||
|
||||
|
||||
// table of all data, sorted
|
||||
~siLinesData = ~siLinesData.sortBy(0);
|
||||
~siLinesData.do({ |item, i|
|
||||
post(i + "");
|
||||
item.do({ |value, i|
|
||||
post(value);
|
||||
post(" ");
|
||||
|
||||
});
|
||||
post("\n");
|
||||
});
|
||||
|
||||
|
||||
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// move to sdefs.scd at one point? --------------------------------------------
|
||||
SynthDef(\siliconSynth, { |freq = 440, amp = 0.2, attack = 1, release = 1|
|
||||
|
||||
var sig, env, frequency, amply;
|
||||
|
||||
frequency = [freq * 1.005, freq];
|
||||
amply = amp * 0.3;
|
||||
|
||||
env = EnvGen.kr(Env.perc(attack, release, 1, [10, -10]), doneAction: 2); // ENVELOPE
|
||||
|
||||
sig // -----------------------------------------------------------------------------------------
|
||||
= SinOsc.ar( freq: frequency, mul: amply * 0.9)
|
||||
+ SinOsc.ar( freq: frequency * 0.5 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply)
|
||||
+ SinOsc.ar( freq: frequency * 0.25 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply)
|
||||
|
||||
+ Saw.ar( freq: frequency * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
+ Saw.ar( freq: frequency * 0.5 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
+ Saw.ar( freq: frequency * 0.25 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
|
||||
+ Pulse.ar( freq: frequency * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
+ Pulse.ar( freq: frequency * 0.5 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
+ Pulse.ar( freq: frequency * 0.24 * LFNoise1.kr(0.1).linlin(-1, 1, 0.998, 1.002), mul: amply * 0.5)
|
||||
|
||||
+ BPF.ar(BrownNoise.ar(), freq: frequency * LFNoise1.kr(0.01).linlin(-1, 1, 0.8, 1.2), rq: 0.1)
|
||||
+ BPF.ar(WhiteNoise.ar(), freq: frequency * 0.5 * LFNoise1.kr(0.01).linlin(-1, 1, 0.8, 1.2), rq: 0.1)
|
||||
|
||||
+ BPF.ar(Crackle.ar(SinOsc.kr(0.1).linlin(-1, 1, 0.8, 2)), frequency * LFNoise1.kr(0.01).linlin(-1, 1, 0.8, 1.2), rq:0.1, mul:2)
|
||||
+ BPF.ar(Crackle.ar(SinOsc.kr(0.1).linlin(-1, 1, 0.8, 2)), frequency * 0.5 * LFNoise1.kr(0.01).linlin(-1, 1, 0.8, 1.2), rq:0.1, mul:2)
|
||||
|
||||
; // -------------------------------------------------------------------------------------------
|
||||
|
||||
sig = sig * env; // envlope the final sound
|
||||
Out.ar(0, sig); // output
|
||||
postln("\n~~~ adding SynthDef: siliconSynth ...");
|
||||
}).add;
|
||||
// -----------------------------------------------------------------------------
|
||||
|
||||
|
||||
postln("~~~ loading mainTimeline routine");
|
||||
|
||||
~mainTimeline = Routine({
|
||||
|
||||
var delta, playhead, frequency, amp, step=0,
|
||||
nextdelta, nextplayhead, nextfrequency, nextamp,
|
||||
frequency_alt, nextfrequency_alt;
|
||||
|
||||
while {
|
||||
|
||||
step < siLines.size;
|
||||
|
||||
} {
|
||||
// exposition
|
||||
frequency = siLines[step][0].asFloat.linexp(3900, 7200, 16000, 40);
|
||||
frequency_alt = siLines[step][0].asFloat.linexp(3900, 7200, 40, 16000);
|
||||
nextfrequency = siLines[step+1][0].asFloat.linexp(3900, 7200, 16000, 40);
|
||||
nextfrequency_alt = siLines[step+1][0].asFloat.linexp(3900, 7200, 40, 16000);
|
||||
nextplayhead = siLines[step+1][0].asFloat.linlin(3905.52, 7193.9, 0, (60*37+5));
|
||||
playhead = siLines[step][0].asFloat.linlin(3905.52, 7193.9, 0, (60*37+5));
|
||||
delta = nextplayhead - playhead;
|
||||
amp = siLines[step][1].asInt * 0.001;
|
||||
nextamp = siLines[step+1][1].asInt * 0.001;
|
||||
nextdelta = siLines[step+2][0].asFloat.linlin(3905.52, 7193.9, 0, (60*37+5)) - nextplayhead;
|
||||
|
||||
//action::documentation
|
||||
post("\n~" + step + "| ");
|
||||
post((playhead/60).round(1));
|
||||
post(":");
|
||||
post((playhead%60).round(1));
|
||||
post(" | ");
|
||||
post(siLines[step][0]);
|
||||
post( "nm | " );
|
||||
post(frequency.round(1));
|
||||
post("Hz | ");
|
||||
post(frequency_alt.round(1));
|
||||
post("Hz | ");
|
||||
post(amp.ampdb.round(1));
|
||||
post("dB \\ ");
|
||||
post(delta.round(1));
|
||||
postln("s");
|
||||
|
||||
post(" ");
|
||||
post(delta.round(1));
|
||||
post("s / ");
|
||||
post(nextfrequency.round(1));
|
||||
post("Hz | ");
|
||||
post(nextfrequency_alt.round(1));
|
||||
post("Hz | ");
|
||||
post(nextamp.ampdb.round(1));
|
||||
post("dB \\ ");
|
||||
post(nextdelta.round(1));
|
||||
postln("s");
|
||||
|
||||
Synth(\siliconSynth, [
|
||||
freq: nextfrequency,
|
||||
amp: nextamp,
|
||||
attack: delta,
|
||||
release: nextdelta
|
||||
]);
|
||||
|
||||
Synth(\siliconSynth, [
|
||||
freq: nextfrequency_alt,
|
||||
amp: nextamp,
|
||||
attack: delta,
|
||||
release: nextdelta
|
||||
]);
|
||||
|
||||
// epilogue
|
||||
step = step + 1;
|
||||
delta.yield;
|
||||
|
||||
}
|
||||
|
||||
});
|
||||
|
||||
|
||||
TempoClock.default.tempo = 1; // beats/sec /BPS
|
||||
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// DEBUG
|
||||
//~siLines = FileReader.read(path:"../dev/silicon_lines.txt", skipBlanks:true, skipEmptyLines:true);
|
||||
//~siLines[124][0].postln;
|
||||
//siLines.size.postln;
|
||||
//r.next;
|
||||
//r.stop;
|
||||
|
||||
// if (siLines[step-1].notNil, {
|
||||
// playhead = siLines[step-1][0].asFloat.linlin(3900, 7200, 0, (60*37+5)); // at the end these are seconds!
|
||||
// }, { playhead = 0 });
|
||||
// nextdelta = siLines[step][0].asFloat.linlin(3900, 7200, 0, (60*37+5)) - playhead;
|
||||
// delta = playhead - prevplayhead;
|
||||
// prevplayhead = playhead;
|
||||
|
||||
/*
|
||||
post("t:" + item[0].asFloat.linlin(3900, 7200, 0, 12 ).asStringPrec(5) + Char.tab ); // tone
|
||||
post("t:" + item[0].asFloat.linlin(3900, 7200, 12, 0 ).asStringPrec(5) ); // tone reverse
|
||||
|
||||
//{SinOsc.ar((item[0].asFloat.linlin(3900, 7200, 0, 12)+60).midicps, mul:item[1].asInt * 0.000005)}.play;
|
||||
/*{LFPar.ar((
|
||||
item[0].asFloat.linlin(3900, 7200, 0, 12)
|
||||
+ ( ( (i+1) % 1) * 12) + 60).midicps,
|
||||
mul:(item[1].asInt.linlin(0, 1000, 0.0, 0.5) + item[1].asInt.linexp(0, 1000, 0.01, 0.5)) * [i%2,abs(i%2-1)] * 0.05)}.play;
|
||||
*/
|
||||
//{SinOsc.ar(item[0].asFloat.linexp(3900, 7200, 20000, 40 ).asInt, mul:item[1].asInt * 0.000005)}.play;
|
||||
{SinOsc.ar(item[0].asFloat.linexp(3900, 7200, 20000, 40).asInt, mul:item[1].asInt * 0.00005)}.play;
|
||||
*/
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue