QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: PMACKAY on April 15, 2019, 08:27:42 pm

Title: gl shaders in text mode...
Post by: PMACKAY on April 15, 2019, 08:27:42 pm

how would i use gl... would like to use a simple shadder to put light on screen on dark images (torch light) as in circle (100,100),10,light

i do not know where to start or how to implement



like a dungeon with a torch light on

Title: Re: gl shaders in text mode...
Post by: Raven_Singularity on April 15, 2019, 08:56:28 pm

Why text mode, and not 32bit graphical mode?  OpenGL lighting is clearly graphical.  :-)

Title: Re: gl shaders in text mode...
Post by: Petr on April 16, 2019, 02:57:34 pm

So you say - text mode? Well, try this. I wish you good luck in recalculating the coordinates between the text screen and the hardware image. I mean, I'll be glad if you can do it because I don't want to think of it, but I would definitely use it.

Code: QB64: [Select]

1. himage = _NEWIMAGE(100, 100, 32)
2. _DEST himage
3. FOR x = 1 TO 255
4.     FOR R = 0 TO _PI(2) STEP .001
5.         PSET (50 + SIN(R) * x, 50 + COS(R) * x), _RGBA32(0, 0, 0, x)
6.     NEXT R
7. NEXT x
8. _DEST 0
9. himage = _COPYIMAGE(himage, 33) '! HARDWARE IMAGE need DISPLAY!
10.  
11. _DISPLAYORDER _SOFTWARE , _HARDWARE
12. SCREEN 0
13. CLS , 15
14.  
15. FOR print_something = 1 TO 1000
16.     char = RND * 127 + 31
17.     PRINT CHR$(char);
18. NEXT
19.  
20.  
21.  
22.  
23. DO
24.     _MAPTRIANGLE (100, 100)-(0, 100)-(100, 0), himage TO(1, -1, -1)-(-1, -1, -1)-(1, 1, -1), 0
25.     _MAPTRIANGLE (0, 100)-(100, 0)-(0, 0), himage TO(-1, -1, -1)-(1, 1, -1)-(-1, 1, -1), 0
26.  
27.  
28.     _DISPLAY
29. LOOP
30.  

or better...

Code: QB64: [Select]

1.  
2. himage = _NEWIMAGE(512, 512, 32)
3. _DEST himage
4. FOR x = 1 TO 255
5.     FOR R = 0 TO _PI(2) STEP .001
6.         PSET (256 + (SIN(R) * x), 256 + (COS(R) * x)), _RGBA32(0, 0, 0, x - 20)
7.     NEXT R
8. NEXT x
9. _DEST 0
10. himage = _COPYIMAGE(himage, 33) '! HARDWARE IMAGE need DISPLAY!
11.  
12. _DISPLAYORDER _SOFTWARE , _HARDWARE
13. SCREEN 0
14. CLS , 15
15. COLOR 0, 15
16.  
17. FOR print_something = 1 TO 2000
18.     char = RND * 127 + 31
19.     PRINT CHR$(char);
20. NEXT
21.  
22. D = -1
23. W = 512
24. H = 512
25.  
26. DO
27.  
28.     _MAPTRIANGLE (W, H)-(0, H)-(W, 0), himage TO(1, -1, D)-(-1, -1, D)-(1, 1, D), 0
29.     _MAPTRIANGLE (0, H)-(W, 0)-(0, 0), himage TO(-1, -1, D)-(1, 1, D)-(-1, 1, D), 0
30.  
31.  
32.     _DISPLAY
33.     _LIMIT 15
34.  
35. LOOP
36.  

Title: Re: gl shaders in text mode...
Post by: bplus on April 16, 2019, 05:25:03 pm

Nice effect Petr!

Title: Re: gl shaders in text mode...
Post by: PMACKAY on April 27, 2019, 06:50:34 am

that is cool... just now to work it out...

Title: Re: gl shaders in text mode...
Post by: Petr on April 27, 2019, 07:35:36 am

Hi. I do it much easier and functional. For this use you need none depth, so is much easyest using PUTIMAGE for hardware image. To completely hide the text, just make the circle so large that it covers the entire area of the text screen. Option for realize using PUTIMAGE for hardware images thought me, when I read the program here https://www.qb64.org/forum/index.php?topic=1310.msg105090#msg105090



Use mouse.

Code: QB64: [Select]

1.  
2. himage = _NEWIMAGE(512, 512, 32)
3. _DEST himage
4.  
5. FOR x = 1 TO 255
6.     FOR R = 0 TO _PI(2) STEP .001
7.         PSET (256 + (SIN(R) * x), 256 + (COS(R) * x)), _RGBA32(0, 0, 0, x - 20)
8.     NEXT R
9. NEXT x
10. _DEST 0
11. himage = _COPYIMAGE(himage, 33) '! HARDWARE IMAGE need DISPLAY!
12.  
13. _DISPLAYORDER _SOFTWARE , _HARDWARE
14. SCREEN 0
15. CLS , 15
16. COLOR 0, 15
17.  
18. FOR print_something = 1 TO 2000
19.     char = RND * 127 + 31
20.     PRINT CHR$(char);
21. NEXT
22.  
23. D = -1
24. W = 512
25. H = 512
26.  
27. DO
28.     WHILE _MOUSEINPUT: WEND
29.  
30.     x = (-32 + _MOUSEX) * 8 ' -40 is one half from maximum MOUSEX value. Because X is coordinate SCREEN 0, it is maximal value 80. 8 is font witdh for basic text font. Image width is 512, so 512/2/8 = 32 for image middle in X
31.     y = (-16 + _MOUSEY) * 16 '16 is one half from maximum MOUSEY value. Because Y coordinate is also SCREEN 0, is maximal Y value 32. Font height is 16. Image height is 512, so 512/2/16 = 16 for image middle in Y
32.     LOCATE 1, 1: PRINT x, y
33.  
34.     _PUTIMAGE (x, y), himage, 0
35.  
36.     _DISPLAY
37.     _LIMIT 15
38. LOOP
39.  
40.  

Title: Re: gl shaders in text mode...
Post by: Petr on April 28, 2019, 03:50:34 am

For smooth running I recommend to compile in version 1.1, where the mouse coordinates in text mode are returned as a decimal number and not as an integer from newer versions.

