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 aa = 1024; float bb = 768; int num = 10000; float[] wli = new float[num]; float[] xli = new float[num]; float[] yli = new float[num]; int m3 = 0; int m4 = 0; int m5 = 27*25; float qh = 1031.3 +sin((m5/2)*PI/180)*10 +5; float qv = 1114 +cos(((m5+180)/2)*PI/180); float[] fuli = {386, 647, 414, 233, 378, 529, 159, 452, 332, 491}; float xx, yy, w, ff, rr, ab, d1, d2, d3, d4, d5, xxp, yyp, xx2, yy2, xx3, yy3; float fek, fok, fik, fak; int SEGMENTx = 0; void setup() {size(1920, 7200); background(0); frameRate(900); stroke(255, 5); for (int n = 0; n < num; n++) {wli[n] = random(360); xli[n] = random(aa)/3 +170; yli[n] = random(bb)/2 +10;} fek = 80; fok = 10; fik = 100; fak = 1; } void draw() {m3 = m3 +1; if (m3 == 200) {for (int n = 0; n < num; n++) {xli[n] = random(aa)/3 +170; yli[n] = random(bb)/2 +10;} m3 = 0; } 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 < 1) {d1 = 1;} xx = abs(xx -fuli[2]); yy = abs(yy -fuli[3]); d2 = sqrt(xx*xx +yy*yy); if (d2 < 2) {d1 = 2;} xx = abs(xx -fuli[4]); yy = abs(yy -fuli[5]); d3 = sqrt(xx*xx +yy*yy); if (d3 < 3) {d1 = 3;} xx = abs(xx -fuli[6]); yy = abs(yy -fuli[7]); d4 = sqrt(xx*xx +yy*yy); if (d4 < 4) {d1 = 4;} xx = abs(xx -fuli[8]); yy = abs(yy -fuli[9]); d5 = sqrt(xx*xx +yy*yy); if (d5 < 5) {d1 = 5;} if ((d1 > aa/2) || (d5 > aa/4)) {w = w +(abs(d1 -aa/2))/fek;} if (d2 > aa/2) {w = w +(abs(d2 -aa/2))/2;} if ((d3 > aa/2) || (d1 < aa/2)) {w = w +(abs(d3 +aa/2))/fek;} if ((d4 > aa/2) || (d2 > aa/4)) {w = w +(abs(d4 -aa/4))/fek;} if (d5 > aa/2) {w = w +(abs(d5 +aa/4))/fek;} xxp = yy +(yy -fuli[3])/d1*fok; yyp = xx +(xx -fuli[2])/d1*fok; xx2 = tan(d2/10)*fik; yy2 = sin(d2)*fik; xx3 = tan(d3/20)*fik; yy3 = atan(d3/3)*fik; 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(xx2, yy3); xx = xx +cos(w*PI/180)*rr*fak; yy = yy +sin(w*PI/180)*rr*fak; wli[n] = w; xli[n] = xx; yli[n] = yy; ff = max(0, m3/2 -50); stroke(255, max(0, 255 -ff), max(0, 255 -ff), 5); point((yy*3.75 -100)*9 -SEGMENTx*1920, (xx*6.2 -900)*9);} m4 = m4 +1; if (m4 == 28800) {saveFrame(„k511_G_01c_11250-##############.tif“); background(0); m3 = 0; m4 = 0; for (int n = 0; n < num; n++) {wli[n] = random(360); xli[n] = random(aa)/3 +170; yli[n] = random(bb)/2 +10;} SEGMENTx = SEGMENTx +1; if (SEGMENTx == 6) {SEGMENTx = 0;}}}