Opengl a text without BMP or vectors

[TempodiBasic]

Hi
here I post a little demo to show how to make text in OpenGl mode without using a bitmap file or vectors .
I think that Opengl is a good option of Qb64 also if for now is closed in _GL sub.

Code: QB64: [Select]

1. 'OpenGL text without mapping or font
2. OPTION _EXPLICIT
3.  
4. CONST True = -1, False = 0
5. CONST Black = _RGB32(0, 0, 0, 255), White = _RGB32(255)
6. CONST Red = _RGB32(230, 0, 0, 255), Green = _RGB32(0, 230, 0, 255)
7. CONST Blu = _RGB32(0, 0, 230, 255)
8.  
9. DIM SHARED T AS _UNSIGNED LONG, S AS _UNSIGNED LONG, glRun AS INTEGER
10. DIM SHARED sXp AS INTEGER, glXp AS SINGLE, sYp AS INTEGER, glYp AS SINGLE
11. DIM SHARED glInit AS INTEGER, sRc AS INTEGER, sGc AS INTEGER, sBc AS INTEGER, sAc AS INTEGER
12.  
13. DIM txt AS STRING
14. DIM SHARED sBkc AS _UNSIGNED LONG, sFgc AS _UNSIGNED LONG
15.  
16. T = _NEWIMAGE(600, 400, 32)
17. S = _NEWIMAGE(600, 400, 32)
18. SCREEN S
19. DO: LOOP UNTIL _SCREENEXISTS
20. _TITLE "Demo1 of Text in OpenGL"
21. _SCREENMOVE 1, 1
22.  
23. glRun = False
24. sBkc = White
25. sFgc = Green
26. PrepareTxt "Hello"
27.  
28. ShowSourceTxt
29. PRINT "Now a text in OpenGL"
30. SLEEP 3
31. CLS
32. glInit = True
33. glRun = True
34. DO
35.     _LIMIT 10
36. LOOP UNTIL _KEYHIT = 32
37. CLS
38. END
39.  
40. SUB PrepareTxt (txt AS STRING)
41.     _DEST T
42.     CLS , Red
43.     COLOR sFgc, sBkc
44.     LOCATE 1, 1: PRINT txt
45.     '    LINE (1, 1)-(40, 12), Blu, B
46.     _DEST 0
47. END SUB
48.  
49. SUB ShowSourceTxt
50.     SCREEN T
51.     _DELAY 3
52.     SCREEN S
53. END SUB
54.  
55.  
56. FUNCTION Proportion (min1, max1, min2, max2, value)
57.     'delta1: value = Delta2: x
58.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
59. END FUNCTION
60.  
61. SUB copyTxt (Xs AS INTEGER, Ys AS INTEGER, glFgc AS _UNSIGNED LONG)
62.     DIM WidhTxt AS INTEGER, HeighTxt AS INTEGER
63.     WidhTxt = 40
64.     HeighTxt = 12
65.     _SOURCE T
66.     _DEST S
67.  
68.     FOR sXp = 0 TO WidhTxt STEP 1
69.         FOR sYp = 1 TO HeighTxt STEP 1
70.             IF POINT(sXp, sYp) = sFgc THEN
71.                 PaintPoint Xs + sXp, Ys + sYp, glFgc
72.             END IF
73.         NEXT sYp
74.     NEXT sXp
75.  
76. END SUB
77.  
78. ' OpenGl-----------------------------
79. SUB _GL ()
80.     IF glRun = False THEN EXIT SUB
81.     IF glInit THEN InitGL
82.     _glClear _GL_COLOR_BUFFER_BIT
83.     copyTxt 1, 1, Green
84.     copyTxt 100, 200, Red
85.     copyTxt 200, 100, Black
86. END SUB
87.  
88. SUB InitGL
89.     glInit = False
90.     _glViewport 0, _WIDTH, 0, _HEIGHT
91.     _glClearColor 0, 0, 0.8, 1
92.     _glFlush
93. END SUB
94.  
95.  
96. SUB PaintPoint (X AS SINGLE, Y AS SINGLE, glFgc AS _UNSIGNED LONG)
97.     DIM gXp AS SINGLE, gYp AS SINGLE, gRc AS SINGLE, gGc AS SINGLE, gBc AS SINGLE, gAc AS SINGLE
98.     gXp = Proportion(0, _WIDTH(T), -1, 1, X)
99.     gYp = Proportion(0, _HEIGHT(T), 1, -1, Y)
100.     gRc = Proportion(0, 255, 0, 1, _RED32(glFgc))
101.     gGc = Proportion(0, 255, 0, 1, _GREEN32(glFgc))
102.     gBc = Proportion(0, 255, 0, 1, _BLUE32(glFgc))
103.     gAc = Proportion(0, 255, 0, 1, _ALPHA32(glFgc))
104.     _glColor4f gRc, gGc, gBc, gAc
105.     _glPointSize 1
106.     _glBegin _GL_POINTS
107.     _glVertex2f gXp, gYp
108.     _glEnd
109. END SUB
110.  
111.  

