GetVertices

The GetVertices() method reads the vertex list for the current shape into memory.

define method GetVertices() on VLShape
  local Vertex ptr v
  if ( this.vertices != NULL ) then
    call EFree( this.vertices )
    this.vertices = NULL
  endif
  if ( this.AtEnd != "TRUE" ) then
    v = VECGetVertices( this.fd, this.layer, this.shape )
    this.numvertices = f$len( v )
    this.vertices = v
  endif
enddefine