Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on March 06, 2022, 10:03:07 pm

Title: Eye Candy
Post by: bplus on March 06, 2022, 10:03:07 pm
Code: QB64: [Select]
  2. _Title "Sprezzo #2 Problem 2022-03-06"
  3. Const SQ = 700, SQd2 = SQ / 2
  4. Screen _NewImage(SQ, SQ, 32)
  5. _ScreenMove 300, 60
  7. Dim Shared As Single cN, pR, pG, pB
  8. Dim diag, pi2, i, a, di, r, s
  9. diag = SQd2 * Sqr(2)
  10. pi2 = _Pi(2)
  11.  
  12. Dim colr~&(-1000 To diag + 1000)
  14.     resetPlasma
  15.     For i = -1000 To diag + 1000
  16.         colr~&(i) = Plasma~&
  17.     Next
  18.     di = 1: s = 0
  19.     For a = 0 To pi2 Step pi2 / (16 * 360)
  20.         i = 50 * Sin(s) ' 2 * s or just s
  21.         For r = 0 To diag
  22.             PSet (SQd2 + r * Cos(a), SQd2 + r * Sin(a)), colr~&(r + i)
  23.         Next
  24.         's = s + _Pi(1 / 128)
  25.         s = s + pi2 / 180 ' for almost seamless connect  
  26.     Next
  27.     Sleep
  29.  
  30. Function Plasma~& ()
  31.     cN = cN + .5 'dim shared cN as _Integer64, pR as long, pG as long, pB as long
  32.     Plasma~& = _RGB32(127 + 127 * Sin(pR * cN), 127 + 127 * Sin(pG * cN), 127 + 127 * Sin(pB * cN))
  34.  
  35. Sub resetPlasma ()
  36.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
  38.  
  39.  
Title: Re: Eye Candy
Post by: CharlieJV on March 06, 2022, 10:41:02 pm
Oh man, that's good stuff.
Title: Re: Eye Candy
Post by: johnno56 on March 07, 2022, 02:20:19 am
My eyes! My eyes! I have lost the ability to blink! Oh the humanity!  lol
Title: Re: Eye Candy
Post by: bplus on March 07, 2022, 01:02:38 pm
OP updated for more perfect seamless connection.
Title: Re: Eye Candy
Post by: Pete on March 07, 2022, 05:18:55 pm
Quote from: johnno56 on March 07, 2022, 02:20:19 am
My eyes! My eyes! I have lost the ability to blink! Oh the humanity!  lol

Me too, but thanks to Mark, I can now add "BLIND" to my list of tax deductions!

Pete
Title: Re: Eye Candy
Post by: bplus on March 07, 2022, 06:20:46 pm
Quote from: bplus on March 07, 2022, 01:02:38 pm
OP updated for more perfect seamless connection.

More perfect?  come on,  more seam less

Good one Pete!
Title: Re: Eye Candy
Post by: bplus on March 08, 2022, 06:58:15 pm
Growing slowly:
Code: QB64: [Select]
  1. _Title " Eye Candy #9A growing slowly" ' b+ 2022-03-08
  2. DefDbl A-Z
  4. Screen _NewImage(xmax, ymax, 32)
  6. xc = xmax / 2
  7. yc = ymax / 2
  8. diag = Sqr(xc * xc + yc * yc)
  9. p2 = _Pi * 2
  10. Dim colr(-100 To diag + 300) As _Unsigned Long
  11. Dim Shared cN, pR, pG, pB
  13.     resetPlasma
  14.     For i = -100 To diag + 300
  15.         colr(i) = Plasma~&
  16.     Next
  17.  
  18.     ro = 250: s = 0
  19.     While ro > -50 And _KeyDown(27) = 0
  20.         k$ = InKey$
  21.         If Len(k$) Then Exit While
  22.         For a = 0 To p2 Step p2 / (16 * 360)
  23.             i = 50 * Sin(s) ' 2 * s or just s
  24.             For r = 0 To diag
  25.                 PSet (xc + r * Cos(a), yc + r * Sin(a)), colr(r + i + ro)
  26.             Next
  27.             s = s + p2 / 180
  28.         Next
  29.         _Display
  30.         ro = ro - 10
  31.     Wend
  34.  
  35. Function Plasma~& ()
  36.     cN = cN + .2
  37.     Plasma~& = _RGB32(127 + 127 * Sin(pR * cN), 127 + 127 * Sin(pG * cN), 127 + 127 * Sin(pB * cN))
  39.  
  40. Sub resetPlasma ()
  41.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
  43.  
  44.  
  45.  
