ポリゴンを表示するプログラム
Posted feedbacks - HSP
HSP 3.1以降に標準添付のライブラリ d3module を使って。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #include "d3m.hsp"
xs = -1, 1, 1,-1
ys = -1,-1, 1, 1
repeat
redraw 0
color 255, 255, 255 : boxf
d3setcam 1500, 0, 500
color
d3initlineto
rad = 0.05 * cnt
repeat 5
x = xs(cnt\4) * 500
y = ys(cnt\4) * 500
d3rotate x, y, x, y, rad
d3lineto x, y, 0
d3line x, y, 0, 0, 0, 700
d3line x, y, 0, 0, 0, -700
loop
redraw
await 40
loop
|



ところてん
#5940()
Rating0/4=0.00
[ reply ]