Arc Wave

[Ashish]

Waves form by the harmonic motion of the arcs....

Code: QB64: [Select]

1. _TITLE "Arc Wave!"
2.  
3. SCREEN _NEWIMAGE(600, 600, 32)
4.  
5. angOffset# = 0
6.  
7. DO
8.     CLS
9.     FOR i = 1 TO 30
10.         r = i * 8
11.         drawArc _WIDTH / 2, _HEIGHT / 2, r, _PI, _PI + ABS(SIN(angOffset# + i / 10) * _PI)
12.     NEXT
13.     angOffset# = angOffset# + .01
14.     _DISPLAY
15.     _LIMIT 60
16. LOOP
17.  
18.  
19. SUB drawArc (xx, yy, r, s#, e#)
20.     px = COS(s#) * r + xx
21.     py = SIN(s#) * r + yy
22.     FOR i = s# TO e# STEP .02
23.         x = COS(i) * r + xx
24.         y = SIN(i) * r + yy
25.         LINE (x, y)-(px, py)
26.         px = x
27.         py = y
28.     NEXT
29. END SUB
30.  
31.  

[FellippeHeitor]

That's beautiful Ashish.

[Ashish]

That's beautiful Ashish.

Thanks! :)