【2.61】HSP初質P56【3.2β2】
■ このスレッドは過去ログ倉庫に格納されています
0666デフォルトの名無しさん
2009/09/02(水) 02:59:19cx = 320: cy = 240
r = 200.0
n = 5
ddim p, n: p = 1.0, 0.5, 0.7, 0.8, 0.5
m = 5
repeat n
x1 = r * cos(2.0 * M_PI * cnt / n - M_PI / 2)
y1 = r * sin(2.0 * M_PI * cnt / n - M_PI / 2)
x2 = r * cos(2.0 * M_PI * (cnt + 1) / n - M_PI / 2)
y2 = r * sin(2.0 * M_PI * (cnt + 1) / n - M_PI / 2)
color 128, 128, 128
repeat m, 1
line cx + x1 * cnt / m, cy + y1 * cnt / m, cx + x2 * cnt / m, cy + y2 * cnt / m
loop
line cx + x1, cy + y1, cx + x2, cy + y2
line cx + x1, cy + y1, cx, cy
color 0, 0, 255
line cx + p(cnt) * x1, cy + p(cnt) * y1, cx + p((cnt + 1) \ n) * x2, cy + p((cnt + 1) \ n) * y2
loop
■ このスレッドは過去ログ倉庫に格納されています