NEON PEN

[Ashish]

INSTRUCTION : Drag with mouse on screen to draw stuff. :)

Code: QB64: [Select]

1. _TITLE "NEON PEN"
2. SCREEN _NEWIMAGE(800, 600, 32)
3.  
4. TYPE vec2
5.     x AS SINGLE
6.     y AS SINGLE
7. END TYPE
8.  
9. REDIM SHARED vert(1024) AS vec2, max_v_index
10. DIM SHARED rFactor!, gFactor!, bFactor!
11. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
12. DO
13.     CLS
14.     PRINT "VRAM Usage : "; vram; "KB"
15.     PRINT "Vertices Used : "; max_v_index; "/"; UBOUND(vert)
16.     vram = (UBOUND(vert) * 4) / 1024
17.     WHILE _MOUSEINPUT: WEND
18.     IF _MOUSEBUTTON(1) THEN
19.         mx = _MOUSEX: my = _MOUSEY
20.         px = mx: py = my
21.         WHILE _MOUSEBUTTON(1) AND max_v_index < UBOUND(vert)
22.             WHILE _MOUSEINPUT: WEND
23.             mx = _MOUSEX: my = _MOUSEY
24.             IF ABS(px - mx) >= ABS(py - my) THEN
25.                 IF mx >= px THEN s = 1 ELSE s = -1
26.                 FOR i = px TO mx STEP s
27.                     vert(max_v_index).x = i
28.                     vert(max_v_index).y = map(i, px, mx, py, my)
29.                     max_v_index = max_v_index + 1
30.                     IF max_v_index > INT(UBOUND(vert) * 0.8) THEN REDIM _PRESERVE vert(max_v_index * 2) AS vec2
31.                 NEXT
32.             ELSE
33.                 IF my >= py THEN s = 1 ELSE s = -1
34.                 FOR i = py TO my STEP s
35.                     vert(max_v_index).x = map(i, py, my, px, mx)
36.                     vert(max_v_index).y = i
37.                     max_v_index = max_v_index + 1
38.                     IF max_v_index > INT(UBOUND(vert) * 0.8) THEN REDIM _PRESERVE vert(max_v_index * 2) AS vec2
39.                 NEXT
40.  
41.             END IF
42.             px = mx: py = my
43.             _LIMIT 30
44.         WEND
45.     END IF
46.  
47.     _LIMIT 60
48. LOOP
49.  
50. SUB _GL ()
51.     STATIC glInit
52.     IF glInit = 0 THEN
53.         glInit = 1
54.  
55.     END IF
56.     _glViewport 0, 0, _WIDTH, _HEIGHT
57.     'set the gl screen so that it can work normal screen coordinates
58.     _glTranslatef -1, 1, 0
59.     _glScalef 1 / 400, -1 / 300, 1
60.  
61.     _glEnable _GL_BLEND
62.  
63.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
64.     _glEnableClientState _GL_VERTEX_ARRAY
65.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
66.     FOR j = 1 TO 15
67.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
68.         _glPointSize j
69.         _glDrawArrays _GL_POINTS, 10, max_v_index
70.     NEXT
71.     _glFlush
72. END SUB
73.  
74. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
75.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
76. END FUNCTION
77.  
78.  

Thank you for running it. :)

EDIT : CODE UPDATED. Thanks to @Dav for finding a glitch in which it stopped drawing sometimes (when both max_v_index equal to Ubound(vert) )

[bplus]

@Ashish  welcome back, did they let you out of school?

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 600, 32)
2. _DELAY .25
3. _SCREENMOVE _MIDDLE
4.  
5. DO
6.     WHILE _MOUSEINPUT: WEND
7.     mx = _MOUSEX: my = _MOUSEY
8.     IF _MOUSEBUTTON(1) THEN
9.         IF lastx <> mx OR lasty <> my THEN
10.             FOR r = 0 TO 25
11.                 fcirc mx, my, r, _RGBA32(200, 200, 255, 3)
12.             NEXT
13.         END IF
14.         lastx = mx: lasty = my
15.     END IF
16. LOOP UNTIL _KEYDOWN(27)
17.  
18. 'from Steve Gold standard
19. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
20.     DIM Radius AS INTEGER, RadiusError AS INTEGER
21.     DIM X AS INTEGER, Y AS INTEGER
22.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
23.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
24.     LINE (CX - X, CY)-(CX + X, CY), C, BF
25.     WHILE X > Y
26.         RadiusError = RadiusError + Y * 2 + 1
27.         IF RadiusError >= 0 THEN
28.             IF X <> Y + 1 THEN
29.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
30.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
31.             END IF
32.             X = X - 1
33.             RadiusError = RadiusError - X * 2
34.         END IF
35.         Y = Y + 1
36.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
37.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
38.     WEND
39. END SUB
40.  
41.  

 

