Help! buggy code

[bplus]

and the screen just sits there...

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "draw Spinner" 'B+ started 2019-06-15
3. RANDOMIZE TIMER
4. DIM SHARED xmax AS INTEGER, ymax AS INTEGER
5. xmax = _DESKTOPWIDTH
6. ymax = _DESKTOPHEIGHT
7. CONST nSpinners = 100
8. TYPE SpinnerType
9.     x AS SINGLE
10.     y AS SINGLE
11.     dx AS SINGLE
12.     dy AS SINGLE
13.     sz AS SINGLE
14.     c AS _UNSIGNED LONG
15. END TYPE
16.  
17. SCREEN _NEWIMAGE(xmax, ymax, 32)
18. '_SCREENMOVE 300, 20
19. _FULLSCREEN
20. DIM SHARED s(1 TO nSpinners) AS SpinnerType
21. DIM i, i2, lc, sc&
22. COLOR , &HFFAABBCC
23. FOR i = 1 TO nSpinners
24.     newSpinner i
25. NEXT
26. i2 = 1
27. _SCREENHIDE
28. sc& = _SCREENIMAGE
29. _SCREENSHOW
30. WHILE INKEY$ <> CHR$(27)
31.     _PUTIMAGE , sc&
32.     lc = lc + 1
33.     IF lc MOD 100 = 99 THEN
34.         lc = 0
35.         IF i2 < nSpinners THEN i2 = i2 + 1
36.     END IF
37.     FOR i = 1 TO i2
38.         drawSpinner s(i).x, s(i).y, s(i).sz, _ATAN2(s(i).dy, s(i).dx), s(i).c
39.         s(i).x = s(i).x + s(i).dx: s(i).y = s(i).y + s(i).dy
40.         IF s(i).x < -100 OR s(i).x > xmax + 100 OR s(i).y < -100 OR s(i).y > ymax + 100 THEN newSpinner i
41.     NEXT
42.     _DISPLAY
43.     _LIMIT 15
44. WEND
45.  
46. SUB newSpinner (i AS INTEGER) 'set Spinners dimensions start angles, color?
47.     DIM r
48.     s(i).sz = RND * .25 + .5
49.     IF RND < .5 THEN r = -1 ELSE r = 1
50.     s(i).dx = (s(i).sz * RND * 8) * r * 2: s(i).dy = (s(i).sz * RND * 8) * r * 2
51.     r = INT(RND * 4)
52.     SELECT CASE r
53.         CASE 0: s(i).x = RND * (xmax - 120) + 60: s(i).y = 0: IF s(i).dy < 0 THEN s(i).dy = -s(i).dy
54.         CASE 1: s(i).x = RND * (xmax - 120) + 60: s(i).y = ymax: IF s(i).dy > 0 THEN s(i).dy = -s(i).dy
55.         CASE 2: s(i).x = 0: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx < 0 THEN s(i).dx = -s(i).dx
56.         CASE 3: s(i).x = xmax: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx > 0 THEN s(i).dx = -s(i).dx
57.     END SELECT
58.     r = RND * 120
59.     s(i).c = _RGB32(r, RND * .5 * r, RND * .25 * r)
60. END SUB
61.  
62. SUB drawSpinner (x AS INTEGER, y AS INTEGER, scale AS SINGLE, heading AS SINGLE, c AS _UNSIGNED LONG)
63.     DIM x1, x2, x3, x4, y1, y2, y3, y4, r, a, a1, a2, lg, d, rd, red, blue, green
64.     STATIC switch AS INTEGER
65.     switch = switch + 2
66.     switch = switch MOD 16 + 1
67.     red = _RED32(c): green = _GREEN32(c): blue = _BLUE32(c)
68.     r = 10 * scale
69.     x1 = x + r * COS(heading): y1 = y + r * SIN(heading)
70.     r = 2 * r 'lg lengths
71.     FOR lg = 1 TO 8
72.         IF lg < 5 THEN
73.             a = heading + .9 * lg * _PI(1 / 5) + (lg = switch) * _PI(1 / 10)
74.         ELSE
75.             a = heading - .9 * (lg - 4) * _PI(1 / 5) - (lg = switch) * _PI(1 / 10)
76.         END IF
77.         x2 = x1 + r * COS(a): y2 = y1 + r * SIN(a)
78.         drawLink x1, y1, 3 * scale, x2, y2, 2 * scale, _RGB32(red + 20, green + 10, blue + 5)
79.         IF lg = 1 OR lg = 2 OR lg = 7 OR lg = 8 THEN d = -1 ELSE d = 1
80.         a1 = a + d * _PI(1 / 12)
81.         x3 = x2 + r * 1.5 * COS(a1): y3 = y2 + r * 1.5 * SIN(a1)
82.         drawLink x2, y2, 2 * scale, x3, y3, scale, _RGB32(red + 35, green + 17, blue + 8)
83.         rd = INT(RND * 8) + 1
84.         a2 = a1 + d * _PI(1 / 8) * rd / 8
85.         x4 = x3 + r * 1.5 * COS(a2): y4 = y3 + r * 1.5 * SIN(a2)
86.         drawLink x3, y3, scale, x4, y4, scale, _RGB32(red + 50, green + 25, blue + 12)
87.     NEXT
88.     r = r * .5
89.     fcirc x1, y1, r, _RGB32(red - 20, green - 10, blue - 5)
90.     x2 = x1 + (r + 1) * COS(heading - _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading - _PI(1 / 12))
91.     fcirc x2, y2, r * .2, &HFF000000
92.     x2 = x1 + (r + 1) * COS(heading + _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading + _PI(1 / 12))
93.     fcirc x2, y2, r * .2, &HFF000000
94.     r = r * 2
95.     x1 = x + r * .9 * COS(heading + _PI): y1 = y + r * .9 * SIN(heading + _PI)
96.     TiltedEllipseFill 0, x1, y1, r, .7 * r, heading + _PI, _RGB32(red, green, blue)
97. END SUB
98.  
99. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
100.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
101.     a = _ATAN2(y2 - y1, x2 - x1)
102.     a1 = a + _PI(1 / 2)
103.     a2 = a - _PI(1 / 2)
104.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
105.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
106.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
107.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
108.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
109.     fcirc x1, y1, r1, c
110.     fcirc x2, y2, r2, c
111. END SUB
112.  
113. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
114. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
115.     ftri x1, y1, x2, y2, x4, y4, c
116.     ftri x3, y3, x4, y4, x1, y1, c
117. END SUB
118.  
119. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
120.     DIM a&
121.     a& = _NEWIMAGE(1, 1, 32)
122.     _DEST a&
123.     PSET (0, 0), K
124.     _DEST 0
125.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
126.     _FREEIMAGE a& '<<< this is important!
127. END SUB
128.  
129. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
130.     DIM Radius AS INTEGER, RadiusError AS INTEGER
131.     DIM X AS INTEGER, Y AS INTEGER
132.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
133.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
134.     LINE (CX - X, CY)-(CX + X, CY), C, BF
135.     WHILE X > Y
136.         RadiusError = RadiusError + Y * 2 + 1
137.         IF RadiusError >= 0 THEN
138.             IF X <> Y + 1 THEN
139.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
140.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
141.             END IF
142.             X = X - 1
143.             RadiusError = RadiusError - X * 2
144.         END IF
145.         Y = Y + 1
146.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
147.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
148.     WEND
149. END SUB
150.  
151. SUB TiltedEllipseFill (destHandle&, x0, y0, a, b, ang, c AS _UNSIGNED LONG)
152.     DIM max AS INTEGER, mx2 AS INTEGER, i AS INTEGER, j AS INTEGER, k AS SINGLE, lasti AS SINGLE, lastj AS SINGLE
153.     DIM prc AS _UNSIGNED LONG, tef AS LONG
154.     prc = _RGB32(255, 255, 255, 255)
155.     IF a > b THEN max = a + 1 ELSE max = b + 1
156.     mx2 = max + max
157.     tef = _NEWIMAGE(mx2, mx2)
158.     _DEST tef
159.     _SOURCE tef 'point wont read without this!
160.     FOR k = 0 TO 6.2832 + .05 STEP .1
161.         i = max + a * COS(k) * COS(ang) + b * SIN(k) * SIN(ang)
162.         j = max + a * COS(k) * SIN(ang) - b * SIN(k) * COS(ang)
163.         IF k <> 0 THEN
164.             LINE (lasti, lastj)-(i, j), prc
165.         ELSE
166.             PSET (i, j), prc
167.         END IF
168.         lasti = i: lastj = j
169.     NEXT
170.     DIM xleft(mx2) AS INTEGER, xright(mx2) AS INTEGER, x AS INTEGER, y AS INTEGER
171.     FOR y = 0 TO mx2
172.         x = 0
173.         WHILE POINT(x, y) <> prc AND x < mx2
174.             x = x + 1
175.         WEND
176.         xleft(y) = x
177.         WHILE POINT(x, y) = prc AND x < mx2
178.             x = x + 1
179.         WEND
180.         WHILE POINT(x, y) <> prc AND x < mx2
181.             x = x + 1
182.         WEND
183.         IF x = mx2 THEN xright(y) = xleft(y) ELSE xright(y) = x
184.     NEXT
185.     _DEST destHandle&
186.     FOR y = 0 TO mx2
187.         IF xleft(y) <> mx2 THEN LINE (xleft(y) + x0 - max, y + y0 - max)-(xright(y) + x0 - max, y + y0 - max), c, BF
188.     NEXT
189.     _FREEIMAGE tef
190. END SUB
191.  
192.  

