Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on November 19, 2020, 09:53:19 am

Title: NEON PEN
Post by: Ashish on November 19, 2020, 09:53:19 am
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
  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
  13.     CLS
  14.     PRINT "VRAM Usage : "; vram; "KB"
  15.     PRINT "Vertices Used : "; max_v_index; "/"; UBOUND(vert)
  16.     vram = (UBOUND(vert) * 4) / 1024
  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
  49.  
  50. SUB _GL ()
  51.     STATIC glInit
  52.     IF glInit = 0 THEN
  53.         glInit = 1
  54.  
  55.     END IF
  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
  73.  
  74. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  75.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  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) )
Title: Re: NEON PEN
Post by: bplus on November 19, 2020, 12:15:56 pm
@Ashish  welcome back, did they let you out of school?

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 600, 32)
  2. _DELAY .25
  4.  
  7.     mx = _MOUSEX: my = _MOUSEY
  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
  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
  40.  
  41.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: NEON PEN
Post by: Dav on November 19, 2020, 04:34:22 pm
I like it!  Cool effect.

- Dav
Title: Re: NEON PEN
Post by: Ashish on November 20, 2020, 12:27:04 am
@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. :)
Title: Re: NEON PEN
Post by: TempodiBasic on November 20, 2020, 10:12:07 am
@Ashish
Cool! fine work of GPU


@bplus
Cool! fine work of CPU

Title: Re: NEON PEN
Post by: SierraKen on November 20, 2020, 10:51:39 am
Awesome effect Ashish! I'll have to use this effect later on! Thank you!

Title: Re: NEON PEN
Post by: Dav on November 20, 2020, 02:30:34 pm
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
Title: Re: NEON PEN
Post by: TempodiBasic on November 20, 2020, 05:44:21 pm
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.
Title: Re: NEON PEN
Post by: Ashish on November 20, 2020, 10:27:55 pm
Quote from: SierraKen on November 20, 2020, 10:51:39 am
Awesome effect Ashish! I'll have to use this effect later on! Thank you!
Thanks Ken.

Quote from: Dav on November 20, 2020, 02:30:34 pm
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.
Title: Re: NEON PEN
Post by: Dav on November 20, 2020, 10:59:13 pm
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

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: NEON PEN
Post by: TempodiBasic on November 21, 2020, 07:38:25 am
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]
  2. SCREEN _NEWIMAGE(1024, 600, 32)
  4. _TITLE "Pen Neon Ashis + Bplus ideas"
  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.  
  22.     GlInput = False
  24.     mx = _MOUSEX: my = _MOUSEY
  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
  45.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
  47.     END IF
  48.     _LIMIT 40
  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
  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
  99.  
  100. SUB InitGl
  102.     _glClearColor 1, 0.5, 0.5, 1
  103.     GlInit = False
  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
  145.  
  146. FUNCTION Proportion (min1, max1, min2, max2, value)
  147.     'delta1: value = Delta2: x
  148.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
  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
Title: Re: NEON PEN
Post by: TempodiBasic on November 21, 2020, 07:41:38 am
Here a version of it in which you have on the same screen the standard and the Opengl graphics...
see screenshot
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
and here the code
Code: QB64: [Select]
  2. SCREEN _NEWIMAGE(1024, 600, 32)
  4. _TITLE "Pen Neon Ashis + Bplus ideas"
  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.  
  23.     GlInput = False
  25.     mx = _MOUSEX: my = _MOUSEY
  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
  46.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
  48.     END IF
  49.     _LIMIT 30
  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
  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
  100.  
  101. SUB InitGl
  103.     '    _glClearColor 0.6, 0.6, 0.8, 1
  104.     GlInit = False
  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
  146.  
  147. FUNCTION Proportion (min1, max1, min2, max2, value)
  148.     'delta1: value = Delta2: x
  149.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
  151.  

I think that I must copy Ashish tecnique t get that graphic effect into Opengl!
Title: Re: NEON PEN
Post by: TempodiBasic on November 21, 2020, 03:21:58 pm
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]
  2. SCREEN _NEWIMAGE(1024, 600, 32)
  4. _TITLE "Pen Neon Ashis + Bplus ideas"
  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.  
  23.     GlInput = False
  25.     mx = _MOUSEX: my = _MOUSEY
  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
  46.         GlActive = NOT GlActive 'switch between stardard and Opengl graphic
  48.     END IF
  49.     _LIMIT 30
  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
  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
  108.  
  109. SUB InitGl
  111.     '    _glClearColor 0.6, 0.6, 0.8, 1
  112.     GlInit = False
  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
  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
  160.  
  161. FUNCTION Proportion (min1, max1, min2, max2, value)
  162.     'delta1: value = Delta2: x
  163.     Proportion = ((value * (max2 - min2)) / (max1 - min1)) + min2
  165.  
  166.  

here the screenshot

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

Thanks so I can learn!
Title: Re: NEON PEN
Post by: SierraKen on November 21, 2020, 08:51:44 pm
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
  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.  
  14.  
  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.  
  70.  
  71. SUB _GL ()
  72.     STATIC glInit
  73.     IF glInit = 0 THEN
  74.         glInit = 1
  75.  
  76.     END IF
  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
  94.  
