Code for Dextro.org algorithmic image "H010" written by Walter Gorgosilits (Dextro.org) between 1994 and 2017. For research only. No commercial or secret service/clandestine use.

b/w layer:

int ble = 5; int a = 1024; int b = 768; int m3 = 1; int num1 = 20; int num2 = 50000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] xccli = new float[num2]; float[] yccli = new float[num2]; float[] d1li = new float[num1]; float x1, y1, x2, y2, d1, d2, d3, dx, dy, ff, fff, ffx, ffy, xx2, yy2, xx3, yy3, xxp, yyp, xx, yy, xxc, yyc, xxcc, yycc; float fek = 400; float[] pyli = {108.4021, 703.49884, 755.68445, 442.0475, 0.098236084, 57.078186, 678.74695, 238.50174, 43.908554, 425.153, 411.3956, 151.24557, 5.7564697, 182.1725, 306.62668, 631.1924, 712.8742, 461.21448, 757.1271, 395.5481}; float[] pxli = {359.82684, 195.02502, 677.1722, 58.569702, 373.66956, 860.89703, 487.60468, 559.30225, 956.51654, 795.47626, 518.7138, 186.3573, 341.41022, 175.6828, 541.199, 775.3621, 500.0252, 943.13635, 679.3224, 108.903564}; int SEGMENTx = 1; int SEGMENTy = 1; void setup() {size(4800, 3600, P2D); background(0); frameRate(900); stroke(255, ble); smooth(); for (int i = 0; i < num2; i++) {xx = random(a); yy = random(b); xli[i] = xx; yli[i] = yy; xccli[i] = xx; yccli[i] = yy;} 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.8 +140; yli[i] = random(b)/3.2 +6;}} 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 = log(abs(d1))*10; for (int n = 0; n < num2; n++) {xx = xli[n]; yy = yli[n]; xxc = xx; yyc = yy; xxcc = xccli[n]; yycc = yccli[n]; xccli[n] = xx; yccli[n] = yy; dx = abs(xx -x1); dy = abs(yy -y1); d2 = sqrt(dx*dx +dy*dy); d2 = tan(log(abs(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)*log(abs(fff)); yyp = yy +sin(d3*PI/10)*log(abs(fff)); ff = d2/d3*10; if (ff == 0) {ff = 0.0001;} xx2 = tan(ff/100.0)*fek; if (d2 == 0) {d2 = 0.0001;} ff = d3/d2*10; if (ff == 0) {ff = 0.0001;} yy2 = sin(ff)*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)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/log(abs(ff)); ff = min(xx2, xx3); if (ff == 0) {ff = 0.0001;} xx = xx +(xx -xxp)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/log(abs(ff)); if (i == num1/2-1) {ffy = (yy-296)*6 +1000; ffy = ffy +100; ffx = (xx-573)*6 +1000; ffx = ffx +1200; dx = abs(xxcc -xx); dy = abs(yycc -yy); ff = sqrt(dx*dx +dy*dy); point(ffx*7.5 -SEGMENTx*4800, ffy*7.5 -SEGMENTx*3600);} xli[n] = xx; yli[n] = yy;}} if (m3 > 400) {saveFrame(); background(0); m = 0; m3 = 0; m3 = 0; m = 0; background(0); SEGMENTx = SEGMENTx +1; if (SEGMENTx == 3) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 3) {SEGMENTy = 0;}}}}//

colour layer:

int ble = 50; int a = 1024; int b = 768; int m3 = 1; int num1 = 20; int num2 = 50000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] xccli = new float[num2]; float[] yccli = new float[num2]; float[] d1li = new float[num1]; float x1, y1, x2, y2, d1, d2, d3, dx, dy, ff, fff, ffx, ffy, xx2, yy2, xx3, yy3, xxp, yyp, xx, yy, xxc, yyc, xxcc, yycc; float fek = 400; float[] pyli = {108.4021, 703.49884, 755.68445, 442.0475, 0.098236084, 57.078186, 678.74695, 238.50174, 43.908554, 425.153, 411.3956, 151.24557, 5.7564697, 182.1725, 306.62668, 631.1924, 712.8742, 461.21448, 757.1271, 395.5481}; float[] pxli = {359.82684, 195.02502, 677.1722, 58.569702, 373.66956, 860.89703, 487.60468, 559.30225, 956.51654, 795.47626, 518.7138, 186.3573, 341.41022, 175.6828, 541.199, 775.3621, 500.0252, 943.13635, 679.3224, 108.903564}; int SEGMENTx = 1; int SEGMENTy = 1; void setup() {size(4900, 3700, P2D); background(0); frameRate(900); noStroke(); smooth(); for (int i = 0; i < num2; i++) {xx = random(a); yy = random(b); xli[i] = xx; yli[i] = yy; xccli[i] = xx; yccli[i] = yy;} 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.8 +140; yli[i] = random(b)/3.2 +6;}} 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 = log(abs(d1))*10; for (int n = 0; n < num2; n++) {xx = xli[n]; yy = yli[n]; xxc = xx; yyc = yy; xxcc = xccli[n]; yycc = yccli[n]; xccli[n] = xx; yccli[n] = yy; dx = abs(xx -x1); dy = abs(yy -y1); d2 = sqrt(dx*dx +dy*dy); d2 = tan(log(abs(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)*log(abs(fff)); yyp = yy +sin(d3*PI/10)*log(abs(fff)); ff = d2/d3*10; if (ff == 0) {ff = 0.0001;} xx2 = tan(ff/100.0)*fek; if (d2 == 0) {d2 = 0.0001;} ff = d3/d2*10; if (ff == 0) {ff = 0.0001;} yy2 = sin(ff)*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)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/log(abs(ff)); ff = min(xx2, xx3); if (ff == 0) {ff = 0.0001;} xx = xx +(xx -xxp)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.0001;} yy = yy +(yy -yyp)/log(abs(ff)); if (i == num1/2-1) {ffy = (yy-296)*6 +1000; ffy = ffy +100; ffx = (xx-573)*6 +1000; ffx = ffx +1200; dx = abs(xxcc -xx); dy = abs(yycc -yy); ff = sqrt(dx*dx +dy*dy); fill(0, ble); if (ff < 8) {fill(200, 100, 100, ble);} if (abs(xxc -xx) < 2.8 -(((ffx*1.6 +1800) +170)-300)/4200) {fill(200, 30, 100, ble);} ellipse(ffx*7.5 -SEGMENTx*4800, ffy*77.5 -SEGMENTy*3600, 10*2.5, 10*2.5);} xli[n] = xx; yli[n] = yy;}} if (m3 > 40) {saveFrame(); m3 = 0; m = 0; background(0); SEGMENTx = SEGMENTx +1; if (SEGMENTx == 3) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 3) {exit();}}}}