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.float a = 1024; float b = 768; float m3 = 1; int num1 = 10; int num2 = 990; int m = 0; int m5 = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] pxli = {310.21, 773.36, 457.8, 690.81, 234.76, 586.27, 910.05, 627.37, 767.04, 710.69}; float[] pyli = {275.26, 649.3, 487.14, 442.12, 247.11, 685.48, 0.88, 601.63, 70.52, 689.61}; float[] d1li = new float[num1], float x1, y1, x2, y2, d1, d2, d3, dx, dy, ff, fff, ffff, f1, f2, xx, yy, xxc, yyc, xxp, yyp, xx2, yy2, xx3, yy3; void setup() {size(3990, 3000); background(0); frameRate(900); smooth(); stroke(255, 5); for (int n = 0; n < num2; n++) {xli[n] = random(a); yli[n] = 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); d1li[i] = sqrt(dx*dx +dy*dy);}} void draw() {m = m +1; if (m == 10) {m = 0; m3 = m3 +1; for (int n = 0; n < num2; n++) {xli[n] = random(a/2); yli[n] = 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); if (d1 == 0) {d1 = 1;} 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.0)*fff; yyp = yy +sin(d3*PI/10.0)*fff; ff = d2/d3*10; if (ff == 0) {ff = 0.001;} xx2 = tan(ff/20)*200; ffff = d2; if (ffff == 0) {ffff = 0.001;} ff = d3/ffff*10; if (ff == 0) {ff = 0.001;} yy2 = sin(ff)*200; xx3 = tan(d3/20)*200; yy3 = atan(d3/3)*200; 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) {f1 = (yy-296)*6 +1000; if ((f1 < 0) || (f1 > 960)) {xx = random(a/2);} f2 = (xx-573)*6 +1000; if ((f2 < 0) || (f2 > 640)) {yy = random(b/2);} point(f2*3.2 +1800, f1*3.2);} xli[n] = xx; yli[n] = yy;}} if (m3 >= 1000) {saveFrame(„X_##########.tif“); exit();}}