[Dav]

I like it!  Cool effect.

- Dav

[Ashish]

@bplus
No... I just had an idea and I thought it might be easy to code something like this within 0.5-1 hour so I coded it.. The final exam of my school is in mid of next year.

@Dav
Thank You. :)

[TempodiBasic]

@Ashish
Cool! fine work of GPU


@bplus
Cool! fine work of CPU

[SierraKen]

Awesome effect Ashish! I'll have to use this effect later on! Thank you!

[Dav]

Playing around with it for a while.  For some reason, the original neon program (GL one) sometimes stops writing for me.  Sometime it will write normally, other times running the same EXE, the drawing will stop after a couple seconds and the mouse no longer draws. When the freeze happens, the Vertices values are always the same, like it will say: Vertices used: 2500 / 2500.

- Dav

[TempodiBasic]

Hi Dav
I think that the program stops writing because the bucket is full to the edge
as you can see here

Code: QB64: [Select]

1. REDIM SHARED vert(1024) AS vec2, max_v_index
2. ...
3. ...
4.  PRINT "Vertices Used : "; max_v_index; "/"; UBOUND(vert)
5.  

if you pull up the Ubound of vert you can draw for more time, never for infinite!
More vert(index) is high more slow can be the program... it seems that in Opengl you must redraw all the screen as saying  all the points drawn at each refresh.

[Ashish]

Awesome effect Ashish! I'll have to use this effect later on! Thank you!

Thanks Ken.

Playing around with it for a while.  For some reason, the original neon program (GL one) sometimes stops writing for me.  Sometime it will write normally, other times running the same EXE, the drawing will stop after a couple seconds and the mouse no longer draws. When the freeze happens, the Vertices values are always the same, like it will say: Vertices used: 2500 / 2500.

- Dav

Thank You, I updated the code in my first post of this topic. Please let me know if the program still stops sometimes drawing for you.

And yes, As @TempodiBasic pointed out.. The more vertices you used... The more GPU power will be utilize.
But it can render 16000+ vertices normally without slowing down on new computers.

[Dav]

That did it!  It's working fine for me now.  Good example of GL use in QB64. 

 Nice little thing to put in a drawing program.   

Thanks for sharing.

- Dav

 

[TempodiBasic]

Hi
some times it seems hard to understand why on compiling a code you get a unresponding window that just after a bit it crashes!