thanks to read and to try
Waiting feedbacks

[TempodiBasic]

Hi
here I post the version of demo with scalable text in different dimensions

Code: QB64: [Select]

1. 'OpenGL text without mapping or font
2. OPTION _EXPLICIT
3.  
4. CONST True = -1, False = 0
5. CONST Black = _RGB32(0, 0, 0, 255), White = _RGB32(255)
6. CONST Red = _RGB32(230, 0, 0, 255), Green = _RGB32(0, 230, 0, 255)
7. CONST Blu = _RGB32(0, 0, 230, 255)
8.  
9. DIM SHARED T AS _UNSIGNED LONG, S AS _UNSIGNED LONG, glRun AS INTEGER
10. DIM SHARED sXp AS INTEGER, glXp AS SINGLE, sYp AS INTEGER, glYp AS SINGLE
11. DIM SHARED glInit AS INTEGER, sRc AS INTEGER, sGc AS INTEGER, sBc AS INTEGER, sAc AS INTEGER
12.  
13. DIM txt AS STRING
14. DIM SHARED sBkc AS _UNSIGNED LONG, sFgc AS _UNSIGNED LONG
15.  
16. T = _NEWIMAGE(600, 400, 32)
17. S = _NEWIMAGE(600, 400, 32)
18. SCREEN S
19. DO: LOOP UNTIL _SCREENEXISTS
20. _TITLE "Demo1 of Text in OpenGL"
21. _SCREENMOVE 1, 1
22.  
23. glRun = False
24. sBkc = White
25. sFgc = Green
26. PrepareTxt "Hello"
27.  
28. ShowSourceTxt
29. PRINT "Now a text in OpenGL"
30. SLEEP 3
31. CLS
32. glInit = True
33. glRun = True
34. DO
35.     _LIMIT 10
36. LOOP UNTIL _KEYHIT = 32
37. CLS
38. END
39.  
40. SUB PrepareTxt (txt AS STRING)
41.     _DEST T
42.     CLS , Red
43.     COLOR sFgc, sBkc
44.     LOCATE 1, 1: PRINT txt
45.     '    LINE (1, 1)-(40, 12), Blu, B
46.     _DEST 0
47. END SUB
48.  
49. SUB ShowSourceTxt
50.     SCREEN T
51.     _DELAY 3
52.     SCREEN S
53. END SUB
54.  
55.  
56. FUNCTION Proportion (min1, max1, min2, max2, value)
57.     'delta1: value = Delta2: x
58.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
59. END FUNCTION
60.  
61. SUB copyTxt (Xs AS INTEGER, Ys AS INTEGER, glFgc AS _UNSIGNED LONG, Size AS INTEGER)
62.     DIM WidhTxt AS INTEGER, HeighTxt AS INTEGER
63.     WidhTxt = 40
64.     HeighTxt = 12
65.     _SOURCE T
66.     _DEST S
67.  
68.     FOR sXp = 0 TO WidhTxt STEP 1
69.         FOR sYp = 1 TO HeighTxt STEP 1
70.             IF POINT(sXp, sYp) = sFgc THEN
71.                 PaintPoint Xs + (sXp * Size), Ys + (sYp * Size), glFgc, Size
72.             END IF
73.         NEXT sYp
74.     NEXT sXp
75.  
76. END SUB
77.  
78. ' OpenGl-----------------------------
79. SUB _GL ()
80.     IF glRun = False THEN EXIT SUB
81.     IF glInit THEN InitGL
82.     _glClear _GL_COLOR_BUFFER_BIT
83.     copyTxt 1, 1, Green, 1
84.     copyTxt 100, 200, Red, 2
85.     copyTxt 200, 100, Black, 4
86. END SUB
87.  
88. SUB InitGL
89.     glInit = False
90.     _glViewport 0, _WIDTH, 0, _HEIGHT
91.     _glClearColor 0, 0, 0.8, 1
92.     _glFlush
93. END SUB
94.  
95.  
96. SUB PaintPoint (X AS SINGLE, Y AS SINGLE, glFgc AS _UNSIGNED LONG, Sizing AS INTEGER)
97.     DIM gXp AS SINGLE, gYp AS SINGLE, gRc AS SINGLE, gGc AS SINGLE, gBc AS SINGLE, gAc AS SINGLE
98.     gXp = Proportion(0, _WIDTH(T), -1, 1, X)
99.     gYp = Proportion(0, _HEIGHT(T), 1, -1, Y)
100.     gRc = Proportion(0, 255, 0, 1, _RED32(glFgc))
101.     gGc = Proportion(0, 255, 0, 1, _GREEN32(glFgc))
102.     gBc = Proportion(0, 255, 0, 1, _BLUE32(glFgc))
103.     gAc = Proportion(0, 255, 0, 1, _ALPHA32(glFgc))
104.     _glColor4f gRc, gGc, gBc, gAc
105.     _glPointSize Sizing
106.     _glBegin _GL_POINTS
107.     _glVertex2f gXp, gYp
108.     _glEnd
109. END SUB
110.  

