Discussion :

[guigui32]

Bonjour,
J'utilise actuellement perl pour générer des fichiers de points en 3D (x,y,z) et j'aimerai trouver un module permettant d'afficher ces points (ou des lignes entre ceux-ci) et de les manipuler (rotation zoom déplacement) comme dans un logiciel de CAO. J'ai essayé le module PDL, il fait presque tout mais impossible d'avoir une représentation correcte de mon nuage de points : je n'arrive pas à rendre l'échelle des axes isométrique. voici un bout de prog qui marche avec le module pdl :

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
21
22
23
#Modules d affichage PDL
use PDL;
use PDL::Graphics::TriD;
#Donnees
@xx=[-20, -10, 0, 10, 20, 20, 10, 0, -10, -20];
@yy=[-10, -10, -10, -10, -10, 10, 10, 10, 10, 10];
@zz=[0, 0, 0, 0, 0, 1, 1, 1, 1, 1];
@ff=[0, 1, 2, 3, 4, 5, 6, 7, 8, 9];
$Fmax=10;
 
#formatage tableau pdl
$xx = pdl @xx;
$nbx= nelem $xx;
$yy = pdl @yy;
$zz = pdl @zz;
$ff = pdl @ff;
$nbf= nelem $ff;
$frouge = ones $nbf;
$ff1 = pdl $ff/$Fmax;
 
#affichage ligne
hold3d();
line3d [$xx,$yy,$zz],[$frouge,$ff1,$ff1];

J'aimerai que l'axe x,y et z aient la même échelle et ne pas être anamorphosé...
PDL le permet-il ?
sinon quelle solution employer en restant dans perl ?
Si Perl ne le peut pas que faire ?

Merci à vous pour votre réponse.
Guillaume

[guigui32]

Bonjour,
Devant le peu de réponses à mon problème, pourriez vous m'indiquer un forum en anglais qui pourrait m'aider... Je vous ferai évidement passer une réponse au cas ou j'en trouve une.
Merci à vous.
Guillaume

[Philou67430]

As-tu regardé le module OpenGL et ses sous modules ?

Ou encore GD::Graph3D ?

[djibril]

Bon, je viens de tester ton programme

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
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use warnings;
use strict;
 
#Modules d affichage PDL
use PDL;
use PDL::Graphics::TriD;
 
#Donnees
my @xx = [ -20, -10, 0,   10,  20,  20, 10, 0,  -10, -20 ];
my @yy = [ -10, -10, -10, -10, -10, 10, 10, 10, 10,  10 ];
my @zz = [ 0,   0,   0,   0,   0,   1,  1,  1,  1,   1 ];
my @ff = [ 0,   1,   2,   3,   4,   5,  6,  7,  8,   9 ];
my $Fmax = 10;
 
#formatage tableau pdl
my $xx     = pdl @xx;
my $nbx    = nelem $xx;
my $yy     = pdl @yy;
my $zz     = pdl @zz;
my $ff     = pdl @ff;
my $nbf    = nelem $ff;
my $frouge = ones $nbf;
my $ff1    = pdl $ff/ $Fmax;
 
#affichage ligne
hold3d();
line3d [ $xx, $yy, $zz ], [ $frouge, $ff1, $ff1 ];

Qu'est ce qui ne te convient pas ? J'ai bien les rotations !!

[guigui32]

Merci pour la rapidité de la réponse.
En fait j'ai essayé avec OpenGL, mais c'est beaucoup plus lourd pour un résultat pas aussi satisfaisant. C'est certainement le module qu'il faudrait que j'utilise mais pour afficher ces lignes, c'est assez "ésotérique pour moi alors de la à pouvoir les manipuler avec la souris il me faudrait beaucoup de temps.
Mais je crois bien que je vais être obligé de m'y mettre... C'est dommage car PDL est très simple d'emploi et très puissant.

Enfin vouis l'aurez compris, je n'utilise Perl ou ces modules d'affichage que comme outil de visualisation, la programmation et l'informatique sont assez loin de mon boulot de prof de génie mécanique... je serai plutôt tournage fraisage et cambouis !
Bonne journée