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 m = 0; int m3 = 1; int a = 1024; int b = 768; int num1 = 6; int num2 = 50000; float fek = 200; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] d1li = new float[num1]; float[] pxli = {120.51, 356.28, 683.66, 324.3, 263.41, 288.58, 997.68, 215.29, 772.64, 879.96};  float[] pyli = {588.72, 138.99, 231.98, 94.79, 566.04, 761.57, 254.73, 573.5, 628.13, 268.68}; int m5 = 0; float x1, y1, x2, y2, d1, d2, d3, V2, V3, dx, dy, xxcc, yycc, xxc, yyc, wp1, wp2, xx, yy, dd, w, ff, ffx, ffy, fff, xxp, yyp, xx2, yy2, xx3, yy3, ffff, dp1, dp2, wpp; int ble = 5; int SEGMENTx = 0; int SEGMENTy = 0; void setup() {size(3600, 3200, P2D); background(0); frameRate(900); stroke(255, 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 == 5) {m = 0; m3 = m3 +1; for (int i = 0; i < num2; i++) {xli[i] = random(a/2)/2.5 +235; 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]; d1 = sin(d1/100)*10; 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); d2 = tan(d2/30)*10; dx = abs(xx -x2); dy = abs(yy -y2); d3 = sqrt(dx*dx +dy*dy); d3 = tan(d3/100)*10; 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; ff = d2/d3*10; if (ff == 0) {ff = 0.001;} xx2 = tan(ff/100)*fek; ffff = d2; if (ffff == 0) {ffff = 0.001;} ff = d3/ffff*10; if (ff == 0) {ff = 0.001;} yy2 = sin(ff/1)*fek; xx3 = cos(d3/2)*fek; yy3 = atan(d3/30)*fek; ff = min(xx2, xx3); if (ff == 0) {ff = 0.0001;} xx = xx +(xx -xxp)/ff; ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/ff; ff = min(xx2, xx3); if (ff == 0) {ff = 0.0001;} xx = xx +(xx -xxp)/ff; ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/ff; if (i == num1/2-1) {ffy = (yy-296)*6 +1000; ffy = ffy*1.6*8; ffx = (xx-573)*6 +1000; ffx = (ffx*1.6 +1800)*8; point(ffx -SEGMENTx*3600, ffy -SEGMENTy*3200);} xli[n] = xx; yli[n] = yy;}} if (m3 == 300) {saveFrame(„g15_################.tif“); m = 0; m3 = 0; background(0); SEGMENTx = SEGMENTx +1; if (SEGMENTx == 5) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 5) {SEGMENTy = 0;}}}}