Code archives/3D Graphics - Mesh/Mesh builder

EDIT - well, almost there - the vertices are under control - but they are still produced 4x each square - need to modify this. Other than that, the sucker is okayish.

EDIT:

Just to save my botty over creating this code archive.

Here's one I have found from 2 years ago!:

Mesh Plane by "Neo Genesis10"
http://www.blitzbasic.com/codearcs/codearcs.php?code=382

This nullifies mine.

I was going to redo mine to be more efficient, but it will probably end up like "Neo Genesis10's". I think mine is cuter - I like the fact that mine wasn't using an array in the same way.

I was never going to use vertex coords though - I was just going to modify progressive squares to use the right-hand vertices of the preceding square. Which would bring my vertex count down to optimal.

Good Luck

Mine' will never work without making the code bigger. I optimised it (although the above code has not been amended) and this works 100% for the rows running left to right. However, when adding a new row, the top left and top right vertices are always repeated - there is no way around it other than using an array or, perhaps, types. It can be modified to work, it is just the code will be twice the size.

Another solution is to do the mesh as a 'spread' from vertex 0,0 by processing the rows and columns together (at the same time). However, the only gain of this would be keeping the initial array small.

I'm just glad I found 'Mesh Plane' by "Neo Genesis10"
www.blitzbasic.com/codearcs/codearcs.php?code=382

I don't know if this will help you or not, but you don't need to store the vertexs in an array or anything. Each vertex is given an index number anyway, and if you build the mesh using loops, you can easily find which vertex your looking for :o)

I wrote a CreateSquare function that uses less Vertices. It is in the Codes Archives. If you are interested !
It does use more code.

I found it "Ziltch"
http://www.blitzbasic.com/codearcs/codearcs.php?code=463

; Top bit added by puki (for demonstration purposes) - 1/11/04
Graphics3D 640,480,16,2

cam=CreateCamera()
PositionEntity cam,0,0,2

; set the size of Ziltch's square, now use it as a normal entity
; so, as Ziltch said, it is scaleable.
ground=createsquare(25)

PointEntity cam,ground

While KeyHit(1)=0

TurnEntity ground,1,0,0

RenderWorld
Flip

Wend
End

;===================================================================

Function createsquare(segs#=2,parent=0)
; by ADAmor Ziltch. Oct 2002
; v2 Feb 2003
;v3  may 2003 fixed rounding bug

    mesh=CreateMesh( parent )
    surf=CreateSurface( mesh )

    l# =-.5
    b# = -.5
    tvc= 0

    ;create all the vertices first
    Repeat
      u# = l + .5
      v# = b + .5
      AddVertex surf,l,0,b,u,1-v
      tvc=tvc + 1
      l = l + 1/segs
      If l > .501 Then
        l = -.5
        b = b + 1/segs
      End If
    Until b > .5

    ;create polys
    vc# =0
    Repeat

      AddTriangle (surf,vc,vc+segs+1,vc+segs+2)
      AddTriangle (surf,vc,vc+segs+2,vc+1)

      vc = vc + 1
      tst# =  ((vc+1) /(segs+1)) -Floor ((vc+1) /(segs+1))

      If (vc > 0) And (tst=0) Then
        vc = vc + 1
      End If

    Until vc=>tvc-segs-2
    UpdateNormals mesh
    Return mesh


End Function