LECTEUR DE FICHIER MS3D ASCII

Commentaire de shadowmoy le 25/04/2007 13:36:45

ah ben tu vois quand tu veux :op
je regarde pour le bug et je te dit quoi ..

Commentaire de shadowmoy le 25/04/2007 15:39:07

voila :
dans ta fonction SetupBones il faut juste remplacer

D3DXMatrixRotationYawPitchRoll Ms3dFile.Structure(i).mRelative, vRot.y, vRot.x, vRot.z

par :
        D3DXMatrixRotationX Ms3dFile.Structure(i).mRelative, vRot.x
        D3DXMatrixRotationY Ms3dFile.Structure(i).mRelative, vRot.y
        D3DXMatrixRotationZ Ms3dFile.Structure(i).mRelative, vRot.z
et la c ok :op

c'etait pas compliqué hein ?
sinon bonne conversion du code cpp dans l'ensemble mais fodrai optimiser
et virer surtout virer le timer
@++

Commentaire de shadowmoy le 25/04/2007 15:55:02

bon :
Public Const Q_RAD = 57.2957795130824  '180 / Q_PI
ah oui et evite les integer pour tes def
ex:
Dim Indice As Integer, Vertex As Integer
tu fait comment si tu as plus de 32768 points dans ton model ? BOOM ca plante
utilise des longs plutot.

allé j'arrete la lol

Commentaire de cuq le 25/04/2007 17:18:28

Plutot Genial 8/10 -> les gens sont durs  et dire que l'on a des 10 avec le calcul de l'intersection de deux droites en 2D ....

Bref : Plutot Genial 8/10, Genial 9/10 et donc Carrement GENIAL 10/10, ben je vai mettre Genial car les différents types de rendu marche pas chez moi ...

Commentaire de ciberrique le 25/04/2007 18:01:30

Je viens de mettre à jour.
Ps :  CUQ, tu dis que certain note mal, mais tu enleves deux points pour deux type de rendu ^^.

En même temps je m'en fou des notes mettez 0 ou 10, cette source n'est pas la pour ca, seulement pour montrer à certain comment s'y prendre.

Commentaire de ciberrique le 25/04/2007 20:21:38

Hum je vois a peu pres ce que tu veux dire je vais voir si j'ai le temps aussi ^^.

Commentaire de shadowmoy le 26/04/2007 19:21:11

'le new module MloadMs3d.bas cc Dre@mSoft 2007 by ShadowMoy:

Option Explicit

Public Type ms3D_vertex
    Drapeau As Long
    coordonée As D3DVECTOR
    uv(1) As Single
    Index As Long
End Type

Public Type ms3d_Triangle
    Drapeau As Long
    Indices(2) As Single
    NormalIndices(2) As Single
    Index As Long
End Type

Private Type ARGBcolor
    alpha As Single
    Red As Single
    Green As Single
    Blue As Single
End Type

Public Type ms3d_material
    Nom As String
    Ambient As ARGBcolor
    diffus As ARGBcolor
    Speculaire As ARGBcolor
    Emetteur As ARGBcolor
    Brillant As Single
    Transparence As Single
    DiffuseTexture As String
    AlphaTexture As String
End Type

Public Type ms3d_framecle_rot
    Durée     As Single       'Temps en seconde
    Rotation As D3DVECTOR     'X,Y,Z de l'angle
End Type

Public Type ms3d_framecle_pos
    Durée     As Single         'Temps en seconde
    Position As D3DVECTOR       'Position locale
End Type

Public Type ms3d_Struct
    Flag As Byte   'durée    ' Sélectionné ou non,visible ou non etc ...
    Nom As String           '32
    NomParent As String
    ParentIndex As Integer
    Rotation As D3DVECTOR       'Translation
    Position As D3DVECTOR
    mRelative As D3DMATRIX
    mAbsolute As D3DMATRIX
    mRelativeFinal As D3DMATRIX
    mFinal As D3DMATRIX
    NbrFrameCléRotation As Long
    NbrFrameCléPosition As Long
    FrameCleRotation() As ms3d_framecle_rot
    FrameClePosition() As ms3d_framecle_pos
End Type
    
Public Type ms3d_group          'Mesh
    Flag As Byte     'Selectionné/caché
    Name As String   '32 max
    NbTriangle As Long
    TriangleIndices() As Long
    MaterialIndex As Byte        '-1  pas de materiel
End Type