I have tried to port the Fcircl of Steve into OpenGl  translating the Bplus code to Opengl....
but at the end I've got only stucked windows crashing after a bit! Today a voice from the deep of my head has suggested : you must put a LIMIT to your code!... so as soon as I can have a minute I add _LIMIT 30 to the code et voilà les jeux sont fait!

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. SCREEN _NEWIMAGE(1024, 600, 32)
3. _DELAY .5
4. _TITLE "Pen Neon Ashis + Bplus ideas"
5. _DELAY .5
6. _SCREENMOVE _MIDDLE
7.  
8. CONST True = -1, False = 0
9. DIM SHARED GlInit AS INTEGER, GlActive AS INTEGER, glGc AS INTEGER, glRc AS INTEGER, glBc AS INTEGER, glAc AS INTEGER
10. DIM Color32 AS _UNSIGNED LONG, GlMouse AS INTEGER, GlPointList(1 TO 2, 1 TO 32767) AS INTEGER
11. DIM mx AS SINGLE, my AS SINGLE, lastx AS SINGLE, lasty AS SINGLE, r AS SINGLE, GlInput AS INTEGER
12.  
13. GlInit = True
14. Color32 = _RGBA32(200, 200, 255, 3)
15. glGc = _GREEN32(Color32)
16. glBc = _BLUE32(Color32)
17. glRc = _RED32(Color32)
18. GlActive = False
19. GlMouse = 0
20.  
21. DO
22.     GlInput = False
23.     WHILE _MOUSEINPUT: WEND
24.     mx = _MOUSEX: my = _MOUSEY
25.     IF _MOUSEBUTTON(1) THEN
26.         IF GlActive THEN GlInput = True
27.  
28.         IF lastx <> mx OR lasty <> my THEN
29.             IF GlInput THEN
30.                 GlMouse = GlMouse + 1
31.                 GlPointList(1, GlMouse) = mx
32.                 GlPointList(2, GlMouse) = my
33.             END IF
34.             IF GlActive = True THEN
35.                 ' here GL works
36.             ELSE
37.                 FOR r = 0 TO 25 ' graphic output engine :-)
38.                     fcirc mx, my, r, Color32
39.                 NEXT
40.             END IF
41.         END IF
42.         lastx = mx: lasty = my
43.     END IF
44.     IF _MOUSEBUTTON(2) THEN
45.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
46.         WHILE _MOUSEINPUT OR _MOUSEBUTTON(2): WEND
47.     END IF
48.     _LIMIT 40
49. LOOP UNTIL _KEYDOWN(27)
50.  
51. 'from Steve Gold standard
52. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
53.     DIM Radius AS INTEGER, RadiusError AS INTEGER
54.     DIM X AS INTEGER, Y AS INTEGER
55.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
56.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
57.     LINE (CX - X, CY)-(CX + X, CY), C, BF
58.     WHILE X > Y
59.         RadiusError = RadiusError + Y * 2 + 1
60.         IF RadiusError >= 0 THEN
61.             IF X <> Y + 1 THEN
62.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
63.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
64.             END IF
65.             X = X - 1
66.             RadiusError = RadiusError - X * 2
67.         END IF
68.         Y = Y + 1
69.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
70.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
71.     WEND
72. END SUB
73.  
74.  
75. SUB _GL ()
76.     SHARED mx AS SINGLE, my AS SINGLE, GlMouse AS INTEGER, GlPointList() AS INTEGER, GlInput AS INTEGER
77.     DIM r AS SINGLE, n AS INTEGER, x1 AS SINGLE, y1 AS SINGLE
78.     IF GlActive = False THEN EXIT SUB ' No gl session
79.     IF GlInit THEN InitGl
80.  
81.     _glClear _GL_COLOR_BUFFER_BIT
82.     ' graphic output engine :-)
83.     IF GlInput THEN
84.         ' actual point
85.         FOR r = 0 TO 10
86.             Gl_fcirc mx, my, r
87.         NEXT
88.     END IF
89.     ' previous points
90.     FOR n = 1 TO GlMouse
91.         x1 = GlPointList(1, n)
92.         y1 = GlPointList(2, n)
93.         FOR r = 0 TO 10
94.             Gl_fcirc x1, y1, r
95.         NEXT
96.     NEXT n
97.     _glFlush
98. END SUB
99.  
100. SUB InitGl
101.     _glViewport 0, 0, _WIDTH, _HEIGHT
102.     _glClearColor 1, 0.5, 0.5, 1
103.     GlInit = False
104. END SUB
105.  
106. 'from Steve Gold standard ported to OpenGl
107. SUB Gl_fcirc (CX AS SINGLE, CY AS SINGLE, R AS SINGLE)
108.     DIM Radius AS SINGLE, RadiusError AS SINGLE
109.     DIM X AS SINGLE, Y AS SINGLE
110.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
111.     _glColor4f glRc, glGc, glBc, glAc
112.     IF Radius = 0 THEN
113.         _glBegin _GL_POINTS
114.         _glVertex2f Proportion(0, 1024, -1, 1, CX), Proportion(0, 600, 1, -1, CY)
115.         _glEnd
116.         EXIT SUB
117.     END IF
118.     _glBegin _GL_QUADS
119.     _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY)
120.     _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY)
121.     _glEnd
122.     WHILE X > Y
123.         RadiusError = RadiusError + Y * 2 + 1
124.         IF RadiusError >= 0 THEN
125.             IF X <> Y + 1 THEN
126.                 _glBegin _GL_QUADS
127.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY - X)
128.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY - X)
129.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY + X)
130.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY + X)
131.                 _glEnd
132.             END IF
133.             X = X - 1
134.             RadiusError = RadiusError - X * 2
135.         END IF
136.         Y = Y + 1
137.         _glBegin _GL_QUADS
138.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY - Y)
139.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY - Y)
140.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY + Y)
141.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY + Y)
142.         _glEnd
143.     WEND
144. END SUB
145.  
146. FUNCTION Proportion (min1, max1, min2, max2, value)
147.     'delta1: value = Delta2: x
148.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
149. END FUNCTION
150.  

