Un début a perfectionner. Aucun commentaire dans le code. Pas de fichier Iso Exemple

Intéressant ... mais le fichier ZIP semble vérolé . Pas possible de tester

Très bon code ... Une petite question cependant comment lire les données retournées par le programme dos. Je n'ai le retour des données qu'une fois le programme terminé si le programme attend des entrées . N'y a t'il pas une solution via une notion de synchrone asynchrone ?

Terrible. dommage que ce soit pas portable sous IE

pour la note

Vraiment bien, plein de chose à voir et découvrir dans le code..
un petit lien sur le WMI pour enrichir le post :
http://monge.univ-mlv.fr/~dr/XPOSE2006/duarte/index.html

ca marche ... on en demande pas plus

Je cherchais un truc comme ca , c'est peut être pas le mieux mais ca marche et la partie traitement récursif est bien commentée
donc merci

Re ...

Décidément vous allez dire celui là il commence à nous les ...

Bon je m'aperçoit que j'avais écrit une connerie la limite pour un fichier 3DS est de 64000 face . Il était donc normal d'avoir plus de 32000 faces donc le code était mauvais dès le départ et ma modif devrait être bonne pour tous les fichiers 3DS !

Bonne continuation

Putain .... Je suis trop fort

Bon finalement j'ai trouvé c'était tout con .. alors c'est pas dit que ca marche avec des fichiers 3DS ayant encore plus de triangles mais dans mon cas ca marche.

Remplacer le code qui merde par :

    'index des points des triangles + maillage du triangle AB,BC,AC   'Face de l'objet 3d.
    Case TRI_FACEL1 '&H4120
      ' Get #NumeroFichier, , TempInteger  'cube= 12 : 6 faces * 2 = 12 triangles
        Get #NumeroFichier, , TempByte
        TempLong = TempByte
        Get #NumeroFichier, , TempByte
        TempLong = TempLong + CLng(TempByte) * 256

            nbrVertex = TempLong * 3 'nombre de triangles * 3 = nombre de points
            ObjetVertex(nbrSolide).nbmappingpoint = nbpoint
            ObjetVertex(nbrSolide).nbrVertex = nbrVertex
            
            Info "         |---> Nombre de points trouvé : " & nbrVertex
            ObjetVertex(nbrSolide).nbrFace = TempLong ' nombre de faces
            Info "         |---> Nombre de triangles trouvé : " & TempLong
            nbfaces = nbfaces + TempLong
    '        ReDim ObjetVertex(nbrSolide).VertexFace(0)
            ReDim ObjetVertex(nbrSolide).VertexFaceMaterialindex(TempLong - 1) 'face material index for texturing aka texture(i)
            ReDim Preserve ObjetVertex(nbrSolide).VertexFace(TempLong - 1)
            
            Get #NumeroFichier, , ObjetVertex(nbrSolide).VertexFace
            
            If TempLong < 32767 Then
                TempLong = fpos + 8 + 8 * TempLong
            Else
                TempLong = fpos + 8 + 9 * TempLong
            End If
            
            
            While TempLong <> (fpos + tBloc.Longeur)
                LireBloc TempLong
            Wend