Drawprimitive

BlitzMax Forums/BlitzMax Beginners Area/Drawprimitive

tonyg(Posted 2006) [#1]
Can anybody see what I've done wrong here as it displayed a blank screen...
Function DrawRecttg( x0#,y0#,x1#,y1#,tx#,ty# )
    Local cverts#[16]
		cverts[0]=x0+y0+tx
		cverts[1]=x0+y0+ty
		cverts[4]=x1+y0+tx
		cverts[5]=x1+y0+ty
		cverts[8]=x0+y1+tx
		cverts[9]=x0+y1+ty
		cverts[12]=x1+y1+tx
		cverts[13]=x1+y1+ty
	For i:Int = 0 To 15
	   Print "cverts[" + i + "] = " + cverts[i]
	Next
	primarydevice.device.DrawPrimitive(D3DPT_TRIANGLESTRIP,D3DFVF_XYZ|D3DFVF_DIFFUSE,cverts,4,0)
End Function
Graphics 800,600
While Not AppTerminate()
  Cls
     drawrecttg(0.0,0.0,100.0,100.0,0.0,0.0)
'   _max2ddriver.drawrect(0.0,0.0,100.0,100.0,0.0,0.0)
	Flip
Wend

Calling _max2ddriver.drawrect directly with same parms works OK.
<edit> OK, got it. I wasn't setting any vertex colours.