pakt29
See /software/p5js/pakt-februari/pakt29/ for a JavaScript version and /software/supercollider/februari-pakt/pakt29/ for accompanying sound code.
#include "cinder/app/App.h"
#include "cinder/cairo/Cairo.h"
using namespace ci;
using namespace ci::app;
using namespace std;
const int WIDTH= 640;
const int HEIGHT= 480;
class pakt29App : public App {
public:
void setup();
void draw();
int index;
float w, h;
int cols, rows;
};
void pakt29App::setup() {
cols= 20;
rows= 20;
index= 0;
w= getWindowWidth();
h= getWindowHeight();
}
void pakt29App::draw() {
cairo::Context ctx(cairo::createWindowSurface());
ctx.setSourceRgb(0, 0, 0);
ctx.paint();
ctx.setLineCap(1);
ctx.setLineWidth(20.0);
float oy= 0.025f*h;
for(int x= 0; x<cols; x++) {
float t= float(x)/cols;
float xx= t*w+(0.5f/cols*w);
ctx.setSource(ColorA(CM_HSV, fmod(float(sin(t*M_PI)*0.25f+(index*0.0004f+(x*0.02f))), 1.0f), sin(t*M_PI)*0.25f+0.25f, sin(t*M_PI)*0.5f+0.5, 1.0f));
vector<double> dashes;
for(int y= 0; y<rows; y++) {
dashes.push_back(sin((index+y)*(sin((index*0.1f+(x*0.35f))*0.01f)*0.015f))*10.0f+(sin((index+x)*0.003f)*40.0f+70.0f));
}
ctx.setDash(dashes, index);
ctx.moveTo(xx, h-oy);
ctx.lineTo(xx, oy);
ctx.stroke();
}
index++;
}
CINDER_APP(pakt29App, Renderer2d, [&]( App::Settings *settings ) {
settings->setWindowSize( WIDTH, HEIGHT );
settings->setResizable( false );
})