Title: Re: gl shaders in text mode...
Post by: PMACKAY on April 28, 2019, 09:29:35 am

works great and very easy...

any chance on this having about eight different lights on screen.... eg (just light up enemys and surrounds (eg.black screen with eight areas visible in ascii)

wanting this for a dungeon like map game in ascii.... so can see enemys and chests and items moving around in my maps

char data like 3x3 cell so light maybe 6x6 or 7x7.....


run smooth in qb64 1.3 on linux mint. thank you very simple :) cheers

Title: Re: gl shaders in text mode...
Post by: bplus on April 28, 2019, 01:19:26 pm

Quote from: Raven_Singularity on April 15, 2019, 08:56:28 pm

Why text mode, and not 32bit graphical mode?  OpenGL lighting is clearly graphical.  :-)

+1

Let's see Petr or Pete do this in Text mode ;-))

Code: QB64: [Select]

1. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+
2.  
3. CONST xmax = 800
4. CONST ymax = 600
5. SCREEN _NEWIMAGE(xmax, ymax, 32)
6. _SCREENMOVE _MIDDLE
7.  
8. DIM txt(1 TO 37) AS STRING, v(1 TO 37)
9. FOR i = 1 TO 37
10.     b$ = ""
11.     FOR j = 1 TO 100
12.         b$ = b$ + CHR$(INT(RND * 96) + 32)
13.     NEXT
14.     txt(i) = b$: v(i) = INT(RND * 3) + 1
15. NEXT
16.  
17. COLOR 0, 1
18. balls = 20
19. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
20. FOR i = 1 TO balls
21.     r(i) = rand(10, 65)
22.     x(i) = rand(r(i), xmax - r(i))
23.     y(i) = rand(r(i), ymax - r(i))
24.     c(i) = rand(1, 15)
25.     dx(i) = rand(1, 5) * rdir
26.     dy(i) = rand(1, 5) * rdir
27.     rr(i) = rand(150, 255)
28.     gg(i) = rand(150, 255)
29.     bb(i) = rand(150, 255)
30. NEXT
31.  
32. WHILE _KEYDOWN(27) = 0
33.     CLS
34.     FOR i = 1 TO balls
35.         'ready for collision
36.         a(i) = _ATAN2(dy(i), dx(i))
37.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
38.         imoved = 0
39.         FOR j = i + 1 TO balls
40.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
41.                 imoved = 1
42.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
43.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
44.                 'update new dx, dy for i and j balls
45.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
46.                 power = (power1 + power2) / 2
47.                 dx(i) = power * COS(a(i))
48.                 dy(i) = power * SIN(a(i))
49.                 dx(j) = power * COS(a(j))
50.                 dy(j) = power * SIN(a(j))
51.                 x(i) = x(i) + dx(i)
52.                 y(i) = y(i) + dy(i)
53.                 x(j) = x(j) + dx(j)
54.                 y(j) = y(j) + dy(j)
55.                 EXIT FOR
56.             END IF
57.         NEXT
58.         IF imoved = 0 THEN
59.             x(i) = x(i) + dx(i)
60.             y(i) = y(i) + dy(i)
61.         END IF
62.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
63.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
64.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
65.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
66.  
67.         FOR rad = r(i) TO 0 STEP -1
68.             'COLOR _RGB32(rr(i) - 10 * rad, gg(i) - 10 * rad, bb(i) - 10 * rad)
69.             'fcirc x(i), y(i), rad, _RGBA32((r(i) - rad) / r(i) * rr(i), (rad - i) / r(i) * gg(i), (rad - i) / r(i) * bb(i), 20)
70.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 12)
71.         NEXT
72.     NEXT
73.     FOR i = 1 TO 37
74.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
75.         FOR l = 1 TO 100
76.             IF i MOD 2 THEN midInk 60, 0, 0, 0, 0, 60, l / 100 ELSE midInk 0, 0, 60, 60, 0, 0, l / 100
77.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
78.         NEXT
79.     NEXT
80.  
81.     _DISPLAY
82.     _LIMIT 10
83. WEND
84.  
85. FUNCTION rand (lo, hi)
86.     rand = (RND * (hi - lo + 1)) \ 1 + lo
87. END FUNCTION
88.  
89. FUNCTION rdir ()
90.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
91. END FUNCTION
92.  
93. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
94.     DIM Radius AS INTEGER, RadiusError AS INTEGER
95.     DIM X AS INTEGER, Y AS INTEGER
96.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
97.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
98.     LINE (CX - X, CY)-(CX + X, CY), C, BF
99.     WHILE X > Y
100.         RadiusError = RadiusError + Y * 2 + 1
101.         IF RadiusError >= 0 THEN
102.             IF X <> Y + 1 THEN
103.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
104.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
105.             END IF
106.             X = X - 1
107.             RadiusError = RadiusError - X * 2
108.         END IF
109.         Y = Y + 1
110.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
111.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
112.     WEND
113. END SUB
114.  
115. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
116.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
117. END SUB
118.  

BTW does it really count to draw stuff in a graphics _DEST and then paste it into the Text Mode screen?
What would Pete say? :D

Title: Re: gl shaders in text mode...
Post by: Petr on April 28, 2019, 04:23:49 pm

Chacha, good try! And you almost got me! The reason why it could not be implanted directly, is the CLS command in your loop. CLS will do _RGBA32 (0,0,0,255) everywhere, but the default NEWIMAGE window (just at the beginning) is _RGBA32 (0,0,0,0) and this just ensures transparency between layers. If you leave the CLS there, then the CLS color is not transparent and this is undesirable in this case. You have to start drawing on a transparent background - then where you set alpha to zero, there is transparency to the next layer. Where you don't set it, then i do _RGBA32 (0,0,0,255) - just in this program, rows 85-90 in this source. It took a while to figure it me out. You're responsible for the smoke from my brain :-D

Code: QB64: [Select]

