Sound Horns Display

[SierraKen]

There's no sound here, but I decided to check out cones today and what I can do with them. So I figured out how to make that sound horn animation of horns increasing in size going toward 4 different corners of the screen at different times. This might be good with a sound program you make or anything like that.

Code: QB64: [Select]

1. 'Sound Horns  by Sierraken
2. 'On June 5, 2020.
3. 'Feel free to use any of this on your apps.
4. _TITLE "Sound Horns - by Sierraken"
5. SCREEN _NEWIMAGE(800, 600, 32)
6.  
7. start:
8. _LIMIT 50
9. a$ = INKEY$
10. IF a$ = CHR$(27) THEN END
11. s = 0
12. xx = 400
13. yy = 300
14. 'Choose size of cone.
15. RANDOMIZE TIMER
16. dd = INT(RND * 20) + 10
17. 'Choose direction of cone.
18. dd2 = INT(RND * 4) + 1
19. IF dd2 = 1 THEN st = -.0625: dd = -dd
20. IF dd2 = 2 THEN st = -.0625: dd = -dd
21. IF dd2 = 3 THEN st = .0625: dd = dd
22. IF dd2 = 4 THEN st = .0625: dd = dd
23. 'Choose color of cone.
24. cl1 = INT(RND * 200) + 55
25. cl2 = INT(RND * 200) + 55
26. cl3 = INT(RND * 200) + 55
27.  
28. go:
29. IF dd < 0 THEN dd = dd - 20
30. IF dd >= 0 THEN dd = dd + 20
31. 'Calculate and draw cone.
32. FOR d = 0 TO dd STEP st
33.     s = s + 3
34.     x = COS(s * 3.141592 / 180) * d + d
35.     y = SIN(s * 3.151492 / 180) * d - d
36.     IF dd2 = 1 THEN x = x: y = y
37.     IF dd2 = 2 THEN x = -x: y = -y
38.     IF dd2 = 3 THEN x = x: y = -y
39.     IF dd2 = 4 THEN x = -x: y = y
40.     CIRCLE (x + xx, y + yy), 2, _RGB32(cl1, cl2, cl3)
41. NEXT d
42. _DELAY .075
43. _DISPLAY
44. CLS
45. IF dd > 100 OR dd < -100 THEN
46.     dd = 0
47.     GOTO start:
48. ELSE GOTO go:
49. END IF
50.