Empilement de boules

Quel suspens!

Bonsoir,

Les renseignements m'ont été fort utiles, avec la ligne de commande tout fonctionne, et j'obtiens moi aussi la figure lissée.

Merci

Joffrey

A la bonne heure! C'est très long chez toi aussi?

P.Fradin a écrit :
Quel suspens!

J'attendais en fait la longue conversion du pdf en png pour être sûr que ça fonctionnait!

Joffrey

Bonjour,

C'est vrai que c'est très joli, mais le problème est que je ne peux pas obtenir la version lissée.
Je fais : Snapshot, pdf, jpg
S'ouvre alors une image avec transparence mais pas le lissage.
Sans le tétraèdre, j'ai le lissage !
Si quelqu'un à une solution... merci.

Jean-François.

Bonjour Jean-François,

Tu pourrais poster l'image que tu obtiens? Tu peux utiliser le bouton "Héberger une image" au dessus de la zone de saisie de ton message.

Bonjour Patrick,

Voilà l'image
https://i.servimg.com/u/f75/13/35/41/11/test711.jpg

JF

Et tu coches bien ces options?:



tu es sous linux ou windows?

Oui pour les options et je suis sous vista.
JF

On est bien d'accord aussi sur le code:

Code:


[view3D(-9,9,-8,8,-6,6), view(-12,12,-9,10), Marges(0,0,0,0), size(12,1),
 $a:=4*sqrt(3)/3,
 C1:=M(a,0,0), C2:=M(-a/2, a*sqrt(3)/2, 0), C3:=M(-a/2, -a*sqrt(3)/2, 0),
 C4':=(C1+C2+C3)/3, {centre de gravité}
 C4:= pxy(C4')+M(0,0,4*sqrt(2/3)),
 S1:=Sphere(C1,2,25,25), S2:=Sphere(C2,2,25,25),
 S3:=Sphere(C3,2,25,25), S4:=Sphere(C4,2,25,25),
 P:=[M(0,0,-2),vecK], h:=Zde(C4)+4,
 A:=M(4,-4,-2), B:=A+M(0,0,h),
 G:=(C1+C2+C3+C4)/4, G':=pxy(G), k:=1+2/Norm(G'-G),
 T:=hom3d( Tetra(C1,C2-C1,C3-C1,C4-C1), G, k),
 Build3D(bdPlan(P,[color:=ivory]),
        bdFacet(T,[color:=Rgb(0.8,0.6,1),opacity:=0.5]),
        bdFacet(S1, [color:=firebrick, backculling:=1, gouraud:=1]),
        bdFacet(S2, [color:=steelblue, backculling:=1,gouraud:=1]),
        bdFacet(S3, [color:=orange, backculling:=1,gouraud:=1]),
        bdFacet(S4, [color:=darkseagreen, backculling:=1,gouraud:=1]),
        bdLine(Bord(getplan(P)),[width:=12]),
        bdLine(Aretes(T),[width:=12]),
        ),
 Display3D(),
 LineStyle:=dashed, Ligne3D([B,C4+M(0,0,2)],0),LineStyle:=solid,
 Width:=8, Arrows:=2,  Ligne3D([A,B],0),
 LabelDot(Proj3D((A+B)/2), "h","O")
 ]


en particulier les options gouraud:=1?

j'avais 0 !
Désolé pour la perte de temps et merci pour la rapidité des réponses.

Y pas de quoi!

A bientôt.