[hsp3]三角ポリゴンを作るだけのソースコード

#include "hgimg4.as"

gpreset

setcls CLSMODE_SOLID, $404040

setpos GPOBJ_CAMERA, 0,0,10	; カメラ位置を設定
gplookat GPOBJ_CAMERA, 0,0.3,0

gpmeshclear
gpmeshadd p1,  1.0,   0,   0,     0,   0, 1.0,    0,  0
gpmeshadd p2,    0, 1.0,   0,     0,   0, 1.0,    0,  0
gpmeshadd p3, -1.0,   0,   0,     0,   0, 1.0,    0,  0

gpmeshpolygon p1,p2,p3
gpmesh model1

*main
	redraw 0

	gpdraw				; シーンの描画

	redraw 1

	await 1000/60
	goto *main