3DS FILE VIEWER 1.4.1 PRE- FINAL
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
-
7 févr. 2005 à 23:58
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007 - 3 janv. 2008 à 13:30
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007 - 3 janv. 2008 à 13:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29361-3ds-file-viewer-1-4-1-pre-final
https://codes-sources.commentcamarche.net/source/29361-3ds-file-viewer-1-4-1-pre-final
3 janv. 2008 à 13:30
sinon la limite du nombre de triangles (faces) n'est pas comme tu le dit de 64000 triangles mais de 65535 (limite d'un integer en c) sachant qu'un integer vb a une valeur comprise entre -32767 et 32767 donc oui tu dis encore une connerie :p
sinon content que ce prog t'interesse
sinon voila la solution que tu cherche tant :
'Sous bloc d'EDIT_OBJET doit etre lu par l'edit_objet coordonnées xyz de chaque point
Case TRI_VERTEXL
Get #NumeroFichier, , TempInteger
nbrSolide = nbrSolide + 1
ReDim Preserve ObjetVertex(nbrSolide)
ObjetVertex(nbrSolide).name = tpn
If TempInteger > 0 Then
np = np + (TempInteger)
ObjetVertex(nbrSolide).nbrVertex = TempInteger
ReDim ObjetVertex(nbrSolide).tVertex(TempInteger - 1)
Get #NumeroFichier, , ObjetVertex(nbrSolide).tVertex
ObjetVertex(nbrSolide).Visible = True
Else
reste = 32768 + TempInteger
restel = 32768 + reste
np = np + (restel)
ObjetVertex(nbrSolide).nbrVertex = restel
ReDim ObjetVertex(nbrSolide).tVertex(restel - 1)
Get #NumeroFichier, , ObjetVertex(nbrSolide).tVertex
ObjetVertex(nbrSolide).Visible = True
End If
'***********************************************************************************************
Case TRI_FACEL1 '&H4120
'index des points des triangles + maillage du triangle AB,BC,AC 'Face de l'objet 3d.
Get #NumeroFichier, , TempInteger 'cube12 : 6 faces * 2 12 triangles
'bug here
If TempInteger > 0 Then
nbrVertex CLng(TempInteger) * 3 'nombre de triangles * 3 nombre de points
'' ObjetVertex(nbrSolide).nbmappingpoint = nbpoint
' ObjetVertex(nbrSolide).nbrVertex = nbrVertex
ObjetVertex(nbrSolide).nbrFace = TempInteger ' nombre de faces
nbfaces = nbfaces + TempInteger
ReDim ObjetVertex(nbrSolide).VertexFaceMaterialindex(CLng(TempInteger) - 1) 'face material index for texturing aka texture(i)
ReDim Preserve ObjetVertex(nbrSolide).VertexFace(CLng(TempInteger) - 1)
Get #NumeroFichier, , ObjetVertex(nbrSolide).VertexFace
Templong = fpos + 8 + 8 * CLng(TempInteger)
While Templong <> (fpos + tBloc.Longeur)
LireBloc Templong
Wend
Else
reste = 32768 + TempInteger
restel = 32768 + reste
nbrVertex CLng(restel) * 3 'nombre de triangles * 3 nombre de points
ObjetVertex(nbrSolide).nbrFace = restel ' nombre de faces
nbfaces = nbfaces + restel
ReDim ObjetVertex(nbrSolide).VertexFaceMaterialindex(restel - 1) 'face material index for texturing aka texture(i)
ReDim Preserve ObjetVertex(nbrSolide).VertexFace(restel - 1)
Get #NumeroFichier, , ObjetVertex(nbrSolide).VertexFace
Templong = fpos + 8 + 8 * restel
While Templong <> (fpos + tBloc.Longeur)
LireBloc Templong
Wend
End If
1 oct. 2007 à 16:12
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
1 oct. 2007 à 13:57
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 'cube12 : 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
1 oct. 2007 à 13:50
Petite précision :
Case TRI_FACEL1 '&H4120
Get #NumeroFichier, , TempByte
TempLong = TempByte
Get #NumeroFichier, , TempByte
TempLong = TempLong + CLng(TempByte) * 256
Bon ca marche .. j'ai bien le bon nombre de triangles mais la suite merde ...
Je pense que c'est au niveau ensuite de fpos :
TempLong = fpos + 8 + 8 * TempLong
Qui dans ce cas devrait être initialisé différement ? pas 8+8 mais 8+???
1 oct. 2007 à 13:31
J'ai un problème avec la lecture des fichiers 3DS. Et par conséquent aussi un bug à signaler dans ce programme.
Normalement pour un fichier 3DS on a pas plus de 32767 ( Integer ) triangles par objet. 5 c'est pas moi qui le dit le l'ai lu sur le net)
Hors J'ai pas mal de fichier 3DS qui ne respecte pas cette limite . je me retrouve donc avec plus de 32000 facettes.
Dans ce programme et dans tous les autres présent sur le site ( vu qu'il découle un peu tous de la même source on retrouve le problème).
Dans notre cas si l'on prend dans le module de classe CLSOBJ3DS la fonction LireBloc.
Au moment de récupérer le nombre de facettes Le code suivant :
Case TRI_FACEL1 '&H4120 Get #NumeroFichier, , TempInteger 'cube12 : 6 faces * 2 12 triangles
'bug here
If TempInteger > 0 Then
Le "Bug indique" déjà que ce problème avit été détecté mais pas résolu.
Donc bref le problème est le suivant : Get #NumeroFichier, , TempInteger retroune un integer sauf que dans certains cas on est au dessus de 32767.
J'ai essayé plusieurs solutions sans succès ...
Par exemple si TempInteger < 0 exemple dans mon cas TempInteger =-23446 alors je fais
TempLong = 65536 + TempInteger ce qui me donne bien les 42090 triangles que je dois relire ...
Si le valeur dans ce cas est juste par contre la relecture ensuite n'est pas bonne : mauvaise position de lecture après Get #NumeroFichier, , TempInteger ?
J'ai essayé aussi de faire un truc du genre :
Get #NumeroFichier, , TempByte
TempLong = TempByte
Get #NumeroFichier, , TempByte
TempLong = TempLong + TempByte * 256
si on est inférieur à 32767 ca marche sinon ca plante ?
Voilà j'espère avoir été clair ...
Merci pour votre aide .
21 sept. 2006 à 10:36
21 sept. 2006 à 02:30
En passant si on modifie l'exemple avec le code suivant on peut ouvrir n'importe quel fichier :
Public Function GetObjectVisibility(objectindex As Integer) As Boolean
On Error GoTo handler:
GetObjectVisibility = ObjetVertex(objectindex).Visible
handler:
End Function
Public Function GetObjectName(objectindex As Integer) As String
On Error GoTo handler:
GetObjectName = ObjetVertex(objectindex).Name
handler:
End Function
20 sept. 2006 à 21:46
http://forum.games-creators.org/showthread.php?p=31530
20 sept. 2006 à 03:15
Il a de la difficulté à lire les gros fichier mais pour les petits ca va...
Maintenant, saurais-tu comment afficher une animation de 3ds en VB?
10 nov. 2005 à 14:17
Erreur d'automation
(bécane sous w98)
Why ?
Merci
26 août 2005 à 02:18
ancienframerate * 2 = newframerate en gros ca double les perf de rendu !!
la solution : tout simple c comme un vertexbuffer en gros je ne calcule les objets qu'une seule fois plutot qu'a chaque frame a afficher voila
la new version arriveras bientot ...
21 août 2005 à 15:04
21 août 2005 à 14:30
19 août 2005 à 16:54
Ah... comme disait le Joker dans Batman : "Tant de choses à faire et si peu de temps..."
Profonde n'est-elle point !?
19 août 2005 à 09:23
pour la carte 3d je pense que c'est bien le cas mais g pas testé...
sinon je travaille sur une new version pour les 3ds (qq fix et une interface plus sympas)
et si g le temps j'implanterai l'edition du mapping de textures et la sauvegarde (en fait g plein de projet mais pas assez de temps grrr)
28 juin 2005 à 18:24
En tout cas bravo
28 juin 2005 à 17:52
Que du bon, beau boulot shadowmoy, rien trouvé d'aussi pratique depuis longtemps..
merci et encore felicitations...
1 juin 2005 à 15:10
1 juin 2005 à 10:50
mais perso j'aime pas le format .x
23 avril 2005 à 18:43
BILALoch
23 avril 2005 à 17:10
20 avril 2005 à 15:24
BILALoch
17 avril 2005 à 17:44
3ds, ms3d,OBJ et Asc
en fait mon but est de pouvoir fournir une interface plugins pour permettre d'ajouter des formats via du ...
vbscript :op
en gros si je parvient au resultat attendu on auras des formats de base et on pourras coder des loader pour d'autres formats en vbscript (en code non compilé !!!
bien sur ici la vitesse n'a que peut d'importance car il s'agit d'un prog pour visualiser les objets 3D texturés et voir meme animés)
des que j'aurais le temps j'implanterais ca et si c vraiment trop lent j'opterai pour des plugins sous forme de dll activex enfin on verras.
sionon pour le mapping temps réél ca va venir donc fo etre patient car g un taf et c sur mon temps libre :op ...
8 avril 2005 à 19:00
J'attends ça avec une immense impatience !!!
Franchement, si tu y arrive, ce serait vraiment tip-top !
8 avril 2005 à 09:49
en fait une texture n'est rien d'autre qu'un plan sur lequel tu superpose tes triangles pour avoir un rendu 3d texturé.
donc le truc c'est de prendre le rendu filliaire de ta texture et de dessiner ta texture dessus puis dans l'editeur de material il te suffit de la selectionner et tu vois ce que ca donne en 3d , rien ne t'empeche de prendre apres un logiciel comme paint shop pro et de creer ta texture via des filtres.
5 avril 2005 à 19:36
Mais tu parts de quoi ? Du bitmap livré dans ton soft ???
Si c'est le cas, je comprends pas vraiment comment tu arrives à distingué les faces et encore moin à obtenir une texture digne de ce nom !!! Là, faut nous donner le secret...
5 avril 2005 à 17:24
5 avril 2005 à 17:21
27 mars 2005 à 23:10
Et dit moi encore, avec quel soft tu la texture ???
15 mars 2005 à 14:11
15 mars 2005 à 11:06
J'ai droit à un "Erreur Automation" ...
Quelqu'un pourrait m aider s il vous plait ?
D'après VB c'est la ligne
Set PDevice = PDirect3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Form1.Picture1.hwnd, CheckHardwareTL(), PStructParameter)
du module direct 3d (dans les déclarations) qui foire ...
++
11 mars 2005 à 13:55
7 mars 2005 à 19:05
BILALoch
6 mars 2005 à 13:58
donc si tu selectionne Face(10)
tu recuperes :
Face(10).point1.x
Face(10).point1.y
Face(10).point1.z
Face(10).point2.x
Face(10).point2.y
Face(10).point2.z
Face(10).point3.x
Face(10).point3.y
Face(10).point3.z
ensuite il te suffit de creer une face temporaire
dont les points auronts ces coordonnées et tu auras une selection dans la partie 3d
par contre pour pouvoir selectionner une face en cliquant directement sur l'objet dans la fenetre de rendu je sais pas encore fo que j'y reflechisse...
ScSami> essaye la new version et dit moi si le bug de virgule est toujours present..
6 mars 2005 à 08:50
6 mars 2005 à 02:25
Note, faudrait redim automatiquement la fenetre à l'ouverture dans le form_load...
5 mars 2005 à 18:38
2 mars 2005 à 10:27
mais ca vas me prendre un peut de temps..
en fait je pense a des fichiers *.uv un peut comme mes fichiers *.mat qui seront externes et se charge a l'ouverture.
ensuite des que seras ok j'ajouterais certainement une interface plugins pour pouvoir exporter et pourquoi pas importer des modeles sous d'autres formats simples comme les fichiers *.obj, *.ase , et pourquoi pas *.x
:op
ca seras pas tres difficile ca ;op une fois bien sur que le module 3ds seras transformé en classe héhé
2 mars 2005 à 09:32
Merci d'avance
BILALoch
2 mars 2005 à 09:23
Tres bonne source et euh... est ce que ce code peut fonctionner en dx9 ?
Merci pour ce code ;) 10/10
BILALoch
26 févr. 2005 à 00:26
on sait jamais vous pourriez me donner des idées :p
sinon je vais peut etre essayer d'ajouter les axes origines pour chaque ojbect si je trouve comment les faire sous d3d ;op
sinon ben pour les anims y a du taf :o/
25 févr. 2005 à 22:59
Mais bon, franchement, les animes, on s'en fout un peu... Le principale c'est que le prog fonctionne bien.
Moi je suis pour une sensible amélioration de l'interface utilisateur avant de passer aux animes... mais ce n'est que mon humble avis...
LA FINALE, LA FINALE, LA FINALE, LA FINALE... sinon on fait la grève de la faim.
25 févr. 2005 à 22:44
25 févr. 2005 à 17:43
25 févr. 2005 à 16:05
25 févr. 2005 à 15:45
24 févr. 2005 à 16:19
Merci :-)
21 févr. 2005 à 07:42
21 févr. 2005 à 01:47
Quand tu fais une translation, ça tourne !!!
Pi y'en a marre de cette erreur au démarrage... faut enlevé cette vilaine virgule pour les valeurs par défaut (de rotation entre autre) et mette un foutu point "." !!!
Sinon, c'est TOP. J'attends vraiment la suite avec une grande impatience...
19 févr. 2005 à 18:12
19 févr. 2005 à 12:08
18 févr. 2005 à 16:19
17 févr. 2005 à 22:27
17 févr. 2005 à 22:22
reste a fixer l'angle de vue pour avoir la bonne vue en 0,0,0 car la on a une vue "inversée" enfin plutot retournée sur certains axes je bosse dessus ainsi que un complement de la lecture des materials et de l'affectation par index des materials au objets (ou face) reste a savoir ou lire ses infos...
16 févr. 2005 à 17:23
pasque moi je doit pas en avoir enfin pas sur et chercher parmis tous mes 3ds pas trop le temps :p
15 févr. 2005 à 21:08
15 févr. 2005 à 21:01
et une fois que tous seras ok je transformerai le module en classe pour en faire un objet et ensuite un ocx voila :)
15 févr. 2005 à 20:49
15 févr. 2005 à 20:32
15 févr. 2005 à 02:52
Tes explications sur les coordonnées U/V, CLAIR, CONCIS, bref PARFAIT !!! :-)))
Là au moins j'ai birn compris.
En ce qui concerne l'update... je suis vraiment IMPATIENT de voir ça :-)))
Je suis surtout impatient de voir la nouvelle gestion de la caméra...
Ceci dit, j'ai quelques idées à te suggèrer pour de futures versions (et j'espère sincérement qu'il y en aura...) :
- Ouverture des DXF (voir des MAX !!! ;-)
- 4 Femêtres (au fait, super la fenêtre de la texture...)
- Faire un OCX (Contrôle ActiveX) pour pouvoir éventuellement intégrer une fenêtre de vision dans un projet... Ce qui nous permettrait de nous concentrer sur l'éditeur plus que sur le rendu en cas de conception de "softs" 3D.
@+++++++++++
14 févr. 2005 à 03:32
g encore optimisé le code et viré la partie software
qui ne sert a rien car si l'exe plante au demarage si dx n'est pas installé ben pas de programme donc pas de rendu software donc ca degage
donc le tout est maintenant sous dx8
g encore modifié le module de lecture et refait des modifs dans le rendu sous dx et g modifié le systeme des cameras :p
14 févr. 2005 à 03:32
g encore optimisé le code et viré la partie software
qui ne sert a rien car si l'exe plante au demarage si dx n'est pas installé ben pas de programme donc pas de rendu software donc ca degage
donc le tout est maintenant sous dx8
g encore modifié le module de lecture et refait des modifs dans le rendu sous dx et g modifié le systeme des cameras :p
update sur le site bientot...
14 févr. 2005 à 00:13
un point en 3d à 3 coordonnées x,y,z
on lui ajoute deux coordonnées u et v qui correspondent a ces coordonnées x et y sur un plan 2d mais ! ses coordonnées sont comprise entre 0.0000 et 1.000 pourquoi ?
tout simplement car ca permet d'utiliser des texture de taille differentes (ex: 128* 128 ou 256*256 ou 512 *512 ,etc...)
on a donc
truc.tu*256=coordonnée X du point sur l'image
truc.tv*256=coordonnée Y du point sur l'image
ensuite on sait qu'il faut 3 points pour faire un triangle
donc si les trois point du triangle on des coordonnées u et v on pourras le texturer en gros prendre une partie triangulaire sur l'image 2d et la mettre sur l'objet 3d
j'espere que c'est pas trop compliqué expliqué comme ca ? :op
13 févr. 2005 à 22:53
13 févr. 2005 à 19:44
Pk je les partages pas parceque il le sont deja ...
www.wotsit.org pour ceux qui ne connaisse pas.
En ce qui concerne le texturing je sais qu'il faut donné des coordonées tu et tv pour chaque vertex ensuite apliqué la texture correspondant à l'objet par rapport a son mapping de materiaux mais je connais âs trop, shadowmoy a plus de connaissance.
J'espere t'avoir un peu eclairer.
a+
13 févr. 2005 à 18:09
Dit Ciberrique, si tu les a presque tous, pourquoi tu ne nous les fait pas partagé ???
Sinon, quelqu'un pourrait-il m'expliquer (en gros) comment, via une image de textures (donc, avec plusieurs textures dessus) on peut texturer un obj 3D ??? C'est quoi le concept ???
C'est à dire, comment on découpe (aplatit) un obj3D pour lui assigner sa texture ???
[faites simple svp]
13 févr. 2005 à 11:15
13 févr. 2005 à 00:31
le pire c que ca marche :p
12 févr. 2005 à 22:26
J'attend ton update pour pouvoir continuer le miens.
12 févr. 2005 à 22:18
12 févr. 2005 à 22:17
enfin tu verras dans le prochain update
g aussi modifié la facon de lire les noms de materials et meshs dans le 3ds (ah optimisation quand tu nous tiens :op)
me reste a regler pas mal de truc pour la version 1.3.5 ...
enfin prochain update bientot ... (c promis je me depeche ;op)
12 févr. 2005 à 12:47
J'espere que sa t'aidera un peu.
12 févr. 2005 à 12:27
je m'explique : ces 3 vertices correspondent a la ligne entre le point 0 du monde et le point 0 de l'objet 3d
je corrigerais ca en recalant l'objet 3d sur l'axe 0,0,0
le hic c'est que ca necessite de recalculer les coordonnées de tous les vertex :o/ donc je me demande si ca va pas ramer je vous dit quoi des que c'est codé ;p
11 févr. 2005 à 07:28
bonne continuation
10/10
10 févr. 2005 à 01:46
parce que la c'est plutot foutoire dnas la lecture du fichier et dans le rendu...
et j'ajouteri le support des materials :p
9 févr. 2005 à 20:47
9 févr. 2005 à 10:26
Par exemple, je ne peux pas choisir, à l'ouverture, DirexctX sinon ça plante directe (x!).
Au passage entre le mode DirecteX et Soft, y'a quelques probs de réinitialisations.
De plus, systématiquement, j'ai des probs avec "0,4"...
L'accès au clavier est peut-être à revoir... J'ai entre autre de gros probs de caméra, toujours entre le mode normal et directX...
Sinon, pour les textures BRAVO, franchement, rien à dire.
J'attends la Finale avec une immense impatience.
8 févr. 2005 à 17:28
Bon boulot
Afyn - Navedac
8 févr. 2005 à 16:45
8 févr. 2005 à 16:42
Ensuite ScSami je confirme les dire de shadowmoy toutes l'ouverture du fichier 3d et de moi sauf ce qui concerne le mapping donc texture et materiaux...
Continue comme sa shadowmoy, la final est proche.
8 févr. 2005 à 00:10
merci ScSami :p
comme ca maintenant on a un vrai loader de 3ds en vb :p
7 févr. 2005 à 23:58
10/10