[OldMoses]

Man that code has a lot of bugs...

[SMcNeill]

A slight alteration:

Code: QB64: [Select]

1. DECLARE LIBRARY
2.     FUNCTION glutGet& (BYVAL what&)
3. END DECLARE
4.  
5. _SCREENMOVE -32000, -32000
6. BorderWidth = glutGet(506)
7. TitleBarHeight = glutGet(507)
8.  
9. _TITLE "draw Spinner" 'B+ started 2019-06-15
10. RANDOMIZE TIMER
11. DIM SHARED xmax AS INTEGER, ymax AS INTEGER
12. xmax = _DESKTOPWIDTH
13. ymax = _DESKTOPHEIGHT
14. CONST nSpinners = 100
15. TYPE SpinnerType
16.     x AS SINGLE
17.     y AS SINGLE
18.     dx AS SINGLE
19.     dy AS SINGLE
20.     sz AS SINGLE
21.     c AS _UNSIGNED LONG
22. END TYPE
23. PRINT xmax, ymax
24.  
25. DIM SHARED s(1 TO nSpinners) AS SpinnerType
26. DIM i, i2, lc, sc&
27.  
28. sc& = _SCREENIMAGE
29. SCREEN _NEWIMAGE(xmax, ymax, 32)
30. _SCREENMOVE -BorderWidth, -BorderWidth - TitleBarHeight
31.  
32. COLOR , &HFFAABBCC
33. FOR i = 1 TO nSpinners
34.     newSpinner i
35. NEXT
36. i2 = 1
37.  
38.  
39. '_SCREENSHOW
40. WHILE INKEY$ <> CHR$(27)
41.     _PUTIMAGE , sc&
42.     lc = lc + 1
43.     IF lc MOD 100 = 99 THEN
44.         lc = 0
45.         IF i2 < nSpinners THEN i2 = i2 + 1
46.     END IF
47.     FOR i = 1 TO i2
48.         drawSpinner s(i).x, s(i).y, s(i).sz, _ATAN2(s(i).dy, s(i).dx), s(i).c
49.         s(i).x = s(i).x + s(i).dx: s(i).y = s(i).y + s(i).dy
50.         IF s(i).x < -100 OR s(i).x > xmax + 100 OR s(i).y < -100 OR s(i).y > ymax + 100 THEN newSpinner i
51.     NEXT
52.     _DISPLAY
53.     _LIMIT 15
54. WEND
55.  
56. SUB newSpinner (i AS INTEGER) 'set Spinners dimensions start angles, color?
57.     DIM r
58.     s(i).sz = RND * .25 + .5
59.     IF RND < .5 THEN r = -1 ELSE r = 1
60.     s(i).dx = (s(i).sz * RND * 8) * r * 2: s(i).dy = (s(i).sz * RND * 8) * r * 2
61.     r = INT(RND * 4)
62.     SELECT CASE r
63.         CASE 0: s(i).x = RND * (xmax - 120) + 60: s(i).y = 0: IF s(i).dy < 0 THEN s(i).dy = -s(i).dy
64.         CASE 1: s(i).x = RND * (xmax - 120) + 60: s(i).y = ymax: IF s(i).dy > 0 THEN s(i).dy = -s(i).dy
65.         CASE 2: s(i).x = 0: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx < 0 THEN s(i).dx = -s(i).dx
66.         CASE 3: s(i).x = xmax: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx > 0 THEN s(i).dx = -s(i).dx
67.     END SELECT
68.     r = RND * 120
69.     s(i).c = _RGB32(r, RND * .5 * r, RND * .25 * r)
70. END SUB
71.  
72. SUB drawSpinner (x AS INTEGER, y AS INTEGER, scale AS SINGLE, heading AS SINGLE, c AS _UNSIGNED LONG)
73.     DIM x1, x2, x3, x4, y1, y2, y3, y4, r, a, a1, a2, lg, d, rd, red, blue, green
74.     STATIC switch AS INTEGER
75.     switch = switch + 2
76.     switch = switch MOD 16 + 1
77.     red = _RED32(c): green = _GREEN32(c): blue = _BLUE32(c)
78.     r = 10 * scale
79.     x1 = x + r * COS(heading): y1 = y + r * SIN(heading)
80.     r = 2 * r 'lg lengths
81.     FOR lg = 1 TO 8
82.         IF lg < 5 THEN
83.             a = heading + .9 * lg * _PI(1 / 5) + (lg = switch) * _PI(1 / 10)
84.         ELSE
85.             a = heading - .9 * (lg - 4) * _PI(1 / 5) - (lg = switch) * _PI(1 / 10)
86.         END IF
87.         x2 = x1 + r * COS(a): y2 = y1 + r * SIN(a)
88.         drawLink x1, y1, 3 * scale, x2, y2, 2 * scale, _RGB32(red + 20, green + 10, blue + 5)
89.         IF lg = 1 OR lg = 2 OR lg = 7 OR lg = 8 THEN d = -1 ELSE d = 1
90.         a1 = a + d * _PI(1 / 12)
91.         x3 = x2 + r * 1.5 * COS(a1): y3 = y2 + r * 1.5 * SIN(a1)
92.         drawLink x2, y2, 2 * scale, x3, y3, scale, _RGB32(red + 35, green + 17, blue + 8)
93.         rd = INT(RND * 8) + 1
94.         a2 = a1 + d * _PI(1 / 8) * rd / 8
95.         x4 = x3 + r * 1.5 * COS(a2): y4 = y3 + r * 1.5 * SIN(a2)
96.         drawLink x3, y3, scale, x4, y4, scale, _RGB32(red + 50, green + 25, blue + 12)
97.     NEXT
98.     r = r * .5
99.     fcirc x1, y1, r, _RGB32(red - 20, green - 10, blue - 5)
100.     x2 = x1 + (r + 1) * COS(heading - _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading - _PI(1 / 12))
101.     fcirc x2, y2, r * .2, &HFF000000
102.     x2 = x1 + (r + 1) * COS(heading + _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading + _PI(1 / 12))
103.     fcirc x2, y2, r * .2, &HFF000000
104.     r = r * 2
105.     x1 = x + r * .9 * COS(heading + _PI): y1 = y + r * .9 * SIN(heading + _PI)
106.     TiltedEllipseFill 0, x1, y1, r, .7 * r, heading + _PI, _RGB32(red, green, blue)
107. END SUB
108.  
109. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
110.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
111.     a = _ATAN2(y2 - y1, x2 - x1)
112.     a1 = a + _PI(1 / 2)
113.     a2 = a - _PI(1 / 2)
114.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
115.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
116.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
117.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
118.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
119.     fcirc x1, y1, r1, c
120.     fcirc x2, y2, r2, c
121. END SUB
122.  
123. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
124. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
125.     ftri x1, y1, x2, y2, x4, y4, c
126.     ftri x3, y3, x4, y4, x1, y1, c
127. END SUB
128.  
129. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
130.     DIM a&
131.     a& = _NEWIMAGE(1, 1, 32)
132.     _DEST a&
133.     PSET (0, 0), K
134.     _DEST 0
135.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
136.     _FREEIMAGE a& '<<< this is important!
137. END SUB
138.  
139. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
140.     DIM Radius AS INTEGER, RadiusError AS INTEGER
141.     DIM X AS INTEGER, Y AS INTEGER
142.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
143.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
144.     LINE (CX - X, CY)-(CX + X, CY), C, BF
145.     WHILE X > Y
146.         RadiusError = RadiusError + Y * 2 + 1
147.         IF RadiusError >= 0 THEN
148.             IF X <> Y + 1 THEN
149.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
150.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
151.             END IF
152.             X = X - 1
153.             RadiusError = RadiusError - X * 2
154.         END IF
155.         Y = Y + 1
156.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
157.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
158.     WEND
159. END SUB
160.  
161. SUB TiltedEllipseFill (destHandle&, x0, y0, a, b, ang, c AS _UNSIGNED LONG)
162.     DIM max AS INTEGER, mx2 AS INTEGER, i AS INTEGER, j AS INTEGER, k AS SINGLE, lasti AS SINGLE, lastj AS SINGLE
163.     DIM prc AS _UNSIGNED LONG, tef AS LONG
164.     prc = _RGB32(255, 255, 255, 255)
165.     IF a > b THEN max = a + 1 ELSE max = b + 1
166.     mx2 = max + max
167.     tef = _NEWIMAGE(mx2, mx2)
168.     _DEST tef
169.     _SOURCE tef 'point wont read without this!
170.     FOR k = 0 TO 6.2832 + .05 STEP .1
171.         i = max + a * COS(k) * COS(ang) + b * SIN(k) * SIN(ang)
172.         j = max + a * COS(k) * SIN(ang) - b * SIN(k) * COS(ang)
173.         IF k <> 0 THEN
174.             LINE (lasti, lastj)-(i, j), prc
175.         ELSE
176.             PSET (i, j), prc
177.         END IF
178.         lasti = i: lastj = j
179.     NEXT
180.     DIM xleft(mx2) AS INTEGER, xright(mx2) AS INTEGER, x AS INTEGER, y AS INTEGER
181.     FOR y = 0 TO mx2
182.         x = 0
183.         WHILE POINT(x, y) <> prc AND x < mx2
184.             x = x + 1
185.         WEND
186.         xleft(y) = x
187.         WHILE POINT(x, y) = prc AND x < mx2
188.             x = x + 1
189.         WEND
190.         WHILE POINT(x, y) <> prc AND x < mx2
191.             x = x + 1
192.         WEND
193.         IF x = mx2 THEN xright(y) = xleft(y) ELSE xright(y) = x
194.     NEXT
195.     _DEST destHandle&
196.     FOR y = 0 TO mx2
197.         IF xleft(y) <> mx2 THEN LINE (xleft(y) + x0 - max, y + y0 - max)-(xright(y) + x0 - max, y + y0 - max), c, BF
198.     NEXT
199.     _FREEIMAGE tef
200. END SUB
201.  

