Ascii Plasma!

[bplus]

Look what I found trying to build isobar / contour lines!

Code: QB64: [Select]

1. _Title  "Ansii Plasma - press spacebar for new set of points, be sure to swirl your mouse in the stuff!"  ' b+ 2021-11-11
2. _ScreenMove 100, 40
3.  
4. Type xy
5.     x As Single
6.     y As Single
7.     dx As Single
8.     dy As Single
9. End Type
10.  
11. Randomize Timer
12. Width 150, 80
13. _Font 8
14.  
15. nP = 6
16. Dim p(1 To nP) As xy, f(6)
17.  
18. restart:
19. For n = 1 To nP
20.     p(n).x = Rnd * _Width: p(n).y = Rnd * _Height: p(n).dx = .25 * (Rnd * 2 - 1): p(n).dy = 2 * (Rnd * 2 - 1)
21.     f(n) = n * .015
22. Next
23.  
24. While _KeyDown(27) = 0
25.     Cls
26.     If InKey$ = " " Then GoTo restart
27.     For i = 1 To nP - 1
28.         p(i).x = p(i).x + p(i).dx
29.         If p(i).x > _Width - 1 Or p(i).x < 1 Then p(i).dx = -p(i).dx
30.         If p(i).x < 1 Then p(i).x = 1: If p(i).x > _Width Then p(i).x = _Width
31.         p(i).y = p(i).y + p(i).dy
32.         If p(i).y > _Height Or p(i).y < 1 Then p(i).dy = -p(i).dy
33.         If p(i).y < 1 Then p(i).y = 1: If p(i).y > _Height Then p(i).y = _Height
34.     Next
35.     While _MouseInput: Wend
36.     p(nP).x = _MouseX: p(nP).y = _MouseY
37.     For y = 1 To _Height
38.         For x = 1 To _Width
39.             d = 0
40.             For n = 1 To nP
41.                 dx = x - p(n).x: dy = y - p(n).y
42.                 k = Sqr(dx * dx + dy * dy)
43.                 d = d + (Sin(k * f(n)) + 1) / 2
44.             Next
45.             Locate y, x: Print Chr$(Int(d * 20));
46.         Next
47.     Next
48.     _Display
49.     _Limit 40
50. Wend
51.  
52.  
53.  

[Richard Frost]

Very impressive!

Now train 12,000 monkeys to hold up placards to accomplish the same.

[Dav]

Wow - Very cool!

- Dav

[johnno56]

Bplus,

NOT just blue... lol

 

[DANILIN]

? color ?

Code: QB64: [Select]

1.             LOCATE y, x: COLOR (INT(d * 20) MOD 7): PRINT CHR$(INT(d * 20));  

! color !

 

[johnno56]

Your method of selecting colour is WAY more efficient than my bunch of "if...then's"... Cool...

[bplus]

Colorized for Johnno's world:

Code: QB64: [Select]

1. _Title "Ansii Plasma Colorized - press spacebar for new set of points, be sure to swirl your mouse in the stuff!" ' b+ 2021-11-11
2. ' 2021-11-13 colorize version
3. _ScreenMove 100, 40
4.  
5. Type xy
6.     x As Single
7.     y As Single
8.     dx As Single
9.     dy As Single
10. End Type
11.  
12. Randomize Timer
13. Screen _NewImage(1200, 640, 32)
14.  
15. 'Width 150, 80
16. _Font 8
17.  
18. nP = 6
19. Dim p(1 To nP) As xy, f(nP)
20.  
21. restart:
22. For n = 1 To nP
23.     p(n).x = Rnd * _Width: p(n).y = Rnd * _Height: p(n).dx = .25 * (Rnd * 2 - 1): p(n).dy = 2 * (Rnd * 2 - 1)
24.     f(n) = n * .015
25. Next
26.  
27. While _KeyDown(27) = 0
28.     Cls
29.     If InKey$ = " " Then GoTo restart
30.     For i = 1 To nP - 1
31.         p(i).x = p(i).x + p(i).dx
32.         If p(i).x > _Width - 1 Or p(i).x < 1 Then p(i).dx = -p(i).dx
33.         If p(i).x < 1 Then p(i).x = 1: If p(i).x > _Width Then p(i).x = _Width
34.         p(i).y = p(i).y + p(i).dy
35.         If p(i).y > _Height Or p(i).y < 1 Then p(i).dy = -p(i).dy
36.         If p(i).y < 1 Then p(i).y = 1: If p(i).y > _Height Then p(i).y = _Height
37.     Next
38.     While _MouseInput: Wend
39.     p(nP).x = _MouseX \ 8: p(nP).y = _MouseY \ 8
40.     For y = 1 To 80
41.         For x = 1 To 150
42.             d = 0
43.             For n = 1 To nP
44.                 dx = x - p(n).x: dy = y - p(n).y
45.                 k = Sqr(dx * dx + dy * dy)
46.                 d = d + (Sin(k * f(n)) + 1) / 2
47.             Next
48.             Color _RGB32(0, 0, d * 50)    ' <<<<<<<<<<<<<<<<<<<<<<<< EDIT 2021-11-13 more contrast
49.             _PrintString ((x - 1) * 8, (y - 1) * 8), Chr$(Int(d * 20))
50.         Next
51.     Next
52.     _Display
53.     _Limit 40
54. Wend
55.  
56.  
57.  

