Shape Maker

[vince]

Yep that was big step for me, learning to draw regular polygons with Sin and Cos. Nice job. How do you use a clipboard image?

Here's a quickie:

Code: (Select All)

_Title "Basic Polygon" 'b+ 2020-08-27

B+ mod time

Code: (Select All)

_Title "Basic Polygon" 'b+ 2020-08-27

' a circle is 360 degree
' a polyon of n side has central angles 360 / n  > think of a pie the central angle are the angle of slices in center
Screen _NewImage(500, 500, 32)
xC = _Width / 2 '  middle of screen
yC = _Height / 2 ' ditto
r = 200 '          radius = less than half screen height
For n = 5 To 12
for m = 1 to 4
    Cls
    Print "Sides = "; n
    'Circle (xC, yC), r ' here is our pie,  Apple or Pepperroni :-))
    For angle = 0 To 360 Step 360 / n ' step the size of pie angles
        ' let xC, yC be the coordinates at the center of the pie circle
        ' let r be the radius of the pie
        ' then the n outside points are
        x = xC + r * Cos(m*_D2R(angle)) ' x coordinate of outter edge point
        y = yC + r * Sin(m*_D2R(angle)) ' y coordinate of outter edge point
        If angle = 0 Then PSet (x, y) Else Line -(x, y) ' outter edge edge
        'Line (xC, yC)-(x, y) ' slice from center of pie
    Next
    Print "press any to see next polygon up to 12..."
    Sleep
next
Next
Print "Demo is done."