One page clock

[dajan]

@bplus, awesome plasma, like the 3D shader effect a lot. Does the pattern repeat after a while, or it is completley random/fractaloid? I don't know a lot about this kind of math.

[bplus]

@bplus, awesome plasma, like the 3D shader effect a lot. Does the pattern repeat after a while, or it is completley random/fractaloid? I don't know a lot about this kind of math.

Hope you don't mind, I answered your question in thread where I have worked on this effect:
https://www.qb64.org/forum/index.php?topic=1451.msg113440#msg113440

To show whose shoulders I am standing on and to show my source and give credit.

[bplus]

This is becoming an obsession, here I made crystal light digits and clock may be enlarged by + key and shrunk by - key, spacebar will still change color set:

Code: QB64: [Select]

1. _TITLE "Plasmatic Digital Clock 2" ' b+ 2020-01-21 modified:
2. ' Digital Plasmatic Clock b+ 2020-01-20 translated and modified from SmallBASIC
3. ' Plasma Magnifico - updated 2015-11-26 for Android
4. ' This program creates a plasma surface, which looks oily or silky.
5.  
6. '=====================================================================================================
7. '
8. '       Use spacebar to change color set, + to increase clock size and - to decrease clock size
9. '
10. '=====================================================================================================
11.  
12. CONST dat = "1110111000001101111100011111100101110111011111101001001111111111011011"
13. TYPE xy
14.     x AS SINGLE
15.     y AS SINGLE
16.     dx AS SINGLE
17.     dy AS SINGLE
18. END TYPE
19. DIM SHARED sq, xmax, ymax
20. sq = 15: xmax = 34 * sq: ymax = 8 * sq
21. SCREEN _NEWIMAGE(xmax, ymax, 32)
22. _SCREENMOVE 60, 40
23. DIM c(360) AS _UNSIGNED LONG, p(6) AS xy, f(6), clr AS _UNSIGNED LONG
24. restart:
25. r = RND: g = RND: b = RND: i = 0
26. FOR n = 1 TO 5
27.     r1 = r: g1 = g: b1 = b
28.     DO: r = RND: LOOP UNTIL ABS(r - r1) > .2
29.     DO: g = RND: LOOP UNTIL ABS(g - g1) > .2
30.     DO: b = RND: LOOP UNTIL ABS(g - g1) > .2
31.     FOR m = 0 TO 17: m1 = 17 - m
32.         f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
33.     NEXT
34.     FOR m = 0 TO 17: m1 = 17 - m
35.         f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
36.     NEXT
37.     FOR m = 0 TO 17: m1 = 17 - m
38.         f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
39.     NEXT
40.     FOR m = 0 TO 17: m1 = 17 - m
41.         f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
42.     NEXT
43. NEXT
44.  
45. FOR n = 0 TO 5
46.     p(n).x = RND * xmax: p(n).y = RND * ymax: p(n).dx = RND * 2 - 1: p(n).dy = RND * 2 - 1
47.     f(n) = RND * .1
48. NEXT
49.  
50. WHILE _KEYDOWN(27) = 0
51.     k$ = INKEY$
52.     IF k$ = " " THEN GOTO restart
53.     IF k$ = "+" AND sq < 40 THEN sq = sq + 1: xmax = 34 * sq: ymax = 8 * sq: SCREEN _NEWIMAGE(xmax, ymax, 32): GOTO restart
54.     IF k$ = "-" AND sq > 3 THEN sq = sq - 1: xmax = 34 * sq: ymax = 8 * sq: SCREEN _NEWIMAGE(xmax, ymax, 32): GOTO restart
55.     FOR i = 0 TO 5
56.         p(i).x = p(i).x + p(i).dx
57.         IF p(i).x > xmax OR p(i).x < 0 THEN p(i).dx = -p(i).dx
58.         p(i).y = p(i).y + p(i).dy
59.         IF p(i).y > ymax OR p(i).y < 0 THEN p(i).dy = -p(i).dy
60.     NEXT
61.     FOR y = 0 TO ymax - 1 STEP 2
62.         FOR x = 0 TO xmax - 1 STEP 2
63.             d = 0
64.             FOR n = 0 TO 5
65.                 dx = x - p(n).x: dy = y - p(n).y
66.                 k = SQR(dx * dx + dy * dy)
67.                 d = d + (SIN(k * f(n)) + 1) / 2
68.             NEXT n: d = d * 60
69.             LINE (x, y)-STEP(2, 2), c(d), BF
70.         NEXT
71.     NEXT
72.     FOR n = 1 TO 8 'clock digits over background
73.         IF MID$(TIME$, n, 1) = ":" THEN
74.             FOR i = .5 * sq TO 0 STEP -.25
75.                 clr = _RGBA32(255 - i * (255 / sq), (.5 * sq - i) * 255 / sq, 0, 380 / sq)
76.                 LINE ((n - 1) * 4 * sq + 2 * sq + .5 * sq - i, sq + sq + .5 * sq - i)-STEP(2 * i, 2 * i), clr, BF
77.                 LINE ((n - 1) * 4 * sq + 2 * sq + .5 * sq - i, 5 * sq + .5 * sq - i)-STEP(2 * i, 2 * i), clr, BF
78.             NEXT
79.         ELSE
80.             drawC (n - 1) * 4 * sq + sq + offset, sq + offset, MID$(dat$, VAL(MID$(TIME$, n, 1)) * 7 + 1, 7)
81.         END IF
82.     NEXT
83.     _LIMIT 60
84.     _DISPLAY
85. WEND
86.  
87. FUNCTION rgbf~& (n1, n2, n3)
88.     rgbf~& = _RGB32(n1 * 255, n2 * 255, n3 * 255)
89. END FUNCTION
90.  
91. SUB drawC (x, y, c$)
92.     DIM c AS _UNSIGNED LONG
93.     FOR m = 1 TO 7
94.         IF VAL(MID$(c$, m, 1)) THEN
95.             FOR i = .5 * sq TO 0 STEP -.25
96.                 c = _RGBA32(255 - i * (255 / sq), (.5 * sq - i) * 255 / sq, 0, 380 / sq)
97.                 SELECT CASE m
98.                     CASE 1: LINE (x + .5 * sq - i, y + .5 * sq + i)-(x + .5 * sq + i, y + 2.5 * sq - i), c, BF
99.                     CASE 2: LINE (x + .5 * sq - i, y + 2.5 * sq + i)-(x + .5 * sq + i, y + 5.5 * sq - i), c, BF
100.                     CASE 3: LINE (x + .5 * sq + i, y + .5 * sq + i)-(x + 2.5 * sq - 2 - i, y + .5 * sq - i), c, BF
101.                     CASE 4: LINE (x + .5 * sq + i, y + 2.5 * sq + i)-(x + 2.5 * sq - 2 - i, y + 2.5 * sq - i), c, BF
102.                     CASE 5: LINE (x + .5 * sq + i, y + 5.5 * sq + i)-(x + 2.5 * sq - 2 - i, y + 5.5 * sq - i), c, BF
103.                     CASE 6: LINE (x + 2.5 * sq - i, y + .5 * sq + i)-(x + 2.5 * sq + i, y + 2.5 * sq - i), c, BF
104.                     CASE 7: LINE (x + 2.5 * sq - i, y + 2.5 * sq + i)-(x + 2.5 * sq + i, y + 5.5 * sq - i), c, BF
105.                 END SELECT
106.             NEXT
107.         END IF
108.     NEXT
109. END SUB
110.