1. 'upgrade for real text mode
2.  
3.  
4.  
5. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
6.  
7. CONST xmax = 800
8. CONST ymax = 600
9.  
10. DIM txt(1 TO 37) AS STRING, v(1 TO 37)
11. FOR i = 1 TO 37
12.     b$ = ""
13.     FOR j = 1 TO 100
14.         b$ = b$ + CHR$(INT(RND * 96) + 32)
15.     NEXT
16.     txt(i) = b$: v(i) = INT(RND * 3) + 1
17. NEXT
18.  
19.  
20. balls = 20
21. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
22. FOR i = 1 TO balls
23.     r(i) = rand(10, 65)
24.     x(i) = rand(r(i), xmax - r(i))
25.     y(i) = rand(r(i), ymax - r(i))
26.     c(i) = rand(1, 15)
27.     dx(i) = rand(1, 5) * rdir
28.     dy(i) = rand(1, 5) * rdir
29.     rr(i) = rand(150, 255)
30.     gg(i) = rand(150, 255)
31.     bb(i) = rand(150, 255)
32. NEXT
33.  
34. SCREEN 0
35.  
36.  
37. WHILE _KEYDOWN(27) = 0
38.     Bplus = _NEWIMAGE(xmax, ymax, 32)
39.     _DEST Bplus
40.     _SCREENMOVE _MIDDLE
41.  
42.  
43.  
44.     ' CLS , _RGB32(0, 0, 0)
45.     FOR i = 1 TO balls
46.         'ready for collision
47.         a(i) = _ATAN2(dy(i), dx(i))
48.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
49.         imoved = 0
50.         FOR j = i + 1 TO balls
51.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
52.                 imoved = 1
53.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
54.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
55.                 'update new dx, dy for i and j balls
56.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
57.                 power = (power1 + power2) / 2
58.                 dx(i) = power * COS(a(i))
59.                 dy(i) = power * SIN(a(i))
60.                 dx(j) = power * COS(a(j))
61.                 dy(j) = power * SIN(a(j))
62.                 x(i) = x(i) + dx(i)
63.                 y(i) = y(i) + dy(i)
64.                 x(j) = x(j) + dx(j)
65.                 y(j) = y(j) + dy(j)
66.                 EXIT FOR
67.             END IF
68.         NEXT
69.         IF imoved = 0 THEN
70.             x(i) = x(i) + dx(i)
71.             y(i) = y(i) + dy(i)
72.         END IF
73.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
74.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
75.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
76.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
77.  
78.  
79.         FOR rad = r(i) TO 0 STEP -1
80.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 12)
81.         NEXT
82.     NEXT
83.  
84.     'do untransparently unusued areas. More better is do this with MEM
85.     FOR dby = 0 TO 599
86.         FOR dbx = 0 TO 799
87.             _SOURCE Bplus
88.             IF POINT(dbx, dby) = 0 THEN PSET (dbx, dby), _RGB32(1, 1, 1)
89.         NEXT
90.     NEXT
91.  
92.     _SOURCE 0
93.     _DEST 0 'redirecting to text screen
94.     ' COLOR 0, 1
95.     FOR i = 1 TO 37
96.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
97.         FOR l = 1 TO 80
98.             ' IF i MOD 2 THEN midInk 60, 0, 0, 0, 0, 60, l / 100 ELSE midInk 0, 0, 60, 60, 0, 0, l / 100
99.  
100.             p = i * 1.3
101.  
102.             LOCATE p, l: PRINT MID$(txt(i), l, 1);
103.             LOCATE p, l: PRINT MID$(txt(i), l, 1);
104.  
105.         NEXT
106.     NEXT
107.  
108.     _DEST 0
109.     Himage = _COPYIMAGE(Bplus, 33)
110.     _PUTIMAGE (0, 0)-(800, 600), Himage, 0
111.     _DISPLAYORDER _SOFTWARE , _HARDWARE
112.     _DISPLAY
113.     _LIMIT 20
114.     _FREEIMAGE Himage
115.     _FREEIMAGE Bplus
116. WEND
117.  
118. FUNCTION rand (lo, hi)
119.     rand = (RND * (hi - lo + 1)) \ 1 + lo
120. END FUNCTION
121.  
122. FUNCTION rdir ()
123.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
124. END FUNCTION
125.  
126. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
127.     DIM Radius AS INTEGER, RadiusError AS INTEGER
128.     DIM X AS INTEGER, Y AS INTEGER
129.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
130.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
131.     LINE (CX - X, CY)-(CX + X, CY), C, BF
132.     WHILE X > Y
133.         RadiusError = RadiusError + Y * 2 + 1
134.         IF RadiusError >= 0 THEN
135.             IF X <> Y + 1 THEN
136.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
137.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
138.             END IF
139.             X = X - 1
140.             RadiusError = RadiusError - X * 2
141.         END IF
142.         Y = Y + 1
143.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
144.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
145.     WEND
146. END SUB
147.  
148. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
149.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
150. END SUB
151.  

Title: Re: gl shaders in text mode...
Post by: bplus on April 28, 2019, 05:09:41 pm

Wow Petr! Nice! :)

Not sure what is going on and why I can't make the letters Black but at least I can make them better sized:

Code: QB64: [Select]

