AddVertex

The AddVertex() function adds a single vertex to the list of vertices belonging to the current shape.

define method AddVertex( v ) on VLShape
  local int n
  n = this.numvertices+1
  this.vertices = ERealloc( Vertex, n, this.vertices )
  this.vertices[n].x = v.x
  this.vertices[n].y = v.y
  this.vertices[n].z = v.z
  call VECSetVertices( this.fd, this.layer, this.shape, n, \
                       this.vertices )
  this.numvertices = n
enddefine