Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 05, 2020, 09:21:16 pm

Title: Sound Horns Display
Post by: SierraKen on June 05, 2020, 09:21:16 pm
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:
  9. a$ = INKEY$
  10. IF a$ = CHR$(27) THEN END
  11. s = 0
  12. xx = 400
  13. yy = 300
  14. 'Choose size of cone.
  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)
  42. _DELAY .075
  45. IF dd > 100 OR dd < -100 THEN
  46.     dd = 0
  47.     GOTO start:
  50.  
Text Only | Text with Attachments