QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on March 11, 2018, 01:00:54 pm

Title: Arc Wave
Post by: Ashish on March 11, 2018, 01:00:54 pm

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.  

Title: Re: Arc Wave
Post by: FellippeHeitor on March 11, 2018, 04:20:02 pm

That's beautiful Ashish.

Title: Re: Arc Wave
Post by: Ashish on March 12, 2018, 02:19:40 am

Quote from: FellippeHeitor on March 11, 2018, 04:20:02 pm

That's beautiful Ashish.

Thanks! :)

Text Only | Text with Attachments