This subroutine changes the shape id of the "current" shape.
PASS <shape_id> FIELD SHARE? N PASS <no_of_points> FIELD SHARE? N GOSUB OCD .SHAPE SET SHAPE ID * Check for error IF OCD .SHAPE SET SHAPE ID NE
<shape_id> is a required parameter, and the subroutine will cancel if it is not received.
<shape_id> must be one of the following:
squareShape, diamondShape, triangleShape, rightTriangleShape, leftTriangleShape, invertedTriangleShape, circleShape, glassSphereShape, glassSphere2Shape, solidSphereShape, starShape, polygonShape, polygon2Shape, crossShape, cross2Shape, and customShape.
For <shape_ID>'s equal to "CustomShape", the designer must add the x,y coordinates of the vertices using .SHAPE SET NEXT POINT for each vertice.
For the Polygon shapes, you can also pass <no_of_points> for the number of sides (must be >3). For starShape, you can pass <no_of_points> for the number of points on the star (must be >3). For the cross shapes, you can pass a value between 0 and 1 to represent the percentage width of the arms of the a '+' relative to the entire shape.
Read what other users have said about this page or add your own comments.
-- JeanNeron - 2011-10-20