Edit: f(6) to f(nP)

[bplus]

BTW be sure to try nP at different numbers, nP =1 will just be the mouse.

[bplus]

I meant to put more contrast in reply #6.

[johnno56]

Cool... and I even like the colour!

[Sanmayce]

Many thanks @bplus , beautiful output! Love ASCII art!
It is my new screensaver, running at 5 fps and 7% CPU, hee-hee:

 

Code: QB64: [Select]

1. _Title "Ansii Plasma - press spacebar for new set of points, be sure to swirl your mouse in the stuff!" ' b+ 2021-11-11
2. _ScreenMove 100, 40
3.  
4. Type xy
5.     x As Single
6.     y As Single
7.     dx As Single
8.     dy As Single
9. End Type
10.  
11. Randomize Timer
12. Width 180, 100
13. _Font 8
14.  
15. nP = 6
16. Dim p(1 To nP) As xy, f(6)
17.  
18. restart:
19. For n = 1 To nP
20.     p(n).x = Rnd * _Width: p(n).y = Rnd * _Height: p(n).dx = .25 * (Rnd * 2 - 1): p(n).dy = 2 * (Rnd * 2 - 1)
21.     f(n) = n * .015
22. Next
23.  
24. While _KeyDown(27) = 0
25.     Cls
26.     If InKey$ = " " Then GoTo restart
27.     For i = 1 To nP - 1
28.         p(i).x = p(i).x + p(i).dx
29.         If p(i).x > _Width - 1 Or p(i).x < 1 Then p(i).dx = -p(i).dx
30.         If p(i).x < 1 Then p(i).x = 1: If p(i).x > _Width Then p(i).x = _Width
31.         p(i).y = p(i).y + p(i).dy
32.         If p(i).y > _Height Or p(i).y < 1 Then p(i).dy = -p(i).dy
33.         If p(i).y < 1 Then p(i).y = 1: If p(i).y > _Height Then p(i).y = _Height
34.     Next
35.     While _MouseInput: Wend
36.     p(nP).x = _MouseX: p(nP).y = _MouseY
37.     For y = 1 To _Height
38.         For x = 1 To _Width
39.             d = 0
40.             For n = 1 To nP
41.                 dx = x - p(n).x: dy = y - p(n).y
42.                 k = Sqr(dx * dx + dy * dy)
43.                 d = d + (Sin(k * f(n)) + 1) / 2
44.             Next
45.             'Locate y, x: Print Chr$(Int(d * 20));
46.             Locate y, x: Color (Int(d) Mod 7): Print Chr$(Int(d * 32));
47.         Next
48.     Next
49.     _Display
50.     _Limit 5
51. Wend
52.  

[bplus]

I'm glad you guys are having fun with this.

Nice mods! @DANILIN and @Sanmayce not sure what @johnno56 did but judging by comments something similar to Danilin's. I do like how Danilin's has every layer separated.

That reminds me I was working on contour lines or isobars...