Eye Candy

[bplus]

Code: QB64: [Select]

1. Option _Explicit
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
6. Randomize Timer
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)
13. Do
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
28. Loop
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))
33. End Function
34.  
35. Sub resetPlasma ()
36.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
37. End Sub
38.  
39.  

[CharlieJV]

Oh man, that's good stuff.

[johnno56]

My eyes! My eyes! I have lost the ability to blink! Oh the humanity!  lol

[bplus]

OP updated for more perfect seamless connection.

[Pete]

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

[bplus]

OP updated for more perfect seamless connection.

More perfect?  come on,  more seam less

Good one Pete!

[bplus]

Growing slowly:

Code: QB64: [Select]

1. _Title " Eye Candy #9A growing slowly" ' b+ 2022-03-08
2. DefDbl A-Z
3. xmax = _DesktopWidth: ymax = _DesktopHeight
4. Screen _NewImage(xmax, ymax, 32)
5. _ScreenMove 0, 0
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
12. While 1
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
32.     If _KeyDown(27) Then System
33. 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))
38. End Function
39.  
40. Sub resetPlasma ()
41.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
42. End Sub
43.  
44.  
45.  

[Dav]

Woah!  Very nice, @bplus. 

- Dav

[bplus]

Yeah funny story I was trying to duplicate this background:
 

[Dav]

Strange pattern.  I thought it was an animated image at first.  Appears to move a little when I look at it.

- Dav

[Pete]

Ha ha, an animated un-animated png! Nice optical illusion.

Pete

[bplus]

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
3. xmax = _DesktopWidth: ymax = _DesktopHeight
4. Screen _NewImage(xmax, ymax, 32)
5. _ScreenMove 0, 0
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
12. While 1
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
42.     If _KeyDown(27) Then System
43. 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))
48. End Function
49.  
50. Sub resetPlasma ()
51.     pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2
52. End Sub
53.  
54.  
55.  

 

[Dav]

Yes, huge speed increase on my T430 laptop. Beautiful little program.

- Dav

[bplus]

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).

[SierraKen]

Totally gnarly! Like it gives me some ideas. Peace!