NewShape

Index = NewShape(NumbOfVertex, NumbOfEdges)

Parameters:     NumbOfVertex = The number of vertex     NumbOfEdges = The number of edges

Returns:     Index = The Index of the newly created shape

The NewShape function dynamically create a new shape with a specified number vertex and edges ready for use. NewShape return the Index of this new shape back to the user.       Shapes have a dual purpose in PlayBASIC, you can use them to render filled polygons or for complex collision operations if you like.       To construct a shape we need two things. First we define a set of points (called vertex). The points are the corners of your shape. Next we join these points together to form the edges of the shape.       The edges that we connect are assumed to create an enclosed space. But they don't actually have to, as one of the beauties of shapes, is we can pretty much join any points we like together, and the DrawShape command will try and render it. FACTS:       * Shape Vertex indexes ranges between Zero and MaxVertex-1       * Shape Edge indexes ranges between Zero and MaxEdges-1 Mini Tutorial:       This example creates a shape. First it initializes the shape, then it defines a list of vertex and then connects these points as edges.    ; Create a new shape with room for 10 vertex and ; 10 edge connections and return it's Index   MyShape=NewShape(10,10)    ; Set the 8 vertex positions in this shape ; Set vertex #1, -50x,-50y   SetShapeVertex MySHape,1,-50,-50   SetShapeVertex MySHape,2,50,-50   SetShapeVertex MySHape,3,50,50   SetShapeVertex MySHape,4,-50,50      SetShapeVertex MySHape,5,-20,-20   SetShapeVertex MySHape,6,20,-20   SetShapeVertex MySHape,7,20,20   SetShapeVertex MySHape,8,-20,20       ; Connect the vertex together to form the edges ; Connect outter edges   SetShapeEdge MyShape,1,1,2   SetShapeEdge MyShape,2,2,3   SetShapeEdge MyShape,3,3,4   SetShapeEdge MyShape,4,4,1    ; connect inner edges   SetShapeEdge MyShape,5,5,6   SetShapeEdge MyShape,6,6,7   SetShapeEdge MyShape,7,7,8   SetShapeEdge MyShape,8,8,5       ; Draw the shapes points   CenterText 100,20,"Shape Vertex"   DrawShape MyShape,100,100,0    ; Draw the outline (edges) of this shape   CenterText 250,20,"Shape Edges"   DrawShape MyShape,250,100,1    ; Draw the Filled shape   CenterText 400,20,"Filled Shape"   DrawShape MyShape,400,100,2      Sync   WaitKey       This example outputs.

Related Info:	CreateConvexShape | CreateShape | LoadNewShape | LoadShape | SaveShape :

(c) Copyright 2002 - 2024 - Kevin Picone - PlayBASIC.com