Public Type Ms3d_Mesh
    Flag As Long
    MeshName As String  '32 max
    NbrVertices As Long
    Vertices() As ms3D_vertex
    NbrTriangles As Long
    Triangles() As ms3d_Triangle
    NbrNormal As Long
    Normal() As D3DVECTOR
    MaterialIndex As Long
End Type

Public Type MS3D
    Entete As String   ' 256 max
    NbrFrames As Long
    NbrMesh As Long
    Mesh() As Ms3d_Mesh
    NbrMateriaux As Long
    Materiaux() As ms3d_material
    NbrStructure As Long
    Structure() As ms3d_Struct
End Type

Public FPS As Single
Public FrameActuelle As Single
Public NbrFrame As Long
Public Ms3dFile As MS3D
Public f As Integer
Public Templong As Long
Public TempInteger As Integer
Public TempString As String
Public TempChar As String
Public TempByte As Byte

Public Sub ReadMs3d()
On Error GoTo fin

    Dim I As Long, j As Long
    Dim a As String
    Dim tp
    f = FreeFile

        Open (Form1.CommonDialog1.FileName) For Input As f
                ' Ouvre le fichier et le charge dans une variable tampon de type texte
                  a = Input$(LOF(f), f)
        Close #f

               'on recupere le nombre de clés d'animations
               Ms3dFile.NbrFrames = SubString(a, "Frames: ", vbCrLf)
               NbrFrame = Ms3dFile.NbrFrames
               CurrFrame = 1
               'on recupere le nombre de groupes (sous objects) du model
               Ms3dFile.NbrMesh = SubString(a, "Meshes: ", vbCrLf)
              
               'on redimensionne le tableau de groupes
               ReDim Ms3dFile.Mesh(Ms3dFile.NbrMesh - 1)
              
               'on recupere le nombre de materiaux du model
               Ms3dFile.NbrMateriaux = SubString(a, "Materials: ", vbCrLf)
              
              
               'on recupere le nombre de Bones (os du squelette) du model
               Ms3dFile.NbrStructure = SubString(a, "Bones: ", vbCrLf)

Open (Form1.CommonDialog1.FileName) For Binary As f

       Input #f, Ms3dFile.Entete
        If Mid(Ms3dFile.Entete, 1, 2) <> "//" Then
            MsgBox ("Ce fichier n'est pas n'est pas à la norme ms3d version Ascii")
            GoTo fin
        End If


    For I = 0 To 4 'skip the 5 first lines
        Line Input #f, TempString
    Next

'###########################################
'## on commence par recuperer les groupes ##
'###########################################

    For I = 0 To Ms3dFile.NbrMesh - 1
             'recuperer le nom,le flag et le matindex
             Input #f, Ms3dFile.Mesh(I).MeshName, Ms3dFile.Mesh(I).Flag, Ms3dFile.Mesh(I).MaterialIndex
          

             '******************************************************************************************
             '************************* recuperation les vertex (points 3D) ****************************
             '******************************************************************************************
             'on recupere le nombre de points
             Input #f, Ms3dFile.Mesh(I).NbrVertices
            
            
             'on redimensionne le tableau de vertex
             ReDim Ms3dFile.Mesh(I).Vertices(Ms3dFile.Mesh(I).NbrVertices - 1)

             'recuperer les vertices
             For j = 0 To Ms3dFile.Mesh(I).NbrVertices - 1
                Input #f, Ms3dFile.Mesh(I).Vertices(j).Drapeau, Ms3dFile.Mesh(I).Vertices(j).coordonée.x, Ms3dFile.Mesh(I).Vertices(j).coordonée.y, Ms3dFile.Mesh(I).Vertices(j).coordonée.z, Ms3dFile.Mesh(I).Vertices(j).uv(0), Ms3dFile.Mesh(I).Vertices(j).uv(1), Ms3dFile.Mesh(I).Vertices(j).Index
            
            Next j
              
             '******************************************************************************************
             '************************* recuperation des normales **************************************
             '******************************************************************************************
            
            'on recupere le nombre de normales
            Input #f, Ms3dFile.Mesh(I).NbrNormal
            

            'on redimensionne le tableau de normales
            ReDim Ms3dFile.Mesh(I).Normal(Ms3dFile.Mesh(I).NbrNormal - 1)
            
            'recuperation des normales
            For j = 0 To Ms3dFile.Mesh(I).NbrNormal - 1
                Input #f, Ms3dFile.Mesh(I).Normal(j).x, Ms3dFile.Mesh(I).Normal(j).y, Ms3dFile.Mesh(I).Normal(j).z
            Next j

            '******************************************************************************************
            '************************* recuperation des triangles *************************************
            '******************************************************************************************
            
            'on recupere le nombre de triangles
            Input #f, Ms3dFile.Mesh(I).NbrTriangles
            
            'redimensionner le tableau de triangles
            ReDim Ms3dFile.Mesh(I).Triangles(Ms3dFile.Mesh(I).NbrTriangles - 1)
            
            'recuperation des triangles
            For j = 0 To Ms3dFile.Mesh(I).NbrTriangles - 1
                Input #f, Ms3dFile.Mesh(I).Triangles(j).Drapeau, Ms3dFile.Mesh(I).Triangles(j).Indices(0), Ms3dFile.Mesh(I).Triangles(j).Indices(1), Ms3dFile.Mesh(I).Triangles(j).Indices(2), Ms3dFile.Mesh(I).Triangles(j).NormalIndices(0), Ms3dFile.Mesh(I).Triangles(j).NormalIndices(1), Ms3dFile.Mesh(I).Triangles(j).NormalIndices(2), Ms3dFile.Mesh(I).Triangles(j).Index
            Next j
    Next I

