TEST 3D AVEC MATRICE ET API POLYGON

Commentaire de yoman64 le 21/02/2006 18:16:54

Waaaa drolement cool

Commentaire de Neo.balastik le 21/02/2006 18:42:39

Pareille réaction qu'Alain Proviste.  Beau travail !
Ce qui serait sympa, c'est d'avoir un disque en 3D.

Commentaire de VBSorcier le 27/02/2006 20:10:29

Superbe !!!

(je trouve pas particulièrement que c'est lent)

ca fait 5 jours que je cherche se genre de code, helas sur VBFrance
j'ai pas trouvé mon bonheur (ni ailleur d'ailleur), j'ai tenter directX et OpenGL mais aucune source ne m'a satisfait, en plus c'était pour une appli toute bete, donc pourquoi s'embetter avec DX et OGL alors que sans on fait mieu :p désolé les DirectXiens et les OpenGLiens

j'ai modifier un peu ton code pour lorsque l'on click sur "PIC" et que l'on bouge la souris cela 'rotatione' l'objet 3D selon X et Y




Dim XStart,YStart ' à declarer tout en haut

Private Sub PIC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        CrX.Value = 1
        CrY.Value = 1
        XStart = X
        YStart = Y
    End If
End Sub

Private Sub PIC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim m(16) As Double
Dim a As Double
        a = PI / VIT.Value

    If Button = 1 Then
        For P = 1 To OBj.NbPoint
            If CrX = 1 Then
                CreerMatriceRotationY CDbl((X - XStart)/ 100), m
                OBj.Point(P) = TransformePoint3D(OBj.Point(P), m)
            End If
            If CrY = 1 Then
                CreerMatriceRotationX CDbl(((Y - YStart)/  100), m
                OBj.Point(P) = TransformePoint3D(OBj.Point(P), m)
            End If
        Next P
    End If

    Afficher
    COORD = "X:" & Round(Cam.Position.X, 2) & " Y:" & Round(Cam.Position.Y, 2) & " Z:" & Round(Cam.Position.Z, 2)

    XStart = X
    YStart = Y
End Sub

Private Sub PIC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then CrX.Value = 0
    If Button = 2 Then CrY.Value = 0
End Sub

'pour la rotation de l'objet ***************************************************

Private Sub Calcul()
Dim m(16) As Double
Dim a As Double
        a = PI / VIT.Value
    
    For P = 1 To OBj.NbPoint
'        If CrX = 1 Then
'            CreerMatriceRotationX a, m
'            OBj.Point(P) = TransformePoint3D(OBj.Point(P), m)
'        End If
'        If CrY = 1 Then
'            CreerMatriceRotationY a, m
'            OBj.Point(P) = TransformePoint3D(OBj.Point(P), m)
'        End If
        If CrZ = 1 Then
            CreerMatriceRotationZ a, m
            OBj.Point(P) = TransformePoint3D(OBj.Point(P), m)
        End If
    Next P
End Sub


j'ai bidouillé ca vite fait et je me suis servi de tes checkbox comme variable intermedaire lorsque l'on click, et desactivé dans la partie calcul le X et Y

sinon le faite que dans PIC_MouseMove, j'ai mis "CreerMatriceRotationY" pour X et "CreerMatriceRotationX" pour Y c'est normal, je trouve que c'est plus logique lorsque l'on bouge la souris

le mieu c'est de tester

re-bravo, aller 9/10, car peut pas mettre 9.5 et que le 10 n'est pas justifier
nan je plaisante, je met 10 car j'en avais besoin, sinon c'etait 9 :p


bonne continuation
a+
VBSorcier

Commentaire de Gally le 01/03/2006 16:08:11

Bonjour,

Pour ma part avec mes source sur la 3d je voudrais faire un viewer d'objet et un petit modeleur. Un peu comme ce ke tu veux faire pourquoi ne pas mettre sa en comment?

A++
[Gally Home Corp]

Commentaire de nihaoma le 28/03/2006 16:07:27

c'est vraiment un très bon code !
a vrai dire j'avais déja essayer de faire ce genre de chose, mais je ne suis jamais parvenu à obtenir un résultat aussi beau.
le code est simple (a quelques notions mathématiques pres), commenté et bon....
c'est une très bonne source, rien à dire...

Commentaire de VBGenesis le 02/07/2006 11:42:39

Superbe! Bravo pour ce travail c'est exactement ce que je cherchait (3D sans DirectX ou autre). Si tu arrive à mettre de la lumiere et des ombres surtout met à jour ce serait vraiment interressant!
Bonne prog à tous