Discussion :

[steph1969]

Bonjour,
je dois réaliser une petite animation 3D dans un TForm (VCL). En me penchant sur le composant TDraw3D (RAD XE5), je constate pas de de fonction aux intitulé "alléchantes", (Rotation, Cube, cone, ... en 3D !), je me dis : "Voilà ce qu'il me faut !", et puis bizarrement ce composant n'est pas documenté, du moins dans l'aide de Delphi et je ne trouve pas grand chose sur embarcadero ou google .. (Ici non plus).
Quelqu'un aurait-il déjà utiliser ce composant pour faire une petite animation 3D ou aurait des liens vers des exemples ou doc ..
Merci.

[gbegreg]

Bonjour,

Je pense qu'il s'agit du composant faisant partie de la librairie TeeChart (https://www.steema.com/product/vcl). Il s'agirait donc d'un composant pour afficher des graphiques en 3D.
Pour faire de la 3D en VCL, je vous conseille GLScene : http://glscene.sourceforge.net/wikka/.
En Firemonkey (FMX), il y a déjà des choses fournies nativement pour faire de la 3D avec Delphi.

[Galet]

Bonjour Steph1969
Les librairies GlScene sont disponibles et encore mises à jour.
Comme c'est mon cas, je te confirme que tu peux, même sans être un expert, très rapidement faire des démos en 3D assez rapidement, sans la complexité d'OpenGl.
Attention au type de ta carte vidéo (notamment les cartes Intel) pour t'assurer, si tes démos sont un peu lourdes, la compatibilité avec OpenGl.

[steph1969]

Bonjour,
J'ai jeter un oeil sur GLscene, .. j'ai quelques difficulté à compiler les package sous Delphi Xe5 (version que nous utilisons),
Je cherche quelque chose de vraiment "léger" il s'agit en fait d'animer en 3D une tête (schématisée) en fonction des mouvements d'un capteur.
manipulant très souvent les TPaintBox et canvas, je pensez pouvoir exploiter TCanvas3D.

Merci pour vos réponses ... si vous avez des astuces pour la compilation de GLScene sous Xe5 elles sont les bienvenues ....

[SergioMaster]

Si la version est XE5 il me semble qu'il est possible d'utiliser une forme FMX (et donc l'utilisation d'un viewport3d) au sein d'une application VCL.
Il y a même un même un composant pour https://github.com/vintagedave/firemonkey-container et peut-être d'autres pistes

[ALWEBER]

[Paul TOTH]

tient, quand j'ouvre ton projet sous Tokyo ou Rio je n'ai pas les formes

[ALWEBER]

tient, quand j'ouvre ton projet sous Tokyo ou Rio je n'ai pas les formes

Voici une version compilée avec Tokyo. Compiler à partir du dproj ou déplacer les DAE à coté de l'exe

[steph1969]

Bonjour,
merci pour votre aide, .. en utilisant la solution de Sergio, je suis bloqué sur l'utilisation d'un TModel3D (importation d'un fichier .OBJ ou .DAE (tete.dae du mannequin ) ), je n'arrive pas a utiliser les TLightMaterialSource pour avoir un effet 3D correct. Lorsque j'importe le fichier tete.dae, il y a bien 3 TLightMaterialsource qui sont automatiquement importé, mais la tête reste noir sans perspective ...

PS : je suis pour l'instant avec une licence Xe5

[SergioMaster]

Je ne suis pas assez calé 3D pour donner des pistes, j'ai beaucoup galéré / consommé de temps pour les quelques essais que j'ai pu faire (merci gbegreg )

il y a bien 3 TLightMaterialsource qui sont automatiquement importé,

importés oui, mais associés à l'objet ?

[ALWEBER]

Bonjour,
merci pour votre aide, .. en utilisant la solution de Sergio, je suis bloqué sur l'utilisation d'un TModel3D (importation d'un fichier .OBJ ou .DAE (tete.dae du mannequin ) ), je n'arrive pas a utiliser les TLightMaterialSource pour avoir un effet 3D correct. Lorsque j'importe le fichier tete.dae, il y a bien 3 TLightMaterialsource qui sont automatiquement importé, mais la tête reste noir sans perspective ...

PS : je suis pour l'instant avec une licence Xe5

Envoie nous ton fichier DAE. Je vais te faire un exemple

[steph1969]

Bonjour Alweber,
en fait j'ai downloadé l'exemple de Sergio (FmxContiner) (fonctionne parfaitement sous XE5). Dans cet exemple il y a une TForm3d avec : Camera, Light1, Light2, RoundCube1, LightMaterialSource (associé à la propriété MeterialSource de RoundCube1)

Cet example est un bon départ pour moi à condition de remplacer le cube par une tête humaine. Je me suis donc dirigé vers TModel3D et ai trouvé un fichier Head.obj que j'ai
chargé dans la propiété MeshCollection. Cela fonctionne, j'ai bien une "tête" dans ma form3D. Mais je n'ai pas trouvé le moyen d'utiliser l'équivalent du LightMaterialSource, la tête reste en couleur unie sans aucun effet 3D.

J'ai ensuite pris ton fichier tete.dae à la place de Head.obj, le comportement est identique si ce n'est qu'il y a 3 LightMaterialSource qui sont importés mais je ne vois pas comment les utiliser.

J'ai également recommencé dans un projet directement FmX3D (sans le FmxContainer).. Mais résultat identique.

PS : Je fais du développement VCL depuis delphi 1.0 ... je n'ai que Delphi Xe5 (licence officielle) et je dois dire que les fmx et 3D sont assez nouveau pour moi.

Ci-Joint un zip avec le fichier Head.Obj et capture d'écran

Grand merci

[ALWEBER]

Je t'ai mis le modele dans un autre format : DAE avec une texture

Extrait structure de la fiche. TU y trouveras les composants, leur propriétés et leur position dans la hiérarchie. après tu charge Head.DAE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
object Form1: TForm1
  object Viewport3D1: TViewport3D
    Align = Client
    Size.PlatformDefault = False
    object Model3D1: TModel3D
      Position.Y = -4
      Position.Z = -10
      RotationAngle.Y = 180
      RotationAngle.Z = 180
    end
    object Light1: TLight
      Color = claWhite
      Position.X = -5
      Position.Y = -5
      RotationAngle.X = 345
      RotationAngle.Y = 65
    end
  end
end

[steph1969]

J'ai progressé avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TFormExample3D.Form3DCreate(Sender: TObject);
var Mesh : TMesh;
begin
  for Mesh in Model3D1.MeshCollection do
    Mesh.MaterialSource := LightMaterialSource1 ;
 
end;

[ALWEBER]

Pour passer d'un format à un autre, j'utilise 'meshlab' qui est un outil gratuit

[steph1969]

Bonjour à tous,
j'ai bien progressé grâce aux aides reçues ici,
Il me reste un problème de "Rotation".
En jouant avec la propriété Rotation (.X, .Y, .Z) de mon TModel3D, j'ai une sorte de "dérive", c'est à dire que la position n'est plus la même pour deux triplets identiques après avoir fait "tourner" l'objet dans les 3 axes.... il y a une sorte de "dérive"... par contre si je remet (0, 0, 0) alors l'objet reprend sa position initiale de manière brutale, (idem avec ResetRotationAngle).

Comment éviter cette "dérive" ? est-bien la propriété Rotation qu'il faut utiliser pour faire cela ?

Merci (encore).

[ALWEBER]

...
Comment éviter cette "dérive" ? est-bien la propriété Rotation qu'il faut utiliser pour faire cela ?
...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
aCtrl3D.BeginUpdate;
aCtrl3D.ResetRotationAngle;
aCtrl3D.RotationAngle.X := RotationObjet.X - 20;
aCtrl3D.RotationAngle.Y := RotationObjet.Y - 90;
aCtrl3D.EndUpdate;
aCtrl3D.Repaint;

voir exemple ci joint

[steph1969]

Parfait cela semble fonctionner... j'osais pas trop faire le ResetRotationAngle à chaque "update" ..car je rafraichi la position 10x par secondes...

[ALWEBER]

Tu as essayé l'exemple que je t'ai envoyé ?

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
aCtrl3D.BeginUpdate;
aCtrl3D.ResetRotationAngle;
aCtrl3D.RotationAngle.X := RotationObjet.X - 20;
aCtrl3D.RotationAngle.Y := RotationObjet.Y - 90;
aCtrl3D.EndUpdate;
aCtrl3D.Repaint;

voir exemple ci joint

c'est joli, par contre dès qu'on ajoute de la transparence en 3D il faut gérer l'ordre d'affichage sinon le ZBuffer bien perturber l'affichage



j'en parle ici