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 a = 1024; int b = 768; int m3 = 1; int num1 = 6; int num2 = 100000; int m = 0; float[] xli = new float[num2]; float[] yli = new float[num2]; float[] d1li = new float[num1]; float[] pxli = {956.07, 630.48, 740.48, 630.16, 298.07, 174.77}; float[] pyli = {618.41, 291.94, 439.44, 282.17, 25.31, 602.23}; float x1, y1, x2, y2, xx, yy, xxc, yyc, ff, fff, ffx, ffy, V2, V3, d1, d2, d3, dx, dy, xxp, yyp, dd, w, xx2, yy2, xx3, yy3, ffff; int ble = 5; float fek = 200; void setup() {size(1920, 800, P2D); background(0); frameRate(100); stroke(255, ble); smooth(); for (int i = 0; i < num2; i++) {xli[i] = random(a*5)/20 +250; yli[i] = random(b*5)/60 +227;} 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;fek = 200 +100*m; if (m == 3) {m = 0; m3 = m3 +1; for (int i = 0; i < num2; i++) {xli[i] = random(a*5)/20 +250; yli[i] = random(b*5)/60 +227;}} 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 = sin(d1/100)*10; 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); d2 = tan(d2/30)*10; dd = sqrt(dx*dx +dy*dy); if (dx == 0) {dx = 0.001;} if (dy == 0) {dy = 0.001;} if ((dx >= 0) && (dy >= 0)) {w = atan(dy/dx)*(180/PI) +180;} if ((dx < 0) && (dy >= 0)) {w = atan(dy/dx)*(180/PI);} if ((dx < 0) && (dy < 0)) {w = atan(dy/dx)*(180/PI);} if ((dx >= 0) && (dy < 0)) {w = atan(dy/dx)*(180/PI) +180;} V2 = sin(w*PI/3); V3 = atan(w*PI/9); dx = abs(xx -x2); dy = abs(yy -y2); d3 = sqrt(dx*dx +dy*dy); d3 = tan(d3/100)*(10+10*m); if (d1 == 0) {d1 = 1;} 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.001;} xx2 = tan(ff/100)*fek; ffff = d2; if (ffff == 0) {ffff = 0.001;} ff = d3/ffff*10; if (ff == 0) {ff = 0.001;} yy2 = sin(ff)*fek; xx3 = cos(d3/2)*fek; yy3 = atan(d3/30)*fek; ff = min(xx2, xx3); if (ff == 0) {ff = 0.001;} xx = xx +(xx -xxp)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.001;} yy = yy +(yy -yyp)/log(abs(ff)); ff = min(xx2, xx3); if (ff == 0) {ff = 0.001;} xx = xx +(xx -xxp)/log(abs(ff)); ff = max(yy2, yy3); if (ff == 0) {ff = 0.001;} yy = yy +(yy -yyp)/log(abs(ff)); if (i == num1/2 -1) {ffx = (xx*14.4 -5601.2)*3.16; ffy = (yy*14.4 -1812.4)*3.16; dx = abs(xxc -xx); dy = abs(yyc -yy); dd = sqrt(dx*dx +dy*dy); if (dx == 0) {dx = 0.001;} if (dy == 0) {dy = 0.001;} if ((dx >= 0) && (dy >= 0)) {w = atan(dy/dx)*(180/PI) +180;} if ((dx < 0) && (dy >= 0)) {w = atan(dy/dx)*(180/PI);} if ((dx < 0) && (dy < 0)) {w = atan(dy/dx)*(180/PI);} if ((dx >= 0) && (dy < 0)) {w = atan(dy/dx)*(180/PI) +180;} stroke(200, sin(w)*200, min(255, max(0, tan(w)*450)), ble); point(ffx/6 +700, ffy/6 +75);} xli[n] = xx; yli[n] = yy;}} if (m3 == 200){saveFrame(„G012_#################.tif“); m3 = 0; m = 0; background(0);}}