[Richard Frost]

Neither of these programs will run for me.  I get a blank white screen and the message
that it's not responding.  I poked them with a sharp stick and they still did not respond.

I'm using QB64 64 bit version 1.4 on Win 10 on a Lenovo SL510.

[bplus]

No sharp sticks needed for me:
 

What's the point?

[TempodiBasic]

Thanks to give a look at it

@Richard Frost
I wrote it on my Asus Aspire one D257 http://www.tecnozoom.it/portatili/acer-aspire-one-d257.html
with Windows 7 starter, /Android (2.6?) 1 GB di Ram and 320 GB di HDD. Compiled with QB64 32bit version 1.4

When I have compiled it sometimes I got a stuck white windows that doesn't respond. But if I run it again I got a normal windows. So I have thought that those different performances depend from my low hardware netbook (see CPU and RAM).

I'll try it also on my Toshiba and in VMR with Ubuntu.

[SMcNeill]

And here's a little demo of something similar, which maps text to an image, and then that image to a texture, which QB64 then uses to render however we tell it to with OpenGL...

Code: QB64: [Select]

1. DIM SHARED AllowSubGL 'we'll set this after we finish our setup immediately below, just in case
2. 'there is anything here (there isn't currently though) that SUB _GL will depend on
3.  
4. TYPE DONT_USE_GLH_Handle_TYPE
5.     in_use AS _BYTE
6.     handle AS LONG
7. END TYPE
8. REDIM SHARED DONT_USE_GLH_Handle(1000) AS DONT_USE_GLH_Handle_TYPE
9.  
10.  
11. SCREEN _NEWIMAGE(1024, 768, 32)
12.  
13.  
14. CLS , &HFF000077
15. _DONTBLEND
16. LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF 'create a see-through window (press 1)
17. _BLEND
18.  
19. AllowSubGL = 1
20.  
21. DO
22.     'This is our program's main loop
23.     _LIMIT 100
24.     LOCATE 1, 1
25.     c = c + 1: PRINT "Mainloop has done nothing"; c; "times"
26.     PRINT "Press 1[GL behind], 2[GL on top] or 3[GL only, good for speed] to switch rendering order."
27.     k$ = INKEY$
28.     IF k$ = "1" THEN _GLRENDER _BEHIND
29.     IF k$ = "2" THEN _GLRENDER _ONTOP
30.     IF k$ = "3" THEN _GLRENDER _ONLY
31. LOOP UNTIL k$ = CHR$(27)
32. END
33.  
34. 'this specially named sub "_GL" is detected by QB64 and adds support for OpenGL commands
35. 'it is called automatically whenever the underlying software deems an update is possible
36. 'usually/ideally, this is in sync with your monitor's refresh rate
37. SUB _GL STATIC
38.     'STATIC was used above to make all variables in this sub maintain their values between calls to this sub
39.  
40.     IF AllowSubGL = 0 THEN EXIT SUB 'we aren't ready yet!
41.  
42.     'timing is everything, we don't know how fast the 3D renderer will call this sub to we use timers to smooth things out
43.     T# = TIMER(0.001)
44.     IF ETT# = 0 THEN ETT# = T#
45.     ET# = T# - ETT#
46.     ETT# = T#
47.  
48.     IF sub_gl_called = 0 THEN
49.         sub_gl_called = 1 'we only need to perform the following code once
50.         i = TextToImage("Hello QB64!", 16, &HFFFF0000, &H00000000, 1)
51.         mytex = GLH_Image_to_Texture(i) 'this helper function converts the image to a texture
52.         _FREEIMAGE i
53.     END IF
54.  
55.     'These settings affect how OpenGL will render our content
56.     '!!! THESE SETTINGS ARE TO SHOW HOW ALPHA CAN WORK, BUT IT IS 10x FASTER WHEN ALPHA OPTIONS ARE DISABLED !!!
57.     '*** every setting must be reset because SUB _GL cannot guarantee settings have not changed since last time ***
58.     _glMatrixMode _GL_PROJECTION 'Select The Projection Matrix
59.     _glLoadIdentity 'Reset The Projection Matrix
60.     _gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100 'QB64 internally supports this GLU command for convenience sake, but does not support GLU
61.     _glEnable _GL_TEXTURE_2D
62.     _glEnable _GL_BLEND
63.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA 'how alpha values are interpretted
64.     _glEnable _GL_DEPTH_TEST 'use the zbuffer
65.     _glDepthMask _GL_TRUE
66.     _glAlphaFunc _GL_GREATER, 0.5 'dont do anything if alpha isn't greater than 0.5 (or 128)
67.     _glEnable _GL_ALPHA_TEST
68.     _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
69.     _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
70.     '**************************************************************************************************************
71.  
72.  
73.     GLH_Select_Texture mytex
74.  
75.     _glMatrixMode _GL_MODELVIEW 'Select The Modelview Matrix
76.     _glLoadIdentity 'Reset The Modelview Matrix
77.     _glTranslatef 0, 0, -15 'Translate Into The Screen
78.  
79.     _glRotatef rotation1, 0, 1, 0 'spin, spin, spin...
80.     _glRotatef rotation2, 1, 0, 0
81.  
82.     _glBegin _GL_QUADS 'we will be drawing rectangles aka. QUADs
83.     _glTexCoord2f 0, 0: _glVertex3f 0, 0, 3 'the texture position and the position in 3D space of a vertex
84.     _glTexCoord2f 1, 0: _glVertex3f 3, 0, 3
85.     _glTexCoord2f 1, 1: _glVertex3f 3, -3, 3
86.     _glTexCoord2f 0, 1: _glVertex3f 0, -3, 3
87.     _glEnd
88.  
89.  
90.     _glBegin _GL_TRIANGLES 'the png (almost) only consumes a triangular region of its rectangle
91.  
92.  
93.     _glEnd
94.  
95.     rotation1 = rotation1 + 100 * ET# / 4
96.     rotation2 = rotation2 + 100 * ET# / 4
97.  
98. END SUB
99.  
100.  
101.  
102. 'QB64 OPEN-GL HELPER MACROS (aka. GLH macros)
103.  
104. FUNCTION TextToImage& (text$, font&, fc&, bfc&, mode AS _BYTE)
105.     'text$ is the text that we wish to transform into an image.
106.     'font& is the handle of the font we want to use.
107.     'fc& is the color of the font we want to use.
108.     'bfc& is the background color of the font.
109.  
110.     'Mode 1 is print forwards
111.     'Mode 2 is print backwards
112.     'Mode 3 is print from top to bottom
113.     'Mode 4 is print from bottom up
114.     'Mode 0 got lost somewhere, but it's OK.  We check to see if our mode is < 1 or > 4 and compensate automatically if it is to make it one (default).
115.  
116.     IF mode < 1 OR mode > 4 THEN mode = 1
117.     dc& = _DEFAULTCOLOR: bgc& = _BACKGROUNDCOLOR
118.     D = _DEST
119.     F = _FONT
120.     IF font& <> 0 THEN _FONT font&
121.     IF mode < 3 THEN
122.         'print the text lengthwise
123.         w& = _PRINTWIDTH(text$): h& = _FONTHEIGHT
124.     ELSE
125.         'print the text vertically
126.         FOR i = 1 TO LEN(text$)
127.             IF w& < _PRINTWIDTH(MID$(text$, i, 1)) THEN w& = _PRINTWIDTH(MID$(text$, i, 1))
128.         NEXT
129.         h& = _FONTHEIGHT * (LEN(text$))
130.     END IF
131.  
132.     TextToImage& = _NEWIMAGE(w&, h&, 32)
133.     _DEST TextToImage&
134.     IF font& <> 0 THEN _FONT font&
135.     COLOR fc&, bfc&
136.  
137.     SELECT CASE mode
138.         CASE 1
139.             'Print text forward
140.             _PRINTSTRING (0, 0), text$
141.         CASE 2
142.             'Print text backwards
143.             temp$ = ""
144.             FOR i = 0 TO LEN(text$) - 1
145.                 temp$ = temp$ + MID$(text$, LEN(text$) - i, 1)
146.             NEXT
147.             _PRINTSTRING (0, 0), temp$
148.         CASE 3
149.             'Print text upwards
150.             'first lets reverse the text, so it's easy to place
151.             temp$ = ""
152.             FOR i = 0 TO LEN(text$) - 1
153.                 temp$ = temp$ + MID$(text$, LEN(text$) - i, 1)
154.             NEXT
155.             'then put it where it belongs
156.             FOR i = 1 TO LEN(text$)
157.                 fx = (w& - _PRINTWIDTH(MID$(temp$, i, 1))) / 2 + .99 'This is to center any non-monospaced letters so they look better
158.                 _PRINTSTRING (fx, _FONTHEIGHT * (i - 1)), MID$(temp$, i, 1)
159.             NEXT
160.         CASE 4
161.             'Print text downwards
162.             FOR i = 1 TO LEN(text$)
163.                 fx = (w& - _PRINTWIDTH(MID$(text$, i, 1))) / 2 + .99 'This is to center any non-monospaced letters so they look better
164.                 _PRINTSTRING (fx, _FONTHEIGHT * (i - 1)), MID$(text$, i, 1)
165.             NEXT
166.     END SELECT
167.     _DEST D
168.     COLOR dc&, bgc&
169.     _FONT F
170. END FUNCTION
171.  
172.  
173.  
174.  
175. SUB GLH_Select_Texture (texture_handle AS LONG) 'turn an image handle into a texture handle
176.     IF texture_handle < 1 OR texture_handle > UBOUND(DONT_USE_GLH_HANDLE) THEN ERROR 258: EXIT FUNCTION
177.     IF DONT_USE_GLH_Handle(texture_handle).in_use = 0 THEN ERROR 258: EXIT FUNCTION
178.     _glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(texture_handle).handle
179. END SUB
180.  
181. FUNCTION GLH_Image_to_Texture (image_handle AS LONG) 'turn an image handle into a texture handle
182.     IF image_handle >= 0 THEN ERROR 258: EXIT FUNCTION 'don't allow screen pages
183.     DIM m AS _MEM
184.     m = _MEMIMAGE(image_handle)
185.     DIM h AS LONG
186.     h = DONT_USE_GLH_New_Texture_Handle
187.     GLH_Image_to_Texture = h
188.     _glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(h).handle
189.     _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(image_handle), _HEIGHT(image_handle), 0, &H80E1&&, _GL_UNSIGNED_BYTE, m.OFFSET
190.     _MEMFREE m
191. END FUNCTION
192.  
193. FUNCTION DONT_USE_GLH_New_Texture_Handle
194.     handle&& = 0
195.     _glGenTextures 1, _OFFSET(handle&&)
196.     DONT_USE_GLH_New_Texture_Handle = handle&&
197.     FOR h = 1 TO UBOUND(DONT_USE_GLH_Handle)
198.         IF DONT_USE_GLH_Handle(h).in_use = 0 THEN
199.             DONT_USE_GLH_Handle(h).in_use = 1
200.             DONT_USE_GLH_Handle(h).handle = handle&&
201.             DONT_USE_GLH_New_Texture_Handle = h
202.             EXIT FUNCTION
203.         END IF
204.     NEXT
205.     REDIM _PRESERVE DONT_USE_GLH_Handle(UBOUND(DONT_USE_GLH_HANDLE) * 2) AS DONT_USE_GLH_Handle_TYPE
206.     DONT_USE_GLH_Handle(h).in_use = 1
207.     DONT_USE_GLH_Handle(h).handle = handle&&
208.     DONT_USE_GLH_New_Texture_Handle = h
209. END FUNCTION
210.  

