Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Richard Frost on July 07, 2020, 03:22:36 pm

Title: OpenGL rotations
Post by: Richard Frost on July 07, 2020, 03:22:36 pm
How does one apply a rotation centered on an object instead of the middle of the screen?
I'd like these 6 objects to stay in one place and spin.

Ashish's plasma cube was the starting point for this experimentation.

Code: QB64: [Select]
  1. ' keys xyz to toggle rotations, arrow up/down speed
  2.  
  3. _TITLE "Bonkers"
  5.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  7. DIM SHARED glAllow AS _BYTE, glinit, s&(6), s2&(6), d(23, 4), d, n, x, y, z, r
  8. SCREEN _NEWIMAGE(500, 500, 32)
  9. d = 4: n = 23: sp = 60: x = 1: y = 1: z = 1
  10. FOR i = 0 TO n
  11.     FOR j = 0 TO 4
  12.         t$ = MID$("zpnppppppppzpnpzznnpzpnpnppppnpzpnnzznnnzpnpnppppnpzpppzznppzpnnnpppnnpzpnpzznnpzpnpnppnpppznnpzznnnzpppnppppppzpnpzzpnn", i * 5 + j + 1, 1)
  13.         d(i, j) = (INSTR("nzp", t$) - 2) / 4 '          n=-1,z=0,p=1
  14.     NEXT j
  16. FOR p = 1 TO 6 '                                        generate 6 textures, one for each piece
  17.     FOR i = 0 TO 250
  18.         j = 255 - i
  19.         IF p = 1 THEN c& = _RGB(i / 2, j, j) '          w
  20.         IF p = 2 THEN c& = _RGB(j / 2, j, i) '          t
  21.         IF p = 3 THEN c& = _RGB(j, i / 2, i) '          u
  22.         IF p = 4 THEN c& = _RGB(i / 4, i, j / 2) '      x
  23.         IF p = 5 THEN c& = _RGB(j / 2, i / 2, i) '      t+
  24.         IF p = 6 THEN c& = _RGB(i, j, i) '              z
  25.         LINE (i, i)-(_WIDTH - i, _HEIGHT - i), c&, B
  26.     NEXT i
  27.     s&(p) = _COPYIMAGE(0)
  29. SCREEN _NEWIMAGE(800, 800, 32)
  31. glAllow = -1
  33.     i$ = INKEY$
  34.     IF i$ = "x" THEN x = x XOR 1 '                      x axis on/off
  35.     IF i$ = "y" THEN y = y XOR 1 '                      y
  36.     IF i$ = "z" THEN z = z XOR 1 '                      z
  37.     IF LEN(i$) = 2 THEN '                               maybe arrow key
  38.         kk = ASC(RIGHT$(i$, 1))
  39.         sp = sp + (kk = 80) * 10 - (kk = 72) * 10 '     speed
  40.         IF sp < 10 THEN sp = 10 '                       lower speed limit
  41.     END IF
  42.     r = (r + 1) MOD 360 '                               master rotation
  43.     _PRINTSTRING (0, 0), STR$(x) + STR$(y) + STR$(z) + STR$(sp) + " "
  44. LOOP UNTIL i$ = CHR$(27)
  45. SCREEN 0, 0, 0, 0
  47.  
  48. SUB _GL ()
  49.     IF NOT glAllow THEN EXIT SUB
  50.     IF NOT glinit THEN
  51.         glinit = -1
  52.         DIM m AS _MEM
  53.         FOR p = 1 TO 6
  54.             _glGenTextures 1, _OFFSET(s2&(p))
  55.             m = _MEMIMAGE(s&(p))
  56.             _glBindTexture _GL_TEXTURE_2D, s2&(p)
  57.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, 500, 500, 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  58.             _MEMFREE m
  59.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  60.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  61.             _FREEIMAGE s&(p)
  62.         NEXT p
  63.     END IF
  64.     FOR p = 1 TO 6 '                                                                          6 pieces
  65.         _glLoadIdentity
  66.         _glEnable _GL_TEXTURE_2D
  67.         _glEnable _GL_DEPTH_TEST
  68.         _glBindTexture _GL_TEXTURE_2D, s2&(p)
  69.         _gluPerspective 45, 1280 / 800, 1, 50
  70.         gluLookAt 4, 5, 12, 0, 1, 0, 0, 1, 0
  71.         _glRotatef r + p * 20, x, y, z
  72.         _glTranslatef p * 2 + (p > 3) * 6 - 3, 4 + (p < 4) * 2, p / 2 '                       2 lines of 3 pieces
  73.         _glBegin _GL_QUADS
  74.         IF p = 1 THEN v 2, 0, 1, 0: v 2, .5, 1, .5: v 1, -.25, 1, -.5 '                       w
  75.         IF p = 2 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5 '                       t
  76.         IF p = 3 THEN v 3, 0, 1, 0: v 1, .5, 1, .5: v 1, -.5, 1, .5 '                         u
  77.         IF p = 4 THEN v 3, 0, 1, 0: v 1, 0, 1, .5: v 1, 0, 1, -.5 '                           x
  78.         IF p = 5 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5: v 1, .75, 1, .5 '      t+
  79.         IF p = 6 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, -.25, 1, -.5 '                      z
  80.         _glEnd
  81.     NEXT p
  83.  
  84. SUB v (xm, xo, ym, yo) '                                                                      multipliers and offsets
  85.     FOR i = 0 TO n '
  86.         _glTexCoord2f d(i, 0) * d, d(i, 1) * d '                                              from texture
  87.         _glVertex3f d(i, 2) * xm + xo, d(i, 3) * ym + yo, d(i, 4) '                           make a box or rectangle
  88.     NEXT i
  90.  
