Proggies

[bplus]

Here's a nice one from Ashish:

Code: (Select All)

_Title "Arc Wave!"
Screen _NewImage(600, 600, 32)
angOffset# = 0
Do
    Cls
    For i = 1 To 30
        r = i * 8
        drawArc _Width / 2, _Height / 2, r, _Pi, _Pi + Abs(Sin(angOffset# + i / 10) * _Pi)
    Next
    angOffset# = angOffset# + .01
    _Display
    _Limit 60
Loop

Sub drawArc (xx, yy, r, s#, e#)
    px = Cos(s#) * r + xx
    py = Sin(s#) * r + yy
    For i = s# To e# Step .02
        x = Cos(i) * r + xx
        y = Sin(i) * r + yy
        Line (x, y)-(px, py)
        px = x
        py = y
    Next
End Sub