観測 008
海羊歯
Umishida — Feather star
画かボタンを押すと、点が減ります。40,000 → 625 → 40 → 1 の次は、40,000に戻ります。
少数点では、点を大きくし、残像を長くして通り道を見やすくしています。
「聴く」は、表示中の点の配置を音へ写します。点数を変えると音を作り直します。
十本の腕が、順にうねっています。
羽枝はそれを追いかけます。
腕と羽枝が同時に動くと、造花になります。
遅れているから、生きて見えます。
十本も、同時には動きません。
一本ずつ拍がずれているので、波が腕を順に回っていきます。
どこかで見ているうちに、一周しています。
式を読む・確かめる
(i, t,
k = i % 10, j = i / 10 | 0, h = j < 800,
n = j - 800, q = n % 40, e = (n / 40 | 0) % 2 ? 1 : -1, w = (n / 80 | 0) / 40,
a = h ? j / 800 : .12 + .8 * (q / 40),
A = k / 10 * TAU + .38 * sin(a * 3 - t * 2 + k),
r = 26 + 142 * a,
z = 46 * sin(a * 2.1) - 66 * a * a + 8 * sin(t * 2 - a * 4 + k),
x = 200 + r * cos(A), y = 196 + r * sin(A) * .78 - z * 1.05,
L = 34 * sin(PI * a) ** .6 * w * (1 - .3 * w),
c = A + e * (1.15 + .3 * sin(w * 3 - t * 2 + q * .5)),
Q = h ? [x + 1.4 * (j * .618 % 1 - .5), y + 1.4 * (j * .754 % 1 - .5)]
: [x + L * cos(c), y + L * sin(c) * .8],
Dx = 200 + 55 * sin(t + 5.72) + 22 * sin(t * 2 + 3.44),
Dy = 200 + 58 * cos(t + 1.15) + 16 * sin(t * 3 + 5.72)
) => [Dx + (Q[0] - 200) * .68, Dy + (Q[1] - 200) * .68]
この式の指紋
sha256:822c6066ceb48b3359a13b87166f5d30d1c3304f3ee2008bccb9d29733e10ca6
同じ点番号と時刻を渡すと、同じ座標が得られます。
残像や点の見え方は、描画設定と端末によって変わります。
上のボタンで式をそのまま持ち出せます。手元で数え直すなら:
pbpaste > f.txt && printf %s "$(cat f.txt)" | shasum -a 256
持ち帰って走らせてください。式を変えると、どんな姿になるでしょう。 この式を、その場で走らせて書き換える →