Unknown World Map (2024/12/18)

https://gyazo.com/c1aa50e0d075fafa647340a5e5128c2f https://gyazo.com/71c3659f42c7cce30cc5b6b7bacfa68d https://gyazo.com/8fc6dee099f7b6100c71c8a779d198b2

https://scrapbox.io/files/6762d2afa25a49c72985f338.mp4

https://x.com/hisadan/status/1869377799485825198

https://x.com/hisadan/status/1869377801473921317

やくしまるえつこのアンノウンワールドマップの歌詞「点と点が繋がっていく　連鎖反応広がっていく」が好きなので作ってみた。いい曲だよね。

code:processing

//#Processing

int n=2000, i, s;

float a[]=new floatn*2, d, r, p;

void setup() {

size(800, 800);

for (i=0; i<n*2; )ai++=400-random(800);

}

void draw() {

background(-1);

translate(400, 400);

for (i=0; i<n; i++) {

fill(0);

noStroke();

circle(ai, ai+n, 2);

if (mag(ai, ai+n)<r)

for (s=i+1; s<n; s++)

if (mag(as, as+n)<r&&(d=dist(ai, ai+n, as, as+n))<50) {

stroke(0, 255-d*5);

line(ai, ai+n, as, as+n);

}

if (abs(ai+=sin(p=TAU*noise(ai, ai+n)))>400)ai*=-1;

if (abs(ai+n+=cos(p))>400)ai+n*=-1;

}

r++;

}

ちなみに上のソースの

code:processing

if (abs(ai+=sin(p=TAU*noise(ai, ai+n)))>400)ai*=-1;

を

code:processing

if (abs(ai+=sin(p=TAU*noise(ai/300, ai+n/300)))>400)ai*=-1;

とかに変えると以下のように歪な連鎖反応になって面白い。

https://x.com/hisadan/status/1869383085760086403

https://scrapbox.io/files/6762d6c22dcd81f6415b067d.mp4

https://scrapbox.io/files/6762d6d5e4f47ed23007b7d2.mp4