'on recup la ligne vide pour positionner le pointeur sur la ligne vide
Input #f, TempString

'###########################################
'## on recupere ensuite les materiaux     ##
'###########################################
Input #f, TempString
            
    If Ms3dFile.NbrMateriaux > 0 Then
        
        ReDim Ms3dFile.Materiaux(Ms3dFile.NbrMateriaux - 1)

        For I = 0 To Ms3dFile.NbrMateriaux - 1
        
            'nom
            Input #f, Ms3dFile.Materiaux(I).Nom
          
            'Ambient
            Input #f, Ms3dFile.Materiaux(I).Ambient.alpha, Ms3dFile.Materiaux(I).Ambient.Red, Ms3dFile.Materiaux(I).Ambient.Green, Ms3dFile.Materiaux(I).Ambient.Blue
    
            'Diffus
            Input #f, Ms3dFile.Materiaux(I).diffus.alpha, Ms3dFile.Materiaux(I).diffus.Red, Ms3dFile.Materiaux(I).diffus.Green, Ms3dFile.Materiaux(I).diffus.Blue

            'Speculaire
            Input #f, Ms3dFile.Materiaux(I).Speculaire.alpha, Ms3dFile.Materiaux(I).Speculaire.Red, Ms3dFile.Materiaux(I).Speculaire.Green, Ms3dFile.Materiaux(I).Speculaire.Blue
            
            'Emetteur
            Input #f, Ms3dFile.Materiaux(I).Emetteur.alpha, Ms3dFile.Materiaux(I).Emetteur.Red, Ms3dFile.Materiaux(I).Emetteur.Green, Ms3dFile.Materiaux(I).Emetteur.Blue

            'Brillance
            Input #f, Ms3dFile.Materiaux(I).Brillant

            'Transparence
            Input #f, Ms3dFile.Materiaux(I).Transparence
            
            'Texture Diffuse
            Input #f, Ms3dFile.Materiaux(I).DiffuseTexture
            
            'Texture Alpha
            Input #f, Ms3dFile.Materiaux(I).AlphaTexture
            
        Next I
    End If

Input #f, TempString 'ligne vide
Input #f, TempString ' "Bones : xx
        