Title: Re: OpenGL rotations
Post by: bplus on July 07, 2020, 04:33:26 pm
Well I don't know dukey about GL but can you put them in separate destinations spin them in their own self centered world and project the images where you want them back on screen?
Title: Re: OpenGL rotations
Post by: Richard Frost on July 07, 2020, 04:39:15 pm
Yes, I'd thought of that, but surely there's a better (elegant) way.

I'm suprised you don't know, since you're into cool graphics.  You do your own rotations/projections/etc. without GL?
Title: Re: OpenGL rotations
Post by: bplus on July 07, 2020, 04:46:53 pm
Rotations are easy in 2D with Rotozoom.

B+ gets D- in 3D. ;(

If you thought of that and I thought of that then that's it! :)
Title: Re: OpenGL rotations
Post by: Richard Frost on July 07, 2020, 07:40:20 pm
Found it, I think - moving the gluLookat above the rotate fixes it.  Not that I understand WHY it works.





 
Title: Re: OpenGL rotations
Post by: bplus on July 07, 2020, 08:04:10 pm
Is that "gluLookat above the rotate" above each object?
Title: Re: OpenGL rotations
Post by: Richard Frost on July 07, 2020, 10:33:37 pm
Ack.  I meant to say moving the _glTranslatef.   Switching between the old and new can be see by pressing the q key here.
There is only one instance of each of the translate, lookat, and rotate commands, and they're all executed before each redraw of the objects at new angles.

My replacing the DATA statements that defined the vertexes with one long string saved a few lines.    Ashish should take note
of how I eliminated multiple lines of _glTexCoord2f & _glVertex3f to draw a box.  :)

