Discussion :

[mark92]

Bonjour à tous,

Je suis face à un problème d'envergure pour moi qui n'ai aucune formation en Tcl.
Après qu'on m'avoir demandé de codé en Java, on m'a ensuite dit que le TCl conviendrai mieux au client. Petit hic je ne connais pas le TCL.
Pour m'aider à démarrer, quelqu'un pourrait t-il me transcrire ce bout de code Java en TCL ? Cela pourrait m'aider pour faire le reste.
Merci d'avance

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
29
 public void afficheProportionTriangles(){
 
        ArrayList<Triangle> tabTemp = this.controleur.getTabTrianglePerso();
        graphe = new Graph_maison(tabTemp);
        graphe.blanchir();
        Stack<UnSommet>  pile = new Stack<UnSommet>();
        double tot=0,blue=0;
        UnSommet us =  graphe.chercher(0);
        pile.push(us);
        while(!pile.empty()){
            us = (UnSommet)pile.pop();
            if (us.getSommet().getcolor() == Color.white) {
                us.getSommet().setcolor(Color.BLACK);
                tot++;
                if (tabTemp.get(us.getSommet().getnum()).getColor()== VariableGlobale.TRIANGLE_BLEU)
                    blue++;
                for(int p = us.getlesAretes().size()-1; p>=0; --p)
                    pile.push(us.getlesAretes().get(p).getArrivee());
            }
        }
//        System.out.println("pourcentage de bleu: "+blue+" "+tot+" "+(blue/tot)*100);
        double percentBleu = Math.round((blue/tot)*(double)1000)/(double)10;
        double percentRouge = Math.round(((tot-blue)/tot)*(double)1000)/(double)10;
        String message = "Nombre total de triangles: "+(int)tot;
        message += "\n";
        message += "Nombre et pourcentage de bleu: "+(int)blue+" - "+percentBleu+"%";
        message += "\n";
        message += "Nombre et pourcentage de rouge: "+(int)(tot-blue)+" - "+percentRouge+"%";
        JOptionPane.showMessageDialog(null, message ,"Proportions de Triangles", JOptionPane.INFORMATION_MESSAGE);

[Invité]

Bonjour,

Si tu fais l'effort de le mettre en pseudo-code je peux éventuellement t'aider, mais là j'ai pas envie de déchiffrer ça.

[mark92]

Rebonjour,

C'est effectivement pas très beau ...
J'ai commencé à regarder le TCL/TK et je recherche dans un premier temps le moyen de faire une Arraylist, un graph qu'on puisse parcourir et une pile.
Quelqu'un connaitrait-il les commandes TCL qui permettent de faire ça ?

[Canvas]

Bonsoir,

Afin d'obtenir une aide un peu plus ciblée, il faudrait expliquer ce que fait ce code (avec des mots) et son contexte (CAO, 3D, géométrie, ....).

En Tcl il existe une structure de données centrale qui est la liste.

Par exemple si l'on veut créer une liste contenant les coordonnées des sommets de 3 triangles en 2D et une autre contenant la connectivité :

Code :

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

1
2
3
 
set lsommet   [list {0 0} {0 1} {1 0} {1 1} {2 0}]
set lconnect   [list {0 2 3} {1 3 2} {2 3 4}]

----
Canvas