1. 'upgrade for real text mod
2.  
3. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
4. 'continued by B+ with normal letter size :-))
5.  
6. CONST xmax = 800
7. CONST ymax = 600
8.  
9. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
10. FOR i = 1 TO 25
11.     b$ = ""
12.     FOR j = 1 TO 100
13.         b$ = b$ + CHR$(INT(RND * 96) + 32)
14.     NEXT
15.     txt(i) = b$: v(i) = INT(RND * 3) + 1
16. NEXT
17.  
18.  
19. balls = 20
20. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
21. FOR i = 1 TO balls
22.     r(i) = rand(10, 65)
23.     x(i) = rand(r(i), xmax - r(i))
24.     y(i) = rand(r(i), ymax - r(i))
25.     c(i) = rand(1, 15)
26.     dx(i) = rand(1, 5) * rdir
27.     dy(i) = rand(1, 5) * rdir
28.     rr(i) = rand(50, 255)
29.     gg(i) = rand(50, 255)
30.     bb(i) = rand(50, 255)
31. NEXT
32.  
33. SCREEN 0
34.  
35.  
36. WHILE _KEYDOWN(27) = 0
37.     Bplus = _NEWIMAGE(xmax, ymax, 32)
38.     _DEST Bplus
39.     _SCREENMOVE _MIDDLE
40.  
41.  
42.  
43.     ' CLS , _RGB32(0, 0, 0)
44.     FOR i = 1 TO balls
45.         'ready for collision
46.         a(i) = _ATAN2(dy(i), dx(i))
47.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
48.         imoved = 0
49.         FOR j = i + 1 TO balls
50.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
51.                 imoved = 1
52.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
53.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
54.                 'update new dx, dy for i and j balls
55.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
56.                 power = (power1 + power2) / 2
57.                 dx(i) = power * COS(a(i))
58.                 dy(i) = power * SIN(a(i))
59.                 dx(j) = power * COS(a(j))
60.                 dy(j) = power * SIN(a(j))
61.                 x(i) = x(i) + dx(i)
62.                 y(i) = y(i) + dy(i)
63.                 x(j) = x(j) + dx(j)
64.                 y(j) = y(j) + dy(j)
65.                 EXIT FOR
66.             END IF
67.         NEXT
68.         IF imoved = 0 THEN
69.             x(i) = x(i) + dx(i)
70.             y(i) = y(i) + dy(i)
71.         END IF
72.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
73.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
74.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
75.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
76.  
77.  
78.         FOR rad = r(i) TO 0 STEP -1
79.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 12)
80.         NEXT
81.     NEXT
82.  
83.     'do untransparently unusued areas. More better is do this with MEM
84.     FOR dby = 0 TO 599
85.         FOR dbx = 0 TO 799
86.             _SOURCE Bplus
87.             IF POINT(dbx, dby) = 0 THEN PSET (dbx, dby), _RGB32(1, 1, 1)
88.         NEXT
89.     NEXT
90.  
91.     _SOURCE 0
92.     _DEST 0 'redirecting to text screen
93.  
94.  
95.     _DEST 0
96.     Himage = _COPYIMAGE(Bplus, 33)
97.     _PUTIMAGE (0, 0)-(800, 600), Himage, 0
98.  
99.     FOR i = 1 TO 25
100.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
101.         FOR l = 1 TO 80
102.             ' IF i MOD 2 THEN midInk 60, 0, 0, 0, 0, 60, l / 100 ELSE midInk 0, 0, 60, 60, 0, 0, l / 100
103.  
104.             'p = i * 1.3
105.             COLOR 15
106.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
107.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
108.  
109.         NEXT
110.     NEXT
111.  
112.     _DISPLAYORDER _SOFTWARE , _HARDWARE
113.     _DISPLAY
114.     _LIMIT 20
115.     _FREEIMAGE Himage
116.     _FREEIMAGE Bplus
117. WEND
118.  
119. FUNCTION rand (lo, hi)
120.     rand = (RND * (hi - lo + 1)) \ 1 + lo
121. END FUNCTION
122.  
123. FUNCTION rdir ()
124.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
125. END FUNCTION
126.  
127. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
128.     DIM Radius AS INTEGER, RadiusError AS INTEGER
129.     DIM X AS INTEGER, Y AS INTEGER
130.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
131.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
132.     LINE (CX - X, CY)-(CX + X, CY), C, BF
133.     WHILE X > Y
134.         RadiusError = RadiusError + Y * 2 + 1
135.         IF RadiusError >= 0 THEN
136.             IF X <> Y + 1 THEN
137.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
138.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
139.             END IF
140.             X = X - 1
141.             RadiusError = RadiusError - X * 2
142.         END IF
143.         Y = Y + 1
144.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
145.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
146.     WEND
147. END SUB
148.  
149. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
150.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
151. END SUB
152.  
153.  
154.  

Title: Re: gl shaders in text mode...
Post by: Petr on April 28, 2019, 05:21:54 pm

Hi. Rewrite Color 15 to Color 0, 15 on row 105. Just Color 0 do unvisible, because it is black on black background. Also color 0,14 is good :-D

Title: Re: gl shaders in text mode...
Post by: bplus on April 28, 2019, 05:28:20 pm

Yeah, I tried that but I didn't want white background. I ideally the black letters would only appear only over the colored spheres.
Like this:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

More smoke? :)

Title: Re: gl shaders in text mode...
Post by: Petr on April 28, 2019, 05:44:30 pm

I really do not want to recalculate the coordinates between the text screen and the balls on the graphics screen and print only those letters that are above the ball...

Because the background of the text is on a text screen, but you have a black background on the graphical screen with the balls, and you want black letters on the text screen, the only way I can think of it is set the background on the text screen of the ball by using RGB colors as much as possible with balls colors. BUT we already have midnight here....

Title: Re: gl shaders in text mode...
Post by: bplus on April 28, 2019, 10:40:20 pm

OK forget about colors then:

Code: QB64: [Select]