Code: QB64: [Select]
  1. ' keys xyz to toggle rotations, arrow up/down speed
  2.  
  3. _TITLE "Bonkers"
  5.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  7. DIM SHARED glAllow AS _BYTE, glinit, s&(6), s2&(6), d(23, 4), d, n, x, y, z, r, q
  8. SCREEN _NEWIMAGE(500, 500, 32)
  9. d = 4: n = 23: sp = 60: x = 1: y = 1: z = 1
  10. FOR i = 0 TO n
  11.     FOR j = 0 TO 4
  12.         t$ = MID$("zpnppppppppzpnpzznnpzpnpnppppnpzpnnzznnnzpnpnppppnpzpppzznppzpnnnpppnnpzpnpzznnpzpnpnppnpppznnpzznnnzpppnppppppzpnpzzpnn", i * 5 + j + 1, 1)
  13.         d(i, j) = (INSTR("nzp", t$) - 2) / 4 '          n=-1,z=0,p=1
  14.     NEXT j
  16. FOR p = 1 TO 6 '                                        generate 6 textures, one for each piece
  17.     FOR i = 0 TO 250
  18.         j = 255 - i
  19.         IF p = 1 THEN c& = _RGB(i / 2, j, j) '          w
  20.         IF p = 2 THEN c& = _RGB(j / 2, j, i) '          t
  21.         IF p = 3 THEN c& = _RGB(j, i / 2, i) '          u
  22.         IF p = 4 THEN c& = _RGB(i / 4, i, j / 2) '      x
  23.         IF p = 5 THEN c& = _RGB(j / 2, i / 2, i) '      t+
  24.         IF p = 6 THEN c& = _RGB(i, j, i) '              z
  25.         LINE (i, i)-(_WIDTH - i, _HEIGHT - i), c&, B
  26.     NEXT i
  27.     s&(p) = _COPYIMAGE(0)
  29. SCREEN _NEWIMAGE(800, 800, 32)
  31. glAllow = -1
  33.     i$ = INKEY$
  34.     IF i$ = "q" THEN q = q XOR 1
  35.     IF i$ = "x" THEN x = x XOR 1 '                      x axis on/off
  36.     IF i$ = "y" THEN y = y XOR 1 '                      y
  37.     IF i$ = "z" THEN z = z XOR 1 '                      z
  38.     IF LEN(i$) = 2 THEN '                               maybe arrow key
  39.         kk = ASC(RIGHT$(i$, 1))
  40.         sp = sp + (kk = 80) * 10 - (kk = 72) * 10 '     speed
  41.         IF sp < 10 THEN sp = 10 '                       lower speed limit
  42.     END IF
  43.     r = (r + 1) MOD 360 '                               master rotation
  44.     _PRINTSTRING (0, 0), STR$(x) + STR$(y) + STR$(z) + STR$(sp) + " "
  45. LOOP UNTIL i$ = CHR$(27)
  46. SCREEN 0, 0, 0, 0
  48.  
  49. SUB _GL ()
  50.     IF NOT glAllow THEN EXIT SUB
  51.     IF NOT glinit THEN
  52.         glinit = -1
  53.         DIM m AS _MEM
  54.         FOR p = 1 TO 6
  55.             _glGenTextures 1, _OFFSET(s2&(p))
  56.             m = _MEMIMAGE(s&(p))
  57.             _glBindTexture _GL_TEXTURE_2D, s2&(p)
  58.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, 500, 500, 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  59.             _MEMFREE m
  60.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  61.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  62.             _FREEIMAGE s&(p)
  63.         NEXT p
  64.     END IF
  65.     FOR p = 1 TO 6 '                                                                          6 pieces
  66.         _glLoadIdentity
  67.         _glEnable _GL_TEXTURE_2D
  68.         _glEnable _GL_DEPTH_TEST
  69.         _glBindTexture _GL_TEXTURE_2D, s2&(p)
  70.         _gluPerspective 45, 1280 / 800, 1, 20
  71.         IF q = 0 THEN _glTranslatef p * 2 + (p > 3) * 6 - 4, 4 + (p < 4) * 2 - 2, p / 2 '                   2 lines of 3 pieces
  72.         gluLookAt 2, 5, 10, 0, 1, 0, 0, 1, 0
  73.         _glRotatef r + p * 30, x, y, z
  74.         IF q = 1 THEN _glTranslatef p * 2 + (p > 3) * 6 - 4, 4 + (p < 4) * 2 - 2, p / 2 '                   2 lines of 3 pieces
  75.         _glBegin _GL_QUADS
  76.         IF p = 1 THEN v 2, 0, 1, 0: v 2, .5, 1, .5: v 1, -.25, 1, -.5 '                       w
  77.         IF p = 2 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5 '                       t
  78.         IF p = 3 THEN v 3, 0, 1, 0: v 1, .5, 1, .5: v 1, -.5, 1, .5 '                         u
  79.         IF p = 4 THEN v 3, 0, 1, 0: v 1, 0, 1, .5: v 1, 0, 1, -.5 '                           x
  80.         IF p = 5 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5: v 1, .75, 1, .5 '      t+
  81.         IF p = 6 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, -.25, 1, -.5 '                      z
  82.         _glEnd
  83.     NEXT p
  85.  
  86. SUB v (xm, xo, ym, yo) '                                                                      multipliers and offsets
  87.     FOR i = 0 TO n '
  88.         _glTexCoord2f d(i, 0) * d, d(i, 1) * d '                                              from texture
  89.         _glVertex3f d(i, 2) * xm + xo, d(i, 3) * ym + yo, d(i, 4) '                           make a box or rectangle
  90.     NEXT i
  92.  
  93.  
