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 = 968; int m3 = 1; int num1 = 20; int num2 = 500000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] d1li = new float[num1]; 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; int ble = 5; float[] pxli = {771.668, 157.98633, 959.6832, 213.97449, 560.9697, 301.17963, 606.60175, 978.44977, 914.29926, 740.5647, 484.34564, 761.15765, 431.69586, 294.84735, 81.97217, 880.44403, 985.64343, 21.847046, 51.842102, 513.0674}; float[] pyli = {613.59, 340.8331, 377.44574, 620.40656, 547.0483, 701.6352, 527.68475, 327.28088, 295.6781, 119.78992, 397.92725, 535.7667, 59.835384, 504.79767, 329.2586, 550.5575, 335.65576, 42.719307, 72.75779, 125.397224}; int SEGMENTx = 0; int SEGMENTy = 0; void setup() {size(4800, 3750, P2D); background(255); frameRate(100); stroke(0, ble); smooth(); for (int i = 0; i < num2; i++) {xli[i] = random(a); yli[i] = random(b);} 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 == 10) {m = 0; m3 = m3 +1; for (int i = 0; i < num2; i++) {xli[i] = random(a)/2; yli[i] = random(b)/2;}} 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); ff = min(d1, d2, d3); if (ff == 0) {ff =0.001;} xx = xx -(xx -x2)/ff; yy = yy -(yy -y2)/ff; fff = d2/10; xxp = xx +cos(d3*PI/10)*tan(abs(fff)); yyp = yy +sin(d3*PI/10)*tan(abs(fff)); ff = d2/d3*10; if (ff == 0) {ff = 0.001;} xx2 = tan(ff/20)*200; if (d2 == 0) {d2 = 0.001;} ff = d3/d2*10; if (ff == 0) {ff = 0.001;} yy2 = sin(ff)*200; xx3 = tan(d3/20)*200; yy3 = atan(d3/3)*200; ff = min(xx2, yy2); if (ff == 0) {ff = 0.001;} xx = xx +(xx -xxp)/ff; ff = min(yy3, xx3); if (ff == 0) {ff = 0.001;} yy = yy +(yy -yyp)/ff; if (i == num1/2 -1) {ffx = ((yy-296)*6 +1000); if ((ffx < 0) || (ffx > 1300)) {xx = random(a/2)/2 +300;} ffx = ffx*1.6; ffy = ((xx-573)*6 +1000); if ((ffy < 0) || (ffy > 640)) {yy = random(b/2)/2 +100;} ffy = ffy*1.6 +160; point(ffx*7.5 -SEGMENTx*4800, ffy*7.5 -SEGMENTy*3750);} xli[n] = xx +sin(yy*PI/180*6)*2; yli[n] = yy +cos(xx*PI/180*6)*2;}} if (m3 == 1125){ saveFrame(„X_#####.tif“); m3 = 0; m = 0; background(0); int SEGMENTx = SEGMENTx +1; if (SEGMENTx == 3) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 3) {SEGMENTy = 0;}}}}