観測 007
海牛
Umiushi — Sea slug
画かボタンを押すと、点が減ります。40,000 → 625 → 40 → 1 の次は、40,000に戻ります。
少数点では、点を大きくし、残像を長くして通り道を見やすくしています。
「聴く」は、表示中の点の配置を音へ写します。点数を変えると音を作り直します。
縁の毛が、一本ずつ遅れて揺れています。
体そのものも、姿勢を変えながら進んでいます。
決まった形に波を通しているのではありません。
体の曲がり方が、その都度変わっています。
だから同じ姿は二度現れません——ひと巡りするまでは。
毛は、まっすぐには生えていません。
後ろへ少し反っています。
まっすぐだと剛毛に見え、反っていると柔らかく見えます。
式を読む・確かめる
(i, t,
b = i < 17000, j = i - 17000, k = j % 80, e = k % 2 ? 1 : -1,
u = (j / 80 | 0) / 288,
s = b ? i * .618034 % 1 : .05 + .9 * ((k / 2 | 0) / 40),
c = (i * .754878 % 1) * PI,
p = -1.45 + 2.9 * s + .5 * sin(t - s * 3),
g = 2.9 - 1.5 * cos(t - s * 3),
cx = 200 + 126 * sin(p), cy = 238 - 120 * cos(p) + 22 * sin(s * 2 - t),
qx = 126 * cos(p) * g, qy = 120 * sin(p) * g + 44 * cos(s * 2 - t),
m = hypot(qx, qy), nx = -qy / m, ny = qx / m, hx = qx / m, hy = qy / m,
W = 39 * sin(PI * s ** .7) ** .55,
w = .55 * sin(t * 2 - s * 4 + k * .3),
dx = nx * cos(w) - ny * sin(w), dy = nx * sin(w) + ny * cos(w),
L = 70 * u * (1 - .28 * u) * sin(PI * s ** .8) ** .35,
Q = b
? [cx + W * cos(c) * nx, cy + W * cos(c) * ny - W * sin(c) * .38]
: [cx + e * (W * .8 + L) * dx - 20 * u * u * hx,
cy + e * (W * .8 + L) * dy - 20 * u * u * hy],
Dx = 200 + 46 * sin(t + 3.32) + 22 * sin(t * 2 + 5.64),
Dy = 200 + 50 * cos(t + 4.32) + 16 * sin(t * 3 + 3.32)
) => [Dx + (Q[0] - 200) * .68, Dy + (Q[1] - 200) * .68]
この式の指紋
sha256:e485d1b6b18fe4368f9318536b3d5ccba90f87e50c966794aac4d15f92354162
同じ点番号と時刻を渡すと、同じ座標が得られます。
残像や点の見え方は、描画設定と端末によって変わります。
上のボタンで式をそのまま持ち出せます。手元で数え直すなら:
pbpaste > f.txt && printf %s "$(cat f.txt)" | shasum -a 256
持ち帰って走らせてください。式を変えると、どんな姿になるでしょう。 この式を、その場で走らせて書き換える →