Code for Dextro.org algorithmic image "H013" written by Walter Gorgosilits (Dextro.org) between 1994 and 2017. For research only. No commercial or secret service/clandestine use.
int a = 1024; int b = 768; int m3 = 1; int num1 = 10; int num2 = 100000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] d1li = new float[num1]; float[] pxli = {147, 838, 95, 222, 637, 744, 623, 560, 381, 809}; float[] pyli = {24, 602, 352, 374, 673, 387, 411, 501, 438, 663}; float x1, y1, x2, y2, xx, yy, xxc, yyc, ff, fff, ffx, ffy, V2, V3, d1, d2, d3, dx, dy, xxp, yyp, dd, w, xx2, yy2, xx3, yy3;//, m33; int ble = 5; int SEGMENTx = 0; int SEGMENTy = 0; void setup() {size(3840, 2800, P2D); background(0); frameRate(100); stroke(255, ble); smooth(); for (int i = 0; i < num2; i++) {xli[i] = random(a)/10 +460; yli[i] = random(b)/5 +180;} for (int i = 0; i < num1/2; i++) {x1 = pxli[2*i]; y1 = pyli[2*i]; x2 = pxli[2*i+1]; y2 = pyli[2*i+1]; dx = abs(x1 -x2); dy = abs(y1 -y2); d1 = sqrt(dx*dx +dy*dy); if (d1 == 0) {d1 = 1;} d1li[i] = d1;}} void draw() {m = m +1; if (m == 30) {m = 0; m3 = m3 +1; for (int i = 0; i < num2; i++) {xli[i] = random(a)/10 +460; yli[i] = random(b)/5 +180;}} for (int i = 0; i < num1/2; i++) {x1 = pxli[2*i]; y1 = pyli[2*i]; x2 = pxli[2*i+1]; y2 = pyli[2*i+1]; d1 = d1li[i]; for (int n = 0; n < num2; n++) {xx = xli[n]; yy = yli[n]; xxc = xx; yyc = yy; dx = abs(xx -x1); dy = abs(yy -y1); d2 = sqrt(dx*dx +dy*dy); dx = abs(xx -x2); dy = abs(yy -y2); d3 = sqrt(dx*dx +dy*dy); xx = xx -(xx -x2)/d1; yy = yy -(yy -y2)/d1; fff = d2/10; xxp = xx +cos(d3*PI/10)*fff; yyp = yy +sin(d3*PI/10)*fff; xx2 = min(6, tan(d2/3)*200); yy2 = min(6, sin(d2)*200); xx3 = min(6, cos(d3/2)*200); yy3 = min(6, atan(d3/4)*200); ff = min(xx2, xx3); if (ff == 0) {ff = 0.001;} xx = xx +(xx -xxp)/ff; ff = max(yy2, yy3); if (ff == 0) {ff = 0.001;} yy = yy +(yy -yyp)/ff; if (i == num1/2 -1) {ffx = (yy -200); if ((ffx < -20) || (ffx > 200)) {xx = random(a)/10 +460; yy = random(b)/5 +180;} ffy = (xx -470); if ((ffy < -20) || (ffy > 200)) {xx = random(a)/10 +460; yy = random(b)/5 +180;} stroke(255-m*8, m*8, m*8, ble); point(ffx*12*8 -SEGMENTx*3840, ffy*12*8 -SEGMENTy*2800);} xli[n] = xx; yli[n] = yy;}} if (m3 == 640){saveFrame("X_#################.tif"); m3 = 0; m = 0; background(0); SEGMENTx = SEGMENTx +1; if (SEGMENTx == 4) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 4) {SEGMENTy = 0;}}}}