Using screenhide and screenshow, there's a blank artifact program window frame which almost always seems to get caught up in the desktop screenshot.  (The program is running and executing the screenimage command, before windows has finished making and then completely hiding the window from the screenhide command, which gives us a screen capture of a desktop with the window in the middle of closing.)

screenmove -32000,-32000 is a good, quick way to hide the window from the screen, and by using the glutget commands, we can eliminate the need for FULLSCREEN, just by positioning the window so that it's properly placed to make the program seemlessly cover the whole screen. 

And what's the point of that, you ask??

So you can ALT-Tab another program (such as QB64, or your web browser) back into focus ON TOP of the buggy little program, and have it run freely in the background for you, under the other app which you put in focus.  (Though, I do find myself getting distracted while typing on the forums here, by the dozen spiders which are dancing happily across my screen...)   

[RhoSigma]

That's sooo cool, gonna freak out my wife with it today :)

[TempodiBasic]

Oh my God!
all these bugs enter into my screen and into my brain....
who can save me?

I'll call these superHeroes https://images-na.ssl-images-amazon.com/images/I/511J5S8F5XL._SY445_.jpg

Very very fine!

[TempodiBasic]

Yep!
Steve also you!
Damn destiny!
Steve help me too you!

[bplus]

Hi Steve,

