Visualizza wikitesto di Ruotare una piramide sul suo asse Y usando OpenGL

Mostreremo un possibile codice, usando OpenGL, con il quale verrà disegnata una piramide con tre facce che ruota in 3D attorno al suo asse verticale centrale (asse Y).

E' necessario attivare una ''GLArea'', un ''Timer'', il Componente grafico per la compatibilità con OpenGL (ad esempio: ''gb.gui.qt.opengl''), nonché i Componenti:
* gb.opengl
* gb.opengl.glu
 Private angle As Float   <FONT Color=gray>' ''Angolo di rotazione della piramide''</font>
 
 
 Public Sub Form_Open()
 
  With Me
    .Title = "Piramide a 3 Facce - Rotazione Asse Y"
    .Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
    .Arrangement = Arrange.Fill
  End With
 
  Timer1.Delay = 16   <FONT Color=gray>' ''~60 FPS''</font>
  Timer1.Start()
 
 End
 
 
 Public Sub GLArea1_Draw()
 
 <FONT Color=gray>' ''Pulisce il buffer del colore e della profondità (Z-buffer):''</font>
  GL.Clear(GL.COLOR_BUFFER_BIT Or GL.DEPTH_BUFFER_BIT)
 <FONT Color=gray>' ''Abilita il test di profondità (necessario per disegnare correttamente gli oggetti 3D sovrapposti):''</font>
  GL.Enable(GL.DEPTH_TEST)
 
 <FONT Color=gray>' ''Imposta la proiezione prospettica:''</font>
  GL.MatrixMode(GL.PROJECTION)
  GL.LoadIdentity()
 <FONT Color=gray>' ''FOV 45°, rapporto larghezza/altezza, clip-near = 0.1, clip-far = 100:''</font>
  Glu.Perspective(45.0, GLArea1.Width / GLArea1.Height, 0.1, 100.0)
 
 <FONT Color=gray>' ''Passa alla modalità MODELVIEW per trasformazioni e disegno: modellazione:''</font>
  GL.MatrixMode(GL.MODELVIEW)
  GL.LoadIdentity()
 <FONT Color=gray>' ''Allontana la "telecamera" (ossia l'osservatore) per vedere la scena:''</font>
  GL.Translatef(0.0, 0.0, -6.0)
 <FONT Color=gray>' ''Ruota la piramide intorno all'asse Y (in senso orario):''</font>
  GL.Rotatef(-angle, 0.0, 1.0, 0.0)
 
 <FONT Color=gray>' ''Inizio disegno triangoli, ossia le facce della piramide):''</font>
  GL.Begin(GL.TRIANGLES)
 
 <FONT Color=gray>' ''Coordinata del vertice superiore della piramide:''</font>
  Dim topX As Float = 0.0
  Dim topY As Float = 1.0
  Dim topZ As Float = 0.0
 <FONT Color=gray>' ''Raggio del cerchio base (piano XZ):''</font>
  Dim r As Float = 1.0
  Dim i As Integer
 
 <FONT Color=gray>' ''Ciclo per disegnare 3 facce triangolari:''</font>
  For i = 0 To 2
 <FONT Color=gray>' ''Angoli per due vertici consecutivi sulla base circolare:''</font>
    Dim angle1 As Float = (i * 2 * Pi) / 3
    Dim angle2 As Float = ((i + 1) * 2 * Pi) / 3
 
 <FONT Color=gray>' ''Coordinate dei vertici della base:''</font>
    Dim x1 As Float = r * Cos(angle1)
    Dim z1 As Float = r * Sin(angle1)
    Dim x2 As Float = r * Cos(angle2)
    Dim z2 As Float = r * Sin(angle2)
 
 <FONT Color=gray>' ''Imposta un colore diverso per ogni faccia triangolare:''</font>
    Select Case i
      Case 0
        GL.Color3f(1.0, 0.0, 0.0) ' Rosso
      Case 1
        GL.Color3f(0.0, 1.0, 0.0) ' Verde
      Case 2
        GL.Color3f(0.0, 0.0, 1.0) ' Blu
    End Select
 
 <FONT Color=gray>' ''Disegna il triangolo (faccia della piramide):''</font>
    GL.Vertex3f(topX, topY, topZ)
    GL.Vertex3f(x1, -1.0, z1)
    GL.Vertex3f(x2, -1.0, z2)
  Next
 
 <FONT Color=gray>' ''Fine disegno triangoli:''</font>
  GL.End()
 <FONT Color=gray>' ''Forza l'esecuzione immediata dei comandi OpenGL:''</font>
  GL.Flush()
 
 End
 
 
 Public Sub Timer1_Timer()
 
 <FONT Color=gray>' ''Incrementa l'angolo di rotazione:''</font>
  angle += 1.0
  If angle >= 360.0 Then angle = 0
 <FONT Color=gray>' ''Richiede il ridisegno della scena:''</font>
  GLArea1.Refresh()
 
 End