Deformed Sphere (3D)

[Ashish]

@Petr
Well... You can render OpenGL context directly on software screen.

[Petr]

Really? So i try it again. My goal is therefore a screen with visible hardware elements and visible GLRender elements.

[Ashish]

Yes. With _mem, you can copy OpenGL pixel data to main screen.
I already created a SUB RenderGLToSoftwareScreen which take the handle of destination image as argument.
In the below code, if you press the key, the gl context is retained on screen.

Code: QB64: [Select]

1. 'OpenGL context capture example
2. 'by Ashish Kushwaha
3.  
4. _TITLE "Rendering OpenGL Context on Software"
5. SCREEN _NEWIMAGE(600, 600, 32)
6.  
7. DIM SHARED glAllow AS _BYTE
8. DIM SHARED GL_Color_Buffer~%%(_WIDTH * _HEIGHT * 4 - 1)
9. DIM SHARED keyHit AS LONG, BufferDone
10.  
11. BufferDone = 1
12. ' CLS , _RGB(255,0,0)
13. ' _DISPLAYORDER _SOFTWARE 'this is hide opengl screen
14. glAllow = -1
15. DO
16.         _DISPLAY
17.     _LIMIT 48
18. LOOP UNTIL INKEY$<>""
19.  
20.  
21. SUB _GL ()
22.     STATIC fps AS LONG, tt#
23.  
24.     IF NOT glAllow THEN EXIT SUB
25.        
26.  
27.     _glViewport 0, 0, _WIDTH, _HEIGHT
28.  
29.     _glClearColor 0, 0, 0, 1
30.     _glClear _GL_COLOR_BUFFER_BIT
31.  
32.     _glMatrixMode _GL_MODELVIEW
33.     _glLoadIdentity
34.  
35.     _glRotatef fps, 0, 0, 1
36.  
37.     _glBegin _GL_TRIANGLES
38.  
39.     _glColor3f 1, 0, 0
40.     _glVertex2f 0, 1
41.     _glColor3f 0, 1, 0
42.     _glVertex2f -1, -1
43.     _glColor3f 0, 0, 1
44.     _glVertex2f 1, -1
45.     _glEnd
46.        
47.          RenderGLToSoftwareScreen 0 : tt# = timer
48.  
49.     _glFlush
50.  
51.     fps = fps + 1
52. END SUB
53.  
54. SUB RenderGLToSoftwareScreen (dest&)
55.  
56.     ' $CHECKING:OFF
57.  
58.     'storing GL Color Buffer in our  GL_Color_Buffer() array
59.     _glReadBuffer _GL_BACK
60.     _glPixelStorei _GL_UNPACK_ALIGNMENT, 1
61.     _glReadPixels 0, 0, _WIDTH, _HEIGHT, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, _OFFSET(GL_Color_Buffer~%%())
62.     DIM m AS _MEM, m2 as _MEM
63.         tmp& = _NEWIMAGE(_width(dest&), _HEIGHT(dest&), 32)
64.     m2 = _MEMIMAGE(tmp&) 'store it in memory
65.         m = _MEM(GL_Color_Buffer~%%())
66.         _MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
67.        
68.     _MEMFREE m
69.         ' _CLEARCOLOR _RGBA(0,0,0,255), tmp&
70.         _PUTIMAGE (0, _HEIGHT(dest&)-1)-(_width(dest&)-1, 0), tmp&, dest&
71.         _MEMFREE m2
72.         _FREEIMAGE tmp&
73.     $CHECKING:ON
74. END SUB
75.  
76.  

[SMcNeill]

Yes. With _mem, you can copy OpenGL pixel data to main screen.
I already created a SUB RenderGLToSoftwareScreen which take the handle of destination image as argument.
In the below code, if you press the key, the gl context is retained on screen.

This content should probably be added as an option to _COPYIMAGE so that someone can easily copy a hardware image to a software screen.  Maybe someone with a little more free time than me, could look into the addition for us.   ;D

[Ashish]

This content should probably be added as an option to _COPYIMAGE so that someone can easily copy a hardware image to a software screen.  Maybe someone with a little more free time than me, could look into the addition for us.   ;D

That will be very cool and very useful, Steve.

[Petr]