Notes:
1 the Opengl panel redraws itself each time with no memory of previous graphic made (so you must have a track of these and you must redraw all these)
2 the Opengl panel uses its dimensions and its value for color ( so you must use a translator between the 2 system )
3 the graphic effect on standard panel screen is loosen in Opengl mode panel screen also using low alpha channel value!
4 my translation of Fcirc to GL_Fcirc can be wrong because I cannot interpretate the many BF used in Fcircle. So I decided to treat theme like simple LINE instruction. That is only my interpretation of it

[TempodiBasic]

Here a version of it in which you have on the same screen the standard and the Opengl graphics...
see screenshot
 

and here the code

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. SCREEN _NEWIMAGE(1024, 600, 32)
3. _DELAY 1
4. _TITLE "Pen Neon Ashis + Bplus ideas"
5. _SCREENMOVE _MIDDLE
6.  
7. CONST True = -1, False = 0
8. DIM SHARED GlInit AS INTEGER, GlActive AS INTEGER, glGc AS INTEGER, glRc AS INTEGER, glBc AS INTEGER, glAc AS INTEGER
9. DIM Color32 AS _UNSIGNED LONG, GlMouse AS INTEGER, GlPointList(1 TO 2, 1 TO 32767) AS INTEGER
10. DIM mx AS SINGLE, my AS SINGLE, lastx AS SINGLE, lasty AS SINGLE, r AS SINGLE, GlInput AS INTEGER
11.  
12. GlInit = True
13. Color32 = _RGBA32(39, 161, 183, 3)
14. glGc = _GREEN32(Color32)
15. glBc = _BLUE32(Color32)
16. glRc = _RED32(Color32)
17. glAc = 0.02
18. Color32 = _RGBA32(166, 233, 105, 3)
19. GlActive = False
20. GlMouse = 0
21.  
22. DO
23.     GlInput = False
24.     WHILE _MOUSEINPUT: WEND
25.     mx = _MOUSEX: my = _MOUSEY
26.     IF _MOUSEBUTTON(1) THEN
27.         IF GlActive THEN GlInput = True
28.  
29.         IF lastx <> mx OR lasty <> my THEN
30.             IF GlInput THEN
31.                 GlMouse = GlMouse + 1
32.                 GlPointList(1, GlMouse) = mx
33.                 GlPointList(2, GlMouse) = my
34.             END IF
35.             IF GlActive = True THEN
36.                 ' here GL works
37.             ELSE
38.                 FOR r = 0 TO 25 ' graphic output engine :-)
39.                     fcirc mx, my, r, Color32
40.                 NEXT
41.             END IF
42.         END IF
43.         lastx = mx: lasty = my
44.     END IF
45.     IF _MOUSEBUTTON(2) THEN
46.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
47.         WHILE _MOUSEINPUT OR _MOUSEBUTTON(2): WEND
48.     END IF
49.     _LIMIT 30
50. LOOP UNTIL _KEYDOWN(27)
51.  
52. 'from Steve Gold standard
53. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
54.     DIM Radius AS INTEGER, RadiusError AS INTEGER
55.     DIM X AS INTEGER, Y AS INTEGER
56.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
57.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
58.     LINE (CX - X, CY)-(CX + X, CY), C, BF
59.     WHILE X > Y
60.         RadiusError = RadiusError + Y * 2 + 1
61.         IF RadiusError >= 0 THEN
62.             IF X <> Y + 1 THEN
63.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
64.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
65.             END IF
66.             X = X - 1
67.             RadiusError = RadiusError - X * 2
68.         END IF
69.         Y = Y + 1
70.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
71.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
72.     WEND
73. END SUB
74.  
75.  
76. SUB _GL ()
77.     SHARED mx AS SINGLE, my AS SINGLE, GlMouse AS INTEGER, GlPointList() AS INTEGER, GlInput AS INTEGER
78.     DIM r AS SINGLE, n AS INTEGER, x1 AS SINGLE, y1 AS SINGLE
79.     IF GlActive = False THEN EXIT SUB ' No gl session
80.     IF GlInit THEN InitGl
81.  
82.     ' _glClear _GL_COLOR_BUFFER_BIT
83.     ' graphic output engine :-)
84.     IF GlInput THEN
85.         ' actual point
86.         FOR r = 0 TO 10
87.             Gl_fcirc mx, my, r
88.         NEXT
89.     END IF
90.     ' previous points
91.     FOR n = 1 TO GlMouse
92.         x1 = GlPointList(1, n)
93.         y1 = GlPointList(2, n)
94.         FOR r = 0 TO 10
95.             Gl_fcirc x1, y1, r
96.         NEXT
97.     NEXT n
98.     _glFlush
99. END SUB
100.  
101. SUB InitGl
102.     _glViewport 0, 0, _WIDTH, _HEIGHT
103.     '    _glClearColor 0.6, 0.6, 0.8, 1
104.     GlInit = False
105. END SUB
106.  
107. 'from Steve Gold standard ported to OpenGl
108. SUB Gl_fcirc (CX AS SINGLE, CY AS SINGLE, R AS SINGLE)
109.     DIM Radius AS SINGLE, RadiusError AS SINGLE
110.     DIM X AS SINGLE, Y AS SINGLE
111.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
112.     _glColor4f glRc, glGc, glBc, glAc
113.     IF Radius = 0 THEN
114.         _glBegin _GL_POINTS
115.         _glVertex2f Proportion(0, 1024, -1, 1, CX), Proportion(0, 600, 1, -1, CY)
116.         _glEnd
117.         EXIT SUB
118.     END IF
119.     _glBegin _GL_QUADS
120.     _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY)
121.     _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY)
122.     _glEnd
123.     WHILE X > Y
124.         RadiusError = RadiusError + Y * 2 + 1
125.         IF RadiusError >= 0 THEN
126.             IF X <> Y + 1 THEN
127.                 _glBegin _GL_QUADS
128.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY - X)
129.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY - X)
130.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY + X)
131.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY + X)
132.                 _glEnd
133.             END IF
134.             X = X - 1
135.             RadiusError = RadiusError - X * 2
136.         END IF
137.         Y = Y + 1
138.         _glBegin _GL_QUADS
139.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY - Y)
140.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY - Y)
141.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY + Y)
142.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY + Y)
143.         _glEnd
144.     WEND
145. END SUB
146.  
147. FUNCTION Proportion (min1, max1, min2, max2, value)
148.     'delta1: value = Delta2: x
149.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
150. END FUNCTION
151.  