Title: Re: OpenGL rotations
Post by: Ashish on July 08, 2020, 12:23:47 am
Hi @Richard Frost
You need to translate first and then do rotation in order to make object rotate on its own axis. Just like you did in your last reply.

Nice demo BTW! :D
Title: Re: OpenGL rotations
Post by: Richard Frost on July 08, 2020, 01:26:42 am
Also, why the LookAt goes before the rotate makes no sense to me, but that's the way it works.
Title: Re: OpenGL rotations
Post by: Ashish on July 08, 2020, 01:41:10 am
Hi Richard, check out this code.
Code: QB64: [Select]
  1. ' keys xyz to toggle rotations, arrow up/down speed
  2.  
  3. _TITLE "Bonkers"
  5.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  7. DIM SHARED glAllow AS _BYTE, glinit, s&(6), s2&(6), d(23, 4), d, n, x, y, z, r, q
  8. SCREEN _NEWIMAGE(500, 500, 32)
  9. d = 4: n = 23: sp = 60: x = 1: y = 1: z = 1
  10. FOR i = 0 TO n
  11.     FOR j = 0 TO 4
  12.         t$ = MID$("zpnppppppppzpnpzznnpzpnpnppppnpzpnnzznnnzpnpnppppnpzpppzznppzpnnnpppnnpzpnpzznnpzpnpnppnpppznnpzznnnzpppnppppppzpnpzzpnn", i * 5 + j + 1, 1)
  13.         d(i, j) = (INSTR("nzp", t$) - 2) / 4 '          n=-1,z=0,p=1
  14.     NEXT j
  16. FOR p = 1 TO 6 '                                        generate 6 textures, one for each piece
  17.     FOR i = 0 TO 250
  18.         j = 255 - i
  19.         IF p = 1 THEN c& = _RGB(i / 2, j, j) '          w
  20.         IF p = 2 THEN c& = _RGB(j / 2, j, i) '          t
  21.         IF p = 3 THEN c& = _RGB(j, i / 2, i) '          u
  22.         IF p = 4 THEN c& = _RGB(i / 4, i, j / 2) '      x
  23.         IF p = 5 THEN c& = _RGB(j / 2, i / 2, i) '      t+
  24.         IF p = 6 THEN c& = _RGB(i, j, i) '              z
  25.         LINE (i, i)-(_WIDTH - i, _HEIGHT - i), c&, B
  26.     NEXT i
  27.     s&(p) = _COPYIMAGE(0)
  29. SCREEN _NEWIMAGE(800, 800, 32)
  31. glAllow = -1
  33.     i$ = INKEY$
  34.     IF i$ = "q" THEN q = q XOR 1
  35.     IF i$ = "x" THEN x = x XOR 1 '                      x axis on/off
  36.     IF i$ = "y" THEN y = y XOR 1 '                      y
  37.     IF i$ = "z" THEN z = z XOR 1 '                      z
  38.     IF LEN(i$) = 2 THEN '                               maybe arrow key
  39.         kk = ASC(RIGHT$(i$, 1))
  40.         sp = sp + (kk = 80) * 10 - (kk = 72) * 10 '     speed
  41.         IF sp < 10 THEN sp = 10 '                       lower speed limit
  42.     END IF
  43.     r = (r + 1) MOD 360 '                               master rotation
  44.     _PRINTSTRING (0, 0), STR$(x) + STR$(y) + STR$(z) + STR$(sp) + " "
  45. LOOP UNTIL i$ = CHR$(27)
  46. SCREEN 0, 0, 0, 0
  48.  
  49. SUB _GL ()
  50.     IF NOT glAllow THEN EXIT SUB
  51.     IF NOT glinit THEN
  52.         glinit = -1
  53.         DIM m AS _MEM
  54.         FOR p = 1 TO 6
  55.             _glGenTextures 1, _OFFSET(s2&(p))
  56.             m = _MEMIMAGE(s&(p))
  57.             _glBindTexture _GL_TEXTURE_2D, s2&(p)
  58.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, 500, 500, 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  59.             _MEMFREE m
  60.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  61.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  62.             _FREEIMAGE s&(p)
  63.         NEXT p
  64.     END IF
  65.     _glMatrixMode _GL_PROJECTION
  66.     _gluPerspective 45, 1280 / 800, 1, 20 'needs to be called in projection matrix mode
  67.  
  68.     _glMatrixMode _GL_MODELVIEW
  70.     gluLookAt 2, 5, 10, 0, 1, 0, 0, 1, 0 'need to be only called once.
  71.  
  72.     FOR p = 1 TO 6 '                                                                          6 pieces
  73.         _glPushMatrix 'save previous state
  74.         _glEnable _GL_TEXTURE_2D
  75.         _glEnable _GL_DEPTH_TEST
  76.         _glBindTexture _GL_TEXTURE_2D, s2&(p)
  77.  
  78.         IF q = 0 THEN _glTranslatef p * 2 + (p > 3) * 6 - 4, 4 + (p < 4) * 2 - 2, p / 2 '                   2 lines of 3 pieces
  79.         _glRotatef r + p * 30, x, y, z
  80.         IF q = 1 THEN _glTranslatef p * 2 + (p > 3) * 6 - 4, 4 + (p < 4) * 2 - 2, p / 2 '                   2 lines of 3 pieces
  81.         _glBegin _GL_QUADS
  82.         IF p = 1 THEN v 2, 0, 1, 0: v 2, .5, 1, .5: v 1, -.25, 1, -.5 '                       w
  83.         IF p = 2 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5 '                       t
  84.         IF p = 3 THEN v 3, 0, 1, 0: v 1, .5, 1, .5: v 1, -.5, 1, .5 '                         u
  85.         IF p = 4 THEN v 3, 0, 1, 0: v 1, 0, 1, .5: v 1, 0, 1, -.5 '                           x
  86.         IF p = 5 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, .25, 1, -.5: v 1, .75, 1, .5 '      t+
  87.         IF p = 6 THEN v 2, 0, 1, 0: v 1, .25, 1, .5: v 1, -.25, 1, -.5 '                      z
  88.         _glEnd
  89.         _glPopMatrix 'restore previous state
  90.     NEXT p
  92.  
  93. SUB v (xm, xo, ym, yo) '                                                                      multipliers and offsets
  94.     FOR i = 0 TO n '
  95.         _glTexCoord2f d(i, 0) * d, d(i, 1) * d '                                              from texture
  96.         _glVertex3f d(i, 2) * xm + xo, d(i, 3) * ym + yo, d(i, 4) '                           make a box or rectangle
  97.     NEXT i
  99.  
  100.  
  101.  
  102.  
