観測 048
海馬
Tatsunootoshigo — Seahorse
画かボタンを押すと、点が減ります。40,000 → 625 → 40 → 1 の次は、40,000に戻ります。
少数点では、点を大きくし、残像を長くして通り道を見やすくしています。
「聴く」は、表示中の点の配置を音へ写します。点数を変えると音を作り直します。
たつのおとしごのような、小さな横顔。
巻いた尾が、ゆっくり緩みます。
体はあまり動かず、背中のひれだけが細かく震えます。
同じ時刻から、違う速さの動きが生まれています。
点を減らすと、体の節や尾の輪が途切れていきます。
一点は、何の姿だったかを示さずに動き続けます。
生きて見えたのは、
動いたところか、動かなかったところか。
式を読む・確かめる
(i, t, p = i < 16000 ? 0 : i < 25000 ? 1 : i < 33000 ? 2 : i < 37000 ? 3 : 4, j = p === 0 ? i : p === 1 ? i - 16000 : p === 2 ? i - 25000 : p === 3 ? i - 33000 :
i - 37000, s = j * .61803398875 % 1, b = (j * .75487766625 % 1) * TAU, q = t * .25, v = 1 - s, r = (10 + 18 * max(0, sin(PI * s)) ** .8) * (1 - .55 * s) * (.91
+ .09 * cos(48 * PI * s)), a = -.8 + (5.8 + .42 * sin(q - .9)) * s, R = 34 * (1 - .88 * s), Q = p === 0 ? [204 * v ** 3 + 151 * 3 * v * v * s + 239 * 3 * v * s
* s + 196 * s ** 3 + r * cos(b) + 5 * s * v * sin(5 * s - q * 2), 116 * v ** 3 + 159 * 3 * v * v * s + 215 * 3 * v * s * s + 250 * s ** 3 + r * sin(b) * .25] :
p === 1 ? [173 + R * cos(a) + (5 - 4 * s) * cos(b), 273 + R * sin(a) + (5 - 4 * s) * sin(b)] : p === 2 ? [204 + 14 * s + 25 * sqrt(max(0, 1 - (s * 2 - 1) ** 2))
* (1 - .45 * s) * cos(b), 103 + 20 * (s * 2 - 1) + 3 * sin(b)] : p === 3 ? [177 - 34 * s + 5 * s * sin(9 * PI * v - t * 5), 178 + 34 * sqrt(s) * (1 - .55 * s) *
sin(b)] : [224 + 40 * s, 109 + 15 * s + (6 - 2 * s) * cos(b)], lean = .10 * sin(q + .6), X = Q[0] - 200, Y = Q[1] - 200 ) => p === 2 && hypot(Q[0] - 216, Q[1] -
98) < 3.8 ? [-9, -9] : [200 + 15 * sin(q) + X * cos(lean) - Y * sin(lean), 200 + 9 * cos(q * 2) + X * sin(lean) + Y * cos(lean)]
この式の指紋
sha256:1a77e764cd38794245bfca688b34ab189070a86e8e19d9ccb75441a97038c8dd
同じ点番号と時刻を渡すと、同じ座標が得られます。
残像や点の見え方は、描画設定と端末によって変わります。
上のボタンで式をそのまま持ち出せます。手元で数え直すなら:
pbpaste > f.txt && printf %s "$(cat f.txt)" | shasum -a 256
持ち帰って走らせてください。式を変えると、どんな姿になるでしょう。 この式を、その場で走らせて書き換える →