Title: Re: NEON PEN
Post by: bplus on November 21, 2020, 10:51:09 pm
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
  5.  
  6. TYPE vec2
  7.     x AS SINGLE
  8.     y AS SINGLE
  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
  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
  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)
  52.  
  53.  
  55.     CLS
  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
  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
  96.  
  97.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: NEON PEN
Post by: SierraKen on November 21, 2020, 11:24:52 pm
LOL that's awesome B+! I love the dimming effect, it can be used on neon signs. :)
Title: Re: NEON PEN
Post by: Ashish on November 22, 2020, 03:03:52 am
@TempodiBasic
There is a simpler way to draw circle in OpenGL

Code: QB64: [Select]
  1. _TITLE "Learning OpenGL" 'giving title to your window
  2. SCREEN _NEWIMAGE(600, 600, 32) 'creating a window of 600x600
  3.  
  4. 'This is our main loop
  6.     _LIMIT 40 'Adding this will prevent high cpu usage.
  8.  
  9. SUB _GL ()
  10.     'Here we'll put our OpenGL commands!
  11.  
  12.     _glViewport 0, 0, _WIDTH, _HEIGHT 'here _WIDTH() and _HEIGHT() gives the width and height of our window.
  13.     '_glClearColor 1, .5, 0, 1
  14.     _glClear _GL_COLOR_BUFFER_BIT
  15.  
  16.  
  17.     _glColor3f 1, 1, 1
  18.  
  19.     r = .5
  20.     _glBegin _GL_TRIANGLE_FAN
  21.     FOR i = 0 TO _PI(2) STEP .05
  22.         _glVertex2f COS(i) * r, SIN(i) * r
  23.     NEXT
  24.     _glEnd
  25.  
  26.     _glFlush
  28.  


For explanation, see GL_TRIANGLE_FAN section here - https://ashishkingdom.github.io/OpenGL-Tutorials/2d-shapes/
Title: Re: NEON PEN
Post by: Ashish on November 22, 2020, 03:11:56 am
@bplus gives us new IDEA! :D

Here is the dimming effect in GL
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
  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
  13.     CLS
  14.     PRINT "VRAM Usage : "; vram; "KB"
  15.     PRINT "Vertices Used : "; max_v_index; "/"; UBOUND(vert)
  16.     vram = (UBOUND(vert) * 4) / 1024
  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
  49.  
  50. SUB _GL ()
  51.     STATIC glInit, clock
  52.     clock = clock + 0.03
  53.     IF glInit = 0 THEN
  54.         glInit = 1
  55.  
  56.     END IF
  58.     'set the gl screen so that it can work normal screen coordinates
  59.     _glTranslatef -1, 1, 0
  60.     _glScalef 1 / 400, -1 / 300, 1
  61.  
  62.     _glEnable _GL_BLEND
  63.  
  64.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
  65.     _glEnableClientState _GL_VERTEX_ARRAY
  66.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
  67.     FOR j = 1 TO 15
  68.         _glColor4f rFactor!, gFactor!, bFactor!, 0.009 + 0.03 * ABS(SIN(clock))
  69.         _glPointSize j
  70.         _glDrawArrays _GL_POINTS, 10, max_v_index
  71.     NEXT
  72.     _glFlush
  74.  
  75. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  76.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  78.  
  79.  
Title: Re: NEON PEN
Post by: TempodiBasic on November 22, 2020, 07:24:40 am
@Ashish
Hi thanks for suggestion but I must say you that I have already a good master for Opengl
and I have travelled already his lessons to this Website https://ashishkingdom.github.io/OpenGL-Tutorials/ (https://ashishkingdom.github.io/OpenGL-Tutorials/)
Now I need to use Opengl and  to pass again in the OpenGl travel to learn and memorize better.
Ripetita iuvant.