Thanks for the modification. Our systems must work differently because _SCREEN HIDE, _SCREENSHOW did fix the screen artifact problem for me, the screen just blinks and then you see the bug(s). Your mod leaves a shadow screen, if I run it from the QB64 IDE and it seems a 50/50 change for artifact from the .exe, here are what I am seeing in screen shots attached. BTW the MS Windows button let's me access tools when I have Full Screen App running eg, for screen shots.

So if my code leaves screen artifacts or screen shadows then try Steve's mod or vice versa :)



 

[johnno56]

I had to insert a 'cls' at the top of the 'screenshow' while...wend..loop, but other than that, cool demo. The only things missing were webs, flies and a rolled up newspaper.... Nicely done!

[Petr]

Hi. My fast modification:

Code: QB64: [Select]

1.  
2. OPTION _EXPLICIT
3. DIM i, i2, lc, sc&
4. sc& = _SCREENIMAGE
5. _DELAY .1
6.  
7. _TITLE "draw Spinner" 'B+ started 2019-06-15
8. RANDOMIZE TIMER
9. DIM SHARED xmax AS INTEGER, ymax AS INTEGER
10. xmax = _DESKTOPWIDTH
11. ymax = _DESKTOPHEIGHT
12. CONST nSpinners = 100
13. TYPE SpinnerType
14.     x AS SINGLE
15.     y AS SINGLE
16.     dx AS SINGLE
17.     dy AS SINGLE
18.     sz AS SINGLE
19.     c AS _UNSIGNED LONG
20. END TYPE
21.  
22. SCREEN _NEWIMAGE(xmax, ymax, 32)
23. '_SCREENMOVE 300, 20
24. _FULLSCREEN
25. DIM SHARED s(1 TO nSpinners) AS SpinnerType
26.  
27. COLOR , &HFFAABBCC
28. FOR i = 1 TO nSpinners
29.     newSpinner i
30. NEXT
31. i2 = 1
32. _SCREENHIDE
33.  
34. _SCREENSHOW
35. WHILE INKEY$ <> CHR$(27)
36.     _PUTIMAGE , sc&
37.     lc = lc + 1
38.     IF lc MOD 100 = 99 THEN
39.         lc = 0
40.         IF i2 < nSpinners THEN i2 = i2 + 1
41.     END IF
42.     FOR i = 1 TO i2
43.         drawSpinner s(i).x, s(i).y, s(i).sz, _ATAN2(s(i).dy, s(i).dx), s(i).c
44.         s(i).x = s(i).x + s(i).dx: s(i).y = s(i).y + s(i).dy
45.         IF s(i).x < -100 OR s(i).x > xmax + 100 OR s(i).y < -100 OR s(i).y > ymax + 100 THEN newSpinner i
46.     NEXT
47.     _DISPLAY
48.     _LIMIT 15
49. WEND
50.  
51. SUB newSpinner (i AS INTEGER) 'set Spinners dimensions start angles, color?
52.     DIM r
53.     s(i).sz = RND * .25 + .5
54.     IF RND < .5 THEN r = -1 ELSE r = 1
55.     s(i).dx = (s(i).sz * RND * 8) * r * 2: s(i).dy = (s(i).sz * RND * 8) * r * 2
56.     r = INT(RND * 4)
57.     SELECT CASE r
58.         CASE 0: s(i).x = RND * (xmax - 120) + 60: s(i).y = 0: IF s(i).dy < 0 THEN s(i).dy = -s(i).dy
59.         CASE 1: s(i).x = RND * (xmax - 120) + 60: s(i).y = ymax: IF s(i).dy > 0 THEN s(i).dy = -s(i).dy
60.         CASE 2: s(i).x = 0: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx < 0 THEN s(i).dx = -s(i).dx
61.         CASE 3: s(i).x = xmax: s(i).y = RND * (ymax - 120) + 60: IF s(i).dx > 0 THEN s(i).dx = -s(i).dx
62.     END SELECT
63.     r = RND * 120
64.     s(i).c = _RGB32(r, RND * .5 * r, RND * .25 * r)
65. END SUB
66.  
67. SUB drawSpinner (x AS INTEGER, y AS INTEGER, scale AS SINGLE, heading AS SINGLE, c AS _UNSIGNED LONG)
68.     DIM x1, x2, x3, x4, y1, y2, y3, y4, r, a, a1, a2, lg, d, rd, red, blue, green
69.     STATIC switch AS INTEGER
70.     switch = switch + 2
71.     switch = switch MOD 16 + 1
72.     red = _RED32(c): green = _GREEN32(c): blue = _BLUE32(c)
73.     r = 10 * scale
74.     x1 = x + r * COS(heading): y1 = y + r * SIN(heading)
75.     r = 2 * r 'lg lengths
76.     FOR lg = 1 TO 8
77.         IF lg < 5 THEN
78.             a = heading + .9 * lg * _PI(1 / 5) + (lg = switch) * _PI(1 / 10)
79.         ELSE
80.             a = heading - .9 * (lg - 4) * _PI(1 / 5) - (lg = switch) * _PI(1 / 10)
81.         END IF
82.         x2 = x1 + r * COS(a): y2 = y1 + r * SIN(a)
83.         drawLink x1, y1, 3 * scale, x2, y2, 2 * scale, _RGB32(red + 20, green + 10, blue + 5)
84.         IF lg = 1 OR lg = 2 OR lg = 7 OR lg = 8 THEN d = -1 ELSE d = 1
85.         a1 = a + d * _PI(1 / 12)
86.         x3 = x2 + r * 1.5 * COS(a1): y3 = y2 + r * 1.5 * SIN(a1)
87.         drawLink x2, y2, 2 * scale, x3, y3, scale, _RGB32(red + 35, green + 17, blue + 8)
88.         rd = INT(RND * 8) + 1
89.         a2 = a1 + d * _PI(1 / 8) * rd / 8
90.         x4 = x3 + r * 1.5 * COS(a2): y4 = y3 + r * 1.5 * SIN(a2)
91.         drawLink x3, y3, scale, x4, y4, scale, _RGB32(red + 50, green + 25, blue + 12)
92.     NEXT
93.     r = r * .5
94.     fcirc x1, y1, r, _RGB32(red - 20, green - 10, blue - 5)
95.     x2 = x1 + (r + 1) * COS(heading - _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading - _PI(1 / 12))
96.     fcirc x2, y2, r * .2, &HFF000000
97.     x2 = x1 + (r + 1) * COS(heading + _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading + _PI(1 / 12))
98.     fcirc x2, y2, r * .2, &HFF000000
99.     r = r * 2
100.     x1 = x + r * .9 * COS(heading + _PI): y1 = y + r * .9 * SIN(heading + _PI)
101.     TiltedEllipseFill 0, x1, y1, r, .7 * r, heading + _PI, _RGB32(red, green, blue)
102. END SUB
103.  
104. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
105.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
106.     a = _ATAN2(y2 - y1, x2 - x1)
107.     a1 = a + _PI(1 / 2)
108.     a2 = a - _PI(1 / 2)
109.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
110.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
111.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
112.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
113.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
114.     fcirc x1, y1, r1, c
115.     fcirc x2, y2, r2, c
116. END SUB
117.  
118. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
119. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
120.     ftri x1, y1, x2, y2, x4, y4, c
121.     ftri x3, y3, x4, y4, x1, y1, c
122. END SUB
123.  
124. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
125.     DIM a&
126.     a& = _NEWIMAGE(1, 1, 32)
127.     _DEST a&
128.     PSET (0, 0), K
129.     _DEST 0
130.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
131.     _FREEIMAGE a& '<<< this is important!
132. END SUB
133.  
134. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
135.     DIM Radius AS INTEGER, RadiusError AS INTEGER
136.     DIM X AS INTEGER, Y AS INTEGER
137.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
138.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
139.     LINE (CX - X, CY)-(CX + X, CY), C, BF
140.     WHILE X > Y
141.         RadiusError = RadiusError + Y * 2 + 1
142.         IF RadiusError >= 0 THEN
143.             IF X <> Y + 1 THEN
144.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
145.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
146.             END IF
147.             X = X - 1
148.             RadiusError = RadiusError - X * 2
149.         END IF
150.         Y = Y + 1
151.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
152.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
153.     WEND
154. END SUB
155.  
156. SUB TiltedEllipseFill (destHandle&, x0, y0, a, b, ang, c AS _UNSIGNED LONG)
157.     DIM max AS INTEGER, mx2 AS INTEGER, i AS INTEGER, j AS INTEGER, k AS SINGLE, lasti AS SINGLE, lastj AS SINGLE
158.     DIM prc AS _UNSIGNED LONG, tef AS LONG
159.     prc = _RGB32(255, 255, 255, 255)
160.     IF a > b THEN max = a + 1 ELSE max = b + 1
161.     mx2 = max + max
162.     tef = _NEWIMAGE(mx2, mx2)
163.     _DEST tef
164.     _SOURCE tef 'point wont read without this!
165.     FOR k = 0 TO 6.2832 + .05 STEP .1
166.         i = max + a * COS(k) * COS(ang) + b * SIN(k) * SIN(ang)
167.         j = max + a * COS(k) * SIN(ang) - b * SIN(k) * COS(ang)
168.         IF k <> 0 THEN
169.             LINE (lasti, lastj)-(i, j), prc
170.         ELSE
171.             PSET (i, j), prc
172.         END IF
173.         lasti = i: lastj = j
174.     NEXT
175.     DIM xleft(mx2) AS INTEGER, xright(mx2) AS INTEGER, x AS INTEGER, y AS INTEGER
176.     FOR y = 0 TO mx2
177.         x = 0
178.         WHILE POINT(x, y) <> prc AND x < mx2
179.             x = x + 1
180.         WEND
181.         xleft(y) = x
182.         WHILE POINT(x, y) = prc AND x < mx2
183.             x = x + 1
184.         WEND
185.         WHILE POINT(x, y) <> prc AND x < mx2
186.             x = x + 1
187.         WEND
188.         IF x = mx2 THEN xright(y) = xleft(y) ELSE xright(y) = x
189.     NEXT
190.     _DEST destHandle&
191.     FOR y = 0 TO mx2
192.         IF xleft(y) <> mx2 THEN LINE (xleft(y) + x0 - max, y + y0 - max)-(xright(y) + x0 - max, y + y0 - max), c, BF
193.     NEXT
194.     _FREEIMAGE tef
195. END SUB
196.  
197.  
198.  

Your bug do SCREENIMAGE. Use it as first statement in program as possible, and wait until is screenimage done.
Nice work, Bplus

[SMcNeill]

@bplus:  That shaded area is what I get with your version as well.  Apparently, there’s a race condition going on behind the scenes with the screen capture routine, verses the screen hide/move routines.  The only way to be certain the effect is gone, is probably going to be to add a _DELAY in there to give the OS time to clear the display fully, before SCREENIMAGE is invoked.

[bplus]

@bplus:  That shaded area is what I get with your version as well.  Apparently, there’s a race condition going on behind the scenes with the screen capture routine, verses the screen hide/move routines.  The only way to be certain the effect is gone, is probably going to be to add a _DELAY in there to give the OS time to clear the display fully, before SCREENIMAGE is invoked.

Yes, Petr's works fine with my system with his _DELAY even without _SCREENHIDE and _SCREENSHOW! Oh I see he takes his picture before the code gets going.



Thanks to all for comments! The legs aren't working quite as I hoped but close enough for an effect :)