🚀 go-pugleaf

Reinhard-- 

Here's an a subroutine for drawing regular star polygons. 

Private Sub myDrawStarPolygon(myRadius, myInsetPercentage, myNumberOfSides, myXCenter, myYCenter, myPage) 
Dim myAngle As Double 
myAngleIncrement = (360 / myNumberOfSides) / 2 
myInnerRadius = myRadius * (myInsetPercentage * 0.01) 
Set myPolygon = myPage.Lines.Add 
Set myPath = myPolygon.Paths.Item(1) 
For myCounter = 1 To (myNumberOfSides * 2) 
����If myCounter <= 2 Then 
��������Set myPathPoint = myPath.PathPoints.Item(myCounter) 
����Else 
��������Set myPathPoint = myPath.PathPoints.Add 
����End If 
����myAngle = myAngleIncrement * (myCounter - 1) 
����If (myCounter Mod 2) <> 0 Then 
��������myX = myXCenter + (myCosine(myAngle) * myRadius) 
��������myY = myYCenter - (mySine(myAngle) * myRadius) 
����Else 
��������myX = myXCenter + (myCosine(myAngle) * myInnerRadius) 
��������myY = myYCenter - (mySine(myAngle) * myInnerRadius) 
����End If 
����myPathPoint.Anchor = Array(myX, myY) 
Next 
myPath.PathType = idClosed 
End Sub 
 

Thanks, 

Ole