I think that I must copy Ashish tecnique t get that graphic effect into Opengl!

[TempodiBasic]

Hi
just another step forward...
I have missed the Blending and the transformation of color value.
now it works OK

I have added a function to emulate Ashish code if you like that other version of make circle

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. SCREEN _NEWIMAGE(1024, 600, 32)
3. _DELAY 1
4. _TITLE "Pen Neon Ashis + Bplus ideas"
5. _SCREENMOVE _MIDDLE
6.  
7. CONST True = -1, False = 0
8. DIM SHARED GlInit AS INTEGER, GlActive AS INTEGER, glGc AS INTEGER, glRc AS INTEGER, glBc AS INTEGER, glAc AS INTEGER
9. DIM Color32 AS _UNSIGNED LONG, GlMouse AS INTEGER, GlPointList(1 TO 2, 1 TO 32767) AS INTEGER
10. DIM mx AS SINGLE, my AS SINGLE, lastx AS SINGLE, lasty AS SINGLE, r AS SINGLE, GlInput AS INTEGER
11.  
12. GlInit = True
13. Color32 = _RGB32(220, 150, 10, 3)
14. glGc = _GREEN32(Color32)
15. glBc = _BLUE32(Color32)
16. glRc = _RED32(Color32)
17. glAc = 10
18. Color32 = _RGB32(166, 233, 105, 3)
19. GlActive = False
20. GlMouse = 0
21.  
22. DO
23.     GlInput = False
24.     WHILE _MOUSEINPUT: WEND
25.     mx = _MOUSEX: my = _MOUSEY
26.     IF _MOUSEBUTTON(1) THEN
27.         IF GlActive THEN GlInput = True
28.  
29.         IF lastx <> mx OR lasty <> my THEN
30.             IF GlInput THEN
31.                 GlMouse = GlMouse + 1
32.                 GlPointList(1, GlMouse) = mx
33.                 GlPointList(2, GlMouse) = my
34.             END IF
35.             IF GlActive = True THEN
36.                 ' here GL works
37.             ELSE
38.                 FOR r = 0 TO 25 ' graphic output engine :-)
39.                     fcirc mx, my, r, Color32
40.                 NEXT
41.             END IF
42.         END IF
43.         lastx = mx: lasty = my
44.     END IF
45.     IF _MOUSEBUTTON(2) THEN
46.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
47.         WHILE _MOUSEINPUT OR _MOUSEBUTTON(2): WEND
48.     END IF
49.     _LIMIT 30
50. LOOP UNTIL _KEYDOWN(27)
51.  
52. 'from Steve Gold standard
53. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
54.     DIM Radius AS INTEGER, RadiusError AS INTEGER
55.     DIM X AS INTEGER, Y AS INTEGER
56.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
57.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
58.     LINE (CX - X, CY)-(CX + X, CY), C, BF
59.     WHILE X > Y
60.         RadiusError = RadiusError + Y * 2 + 1
61.         IF RadiusError >= 0 THEN
62.             IF X <> Y + 1 THEN
63.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
64.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
65.             END IF
66.             X = X - 1
67.             RadiusError = RadiusError - X * 2
68.         END IF
69.         Y = Y + 1
70.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
71.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
72.     WEND
73. END SUB
74.  
75.  
76. SUB _GL ()
77.     SHARED mx AS SINGLE, my AS SINGLE, GlMouse AS INTEGER, GlPointList() AS INTEGER, GlInput AS INTEGER
78.     DIM r AS SINGLE, n AS INTEGER, x1 AS SINGLE, y1 AS SINGLE
79.     IF GlActive = False THEN EXIT SUB ' No gl session
80.     IF GlInit THEN InitGl
81.  
82.     ' _glClear _GL_COLOR_BUFFER_BIT
83.  
84.     ' graphic output engine :-)
85.     _glEnable _GL_BLEND
86.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
87.  
88.     _glColor4f Proportion(0, 255, 0, 1, glRc), Proportion(0, 255, 0, 1, glGc), Proportion(0, 255, 0, 1, glBc), Proportion(0, 255, 0, 1, glAc)
89.  
90.     IF GlInput THEN
91.         ' actual point
92.         FOR r = 1 TO 15
93.             'Gl_PointAshish mx, my, r
94.             Gl_fcirc mx, my, r
95.         NEXT
96.     END IF
97.     ' previous points
98.     FOR n = 1 TO GlMouse
99.         x1 = GlPointList(1, n)
100.         y1 = GlPointList(2, n)
101.         FOR r = 1 TO 15
102.             'Gl_PointAshish x1, y1, r
103.             Gl_fcirc x1, y1, r
104.         NEXT
105.     NEXT n
106.     _glFlush
107. END SUB
108.  
109. SUB InitGl
110.     _glViewport 0, 0, _WIDTH, _HEIGHT
111.     '    _glClearColor 0.6, 0.6, 0.8, 1
112.     GlInit = False
113. END SUB
114.  
115. SUB Gl_PointAshish (CX AS SINGLE, CY AS SINGLE, R AS SINGLE)
116.     _glPointSize R
117.     _glBegin _GL_POINTS
118.     _glVertex2f Proportion(0, 1024, -1, 1, CX), Proportion(0, 600, 1, -1, CY)
119.     _glEnd
120. END SUB
121.  
122. 'from Steve Gold standard ported to OpenGl
123. SUB Gl_fcirc (CX AS SINGLE, CY AS SINGLE, R AS SINGLE)
124.     DIM Radius AS SINGLE, RadiusError AS SINGLE
125.     DIM X AS SINGLE, Y AS SINGLE
126.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
127.     IF Radius = 0 THEN
128.         _glBegin _GL_POINTS
129.         _glVertex2f Proportion(0, 1024, -1, 1, CX), Proportion(0, 600, 1, -1, CY)
130.         _glEnd
131.         EXIT SUB
132.     END IF
133.     _glBegin _GL_QUADS
134.     _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY)
135.     _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY)
136.     _glEnd
137.     WHILE X > Y
138.         RadiusError = RadiusError + Y * 2 + 1
139.         IF RadiusError >= 0 THEN
140.             IF X <> Y + 1 THEN
141.                 _glBegin _GL_QUADS
142.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY - X)
143.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY - X)
144.                 _glVertex2f Proportion(0, 1024, -1, 1, CX - Y), Proportion(0, 600, 1, -1, CY + X)
145.                 _glVertex2f Proportion(0, 1024, -1, 1, CX + Y), Proportion(0, 600, 1, -1, CY + X)
146.                 _glEnd
147.             END IF
148.             X = X - 1
149.             RadiusError = RadiusError - X * 2
150.         END IF
151.         Y = Y + 1
152.         _glBegin _GL_QUADS
153.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY - Y)
154.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY - Y)
155.         _glVertex2f Proportion(0, 1024, -1, 1, CX - X), Proportion(0, 600, 1, -1, CY + Y)
156.         _glVertex2f Proportion(0, 1024, -1, 1, CX + X), Proportion(0, 600, 1, -1, CY + Y)
157.         _glEnd
158.     WEND
159. END SUB
160.  
161. FUNCTION Proportion (min1, max1, min2, max2, value)
162.     'delta1: value = Delta2: x
163.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
164. END FUNCTION
165.  
166.  

