How to draw a circle with lines like a pizza graphic?

[Michel Jr]

Hi,

How can I draw a circle with several lines inside, like a pizza graphic or a bycicle wheel?
The lines goes from the center of the circle to the border.
The user just enter the number of lines and the program draws the lines automatically, dividing the circle like a pizza graphic.


Thanks a lot for any help...

Michel Jr.

[kedaman]

Function DrawPizza(Target As Object, Radius As Integer, X As Integer, Y As Integer, slices As Integer): Dim n As Integer
    Target.Circle (X, Y), Radius
    For n = 0 To slices - 1
        Target.Line (X, Y)-Step(Cos(n / slices * 6.283) * Radius, Sin(n / slices * 6.283) * Radius)
    Next n
End Function