Title: Re: Eye Candy
Post by: Dav on March 08, 2022, 08:24:30 pm
Woah!  Very nice, @bplus. 

- Dav
Title: Re: Eye Candy
Post by: bplus on March 08, 2022, 09:37:18 pm
Yeah funny story I was trying to duplicate this background:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Eye Candy
Post by: Dav on March 08, 2022, 10:23:27 pm
Strange pattern.  I thought it was an animated image at first.  Appears to move a little when I look at it.

- Dav
Title: Re: Eye Candy
Post by: Pete on March 08, 2022, 10:50:09 pm
Ha ha, an animated un-animated png! Nice optical illusion.

Pete
Title: Re: Eye Candy
Post by: bplus on March 09, 2022, 12:54:01 am
Oh wow, _MapTriangle sure sped up the animation and look closer to original intended image!
Code: QB64: [Select]
  1. _Title " Eye Candy #9B Closer" ' b+ 2022-03-09
  2. DefDbl A-Z
  4. Screen _NewImage(xmax, ymax, 32)
  6. xc = xmax / 2
  7. yc = ymax / 2
  8. diag = Sqr(xc * xc + yc * yc)
  9. p2 = _Pi * 2
  10. Dim colr(-100 To diag + 1000) As _Unsigned Long
  11. Dim Shared cN, pR, pG, pB
  13.     resetPlasma
  14.     For i = -100 To diag + 1000
  15.         colr(i) = Plasma~&
  16.     Next
  17.  
  18.     ro = 950: s = 0
  19.     While ro > -50 And _KeyDown(27) = 0
  20.         k$ = InKey$
  21.         If Len(k$) Then Exit While
  22.         Cls
  23.         For a = 0 To p2 / 64 Step p2 / (16 * 360)
  24.             i = 50 * Sin(s) ' 2 * s or just s
  25.             For r = 0 To diag
  26.                 PSet (xc + r * Cos(a), yc + r * Sin(a)), colr(r + i + ro)
  27.             Next
  28.             s = s + p2 / 180
  29.         Next
  30.         sx1 = xc: sy1 = yc: sx2 = xc + diag * Cos(0): sy2 = yc + diag * Sin(0): sx3 = xc + diag * Cos(p2 / 64): sy3 = yc + diag * Sin(p2 / 64)
  31.         For a = p2 / 64 To p2 - p2 / 64 Step p2 / 64
  32.             dx1 = xc: dy1 = yc: dx2 = xc + diag * Cos(a): dy2 = yc + diag * Sin(a): dx3 = xc + diag * Cos(a + p2 / 64): dy3 = yc + diag * Sin(a + p2 / 64)
  33.             _MapTriangle (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& To(dx1, dy1)-(dx2, dy2)-(dx3, dy3), 0
  34.         Next
  35.         Line (0, 0)-(xc - 1.5 * yc, _Height), &HFF000000, BF
  36.         Line (xc + 1.5 * yc, 0)-(_Width, _Height), &HFF000000, BF
  37.         toggle = 1 - toggle
  38.         If toggle Then _Display
  39.         '_Limit 80
  40.         ro = ro - 1
  41.     Wend
  44.  
  45. Function Plasma~& ()
  46.     cN = cN + .2
  47.     Plasma~& = _RGB32(127 + 127 * Sin(pR * cN), 127 + 127 * Sin(pG * cN), 127 + 127 * Sin(pB * cN))
  49.  
  50. Sub resetPlasma ()
  51.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
  53.  
  54.  
  55.  
 [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Eye Candy
Post by: Dav on March 09, 2022, 11:04:41 am
Yes, huge speed increase on my T430 laptop. Beautiful little program.

- Dav
Title: Re: Eye Candy
Post by: bplus on March 09, 2022, 12:04:01 pm
If you want to see something weird, comment toggle lines and slow Limit way down.

?...  I have no idea!

Neither do I have any idea what causes the color crescents to suddenly reverse? Sometimes they point towards center other times they point outward (see the 2 snapshots).
Title: Re: Eye Candy
Post by: SierraKen on March 09, 2022, 06:57:12 pm
Totally gnarly! Like it gives me some ideas. Peace!
Text Only | Text with Attachments