[Nex]

квад - это не квадрат. Это плоскость состоящая из двух треугольников

Function CreateQuad (tex$,flag%=1)
     quad = CreateMesh()
           b = LoadBrush (tex,flag)
           s = CreateSurface (quad,b)
	v0 = AddVertex (s,-4,0,4,0,0)
	v1 = AddVertex (s,4,0,4,1,0)
	v2 = AddVertex (s,4,0,-4,1,1)
	v3 = AddVertex (s,-4,0,-4,0,1)
                AddTriangle (s,v0,v1,v2)
                AddTriangle (s,v0,v2,v3)
	Return quad
End Function