1. 'upgrade for real text mod
2.  
3. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
4. 'continued by B+ with normal letter size :-))
5. 'mod 2 B+ forget about color to get black letters ending at edge of circles
6.  
7. CONST xmax = 640
8. CONST ymax = 400
9.  
10. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
11. FOR i = 1 TO 25
12.     b$ = ""
13.     FOR j = 1 TO 100
14.         b$ = b$ + CHR$(INT(RND * 96) + 32)
15.     NEXT
16.     txt(i) = b$: v(i) = INT(RND * 3) + 1
17. NEXT
18.  
19. balls = 10
20. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls)
21. FOR i = 1 TO balls
22.     r(i) = rand(10, 60)
23.     x(i) = rand(r(i), xmax - r(i))
24.     y(i) = rand(r(i), ymax - r(i))
25.     c(i) = rand(1, 15)
26.     dx(i) = rand(1, 5) * rdir
27.     dy(i) = rand(1, 5) * rdir
28. NEXT
29.  
30. SCREEN 0
31.  
32. COLOR 0, 15
33. WHILE _KEYDOWN(27) = 0
34.     Bplus = _NEWIMAGE(xmax, ymax, 32)
35.     _DEST Bplus
36.     _SCREENMOVE _MIDDLE
37.     FOR i = 1 TO balls
38.         'ready for collision
39.         a(i) = _ATAN2(dy(i), dx(i))
40.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
41.         imoved = 0
42.         FOR j = i + 1 TO balls
43.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
44.                 imoved = 1
45.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
46.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
47.                 'update new dx, dy for i and j balls
48.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
49.                 power = (power1 + power2) / 2
50.                 dx(i) = power * COS(a(i))
51.                 dy(i) = power * SIN(a(i))
52.                 dx(j) = power * COS(a(j))
53.                 dy(j) = power * SIN(a(j))
54.                 x(i) = x(i) + dx(i)
55.                 y(i) = y(i) + dy(i)
56.                 x(j) = x(j) + dx(j)
57.                 y(j) = y(j) + dy(j)
58.                 EXIT FOR
59.             END IF
60.         NEXT
61.         IF imoved = 0 THEN
62.             x(i) = x(i) + dx(i)
63.             y(i) = y(i) + dy(i)
64.         END IF
65.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
66.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
67.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
68.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
69.         fcirc x(i), y(i), r(i), _RGBA32(255, 255, 255, 20)
70.     NEXT
71.  
72.  
73.     'do untransparently unusued areas. More better is do this with MEM
74.     FOR dby = 0 TO ymax - 1
75.         FOR dbx = 0 TO xmax - 1
76.             _SOURCE Bplus
77.             IF POINT(dbx, dby) = 0 THEN PSET (dbx, dby), _RGB32(1, 1, 1)
78.         NEXT
79.     NEXT
80.  
81.     _SOURCE 0
82.     _DEST 0 'redirecting to text screen
83.     Himage = _COPYIMAGE(Bplus, 33)
84.     _PUTIMAGE (0, 0)-(xmax, ymax), Himage, 0
85.     FOR i = 1 TO 25
86.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
87.         FOR l = 1 TO 80
88.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
89.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
90.         NEXT
91.     NEXT
92.     _DISPLAY
93.     _LIMIT 20
94.     _FREEIMAGE Himage
95.     _FREEIMAGE Bplus
96. WEND
97.  
98. FUNCTION rand (lo, hi)
99.     rand = (RND * (hi - lo + 1)) \ 1 + lo
100. END FUNCTION
101.  
102. FUNCTION rdir ()
103.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
104. END FUNCTION
105.  
106. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
107.     DIM Radius AS INTEGER, RadiusError AS INTEGER
108.     DIM X AS INTEGER, Y AS INTEGER
109.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
110.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
111.     LINE (CX - X, CY)-(CX + X, CY), C, BF
112.     WHILE X > Y
113.         RadiusError = RadiusError + Y * 2 + 1
114.         IF RadiusError >= 0 THEN
115.             IF X <> Y + 1 THEN
116.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
117.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
118.             END IF
119.             X = X - 1
120.             RadiusError = RadiusError - X * 2
121.         END IF
122.         Y = Y + 1
123.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
124.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
125.     WEND
126. END SUB
127.  
128.  

Title: Re: gl shaders in text mode...
Post by: Petr on April 29, 2019, 02:01:34 am

Fasters, with black characters. See row 106.

Code: QB64: [Select]

1. 'upgrade for real text mod
2.  
3. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
4. 'continued by B+ with normal letter size :-))
5.  
6. CONST xmax = 800
7. CONST ymax = 600
8.  
9. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
10. FOR i = 1 TO 25
11.     b$ = ""
12.     FOR j = 1 TO 100
13.         b$ = b$ + CHR$(INT(RND * 96) + 32)
14.     NEXT
15.     txt(i) = b$: v(i) = INT(RND * 3) + 1
16. NEXT
17.  
18.  
19. balls = 20
20. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
21. FOR i = 1 TO balls
22.     r(i) = rand(10, 65)
23.     x(i) = rand(r(i), xmax - r(i))
24.     y(i) = rand(r(i), ymax - r(i))
25.     c(i) = rand(1, 15)
26.     dx(i) = rand(1, 5) * rdir
27.     dy(i) = rand(1, 5) * rdir
28.     rr(i) = rand(50, 255)
29.     gg(i) = rand(50, 255)
30.     bb(i) = rand(50, 255)
31. NEXT
32.  
33. SCREEN 0
34.  
35.  
36. WHILE _KEYDOWN(27) = 0
37.     Bplus = _NEWIMAGE(xmax, ymax, 32)
38.     _DEST Bplus
39.     _SCREENMOVE _MIDDLE
40.  
41.  
42.  
43.     ' CLS , _RGB32(0, 0, 0)
44.     FOR i = 1 TO balls
45.         'ready for collision
46.         a(i) = _ATAN2(dy(i), dx(i))
47.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
48.         imoved = 0
49.         FOR j = i + 1 TO balls
50.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
51.                 imoved = 1
52.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
53.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
54.                 'update new dx, dy for i and j balls
55.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
56.                 power = (power1 + power2) / 2
57.                 dx(i) = power * COS(a(i))
58.                 dy(i) = power * SIN(a(i))
59.                 dx(j) = power * COS(a(j))
60.                 dy(j) = power * SIN(a(j))
61.                 x(i) = x(i) + dx(i)
62.                 y(i) = y(i) + dy(i)
63.                 x(j) = x(j) + dx(j)
64.                 y(j) = y(j) + dy(j)
65.                 EXIT FOR
66.             END IF
67.         NEXT
68.         IF imoved = 0 THEN
69.             x(i) = x(i) + dx(i)
70.             y(i) = y(i) + dy(i)
71.         END IF
72.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
73.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
74.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
75.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
76.  
77.  
78.         FOR rad = r(i) TO 0 STEP -1
79.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 12)
80.         NEXT
81.     NEXT
82.  
83.     _SETALPHA 255, _RGBA32(0, 0, 0, 0), Bplus 'much better solution as previous FOR... NEXT loop
84.  
85.  
86.     _SOURCE 0
87.     _DEST 0 'redirecting to text screen
88.  
89.  
90.     _DEST 0
91.     Himage = _COPYIMAGE(Bplus, 33)
92.     _PUTIMAGE (0, 0)-(800, 600), Himage, 0
93.     Xtranslate = _WIDTH(Bplus) / 8
94.     Ytranslate = _HEIGHT(Bplus) / 16
95.  
96.     FOR i = 1 TO 25
97.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
98.         FOR l = 1 TO 80
99.             gX = (Xtranslate + i) * 8
100.             gY = (-Ytranslate + l) * 16
101.  
102.             _SOURCE Bplus
103.             _DEST 0
104.             Kolor~& = POINT(gX, gY)
105.             COLOR 0, 0
106.             IF Kolor~& <> _RGB32(0, 0, 0) THEN COLOR 0, _RGB(_RED32(Kolor~&), _GREEN32(Kolor~&), _BLUE32(Kolor~&)) 'RGB background for text screen
107.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
108.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
109.  
110.         NEXT
111.     NEXT
112.  
113.     _DISPLAYORDER _SOFTWARE , _HARDWARE
114.     _DISPLAY
115.     _LIMIT 20
116.     _FREEIMAGE Himage
117.     _FREEIMAGE Bplus
118. WEND
119.  
120. FUNCTION rand (lo, hi)
121.     rand = (RND * (hi - lo + 1)) \ 1 + lo
122. END FUNCTION
123.  
124. FUNCTION rdir ()
125.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
126. END FUNCTION
127.  
128. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
129.     DIM Radius AS INTEGER, RadiusError AS INTEGER
130.     DIM X AS INTEGER, Y AS INTEGER
131.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
132.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
133.     LINE (CX - X, CY)-(CX + X, CY), C, BF
134.     WHILE X > Y
135.         RadiusError = RadiusError + Y * 2 + 1
136.         IF RadiusError >= 0 THEN
137.             IF X <> Y + 1 THEN
138.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
139.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
140.             END IF
141.             X = X - 1
142.             RadiusError = RadiusError - X * 2
143.         END IF
144.         Y = Y + 1
145.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
146.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
147.     WEND
148. END SUB
149.  
150. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
151.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
152. END SUB
153.  

