Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on April 21, 2021, 07:10:03 pm

Title: Old School Laser Show
Post by: SierraKen on April 21, 2021, 07:10:03 pm
Hi all, I thought I would tinker with QB64 today to see if my imagination would spark anything finally. Well, instead of my imagination my memories went back to old old old school lasers. So after messing with it for a couple hours, I made this. It's 4 lasers at a time with a slight afterglow. I used only 7 basic colors so they would be bright and simple. It's always the simple stuff like this that recharges me. Also goes good with rock music. :)

Code: QB64: [Select]
  1. _TITLE "Laser Show - by SierraKen - Press Esc to end."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. c1 = 255
  4. c2 = 0
  5. c3 = 0
  6. c4 = 255
  7. c5 = 0
  8. c6 = 0
  9.  
  10. c7 = 255
  11. c8 = 0
  12. c9 = 0
  13. c10 = 255
  14. c11 = 0
  15. c12 = 0
  16.  
  18.     _LIMIT 10
  19.     a$ = INKEY$
  20.     IF a$ = CHR$(27) THEN END
  21.     col = INT(RND * 100) + 1
  22.     IF col > 90 THEN
  23.         c = INT(RND * 7) + 1
  24.         IF c = 1 THEN
  25.             c1 = 255: c2 = 0: c3 = 0
  26.         END IF
  27.         IF c = 2 THEN
  28.             c1 = 0: c2 = 255: c3 = 0
  29.         END IF
  30.         IF c = 3 THEN
  31.             c1 = 0: c2 = 0: c3 = 255
  32.         END IF
  33.         IF c = 4 THEN
  34.             c1 = 0: c2 = 255: c3 = 255
  35.         END IF
  36.         IF c = 5 THEN
  37.             c1 = 255: c2 = 255: c3 = 0
  38.         END IF
  39.         IF c = 6 THEN
  40.             c1 = 255: c2 = 0: c3 = 255
  41.         END IF
  42.         IF c = 7 THEN
  43.             c1 = 255: c2 = 255: c3 = 255
  44.         END IF
  45.     END IF
  46.     oldx = x
  47.     oldy = y
  48.     x = RND * 800
  49.     y = RND * 600
  50.     LINE (oldx, oldy)-(x, y), _RGB32(c1, c2, c3)
  51.     col2 = INT(RND * 100) + 1
  52.     IF col2 > 90 THEN
  53.         c2 = INT(RND * 7) + 1
  54.         IF c2 = 1 THEN
  55.             c4 = 255: c5 = 0: c6 = 0
  56.         END IF
  57.         IF c2 = 2 THEN
  58.             c4 = 0: c5 = 255: c6 = 0
  59.         END IF
  60.         IF c2 = 3 THEN
  61.             c4 = 0: c5 = 0: c6 = 255
  62.         END IF
  63.         IF c2 = 4 THEN
  64.             c4 = 0: c5 = 255: c6 = 255
  65.         END IF
  66.         IF c2 = 5 THEN
  67.             c4 = 255: c5 = 255: c6 = 0
  68.         END IF
  69.         IF c2 = 6 THEN
  70.             c4 = 255: c5 = 0: c6 = 255
  71.         END IF
  72.         IF c2 = 7 THEN
  73.             c4 = 255: c5 = 255: c6 = 255
  74.         END IF
  75.     END IF
  76.     oldx2 = x2
  77.     oldy2 = y2
  78.     x2 = RND * 800
  79.     y2 = RND * 600
  80.     LINE (oldx2, oldy2)-(x2, y2), _RGB32(c4, c5, c6)
  81.  
  82.     col3 = INT(RND * 100) + 1
  83.     IF col3 > 90 THEN
  84.         c3 = INT(RND * 7) + 1
  85.         IF c3 = 1 THEN
  86.             c7 = 255: c8 = 0: c9 = 0
  87.         END IF
  88.         IF c3 = 2 THEN
  89.             c7 = 0: c8 = 255: c9 = 0
  90.         END IF
  91.         IF c3 = 3 THEN
  92.             c7 = 0: c8 = 0: c9 = 255
  93.         END IF
  94.         IF c3 = 4 THEN
  95.             c7 = 0: c8 = 255: c9 = 255
  96.         END IF
  97.         IF c3 = 5 THEN
  98.             c7 = 255: c8 = 255: c9 = 0
  99.         END IF
  100.         IF c3 = 6 THEN
  101.             c7 = 255: c8 = 0: c9 = 255
  102.         END IF
  103.         IF c3 = 7 THEN
  104.             c7 = 255: c8 = 255: c9 = 255
  105.         END IF
  106.     END IF
  107.     oldx3 = x3
  108.     oldy3 = y3
  109.     x3 = RND * 800
  110.     y3 = RND * 600
  111.     LINE (oldx3, oldy3)-(x3, y3), _RGB32(c7, c8, c9)
  112.     col4 = INT(RND * 100) + 1
  113.     IF col4 > 90 THEN
  114.         c4 = INT(RND * 7) + 1
  115.         IF c4 = 1 THEN
  116.             c10 = 255: c11 = 0: c12 = 0
  117.         END IF
  118.         IF c4 = 2 THEN
  119.             c10 = 0: c11 = 255: c12 = 0
  120.         END IF
  121.         IF c4 = 3 THEN
  122.             c10 = 0: c11 = 0: c12 = 255
  123.         END IF
  124.         IF c4 = 4 THEN
  125.             c10 = 0: c11 = 255: c12 = 255
  126.         END IF
  127.         IF c4 = 5 THEN
  128.             c10 = 255: c11 = 255: c12 = 0
  129.         END IF
  130.         IF c4 = 6 THEN
  131.             c10 = 255: c11 = 0: c12 = 255
  132.         END IF
  133.         IF c4 = 7 THEN
  134.             c10 = 255: c11 = 255: c12 = 255
  135.         END IF
  136.     END IF
  137.     oldx4 = x4
  138.     oldy4 = y4
  139.     x4 = RND * 800
  140.     y4 = RND * 600
  141.     LINE (oldx4, oldy4)-(x4, y4), _RGB32(c10, c11, c12)
  142.  
  143.     LINE (0, 0)-(800, 600), _RGB32(0, 0, 0, 40), BF
  145.  
  146.  

Title: Re: Old School Laser Show
Post by: OldMoses on April 21, 2021, 07:42:22 pm
Makes me want to light a Bic. ;)
Title: Re: Old School Laser Show
Post by: bplus on April 21, 2021, 07:45:15 pm
Hey Ken, welcome back! you were missed.
Title: Re: Old School Laser Show
Post by: SierraKen on April 21, 2021, 08:39:46 pm
:) Thanks Bplus. LOL a Bic.
Text Only | Text with Attachments