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.
| 
