1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Public Class Polygontess 'Classe pour la tesselation
Dim tess As Glu.GLUtesselator
Dim tessBegin As Glu.TessBeginCallback = New Glu.TessBeginCallback(AddressOf Gl.glBegin)
Dim tessvertex As Glu.TessVertexCallback = New Glu.TessVertexCallback(AddressOf Gl.glVertex3dv)
Dim tessend As Glu.TessEndCallback = New Glu.TessEndCallback(AddressOf Gl.glEnd)
Public Sub Init()
Glu.gluTessProperty(tess, Glu.GLU_TESS_WINDING_RULE, Glu.GLU_TESS_WINDING_POSITIVE)
Glu.gluTessCallback(tess, Glu.GLU_TESS_BEGIN, tessBegin)
Glu.gluTessCallback(tess, Glu.GLU_TESS_VERTEX, tessvertex)
Glu.gluTessCallback(tess, Glu.GLU_TESS_END, tessend)
End Sub
'ENsuite les fonctions de contour,..ect |
Partager