Notice, the majority of this is simply taken from Galleon's demo which he shared with us all many ages ago, and which can still be found in the legacy download package. 

All my modifications basically are:

I modified his example so that it turns text into an image, instead of loading an image itself to process. 
I've changed it to only work with a single texture, rather than rendering several, at various angles, at a time.
I slowed it down a bit so you can watch the rotations and altering of the text as it twists and curves across the screen.

[TempodiBasic]

Hi
i'm writing from my Ubuntu 16.04 on VMW on Toshiba satellite C850L1 (windows10)
here I have installed QB64 1.2 and QB64 1.3!
Well my code works greatly and so the code posted by Steve!
here the screenshots:
my 2 demo of pixelling text
 

Steve's demo of texturing text
 

So it is all ok!!!
Not so quickly! Wait for my post from Windows 10.
See later.

[TempodiBasic]

Hi
I write from Toshiba satellite c850K1 windows 10 , Qb64 1.4
with these strange results
demo1 no text output in Opengl
demo2  the text bigger then 1 pixel point  are pixelled :-) No continuose line like in Ubuntu or in Windows 7 starter from Acer OneD257
see screenshots
 

What do you think being the issue?
I want expect the same or similar behaviour in similar compatible machines, do I?
waiting feedback

[Kernelpanic]

For me it looks like this:

 

 

[TempodiBasic]

Hi Kernelpanic
thanks
your result can confirm that the output is OS related. I got these same your results in Windows 10, while on the same machine in Ubuntu in WM I got the whole code working well!  It seems that QB64 translates in C++ in different way under Windows10 and under linux Ubuntu!

[Kernelpanic]

TempoDiBasic - Well, in Linux. I had SuSE Linux on my computer for fourteen years, from 4.3 to 11.2 - but DOS / Windows was always my main system. Linux was a hobby.
So I'm not surprised that QB64 runs differently on Linux than it does on Windows.