Wire Mesh Generator

oeData = dataPair odd:#() even:#()
oeData.odd = for i = 1 to 10 collect
(
    if mod i 2 != 0 then i else (append oeData.even i ; dontcollect)
)

-- ........................... 78 line
	local inv = (-1) -- for invert position of points
	local tmpArr = deleteItem (deepcopy pointArr[1]) 1
 
	for i = 2 to HalfTurn do
	(
		tmpArr = deepCopy tmpArr
		for j in tmpArr do
		(
			j.x *= inv
			j.y *= inv
			j.z += (CellSize)
		)
		join pointArr[1] tmpArr
	)
 
	for i = 1 to (Rows - 1) do
	(
		tmpArr = deepCopy pointArr[1]
		for j in tmpArr do
		(
			-- if i is odd number then multiply with inv value
			if mod i 2 != 0 do (j.x *= inv ; j.y *= inv) 
			j.x += ((CellSize - (Radius * 4)) * i)
		)
		append pointArr tmpArr
	)
 
	delete $TempGrid*
	local sp = splineshape name:(uniquename "TempGrid") sides:Sides thickness:(Radius * 2) \
	render_displayRenderMesh:DisplayRM render_displayRenderMesh:DisplayRM 
 
	for i in pointArr do
	(
		addnewspline sp
		for j in i do (addknot sp (numSplines sp) #smooth #line j)
	)