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 = 6; int num2 = 50000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] pxli = {99.08, 818.4, 505.34, 110.62, 904.17, 215.1}; float[] pyli = {108.57, 8.05, 140.45, 333.78, 522.94, 3.87}; float[] d1li = new float[num1]; float x1, y1, x2, y2, d1, d2, d3, dx, dy, ff, fff, ffff, ffx, ffy, xx, yy, xxp, yyp, xx2, yy2, xx3, yy3, xxc, yyc; int ble = 5; int SEGMENTx = 0; int SEGMENTy = 3; int FAK = 16; void setup() {size(4000, 3000, P2D); background(0); frameRate(900); smooth(); stroke(255, 10); for (int n = 0; n < num2; n++) {xli[n] = (random(a)/4 +200)/3+120 +SEGMENTx*50; yli[n] = (random(b)/4 +140)/3+120 +SEGMENTy*40;} 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() {m3 = m3 +1; m = m +1; if (m == 5) {m = 0; for (int n = 0; n < num2; n++) {xli[n] = (random(a)/4 +200)/3+120 +SEGMENTx*50; yli[n] = (random(b)/4 +140)/3+120 +SEGMENTy*40;}} 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;} xxp = xx +(xx -x2)/d1*100; yyp = yy +(yy -y2)/d1*100; xx2 = tan(d2/10.0)*200; yy2 = sin(d2/1.0)*200; xx3 = tan(d3/20.0)*200; yy3 = atan(d3/3.0)*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; if (i == num1/2-1) {ffy = (yy-296)*6 +1000; if ((ffy < 0) || (ffy > 1300)) {xx = (random(a)/4 +200)/3+120 +SEGMENTx*50;} ffy = (ffy*1.6 -400)*2; ffx = (xx-573)*6 +1000; if ((ffx < 0) || (ffx > 640)) {yy = (random(b)/4 +140)/3+120 +SEGMENTy*40;} ffx = ((ffx*1.6 +1800) +170)*2; stroke(255, 255, 255, ble); if (abs(xxc -xx) < 0.6) {stroke(0, 155, 255, ble);} if (abs(xxc -xx) < 0.6 -m3/60000/2*450/FAK/FAK) {stroke(255, 0, 100, ble);} point(ffx/4*FAK -SEGMENTx*4000, ffy/4*FAK -SEGMENTy*3000);} xli[n] = xx; yli[n] = yy;}} if (m3 >= 300*FAK*FAK) {saveFrame(„X-##############.tif“); background(0); m3 = 0; m = 0; for (int n = 0; n < num2; n++) {xli[n] = (random(a)/4 +200)/3+120 +SEGMENTx*40; yli[n] = (random(b)/4 +140)/3+120 +SEGMENTy*40;} SEGMENTx = SEGMENTx +1; if (SEGMENTx == 4) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 4) {SEGMENTy = 0;}}}}