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 = 0; int a = 1024; int b = 768; int num = 150000; float[] wli = new float[num]; float[] xli = new float[num]; float[] yli = new float[num]; float[] fuli = {386, 647, 414, 233, 378, 529, 159, 452, 332, 491}; float qh = 1/3 +1031; float qv = 1114; int m4 = 0; float w, xx, yy, d1, d2, d3, d4, d5, xxp, yyp, xx2, yy2, xx3, yy3, rr, x2, y2, ff; int SEGMENTx = 0; int SEGMENTy = 0; void setup() {size(5760, 3600, P2D); background(0); frameRate(900); stroke(255, 5); smooth(); for (int i = 0; i < num; i++) {wli[i] = random(360); xli[i] = random(a); yli[i] = random(b);}} void draw() {m3 = m3 +1; if (m3 == 200) {m3 = 0; m4 = m4 +1; for (int i = 0; i < num; i++) {xli[i] = random(a); yli[i] = random(b);}} for (int n = 0; n < num; n++) {w = wli[n]; xx = xli[n]; yy = yli[n]; xx = abs(xx -qh); yy = abs(yy -qv); d1 = sqrt(xx*xx +yy*yy); if (d1 == 0) {d1 = 0.01;} xx = abs(xx -fuli[2]); yy = abs(yy -fuli[3]); d2 = sqrt(xx*xx +yy*yy); if (d2 == 0) {d2 = 0.01;} xx = abs(xx -fuli[4]); yy = abs(yy -fuli[5]); d3 = sqrt(xx*xx +yy*yy); if (d3 == 0) {d3 = 0.01;} xx = abs(xx -fuli[6]); yy = abs(yy -fuli[7]); d4 = sqrt(xx*xx +yy*yy); if (d4 == 0) {d4 = 0.01;} xx = abs(xx -fuli[8]); yy = abs(yy -fuli[9]); d5 = sqrt(xx*xx +yy*yy); if (d5 == 0)¬†{d5 = 0.01;} if ((d1 > a/2) || (d5 > a/4)) {w = w +(abs(d1 -a/2))/200;} if (d2 > a/2) {w = w +(abs(d2 -a/2))/2;} if ((d3 > a/2) || (d1 < a/2)) {w = w +(abs(d3 +a/2))/200;} if ((d4 > a/2) || (d2 > a/4)) {w = w +(abs(d4 -a/4))/10;} if (d5 > a/2) {w = w +(abs(d5 +a/4))/10;} xxp = yy +(yy -y2)/d1*100; yyp = xx +(xx -x2)/d1*100; xx2 = tan(d2/10)*100; yy2 = sin(d2)*100; xx3 = tan(d3/20)*100; yy3 = atan(d3/3)*100; 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; rr = (d1-d2+d3+d4-d5)/min(xx3, yy3); xx = xx +cos(w*PI/180)*rr*2; yy = yy +sin(w*PI/180)*rr*2; wli[n] = w; xli[n] = xx; yli[n] = yy; xx = xx*18.75 -2775; yy = yy*11.25 -293; point(yy*4.5 -SEGMENTx*5760, xx*4.5 -SEGMENTy*3600);} if (m4 == 12) {saveFrame(„m511_J_################.tif“); m3 = 0; m4 = 0; background(0); for (int i = 0; i < num; i++) {wli[i] = random(360); xli[i] = random(a); yli[i] = random(b);} SEGMENTx = x +1; if (SEGMENTx == 3) {SEGMENTx = 0; SEGMENTy = SEGMENTy +1; if (SEGMENTy == 3) {SEGMENTy = 0;}}}}