here the screenshot

 

Thanks so I can learn!

[SierraKen]

Took me a little while but I figured out some simple things with the neon. Here are 2 boxes I made just using commands.

Code: QB64: [Select]

1. _TITLE "Ken's Neon"
2. SCREEN _NEWIMAGE(800, 600, 32)
3.  
4. TYPE vec2
5.     x AS SINGLE
6.     y AS SINGLE
7. END TYPE
8.  
9. REDIM SHARED vert(4024) AS vec2, max_v_index
10. DIM SHARED rFactor!, gFactor!, bFactor!
11. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
12.  
13. _LIMIT 60
14.  
15. CLS
16.  
17. 'First Box
18. FOR xx = 195 TO 500
19.     max_v_index = max_v_index + 1
20.     vert(max_v_index).x = xx
21.     vert(max_v_index).y = 200
22. NEXT xx
23.  
24. FOR xx = 195 TO 500
25.     max_v_index = max_v_index + 1
26.     vert(max_v_index).x = xx
27.     vert(max_v_index).y = 500
28. NEXT xx
29.  
30. FOR yy = 200 TO 499
31.     max_v_index = max_v_index + 1
32.     vert(max_v_index).x = 200
33.     vert(max_v_index).y = yy
34. NEXT yy
35.  
36. FOR yy = 200 TO 500
37.     max_v_index = max_v_index + 1
38.     vert(max_v_index).x = 499
39.     vert(max_v_index).y = yy
40. NEXT yy
41.  
42. 'Second Box
43. FOR xx = 395 TO 700
44.     max_v_index = max_v_index + 1
45.     vert(max_v_index).x = xx
46.     vert(max_v_index).y = 50
47. NEXT xx
48.  
49. FOR xx = 395 TO 700
50.     max_v_index = max_v_index + 1
51.     vert(max_v_index).x = xx
52.     vert(max_v_index).y = 350
53. NEXT xx
54.  
55. FOR yy = 50 TO 350
56.     max_v_index = max_v_index + 1
57.     vert(max_v_index).x = 700
58.     vert(max_v_index).y = yy
59. NEXT yy
60.  
61. FOR yy = 50 TO 350
62.     max_v_index = max_v_index + 1
63.     vert(max_v_index).x = 395
64.     vert(max_v_index).y = yy
65. NEXT yy
66.  
67.  
68.  
69. DO: LOOP UNTIL INKEY$ <> ""
70.  
71. SUB _GL ()
72.     STATIC glInit
73.     IF glInit = 0 THEN
74.         glInit = 1
75.  
76.     END IF
77.     _glViewport 0, 0, _WIDTH, _HEIGHT
78.     'set the gl screen so that it can work normal screen coordinates
79.     _glTranslatef -1, 1, 0
80.     _glScalef 1 / 400, -1 / 300, 1
81.  
82.     _glEnable _GL_BLEND
83.  
84.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
85.     _glEnableClientState _GL_VERTEX_ARRAY
86.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
87.     FOR j = 1 TO 15
88.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
89.         _glPointSize j
90.         _glDrawArrays _GL_POINTS, 10, max_v_index
91.     NEXT
92.     _glFlush
93. END SUB
94.  

