QB64.org Forum

Active Forums => Programs => Topic started by: STxAxTIC on December 30, 2020, 10:45:47 am

Title: Sorry for the prank. Have PlasmaDoodle
Post by: STxAxTIC on December 30, 2020, 10:45:47 am

This program captures whatever you had on screen at the time of launch, and then draws it to make a "clear" window.

If you don't like where the window started, you can move it and press SPACE to re-center.

After that, click & drag anywhere.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. DO UNTIL _SCREENEXISTS: LOOP
4. _TITLE "PlasmaDoodle"
5.  
6. ' Hardware
7. DIM ScreenOffsetX
8. DIM ScreenOffsetY
9. ScreenOffsetX = -3
10. ScreenOffsetY = -26
11.  
12. DIM Desktop AS _UNSIGNED LONG
13. Desktop = _SCREENIMAGE
14. SCREEN _NEWIMAGE(INT(_WIDTH(Desktop) * .5), INT(_HEIGHT(Desktop) * .5), 32)
15. _PUTIMAGE (-_SCREENX + ScreenOffsetX, -_SCREENY + ScreenOffsetY), Desktop
16.  
17. ' Constants
18. DIM SHARED pi AS DOUBLE
19. pi = 4 * ATN(1)
20.  
21. ' Structures and variables
22. TYPE ShadeVector
23.     VelocityRed AS INTEGER
24.     VelocityGreen AS INTEGER
25.     VelocityBlue AS INTEGER
26. END TYPE
27.  
28. DIM SHARED MainPhase(_WIDTH, _HEIGHT) AS ShadeVector
29.  
30. DIM i AS DOUBLE
31. DIM j AS DOUBLE
32.  
33. DIM r AS INTEGER
34. DIM g AS INTEGER
35. DIM b AS INTEGER
36.  
37. DIM p AS DOUBLE
38. DIM q AS DOUBLE
39. DIM w AS INTEGER
40.  
41. RANDOMIZE TIMER
42.  
43. 'FOR i = 1 TO 350
44. '    p = RND * _WIDTH
45. '    q = RND * _HEIGHT
46. '    CIRCLE (p - 50, q - 50), 100, _RGB32(RND * 255, RND * 255, RND * 255, RND * 255)
47. '    LINE (100, 100)-(300, 300), _RGB32(255, 155, 0, 255), BF
48. 'NEXT
49.  
50. _DISPLAY
51.  
52. FOR i = 1 TO _WIDTH
53.     FOR j = 1 TO _HEIGHT
54.         MainPhase(i, j).VelocityRed = 9
55.         MainPhase(i, j).VelocityGreen = 8
56.         MainPhase(i, j).VelocityBlue = 7
57.     NEXT
58. NEXT
59.  
60. DIM t2
61. DIM mx
62. DIM my
63.  
64. ' Main loop
65. DO
66.     IF _KEYHIT = ASC(" ") THEN
67.         _PUTIMAGE (-_SCREENX + ScreenOffsetX, -_SCREENY + ScreenOffsetY), Desktop
68.     END IF
69.     DO WHILE _MOUSEINPUT
70.         mx = _MOUSEX
71.         my = _MOUSEY
72.         IF _MOUSEBUTTON(1) THEN
73.             GOSUB DrawIt
74.         END IF
75.     LOOP
76.     LOCATE 1, 1: PRINT _SCREENX, _SCREENY
77.     _DISPLAY
78.     _LIMIT 60
79. LOOP
80.  
81. ' Graphics
82. DrawIt:
83. FOR i = mx - 40 TO mx + 40
84.     FOR j = my - 40 TO my + 40
85.         IF ((i > 0) AND (i < _WIDTH) AND (j > 0) AND (j < _HEIGHT)) THEN
86.             t2 = (i - mx) * (i - mx) + (j - my) * (j - my)
87.             'IF (t2 < 1600) THEN
88.             r = _RED32(POINT(i, j))
89.             g = _GREEN32(POINT(i, j))
90.             b = _BLUE32(POINT(i, j))
91.             p = MainPhase(i, j).VelocityRed
92.             q = MainPhase(i, j).VelocityGreen
93.             w = MainPhase(i, j).VelocityBlue
94.             r = r + p
95.             IF (r > 255) OR (r < 1) THEN MainPhase(i, j).VelocityRed = -p
96.             g = g + q
97.             IF (g > 255) OR (g < 1) THEN MainPhase(i, j).VelocityGreen = -q
98.             b = b + w
99.             IF (b > 255) OR (b < 1) THEN MainPhase(i, j).VelocityBlue = -w
100.             PSET (i, j), _RGB32(r, g, b, 255 * (1 - t2 / 1600))
101.             'END IF
102.         END IF
103.     NEXT
104. NEXT
105. RETURN
106.  

Title: Re: Sorry for the prank. Have PlasmaDoodle
Post by: bplus on December 30, 2020, 12:02:36 pm

Well I am sorry for calling it a prank, because I could not figure a elegant way of escaping or preventing code from getting stuck in full screen.

It does make a pretty clever one! Perhaps I gave you too much credit :)

Title: Re: Sorry for the prank. Have PlasmaDoodle
Post by: STxAxTIC on December 30, 2020, 12:15:52 pm

Nah man, it *was* a prank :-)

Protip: load in full screen, then color the bottom corner of the monitor as if it's been dropped....... and then just leave it for someone to find.

Text Only | Text with Attachments