Title: Re: gl shaders in text mode...
Post by: Petr on April 29, 2019, 02:49:57 am

Or this...

Code: QB64: [Select]

1. 'upgrade for real text mod
2.  
3. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
4. 'continued by B+ with normal letter size :-))
5.  
6. CONST xmax = 800
7. CONST ymax = 600
8.  
9. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
10. FOR i = 1 TO 25
11.     b$ = ""
12.     FOR j = 1 TO 100
13.         b$ = b$ + CHR$(INT(RND * 96) + 32)
14.     NEXT
15.     txt(i) = b$: v(i) = INT(RND * 3) + 1
16. NEXT
17.  
18.  
19. balls = 20
20. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
21. FOR i = 1 TO balls
22.     r(i) = rand(10, 65)
23.     x(i) = rand(r(i), xmax - r(i))
24.     y(i) = rand(r(i), ymax - r(i))
25.     c(i) = rand(1, 15)
26.     dx(i) = rand(1, 5) * rdir
27.     dy(i) = rand(1, 5) * rdir
28.     rr(i) = rand(50, 255)
29.     gg(i) = rand(50, 255)
30.     bb(i) = rand(50, 255)
31. NEXT
32.  
33. SCREEN 0
34.  
35.  
36. WHILE _KEYDOWN(27) = 0
37.     Bplus = _NEWIMAGE(xmax, ymax, 32)
38.     _DEST Bplus
39.     _SCREENMOVE _MIDDLE
40.  
41.  
42.  
43.     ' CLS , _RGB32(0, 0, 0)
44.     FOR i = 1 TO balls
45.         'ready for collision
46.         a(i) = _ATAN2(dy(i), dx(i))
47.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
48.         imoved = 0
49.         FOR j = i + 1 TO balls
50.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
51.                 imoved = 1
52.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
53.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
54.                 'update new dx, dy for i and j balls
55.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
56.                 power = (power1 + power2) / 2
57.                 dx(i) = power * COS(a(i))
58.                 dy(i) = power * SIN(a(i))
59.                 dx(j) = power * COS(a(j))
60.                 dy(j) = power * SIN(a(j))
61.                 x(i) = x(i) + dx(i)
62.                 y(i) = y(i) + dy(i)
63.                 x(j) = x(j) + dx(j)
64.                 y(j) = y(j) + dy(j)
65.                 EXIT FOR
66.             END IF
67.         NEXT
68.         IF imoved = 0 THEN
69.             x(i) = x(i) + dx(i)
70.             y(i) = y(i) + dy(i)
71.         END IF
72.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
73.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
74.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
75.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
76.  
77.  
78.         FOR rad = r(i) TO 0 STEP -1
79.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 12)
80.         NEXT
81.     NEXT
82.  
83.     _SETALPHA 155, _RGBA32(0, 0, 0, 0), Bplus 'much better solution as previous FOR... NEXT loop
84.  
85.  
86.     _SOURCE 0
87.     _DEST 0 'redirecting to text screen
88.  
89.  
90.     _DEST 0
91.     Himage = _COPYIMAGE(Bplus, 33)
92.     _PUTIMAGE (0, 0)-(800, 600), Himage, 0
93.     Xtranslate = (_WIDTH(Bplus) / 80) / 8
94.     Ytranslate = (_HEIGHT(Bplus) / 25) / 16
95.  
96.  
97.     FOR B = 1 TO balls
98.         RadiusX = r(B) / 2 / 8
99.         RadiusY = r(B) / 2 / 16
100.         FOR i = 1 TO 25
101.             txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
102.             FOR l = 1 TO 80
103.  
104.  
105.                 gX = (Xtranslate + l - RadiusX + 1) * 8
106.                 gY = (Ytranslate + i - RadiusY) * 16
107.  
108.                 _SOURCE Bplus
109.                 _DEST 0
110.                 COLOR 0
111.                 FOR fy = gY TO gY + 16
112.                     FOR fx = gX TO gX + 8
113.                         Kolor~& = POINT(gX, gY)
114.                         IF _ALPHA32(Kolor~&) < 255 THEN COLOR 0, _RGB(_RED32(Kolor~&), _GREEN32(Kolor~&), _BLUE32(Kolor~&)): GOTO ENDFOR 'RGB background for text screen
115.                     NEXT
116.                 NEXT
117.                 ENDFOR:
118.                 LOCATE i, l: PRINT MID$(txt(i), l, 1);
119.                 LOCATE i, l: PRINT MID$(txt(i), l, 1);
120.             NEXT
121.         NEXT
122.     NEXT
123.     _DISPLAYORDER _SOFTWARE , _HARDWARE
124.     _DISPLAY
125.     _LIMIT 20
126.     _FREEIMAGE Himage
127.     _FREEIMAGE Bplus
128. WEND
129.  
130. FUNCTION rand (lo, hi)
131.     rand = (RND * (hi - lo + 1)) \ 1 + lo
132. END FUNCTION
133.  
134. FUNCTION rdir ()
135.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
136. END FUNCTION
137.  
138. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
139.     DIM Radius AS INTEGER, RadiusError AS INTEGER
140.     DIM X AS INTEGER, Y AS INTEGER
141.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
142.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
143.     LINE (CX - X, CY)-(CX + X, CY), C, BF
144.     WHILE X > Y
145.         RadiusError = RadiusError + Y * 2 + 1
146.         IF RadiusError >= 0 THEN
147.             IF X <> Y + 1 THEN
148.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
149.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
150.             END IF
151.             X = X - 1
152.             RadiusError = RadiusError - X * 2
153.         END IF
154.         Y = Y + 1
155.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
156.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
157.     WEND
158. END SUB
159.  
160. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
161.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
162. END SUB
163.  

