WindowOpen(0, "tst", WINDOWPOS_CENTERED, WINDOWPOS_CENTERED, 640, 480, WINDOW_VISIBLE, 1)
CanvasOpen(0, 640, 480, 0, 0, 640, 480, 1)
ClearCanvas
LoadImage(0, "tst.bmp")
Dim vertices[3, 8]
Dim indices[3]
indices[0] = 0
indices[1] = 1
indices[2] = 2
'三角形の中心
vertices[0, 0] = 320 'スクリーンの x 座標
vertices[0, 1] = 10 'スクリーンの y 座標
vertices[0, 2] = 255 '赤色
vertices[0, 3] = 255 '緑色
vertices[0, 4] = 255 '青色
vertices[0, 5] = 255 '透過
vertices[0, 6] = 0.5 'テクスチャの x 座標
vertices[0, 7] = 0.5 'テクスチャの y 座標
'三角形の右下
vertices[1, 0] = 640 'スクリーンの x 座標
vertices[1, 1] = 450 'スクリーンの y 座標
vertices[1, 2] = 255 '赤色
vertices[1, 3] = 255 '緑色
vertices[1, 4] = 255 '青色
vertices[1, 5] = 255 '透過
vertices[1, 6] = 1 'テクスチャの x 座標
vertices[1, 7] = 1 'テクスチャの y 座標
'三角形の左下
vertices[2, 0] = 30 'スクリーンの x 座標
vertices[2, 1] = 450 'スクリーンの y 座標
vertices[2, 2] = 255 '赤色
vertices[2, 3] = 255 '緑色
vertices[2, 4] = 255 '青色
vertices[2, 5] = 255 '透過
vertices[2, 6] = 0 'テクスチャの x 座標
vertices[2, 7] = 1 'テクスチャの y 座標
DrawGeometry( 0, 3, vertices, 3, indices )
Update()
WaitKey()
これはテクスチャ付きの三角形をスクリーンに描画します。