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