Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on July 21, 2017, 11:18:54 pm

Title: Plasma Waves
Post by: bplus on July 21, 2017, 11:18:54 pm
Press spacebar for new sea:
Code: QB64: [Select]
  1. 'Wavy with Plama.bas for QB64 fork (B+=MGA) 2017-05-05
  2. ' Wavy with Plasma Treatment.bas SmallBASIC 0.12.9 (B+=MGA) 2017-05-03
  3. ' from: animated circles started by Admin at SdlBasic 2017-05-03
  4. ' I added Plasma treatment and spacebar  changer
  5.  
  6.  
  7. '===================================================================
  8.  
  9. ' Instructions: press spacebar for new injection of plasma
  10.  
  11. '==================================================================
  12.  
  14. CONST sqr12! = .5 ^ .5
  15. CONST xmax = 1100
  16. CONST ymax = 700
  17. CONST DPI = 3.141516 * 2
  18. CONST PHIDELTA = DPI / 15
  19. CONST PHISTEP = DPI / 50
  20. CONST RADIUS = 20
  21. CONST SMALL_R = 20
  22. CONST DISTANCE = 23
  23. CONST W = xmax
  24. CONST H = ymax
  25.  
  26. SCREEN _NEWIMAGE(xmax, ymax, 32)
  27. _TITLE "Wavy with Plasma trans by bplus, Press Spacebar for New Plasma Injection."
  29. DIM SHARED pR, pG, pB AS INTEGER
  30. DIM x, y, xball, yball AS INTEGER
  31. DIM current_phi, phiIndex, phi AS DOUBLE
  32. current_phi = 0
  33. cN = 1
  34. resetPlasma
  36.     CLS
  37.     _LIMIT 10
  38.     IF _KEYHIT = 32 THEN cN = 1: resetPlasma
  39.     current_phi = current_phi + PHISTEP
  40.     FOR x = 0 TO (W + RADIUS) STEP DISTANCE
  41.         FOR y = 0 TO (H + RADIUS) STEP DISTANCE
  42.             'COLOR _RGB(120, 80, 80)
  43.             'CIRCLE (x, y), RADIUS
  44.             phiIndex = ((x + y) MOD (2 * W)) / RADIUS
  45.             phi = phiIndex * PHIDELTA + current_phi
  46.             xball = COS(phi) * RADIUS + x
  47.             yball = SIN(phi) * RADIUS + y
  48.             changePlasma
  49.             'LINE (x, y)-(xball, yball)
  50.             fcirc2 xball, yball, SMALL_R
  51.         NEXT
  52.     NEXT
  53.     _DISPLAY
  55.  
  56. SUB changePlasma ()
  57. cN = cN + 1
  58. COLOR _RGB(127 + 127 * SIN(pR * cN), 127 + 127 * SIN(pG * cN), 127 + 127 * SIN(pB * cN))
  60.  
  61. SUB resetPlasma ()
  62. pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
  64.  
  65. '========================================== sqrSeg Method for filled circle
  66. SUB fcirc2 (xx%, yy%, r%)
  67. 'const sqr12! = .5^.5  'in main const section
  68. r2% = r% * r%
  69. sqr12r% = sqr12! * r%
  70. LINE (xx% - sqr12r%, yy% - sqr12r%)-(xx% + sqr12r%, yy% + sqr12r%), , BF
  71. FOR x% = 0 TO sqr12r%
  72.     y% = SQR(r2% - x% * x%)
  73.     LINE (xx% - x%, yy% + sqr12r%)-(xx% - x%, yy% + y%)
  74.     LINE (xx% - x%, yy% - sqr12r%)-(xx% - x%, yy% - y%)
  75.     LINE (xx% + x%, yy% + sqr12r%)-(xx% + x%, yy% + y%)
  76.     LINE (xx% + x%, yy% - sqr12r%)-(xx% + x%, yy% - y%)
  78. FOR x% = sqr12r% TO r%
  79.     y% = SQR(r2% - x% * x%)
  80.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  81.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  84.  
  85. SUB fcirc (xx%, yy%, r%)
  86. r2% = r% * r%
  87. FOR x% = 0 TO r%
  88.     y% = INT(SQR(r2% - x% * x%))
  89.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  90.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  93.  
  94.  

Oh, I guess I was experimenting with circle drawing here too.
Title: Re: Plasma Waves
Post by: Calloway on July 21, 2017, 11:57:29 pm

--snip--

This is a good way to say eff you to your epileptic friends (is cursing allowed on this forum?)
Title: Re: Plasma Waves
Post by: Petr on July 22, 2017, 03:57:32 am
Hi, it looks nice. The better effect is achieved by deleting CLS after WHILE 1 and inserting CLS after the _DISPLAY command.
Title: Re: Plasma Waves
Post by: bplus on July 22, 2017, 12:57:56 pm
Quote from: Petr on July 22, 2017, 03:57:32 am
Hi, it looks nice. The better effect is achieved by deleting CLS after WHILE 1 and inserting CLS after the _DISPLAY command.

Well without any winks, I can't tell if you are pulling my leg or that there really is a difference?

In the loop you are executing the same sequence of commands, so I don't see a difference on paper.

OK I try.

Oh wow! what a difference. Oops, I forgot to delete the first CLS; you can try that.

I think you are pulling my leg. :)

BTW I am using Walter's QB64 fork, if that makes any difference. I am newbie to QB64 and confuse it with FB which is what I started learning to compile SmallBASIC programs before Walter invited SmallBASIC forum people over to his to have and show file attachments and screen shots...
Title: Re: Plasma Waves
Post by: Petr on July 22, 2017, 01:43:39 pm
Bplus: All clear. I did not know if the original intention was to redraw the screen from the beginning - clean or redraw it over the original background. Definitely without CLS it looks absolutely perfect. Good work, bplus!
Title: Re: Plasma Waves
Post by: bplus on July 22, 2017, 03:41:57 pm
Hey, it does work without CLS. I like that best!

Thanks!
Title: Re: Plasma Waves
Post by: Calloway on July 22, 2017, 07:54:39 pm
And since there any errors (at least I can't find any)[/size] in the program, you can do
Code: QB64: [Select]
to speed it up a bit
Title: Re: Plasma Waves
Post by: bplus on July 23, 2017, 03:38:33 am
Quote from: Calloway on July 22, 2017, 07:54:39 pm
And since there any errors (at least I can't find any)[/size] in the program, you can do
Code: QB64: [Select]
to speed it up a bit

Thanks for tip!
Title: Re: Plasma Waves
Post by: Ashish on July 23, 2017, 08:26:21 am
nice!! :)
Title: Re: Plasma Waves
Post by: bplus on July 23, 2017, 01:11:40 pm
Hey Ashish!

I don't know if you know this but I am a fan. You and all the regulars from the [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there].
Title: Re: Plasma Waves
Post by: Ashish on July 24, 2017, 04:47:33 am
Quote from: bplus on July 23, 2017, 01:11:40 pm
Hey Ashish!

I don't know if you know this but I am a fan. You and all the regulars from the [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there].

I'm glad to hear this... :)
Text Only | Text with Attachments