If Ms3dFile.NbrStructure > 0 Then
        ReDim Ms3dFile.Structure(Ms3dFile.NbrStructure - 1)
    
        For I = 0 To Ms3dFile.NbrStructure - 1
            
            'Nom
            Input #f, Ms3dFile.Structure(I).Nom
            
            'Nom de la structure mère
            Input #f, Ms3dFile.Structure(I).NomParent
            
            'time zero, Position, Rotation
            Input #f, Ms3dFile.Structure(I).Flag, Ms3dFile.Structure(I).Position.x, Ms3dFile.Structure(I).Position.y, Ms3dFile.Structure(I).Position.z, Ms3dFile.Structure(I).Rotation.x, Ms3dFile.Structure(I).Rotation.y, Ms3dFile.Structure(I).Rotation.z
          
            'Nbr de cle de position (=nombre de frames - time zero)
            Input #f, Ms3dFile.Structure(I).NbrFrameCléPosition
              
            If Ms3dFile.Structure(I).NbrFrameCléPosition >= 1 Then
                ReDim Ms3dFile.Structure(I).FrameClePosition(Ms3dFile.Structure(I).NbrFrameCléPosition - 1)
                
                'cle de position
                For j = 0 To Ms3dFile.Structure(I).NbrFrameCléPosition - 1
                   Input #f, Ms3dFile.Structure(I).FrameClePosition(j).Durée, Ms3dFile.Structure(I).FrameClePosition(j).Position.x, Ms3dFile.Structure(I).FrameClePosition(j).Position.y, Ms3dFile.Structure(I).FrameClePosition(j).Position.z
                Next j
                
            End If
            
            'Nbr de cle de rotation
            Input #f, Ms3dFile.Structure(I).NbrFrameCléRotation

            If Ms3dFile.Structure(I).NbrFrameCléRotation >= 1 Then
                ReDim Ms3dFile.Structure(I).FrameCleRotation(Ms3dFile.Structure(I).NbrFrameCléRotation - 1)
                
                ' cle de rotation
                For j = 0 To Ms3dFile.Structure(I).NbrFrameCléRotation - 1
                    Input #f, Ms3dFile.Structure(I).FrameCleRotation(j).Durée, Ms3dFile.Structure(I).FrameCleRotation(j).Rotation.x, Ms3dFile.Structure(I).FrameCleRotation(j).Rotation.y, Ms3dFile.Structure(I).FrameCleRotation(j).Rotation.z
                Next j
            End If
        Next I
        
        MakeParentDefBone
        FindTotalFrame
        
    End If
    Frame = 0
    
    Call SetupBones

fin:
Close #f
      
End Sub

Public Function MakeParentDefBone()
    Dim I As Long, j As Long
    
    For I = 0 To Ms3dFile.NbrStructure - 1
        For j = 0 To Ms3dFile.NbrStructure - 1
            If Ms3dFile.Structure(I).NomParent = Ms3dFile.Structure(j).Nom Then
                Ms3dFile.Structure(I).ParentIndex = j
                Exit For
            Else
                Ms3dFile.Structure(I).ParentIndex = -1
            End If
            
        Next j
                
    Next I
    
End Function

Public Function FindTotalFrame()
    Dim I  As Long
    
    For I = 0 To Ms3dFile.NbrStructure - 1
        If NbrFrame < Ms3dFile.Structure(I).NbrFrameCléPosition - 1 Then
            NbrFrame = Ms3dFile.Structure(I).NbrFrameCléPosition - 1
        End If
        If Ms3dFile.Structure(I).NbrFrameCléRotation - 1 > NbrFrame Then NbrFrame = Ms3dFile.Structure(I).NbrFrameCléRotation - 1
    Next I
    
    Form1.ProgressBar.Max = NbrFrame
End Function

Commentaire de shadowmoy le 27/04/2007 13:44:57

Public Function SubString$(Value$, a$, b$)
Dim istart As Long, istop As Long

istart = InStr(UCase$(Value$), UCase$(a$)) + Len(a$)
istop = InStr(istart, UCase$(Value$), UCase$(b$))
If istop > istart Then
  SubString$ = Mid$(Value$, istart, istop - istart)
Else
  SubString$ = ""
End If
End Function

Commentaire de shadowmoy le 27/04/2007 19:33:28

nan ton loader etait bon mais trop long :op
ma methode est plus "normale" et evite de creer des chaines,des tableaux , des replaces etc ...

bon g recoder pas mal de truc et les anims fonctionnents nickel

mais y a deux bugs encore :
- effet miroir de la scene sur l'axe x (en gros le perso est inversé sur x ainsi que l'anim)
- des triangles sont manquants lors du rendu 3d donc ca fait pas bo :op

je les corriges ou pas ?? :o)

Commentaire de shadowmoy le 27/04/2007 20:07:10

ben l'interet de pouvoir charger des ms3d animés c'est qu'on peut creer un format3d perso qui supporte soit les frames soit les bones (donc faire de l'import ou de l'export de mesh vers d'autres formats)
donc si tu utilise un moteur basé sur les keyframes comme quake 2 tu peut alors le modeler et l'animer  sous ms3d, puis l'exporter vers ton format 3d perso pour un jeu ou autre...
ou alors faire un editeur d'animations plus sympas que celui de ms3d comme copier/coller des keyframes pour organiser les animations ou encore avoir les animations dans des fichiers externes au model etc ...

donc oui je pense que je vais la modifier (si j'ai le temps lol)
  

Commentaire de ciberrique le 27/04/2007 20:15:07

Les animations en binaire c'est le même principe, je me rapelle avoir eu un resultat similaire à celui de cette source (avant tes apports), mais j'ai bugger le code :s

Amuse toi bien.