Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 18, 2020, 04:08:36 pm

Title: Cardioid and Beyond
Post by: bplus on August 18, 2020, 04:08:36 pm
This file disappeared from here so here it is again, because Ken's present work reminds me of it:
Code: QB64: [Select]
  1. _TITLE "Cardioid and Beyond" 'B+ 2019-02-17
  2. CONST xmax = 700
  3. CONST ymax = 700
  4. CONST npoints = 200
  5. SCREEN _NEWIMAGE(xmax, ymax, 32)
  6. DIM SHARED pR, pG, pB, cN
  7. CX = xmax / 2
  8. CY = ymax / 2
  9. DA = _PI(2 / npoints)
  10. R = CX - 10
  11.  
  12. FOR Mult = 0 TO 100 STEP .01
  13.     CLS
  14.     COLOR &HFFFFFFFF
  15.     PRINT "Multiple: ";
  16.     PRINT USING "###.##"; Mult
  17.     IF Mult = INT(Mult) THEN resetPlasma
  18.     CIRCLE (CX, CY), R, _RGB32(0, 128, 0)
  19.     FOR i = 1 TO 200
  20.         x1 = CX + R * COS(i * DA)
  21.         y1 = CY + R * SIN(i * DA)
  22.         x2 = CX + R * COS(Mult * i * DA)
  23.         y2 = CY + R * SIN(Mult * i * DA)
  24.         changePlasma
  25.         LINE (x1, y1)-(x2, y2)
  26.     NEXT
  27.     _DISPLAY
  28.     _LIMIT 30
  30.  
  31. SUB changePlasma ()
  32.     cN = cN + 1
  33.     COLOR _RGB(127 + 127 * SIN(pR * cN), 127 + 127 * SIN(pG * cN), 127 + 127 * SIN(pB * cN))
  35.  
  36. SUB resetPlasma ()
  37.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
  39.  
  40.  
  41.  

Probably was in one of [banned user] threads that got removed.

 
Title: Re: Cardioid and Beyond
Post by: SierraKen on August 18, 2020, 04:22:10 pm
WOW That's just INCREDIBLE Bplus. I had a feeling someone could make something better and of course it was you. :) I've never seen this before, thanks for showing me.
Text Only | Text with Attachments