観測 011
蝶
Chou — Butterfly
画かボタンを押すと、点が減ります。40,000 → 625 → 40 → 1 の次は、40,000に戻ります。
少数点では、点を大きくし、残像を長くして通り道を見やすくしています。
「聴く」は、表示中の点の配置を音へ写します。点数を変えると音を作り直します。
前の翅と後ろの翅は、少しずれて打ちます。
同時に打たせると、途端に造花になります。
翅が閉じるとき短く見えるのは、縮んでいるからではありません。
向こう側で翅は平らなまま、こちらへ傾いているだけです。
その傾きを、この面に写しています。
縁が濃く見えます。
翅の縁に、点が寄っているからです。
均していくと、翅は灰色の板になり、花に見えてしまいます。
式を読む・確かめる
(i, t,
e = i % 2 ? 1 : -1, j = i / 2 | 0,
b = j < 10000, d = j >= 18600, n = b ? j : j - 10000,
u = n * .618034 % 1, v = sin((n * .754878 % 1 - .5) * PI),
S = b ? 148 : 104, C = b ? 62 : 50,
h = .92 * sin(t * 2 + (b ? 0 : .34)),
W = C * sin(PI * u ** (b ? .6 : .8)) ** (b ? .8 : .6),
X = e * S * u * cos(h) * (1 - .08 * v * v),
Z = S * u * sin(h),
Y = (b ? -16 : 46) + W * v + (b ? 28 : 18) * u ** 1.4,
m = j - 18600, g = m / 1400, a = (g - .5) * 2,
Q = d
? g < .5
? [200 + e * 5.5 * sin(PI * (g * 2) ** .5) * (m * .754878 % 1 * 2 - 1),
168 + 150 * g * 2]
: [200 + e * (5 + 30 * (g * 2 - 1) ** .8),
170 - 40 * (g * 2 - 1) + 13 * (g * 2 - 1) ** 2]
: [200 + X, 190 + Y - Z * .5],
Dx = 200 + 46 * sin(t + 0.35) + 22 * sin(t * 2 + 0.59),
Dy = 200 + 50 * cos(t + 0.45) + 16 * sin(t * 3 + 0.35)
) => [Dx + (Q[0] - 200) * .68, Dy + (Q[1] - 200) * .68]
この式の指紋
sha256:1564755a91a6415c9621873817c714e0c2a69bb55f8111c27da745e863ba42b2
同じ点番号と時刻を渡すと、同じ座標が得られます。
残像や点の見え方は、描画設定と端末によって変わります。
上のボタンで式をそのまま持ち出せます。手元で数え直すなら:
pbpaste > f.txt && printf %s "$(cat f.txt)" | shasum -a 256
持ち帰って走らせてください。式を変えると、どんな姿になるでしょう。 この式を、その場で走らせて書き換える →