Bord d'un plan en pointillés

N'oubliez pas de consulter les sujets avant de poser votre question, merci.

Bord d'un plan en pointillés

Messagepar Fabrice » 23 Déc 2014 19:31

Bonsoir Patrick,
Il y a déjà un certain temps, tu avais proposé le code ci-dessous pour illustrer le théorème du toit :
Code: Tout sélectionner
[[view(-8,7,-7,7),Marges(0,0,0,0),size(12), view3D(-6,6,-6,6,-6,7),
            matr:=matrix3d( rot3d(M, [Origin,M(-1,1,0)], -95*deg) ), viewDir(60,80),
            p1:=[Origin,vecI], p2:=[Origin,vecJ],
            A:=Copy(getplan(p1),1,2), B:=Copy(getplan(p1),3,2), C:=Copy(getplan(p1),7,2),
            D:=Copy(getplan(p2),3,2),E:= Copy(getplan(p2),5,2),G:=Copy(getplan(p1),5,2),
            I:= Copy(getplan(p2),1,2),
            d1:=interPP(p1,p2),d2:=[C,C-G],d3:=[D,D-I],
            F:=Copy(getdroite(d1,1.5),1,2),G:=Copy(getdroite(d2,1.5),1,2),
            H:=Copy(getdroite(d3,1.5),1,2),
            hiddenLines:=1,HideStyle:=userdash,
            Build3D(
            bdFacet(ClipFacet(getplan(p1),-p2), [matrix:=matr, color:=white,
            opacity:=1,contrast:=0,width:=12]),
            bdFacet(ClipFacet(getplan(p2),-p1), [matrix:=matr, color:=white,
            opacity:=1,contrast:=0,width:=12]),
            bdDroite(d1, [matrix:=matr, color:=black, width:=12,scale:=1.5]),
            bdDroite(d2, [matrix:=matr, color:=black,width:=12,scale:=1.5, above:=1]),
            bdDroite(d3, [matrix:=matr, color:=black,width:=12,scale:=1.5, above:=1]),
            bdLine( Bord( [getplan(p1),getplan(p2)]), [matrix:=matr,width:=12] ),
            bdLabel( mtransform3d(A,matr), "$\mathscr{P}_1$", [labelpos:=[0.5,-i],labelsize:=large, above:=1]),
            bdLabel( mtransform3d(E,matr), "$\mathscr{P}_2$", [labelpos:=[0.5,-i], labelsize:=large,above:=1]),
            bdLabel( mtransform3d(F,matr), "$d$", [labelpos:=[0.25,-1],labelsize:=large, above:=1]),
            bdLabel( mtransform3d(G,matr), "$d_1$", [labelpos:=[0.25,-1],labelsize:=large, above:=1]),
            bdLabel( mtransform3d(H,matr), "$d_2$", [labelpos:=[0.25,-1], labelsize:=large,above:=1]),
                    ),
            Display3D()]
]                       

Je viens de remarquer qu'une partie du bord du plan P2 devrait être en pointillés, ce qui n'est pas le cas.
Comment y remédier ?
Merci,
Fabrice
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Bord d'un plan en pointillés

Messagepar P.Fradin » 23 Déc 2014 20:25

Salut Fabrice,

La construction m'a l'air un peu compliquée ! J'ai simplifié un peu le contenu de Build3D:
Code: Tout sélectionner
[view(-8,7,-7,7),Marges(0,0,0,0),size(12), view3D(-6,6,-6,6,-6,7),
                matr:=matrix3d( rot3d(M, [Origin,M(-1,1,0)], -95*deg) ), viewDir(60,80),
                p1:=[Origin,vecI], p2:=[Origin,vecJ],
                A:=Copy(getplan(p1),1,2), B:=Copy(getplan(p1),3,2), C:=Copy(getplan(p1),7,2),
                D:=Copy(getplan(p2),3,2),E:= Copy(getplan(p2),5,2),G:=Copy(getplan(p1),5,2),
                I:= Copy(getplan(p2),1,2),
                d1:=interPP(p1,p2),d2:=[C,C-G],d3:=[D,D-I],
                F:=Copy(getdroite(d1,1.5),1,2),G:=Copy(getdroite(d2,1.5),1,2),
                H:=Copy(getdroite(d3,1.5),1,2),
                hiddenLines:=1,HideStyle:=userdash,
                Build3D(
                bdPlan(p1, [matrix:=matr,border:=1,color:=white,opacity:=1,contrast:=0,width:=12]),
                bdPlan(p2, [matrix:=matr,border:=1,color:=white,opacity:=1,contrast:=0,width:=12]),

                bdDroite(d1, [matrix:=matr, color:=black, width:=12,scale:=1.5]),
                bdDroite(d2, [matrix:=matr, color:=black,width:=12,scale:=1.5, above:=1]),
                bdDroite(d3, [matrix:=matr, color:=black,width:=12,scale:=1.5, above:=1]),

                bdLabel( mtransform3d(A,matr), "$\mathscr{P}_1$", [labelpos:=[0.5,-i],labelsize:=large, above:=1]),
                bdLabel( mtransform3d(E,matr), "$\mathscr{P}_2$", [labelpos:=[0.5,-i], labelsize:=large,above:=1]),
                bdLabel( mtransform3d(F,matr), "$d$", [labelpos:=[0.25,-1],labelsize:=large, above:=1]),
                bdLabel( mtransform3d(G,matr), "$d_1$", [labelpos:=[0.25,-1],labelsize:=large, above:=1]),
                bdLabel( mtransform3d(H,matr), "$d_2$", [labelpos:=[0.25,-1], labelsize:=large,above:=1]),
                        ),
                Display3D()
    ]

toit.png
toit.png (6.99 Kio) Consulté 6241 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Bord d'un plan en pointillés

Messagepar Fabrice » 24 Déc 2014 00:56

Salut Patrick,
P.Fradin a écrit:La construction m'a l'air un peu compliquée !

Elle est pourtant de toi ! ;)
Merci,
Fabrice
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Bord d'un plan en pointillés

Messagepar P.Fradin » 24 Déc 2014 11:43

Fabrice a écrit:Elle est pourtant de toi ! ;)


Comme quoi avec le temps les choses deviennent plus simples !
Je pense que ce code date d'avant l'apparition de l'option border et peut être même l'option hiddenLines, d'où les contorsions...
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04


Revenir vers Questions - Réponses

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 7 invités

cron