Yes, but.... what objects depth? Is not accepted for Hardware images. Or is something wrong here? I add _DISPLAYORDER, so now is visible OpenGL content and Hardware layer. But objects depth is not accepted for hardware images (is always visible, even though the triangle that is in front of the hardware image should cover it.

Code: QB64: [Select]

1. 'OpenGL context capture example
2. 'by Ashish Kushwaha
3.  
4.  
5. img = _COPYIMAGE(_SCREENIMAGE, 33)
6. W = _WIDTH(img)
7. H = _HEIGHT(img)
8.  
9.  
10.  
11.  
12. _TITLE "Rendering OpenGL Context on Software"
13. SCREEN _NEWIMAGE(800, 600, 32)
14. LOCATE 1
15. PRINT "Software screen text"
16. DIM SHARED glAllow AS _BYTE
17. DIM SHARED GL_Color_Buffer~%%(_WIDTH * _HEIGHT * 4 - 1)
18. DIM SHARED keyHit AS LONG, BufferDone
19.  
20. BufferDone = 1
21. ' CLS , _RGB(255,0,0)
22. _DISPLAYORDER _GLRENDER , _HARDWARE ', _SOFTWARE 'this is hide opengl screen
23. glAllow = -1
24. DO
25.     'try insert hardware image
26.     _MAPTRIANGLE (0, 0)-(W, 0)-(0, H), img TO(-3, 1, -5)-(-2, 1, -5)-(-3, -1, -5)
27.     _MAPTRIANGLE (W, 0)-(0, H)-(W, H), img TO(-2, 1, -5)-(-3, -1, -5)-(-2, -1, -5)
28.  
29.     'is always visible, but the triangle is in smaller depth.
30.     _DISPLAY
31.     _LIMIT 48
32. LOOP UNTIL INKEY$ <> ""
33.  
34.  
35. SUB _GL ()
36.     STATIC fps AS LONG, tt#
37.  
38.     IF NOT glAllow THEN EXIT SUB
39.  
40.  
41.     _glViewport 0, 0, _WIDTH, _HEIGHT
42.  
43.     _glClearColor 0, 0, 0, 1
44.     _glClear _GL_COLOR_BUFFER_BIT
45.  
46.     _glMatrixMode _GL_MODELVIEW
47.     _glLoadIdentity
48.  
49.     _glRotatef fps, 0, 0, 1
50.  
51.     _glBegin _GL_TRIANGLES
52.  
53.     _glColor3f 1, 0, 0
54.     _glVertex3f 0, 1, -1
55.     _glColor3f 0, 1, 0
56.     _glVertex3f -1, -1, -1
57.     _glColor3f 0, 0, 1
58.     _glVertex3f 1, -1, -1
59.     _glEnd
60.  
61.     RenderGLToSoftwareScreen 0: tt# = TIMER
62.  
63.     _glFlush
64.  
65.     fps = fps + 1
66. END SUB
67.  
68. SUB RenderGLToSoftwareScreen (dest&)
69.  
70.     ' $CHECKING:OFF
71.  
72.     'storing GL Color Buffer in our  GL_Color_Buffer() array
73.     _glReadBuffer _GL_BACK
74.     _glPixelStorei _GL_UNPACK_ALIGNMENT, 1
75.     _glReadPixels 0, 0, _WIDTH, _HEIGHT, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, _OFFSET(GL_Color_Buffer~%%())
76.     DIM m AS _MEM, m2 AS _MEM
77.     tmp& = _NEWIMAGE(_WIDTH(dest&), _HEIGHT(dest&), 32)
78.     m2 = _MEMIMAGE(tmp&) 'store it in memory
79.     m = _MEM(GL_Color_Buffer~%%())
80.     _MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
81.  
82.     _MEMFREE m
83.     ' _CLEARCOLOR _RGBA(0,0,0,255), tmp&
84.     _PUTIMAGE (0, _HEIGHT(dest&) - 1)-(_WIDTH(dest&) - 1, 0), tmp&, dest&
85.     _MEMFREE m2
86.     _FREEIMAGE tmp&
87.     $CHECKING:ON
88. END SUB
89.  
90.  
91.  
92.  

[Ashish]

@Petr
What are you trying to say? Your code is working as expected.

[Petr]

It is a combination of 3D OpenGL and a combination of 3D hardware. This is not what I expect. If I combine both of these methods, I need the body that is closer to the screen to hide the body behind it. Regardless of the method it is assembled.
How we talked about at the beginning. Why did I make a ball through MAPTRIANGLE as a hardware image. I did it because I can't mix the Hardware method and the OpenGL method. Your program will display the OpenGL layer together with the hardware layer. It is well. To do this, I still need to compare the depth of the bodies and hide what is hidden behind the body closer. This would mean reading the Z-axis depths for the solids on both layers and writing only those to really see into the resulting layer.
You see, it's one complication after another. That's why I didn't choose OpenGL for the ball.

[Ashish]

Yes, but.... what objects depth? Is not accepted for Hardware images. Or is something wrong here? I add _DISPLAYORDER, so now is visible OpenGL content and Hardware layer. But objects depth is not accepted for hardware images (is always visible, even though the triangle that is in front of the hardware image should cover it.

Code: QB64: [Select]

1. 'OpenGL context capture example
2. 'by Ashish Kushwaha
3.  
4.  
5. img = _COPYIMAGE(_SCREENIMAGE, 33)
6. W = _WIDTH(img)
7. H = _HEIGHT(img)
8.  
9.  
10.  
11.  
12. _TITLE "Rendering OpenGL Context on Software"
13. SCREEN _NEWIMAGE(800, 600, 32)
14. LOCATE 1
15. PRINT "Software screen text"
16. DIM SHARED glAllow AS _BYTE
17. DIM SHARED GL_Color_Buffer~%%(_WIDTH * _HEIGHT * 4 - 1)
18. DIM SHARED keyHit AS LONG, BufferDone
19.  
20. BufferDone = 1
21. ' CLS , _RGB(255,0,0)
22. _DISPLAYORDER _GLRENDER , _HARDWARE ', _SOFTWARE 'this is hide opengl screen
23. glAllow = -1
24. DO
25.     'try insert hardware image
26.     _MAPTRIANGLE (0, 0)-(W, 0)-(0, H), img TO(-3, 1, -5)-(-2, 1, -5)-(-3, -1, -5)
27.     _MAPTRIANGLE (W, 0)-(0, H)-(W, H), img TO(-2, 1, -5)-(-3, -1, -5)-(-2, -1, -5)
28.  
29.     'is always visible, but the triangle is in smaller depth.
30.     _DISPLAY
31.     _LIMIT 48
32. LOOP UNTIL INKEY$ <> ""
33.  
34.  
35. SUB _GL ()
36.     STATIC fps AS LONG, tt#
37.  
38.     IF NOT glAllow THEN EXIT SUB
39.  
40.  
41.     _glViewport 0, 0, _WIDTH, _HEIGHT
42.  
43.     _glClearColor 0, 0, 0, 1
44.     _glClear _GL_COLOR_BUFFER_BIT
45.  
46.     _glMatrixMode _GL_MODELVIEW
47.     _glLoadIdentity
48.  
49.     _glRotatef fps, 0, 0, 1
50.  
51.     _glBegin _GL_TRIANGLES
52.  
53.     _glColor3f 1, 0, 0
54.     _glVertex3f 0, 1, -1
55.     _glColor3f 0, 1, 0
56.     _glVertex3f -1, -1, -1
57.     _glColor3f 0, 0, 1
58.     _glVertex3f 1, -1, -1
59.     _glEnd
60.  
61.     RenderGLToSoftwareScreen 0: tt# = TIMER
62.  
63.     _glFlush
64.  
65.     fps = fps + 1
66. END SUB
67.  
68. SUB RenderGLToSoftwareScreen (dest&)
69.  
70.     ' $CHECKING:OFF
71.  
72.     'storing GL Color Buffer in our  GL_Color_Buffer() array
73.     _glReadBuffer _GL_BACK
74.     _glPixelStorei _GL_UNPACK_ALIGNMENT, 1
75.     _glReadPixels 0, 0, _WIDTH, _HEIGHT, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, _OFFSET(GL_Color_Buffer~%%())
76.     DIM m AS _MEM, m2 AS _MEM
77.     tmp& = _NEWIMAGE(_WIDTH(dest&), _HEIGHT(dest&), 32)
78.     m2 = _MEMIMAGE(tmp&) 'store it in memory
79.     m = _MEM(GL_Color_Buffer~%%())
80.     _MEMCOPY m, m.OFFSET, m.SIZE TO m2, m2.OFFSET
81.  
82.     _MEMFREE m
83.     ' _CLEARCOLOR _RGBA(0,0,0,255), tmp&
84.     _PUTIMAGE (0, _HEIGHT(dest&) - 1)-(_WIDTH(dest&) - 1, 0), tmp&, dest&
85.     _MEMFREE m2
86.     _FREEIMAGE tmp&
87.     $CHECKING:ON
88. END SUB
89.  
90.  
91.  
92.  

RenderGLToSoftwareScreen only copies the pixel color data of OpenGL context on the software screen. It does not copy the depth data.
Actually, it is my mistake. I gave wrong name to the SUB. It must be CopyGLPixelsToSoftware.