Title: Re: gl shaders in text mode...
Post by: PMACKAY on April 29, 2019, 05:55:08 am

This is all great stuff.... thanks guys... :)   AWESOME many thanks.....

Title: Re: gl shaders in text mode...
Post by: bplus on April 29, 2019, 10:54:53 am

Here is odd variation that keeps colors but only in the letters!

Code: QB64: [Select]

1. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
2. 'continued by B+ with normal letter size :-))
3. ' 2019-04-29 another variation
4.  
5. 'this really text mode??? ;-))
6.  
7. CONST xmax = 640
8. CONST ymax = 400
9.  
10. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
11. FOR i = 1 TO 25
12.     b$ = ""
13.     FOR j = 1 TO 100
14.         b$ = b$ + CHR$(INT(RND * 96) + 32)
15.     NEXT
16.     txt(i) = b$: v(i) = INT(RND * 3) + 1
17. NEXT
18. balls = 20
19. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
20. FOR i = 1 TO balls
21.     r(i) = rand(10, 65)
22.     x(i) = rand(r(i), xmax - r(i))
23.     y(i) = rand(r(i), ymax - r(i))
24.     c(i) = rand(1, 15)
25.     dx(i) = rand(1, 5) * rdir
26.     dy(i) = rand(1, 5) * rdir
27.     rr(i) = rand(50, 255)
28.     gg(i) = rand(50, 255)
29.     bb(i) = rand(50, 255)
30. NEXT
31. Bplus = _NEWIMAGE(xmax, ymax, 32)
32. _SCREENMOVE _MIDDLE
33. WHILE _KEYDOWN(27) = 0
34.     _DEST Bplus
35.     CLS
36.     FOR i = 1 TO balls
37.         'ready for collision
38.         a(i) = _ATAN2(dy(i), dx(i))
39.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
40.         imoved = 0
41.         FOR j = i + 1 TO balls
42.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) - 20 THEN
43.                 imoved = 1
44.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
45.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
46.                 'update new dx, dy for i and j balls
47.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
48.                 power = (power1 + power2) / 2
49.                 dx(i) = power * COS(a(i))
50.                 dy(i) = power * SIN(a(i))
51.                 dx(j) = power * COS(a(j))
52.                 dy(j) = power * SIN(a(j))
53.                 x(i) = x(i) + dx(i)
54.                 y(i) = y(i) + dy(i)
55.                 x(j) = x(j) + dx(j)
56.                 y(j) = y(j) + dy(j)
57.                 EXIT FOR
58.             END IF
59.         NEXT
60.         IF imoved = 0 THEN
61.             x(i) = x(i) + dx(i)
62.             y(i) = y(i) + dy(i)
63.         END IF
64.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
65.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
66.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
67.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
68.         FOR rad = r(i) TO 0 STEP -1
69.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 10)
70.         NEXT
71.     NEXT
72.  
73.     COLOR 0 '<<< doesn't matter what color but need something?
74.     FOR i = 1 TO 25
75.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
76.         LOCATE i, 1: PRINT MID$(txt(i), 1, 80);
77.     NEXT
78.  
79.     _DEST 0 'redirecting to text screen
80.  
81.     Himage = _COPYIMAGE(Bplus, 33)
82.     _PUTIMAGE (0, 0)-(xmax, ymax), Himage, 0
83.     _DISPLAY
84.     _LIMIT 15
85.     _FREEIMAGE Himage
86. WEND
87.  
88. FUNCTION rand (lo, hi)
89.     rand = (RND * (hi - lo + 1)) \ 1 + lo
90. END FUNCTION
91.  
92. FUNCTION rdir ()
93.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
94. END FUNCTION
95.  
96. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
97.     DIM Radius AS INTEGER, RadiusError AS INTEGER
98.     DIM X AS INTEGER, Y AS INTEGER
99.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
100.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
101.     LINE (CX - X, CY)-(CX + X, CY), C, BF
102.     WHILE X > Y
103.         RadiusError = RadiusError + Y * 2 + 1
104.         IF RadiusError >= 0 THEN
105.             IF X <> Y + 1 THEN
106.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
107.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
108.             END IF
109.             X = X - 1
110.             RadiusError = RadiusError - X * 2
111.         END IF
112.         Y = Y + 1
113.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
114.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
115.     WEND
116. END SUB
117.  
118.  

 [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: gl shaders in text mode...
Post by: Petr on April 29, 2019, 01:04:08 pm

Hi Bplus (Sphere King),

It looks nice, but the text is printed on the graphics screen and uses 32-bit color. To your question on line 73 about color: Because you have a black font on a black background inside a 32-bit image, the font is not visible. Since the COLOR 0 in 32-bit mode returns the same as _RGBA32 (0,0,0,0), then the font is transparent (this cannot be achieved if you put the text on SCREEN 0) and the sphere changes his background color, so then is visible.

It's definitely very nice.

Title: Re: gl shaders in text mode...
Post by: bplus on April 29, 2019, 03:21:53 pm

OHHH! The font is transparent. Yeah because in 32 bit... Same if I have COLOR 9 almost transparent... that's why it didn't make a difference but why I did need COLOR something (very low), forgot I was in 32 bit mode, got it. Thanks Petr

Title: Re: gl shaders in text mode...
Post by: bplus on April 29, 2019, 03:31:09 pm

OK now it is same as graphics mode (I think):

Code: QB64: [Select]

1. _TITLE "Bouncing Search Lights" 'started 2019-04-28 B+, continued by Petr to REAL TEXT SCREEN :-D
2. 'continued by B+ with normal letter size :-))
3. ' 2019-04-29 another variation
4. ' 2019-04-29 now same as graphics mode!!! Thanks Petr!!!
5.  
6.  
7. 'this really text mode??? ;-))
8.  
9. CONST xmax = 640
10. CONST ymax = 400
11.  
12. DIM txt(1 TO 25) AS STRING, v(1 TO 25)
13. FOR i = 1 TO 25
14.     b$ = ""
15.     FOR j = 1 TO 100
16.         b$ = b$ + CHR$(INT(RND * 96) + 32)
17.     NEXT
18.     txt(i) = b$: v(i) = INT(RND * 3) + 1
19. NEXT
20. balls = 15
21. DIM x(balls), y(balls), r(balls), c(balls), dx(balls), dy(balls), a(balls), rr(balls), gg(balls), bb(balls)
22. FOR i = 1 TO balls
23.     r(i) = rand(10, 65)
24.     x(i) = rand(r(i), xmax - r(i))
25.     y(i) = rand(r(i), ymax - r(i))
26.     c(i) = rand(1, 15)
27.     dx(i) = rand(1, 5) * rdir
28.     dy(i) = rand(1, 5) * rdir
29.     rr(i) = rand(150, 255)
30.     gg(i) = rand(150, 255)
31.     bb(i) = rand(150, 255)
32. NEXT
33. Bplus = _NEWIMAGE(xmax, ymax, 32)
34. _SCREENMOVE _MIDDLE
35. WHILE _KEYDOWN(27) = 0
36.     _DEST Bplus
37.     CLS
38.     FOR i = 1 TO balls
39.         'ready for collision
40.         a(i) = _ATAN2(dy(i), dx(i))
41.         power1 = (dx(i) ^ 2 + dy(i) ^ 2) ^ .5
42.         imoved = 0
43.         FOR j = i + 1 TO balls
44.             IF SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2) < r(i) + r(j) THEN
45.                 imoved = 1
46.                 a(i) = _ATAN2(y(i) - y(j), x(i) - x(j))
47.                 a(j) = _ATAN2(y(j) - y(i), x(j) - x(i))
48.                 'update new dx, dy for i and j balls
49.                 power2 = (dx(j) ^ 2 + dy(j) ^ 2) ^ .5
50.                 power = (power1 + power2) / 2
51.                 dx(i) = power * COS(a(i))
52.                 dy(i) = power * SIN(a(i))
53.                 dx(j) = power * COS(a(j))
54.                 dy(j) = power * SIN(a(j))
55.                 x(i) = x(i) + dx(i)
56.                 y(i) = y(i) + dy(i)
57.                 x(j) = x(j) + dx(j)
58.                 y(j) = y(j) + dy(j)
59.                 EXIT FOR
60.             END IF
61.         NEXT
62.         IF imoved = 0 THEN
63.             x(i) = x(i) + dx(i)
64.             y(i) = y(i) + dy(i)
65.         END IF
66.         IF x(i) < r(i) THEN dx(i) = -dx(i): x(i) = r(i)
67.         IF x(i) > xmax - r(i) THEN dx(i) = -dx(i): x(i) = xmax - r(i)
68.         IF y(i) < r(i) THEN dy(i) = -dy(i): y(i) = r(i)
69.         IF y(i) > ymax - r(i) THEN dy(i) = -dy(i): y(i) = ymax - r(i)
70.         FOR rad = r(i) TO 0 STEP -1
71.             fcirc x(i), y(i), rad, _RGBA32(rr(i), gg(i), bb(i), 20)
72.         NEXT
73.     NEXT
74.  
75.     COLOR , _RGBA(0, 0, 0, 0)
76.     FOR i = 1 TO 25
77.         txt(i) = MID$(txt(i), v(i)) + MID$(txt(i), 1, v(i) - 1)
78.         FOR l = 1 TO 80
79.             IF i MOD 2 THEN midInk 60, 0, 0, 0, 0, 60, l / 80 ELSE midInk 0, 0, 60, 60, 0, 0, l / 80
80.             LOCATE i, l: PRINT MID$(txt(i), l, 1);
81.         NEXT
82.     NEXT
83.  
84.     _DEST 0 'redirecting to text screen
85.  
86.     Himage = _COPYIMAGE(Bplus, 33)
87.     _PUTIMAGE (0, 0)-(xmax, ymax), Himage, 0
88.     _DISPLAY
89.     _LIMIT 10
90.     _FREEIMAGE Himage
91. WEND
92.  
93. FUNCTION rand (lo, hi)
94.     rand = (RND * (hi - lo + 1)) \ 1 + lo
95. END FUNCTION
96.  
97. FUNCTION rdir ()
98.     IF RND < .5 THEN rdir = -1 ELSE rdir = 1
99. END FUNCTION
100.  
101. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
102.     DIM Radius AS INTEGER, RadiusError AS INTEGER
103.     DIM X AS INTEGER, Y AS INTEGER
104.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
105.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
106.     LINE (CX - X, CY)-(CX + X, CY), C, BF
107.     WHILE X > Y
108.         RadiusError = RadiusError + Y * 2 + 1
109.         IF RadiusError >= 0 THEN
110.             IF X <> Y + 1 THEN
111.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
112.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
113.             END IF
114.             X = X - 1
115.             RadiusError = RadiusError - X * 2
116.         END IF
117.         Y = Y + 1
118.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
119.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
120.     WEND
121. END SUB
122.  
123. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
124.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
125. END SUB
126.  
127.  

EDIT: added the midInk effect with barely seen letters

 

Title: Re: gl shaders in text mode...
Post by: Petr on April 30, 2019, 04:04:35 pm

Hi. This is again 32bit mode, copyed to SCREEN 0 as background image when done :-D (none _DEST to text screen before print with LOCATE.) MidInk is maybe possible using also on text screen, but not with _RGB32, but _RGB. :-D

Title: Re: gl shaders in text mode...
Post by: PMACKAY on May 03, 2019, 01:34:49 am

My fav bplus is « Last Edit: April 29, 2019, 10:56:23 AM »


Awesome stuff (love the way it looks)

Text Only | Text with Attachments