ClearVertices

The ClearVertices() method sets the vertex list for the current shape to empty.

define method ClearVertices() on VLShape
  if ( this.vertices != NULL ) then
    call EFree( this.vertices )
    this.vertices = NULL
    this.numvertices = 0
    if ( this.shape != -1 ) then
      call VECSetVertices( this.fd, this.layer, this.shape,0,\
                           this.vertices )
    endif
  endif
enddefine