3d Wire Grid (Help Improvements)

i can't remember, i personally don't have an old card here. when i use my lines i actually never use the 3 vertex variant.

by the way, this is my grid function:

Function createGrid(w#,d#, dw#,dd#, r=212,g=212,b=212, centerR=227, centerG=227, centerB=227)
	grid = CreatePivot()
	PositionEntity(grid, w#/2, 0,d#/2)
	
	hx = (w#/dw#)/2 + 1
	For x# = 0 To w#/dw#
		x_ = x_ + 1
		l = createLine(x*dw#,0,0, x*dw#,0,d)
		EntityFX(l, 16+1+8)
		If x_ = hx
			EntityColor(l, centerR,centerG,centerB)
		Else
			EntityColor(l, r,g,b)
		EndIf
		EntityParent(l, grid)
	Next
	
	hz = (d#/dd#)/2 + 1
	For z# = 0 To d#/dd#
		z_ = z_ + 1
		l = createLine(0,0,z*dd#, w,0,z*dd#)
		EntityFX(l, 16+1+8)
		If z_ = hz
			EntityColor(l, centerR,centerG,centerB)
		Else
			EntityColor(l, r,g,b)
		EndIf
		
		EntityParent(l, grid)
	Next

	PositionEntity(grid, 0,0,0)
	
	Return grid
End Function

not brilliant, but it works :)