PS:
is your that website, master of OpenGl? 
;-)
Title: Re: NEON PEN
Post by: SierraKen on November 22, 2020, 03:45:04 pm
Today I found _GL_LINE_STRIP so I turned your Neon Pen into making lines. It's not the same neon-look as you had before, but it's just something to learn. I also upped the vert DIM by a lot more. I found out that CLS or even a giant black box using LINE doesn't clear the screen for some reason. I'm still learning this stuff. I had to change your SUB to use the new _GL_LINE_STRIP, I'll post all of the code below. I should probably say too that I'm sure there's a much easier way to make this lines program without using OpenGL and without Dimming the memory. Or at least something very similar. This is just an OpenGL example is all. First click once on the screen, then click again to make your first line. Every line after that is connected to the end of your older line.
But first I want to say that people can also change the width of your Neon Pen (not this lines example below) to make wider lines or drawings by just changing the SUB's line For j=1 to 15 to something like For j=1 to 25.

 
Code: QB64: [Select]
  1. _TITLE "Neon Lines"
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3.  
  4. TYPE vec2
  5.     x AS SINGLE
  6.     y AS SINGLE
  8.  
  9. REDIM SHARED vert(200024) AS vec2, max_v_index
  10. DIM SHARED rFactor!, gFactor!, bFactor!
  11. rFactor! = 0.5: gFactor! = 2.5: bFactor! = 0.5
  13.     'CLS
  14.     LOCATE 1, 1: PRINT "VRAM Usage : "; vram; "KB"
  15.     LOCATE 2, 1: PRINT "Vertices Used : "; max_v_index; "/"; UBOUND(vert)
  16.     vram = (UBOUND(vert) * 4) / 1024
  17.     a$ = INKEY$
  18.     IF a$ = CHR$(27) THEN END
  19.  
  21.     m = _MOUSEBUTTON(1)
  22.     IF m = -1 THEN
  23.         t = t + 1
  24.         px = mx: py = my
  25.         mx = _MOUSEX: my = _MOUSEY
  26.         IF t < 2 THEN GOTO notthistime:
  27.         'px = mx: py = my
  28.         WHILE m = -1 AND max_v_index < UBOUND(vert)
  29.             WHILE _MOUSEINPUT: WEND
  30.             mx = _MOUSEX: my = _MOUSEY
  31.             IF ABS(px - mx) >= ABS(py - my) THEN
  32.                 IF mx >= px THEN s = 1 ELSE s = -1
  33.                 FOR i = px TO mx STEP s
  34.                     vert(max_v_index).x = i
  35.                     vert(max_v_index).y = map(i, px, mx, py, my)
  36.                     max_v_index = max_v_index + 1
  37.                     'IF max_v_index > UBOUND(vert) THEN REDIM _PRESERVE vert(max_v_index * 2) AS vec2
  38.                 NEXT
  39.             ELSE
  40.                 IF my >= py THEN s = 1 ELSE s = -1
  41.                 FOR i = py TO my STEP s
  42.                     vert(max_v_index).x = map(i, py, my, px, mx)
  43.                     vert(max_v_index).y = i
  44.                     max_v_index = max_v_index + 1
  45.                     'IF max_v_index > UBOUND(vert) THEN REDIM _PRESERVE vert(max_v_index * 2) AS vec2
  46.                 NEXT
  47.             END IF
  48.             'px = mx: py = my
  49.             notthistime:
  50.             m = 0
  51.         WEND
  52.     END IF
  53.     _LIMIT 200
  55.  
  56. 'This sub was changed from points to lines.
  57. SUB _GL ()
  58.     STATIC glInit
  59.     IF glInit = 0 THEN
  60.         glInit = 1
  61.  
  62.     END IF
  64.     'set the gl screen so that it can work normal screen coordinates
  65.     _glTranslatef -1, 1, 0
  66.     _glScalef 1 / 400, -1 / 300, 1
  67.  
  68.     _glEnable _GL_BLEND
  69.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
  70.     _glEnableClientState _GL_VERTEX_ARRAY
  71.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
  72.     FOR j = 1 TO 30
  73.         'For j=1 to 15
  74.         '_glColor4f rFactor!, gFactor!, bFactor!, 0.015
  75.         _glColor4f rFactor!, gFactor!, bFactor!, 0.06
  76.         _glPointSize j
  77.         '_glDrawArrays _GL_POINTS, 10, max_v_index
  78.         _glLineWidth 10
  79.         _glDrawArrays _GL_LINE_STRIP, 0, max_v_index
  80.     NEXT
  81.     _glFlush
  83.  
  84. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  85.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  87.  
Title: Re: NEON PEN
Post by: SierraKen on November 22, 2020, 04:35:05 pm
Here's what your Neon Pen looks like with the wider length I mentioned in my last post. Oh I also had to add more to the Dim for the vert's on this too.

Title: Re: NEON PEN
Post by: TempodiBasic on November 22, 2020, 06:55:19 pm
@SierraKen
Hi I'm seeing that you like it!

if you want clear screen in Opengl you must 1. set the color of clearing (say Black _rgb32(0,0,0,255)) with _glclearcolor and after 2 use _glclear what (generally _gl_color_buffer_bit)
as here
Code: QB64: [Select]
  1.     _GLCLEARCOLOR 1, .5, 0, 1
  2.     _GLCLEAR _GL_COLOR_BUFFER_BIT
the 4th parameter is Alpha channel, so if you want to see as background normal graphic (that made by LINE and erased by CLS) you can use a lower value at the place of 1 (0-1  in Opengl 0-255 in standard graphic).

But all these are info taken from my Opengl master  here https://ashishkingdom.github.io/OpenGL-Tutorials/ (https://ashishkingdom.github.io/OpenGL-Tutorials/).

If you want to learn how to mix normal graphic and Opengl graphic you can see the demo posted by Steve here:  https://www.qb64.org/forum/index.php?topic=3254.msg125353#msg125353 (https://www.qb64.org/forum/index.php?topic=3254.msg125353#msg125353)
but I warning you it is just a little advanced. ;-)
Title: Re: NEON PEN
Post by: SierraKen on November 22, 2020, 09:42:34 pm
Thanks TempodiBasic, but I don't know much more OpenGL I'm going to do. I rarely stay with anything I jump in the middle of. But thanks for the info.
Text Only | Text with Attachments