Title: Re: OpenGL rotations
Post by: Unseen Machine on July 08, 2020, 03:19:11 am
Hi folks,

So i figured i'd explain. It's all about pushing and poping!

If you want to perform a translation or rotation on an object and not effect the whole scene you need to make sure youre on in the right place on the stack. Once you've performed an action such as _gltranslate or _glrotatef the changes you made in position or rotation will continue, that is unless you push and pop the matrices.

As for the way you've implemented it.

gluLookAt : This is old and outdated and (in my opinion) should'nt be used. I find it best to make your own camera controls!

 _GLBEGIN : Again, this is a legacy command and really shouldnt be used either. Use the vertex and texture buffer instead.

https://nehe.gamedev.net/tutorial/lessons_01__05/22004/ (https://nehe.gamedev.net/tutorial/lessons_01__05/22004/)
It's an old reference (uses _GLBEGIN!) but still one of the best.

Just so you have an idea of how third person camera works
Code: QB64: [Select]
  1.  IF KB(0).Q THEN Cam.Rot.X = Cam.Rot.X + 1
  2.  IF Cam.Rot.X > 360 THEN Cam.Rot.X = Cam.Rot.X - 360
  3.  
  4.  IF KB(0).Z THEN Cam.Rot.X = Cam.Rot.X + 1
  5.  IF Cam.Rot.X < -360 THEN Cam.Rot.X = Cam.Rot.X + 360
  6.  
  7.  IF KB(0).W THEN
  8.   yrotrad = (Cam.Rot.Y / 180 * 3.141592654F)
  9.   xrotrad = (Cam.Rot.X / 180 * 3.141592654F)
  10.   Cam.Pos.X = Cam.Pos.X + SIN(yrotrad)
  11.   Cam.Pos.Z = Cam.Pos.Z - COS(yrotrad)
  12.   Cam.Pos.Y = Cam.Pos.Y - SIN(xrotrad)
  14.  
  15.  IF KB(0).S THEN
  16.   yrotrad = (Cam.Rot.Y / 180 * 3.141592654F)
  17.   xrotrad = (Cam.Rot.X / 180 * 3.141592654F)
  18.   Cam.Pos.X = Cam.Pos.X - SIN(yrotrad)
  19.   Cam.Pos.Z = Cam.Pos.Z + COS(yrotrad)
  20.   Cam.Pos.Y = Cam.Pos.Y + SIN(xrotrad)
  22.  
  23.  IF KB(0).D THEN
  24.   yrotrad = (Cam.Rot.Y / 180 * 3.141592654F)
  25.   Cam.Pos.X = Cam.Pos.X + COS(yrotrad) * 0.2
  26.   Cam.Pos.Z = Cam.Pos.Z + SIN(yrotrad) * 0.2
  28.  
  29.  IF KB(0).A THEN
  30.   yrotrad = (Cam.Rot.Y / 180 * 3.141592654F)
  31.   Cam.Pos.X = Cam.Pos.X - COS(yrotrad) * 0.2
  32.   Cam.Pos.Z = Cam.Pos.Z - SIN(yrotrad) * 0.2
  34.  
  35.  diffx = Mouse(0).X - Mouse(1).X '// check the difference between the current x and the last x position
  36.  diffy = Mouse(0).Y - Mouse(1).Y '// check the difference between the current y and the last y position
  37.  Cam.Rot.X = Cam.Rot.X + diffy '// set the Cam.Rot.x to Cam.Rot.x with the addition of the difference in the y position
  38.  Cam.Rot.Y = Cam.Rot.Y + diffx '// set the Cam.Rot.x to Cam.Rot.y with the addition of the difference in the x position
  39.  
  40.  
  41.  
  42.  _glTranslatef 0.0, 0.0, Radius
  43.  _glRotatef Cam.Rot.X, 1.0, 0.0, 0
  44.  '// Thinkthe thing the camera is following gets rendered here....
  45.  
  46.  _glRotatef Cam.Rot.Y, 0.0, 1.0, 0.0 '  //rotate our camera on the y-axis (up and down)
  47.  _glTranslated Cam.Pos.X, 0.0F, Cam.Pos.Z ' //translate the screen to the position of our camera

Unseen
Title: Re: OpenGL rotations
Post by: Richard Frost on July 12, 2020, 12:23:43 am
Old and outdated is ok with me, if it works.

Unseen, why is your method better?   You don't say. 
Title: Re: OpenGL rotations
Post by: Unseen Machine on July 12, 2020, 04:32:40 am
Quote
Unseen, why is your method better?   You don't say. 

Cause its faster to render this way, hell using the index buffer over the vertex buffer is even faster but that method is to complicated for my liking. Secondly, my way should run on all modern o/s's (i.e android) which doesnt support legacy GL commands such as _GLBegin/_GLEnd

Unseen
Title: Re: OpenGL rotations
Post by: Richard Frost on July 12, 2020, 07:46:32 am
Your reply refers to gluLookAt as well as Begin/End?
Title: Re: OpenGL rotations
Post by: TempodiBasic on July 12, 2020, 06:30:07 pm
Hi Richard
here you can see an example from Ashish https://www.qb64.org/forum/index.php?topic=2652.msg118685#msg118685 (https://www.qb64.org/forum/index.php?topic=2652.msg118685#msg118685) in which different objects are rotating on the own axis.
Text Only | Text with Attachments