[bplus]

Ken gave me an idea

Code: QB64: [Select]

1. _TITLE "b+ dimmer switch raise and lower mouse"
2. SCREEN _NEWIMAGE(1024, 700, 32)
3. _DELAY .25
4. _SCREENMOVE _MIDDLE
5.  
6. TYPE vec2
7.     x AS SINGLE
8.     y AS SINGLE
9. END TYPE
10.  
11. REDIM vert(1 TO 4024) AS vec2
12.  
13. 'First Box
14. FOR i = 50 TO 350 STEP 25
15.     vi = vi + 1
16.     vert(vi).x = 50
17.     vert(vi).y = i
18.     vi = vi + 1
19.     vert(vi).x = 350
20.     vert(vi).y = i
21.     IF i <> 50 AND i <> 350 THEN
22.         vi = vi + 1
23.         vert(vi).x = i
24.         vert(vi).y = 50
25.         vi = vi + 1
26.         vert(vi).x = i
27.         vert(vi).y = 350
28.     END IF
29. NEXT
30. 'Second Box
31. FOR i = 250 TO 650 STEP 25
32.     vi = vi + 1
33.     vert(vi).x = 250
34.     vert(vi).y = i
35.     vi = vi + 1
36.     vert(vi).x = 650
37.     vert(vi).y = i
38.     IF i <> 250 AND i <> 650 THEN
39.         vi = vi + 1
40.         vert(vi).x = i
41.         vert(vi).y = 250
42.         vi = vi + 1
43.         vert(vi).x = i
44.         vert(vi).y = 650
45.     END IF
46. NEXT
47. FOR a = 0 TO _PI(2) - .01 STEP _PI(1 / 30)
48.     vi = vi + 1
49.     vert(vi).x = 750 + 200 * COS(a)
50.     vert(vi).y = 350 + 200 * SIN(a)
51. NEXT
52.  
53.  
54. DO
55.     CLS
56.     WHILE _MOUSEINPUT: WEND
57.     my = _MOUSEY / _HEIGHT * 12
58.     FOR power = 1 TO my
59.         FOR i = 1 TO vi
60.             FOR r = 1 TO 25
61.                 IF vert(i).x = 0 AND vert(i).y = 0 THEN 'where is that coming from?
62.                     LOCATE 1, 1: PRINT i
63.                 ELSE
64.                     fcirc vert(i).x, vert(i).y, r, _RGBA32(240, 230, 255, 3)
65.                 END IF
66.             NEXT
67.         NEXT
68.     NEXT
69.     _DISPLAY
70.     _LIMIT 60
71. LOOP UNTIL _KEYDOWN(27)
72.  
73.  
74. 'from Steve Gold standard
75. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
76.     DIM Radius AS INTEGER, RadiusError AS INTEGER
77.     DIM X AS INTEGER, Y AS INTEGER
78.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
79.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
80.     LINE (CX - X, CY)-(CX + X, CY), C, BF
81.     WHILE X > Y
82.         RadiusError = RadiusError + Y * 2 + 1
83.         IF RadiusError >= 0 THEN
84.             IF X <> Y + 1 THEN
85.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
86.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
87.             END IF
88.             X = X - 1
89.             RadiusError = RadiusError - X * 2
90.         END IF
91.         Y = Y + 1
92.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
93.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
94.     WEND
95. END SUB
96.  
97.