Deux questions à propos du code ci-après (que j'espère correct !):
- les marques des croix sont moyennement visibles quand on imprime la figure (dotscale ? opacity ? ...) ;
- comment améliorer le code pour placer les points I, J et K de manière aléatoire ?
- Code: Tout sélectionner
[view(-10,9,-10,9),Marges(0,0,0,0),size(10), view3D(-6,6,-6,6,-6,7),
p1:=[Origin,vecK],
matri:=matrix3d(rot3d(M,[Origin,M(1,0,0)],-58*deg)),
d:=[Origin,vecI],A:=Copy(getdroite(d,1.8),1,2),
B:=Copy(getplan(p1),3,2),C:=Copy(getplan(p1),1,2),
I:=M(-1.5,4.5,0),J:=M(-2,-3,0),K:=M(-1,-4,0),
hiddenLines:=1,
Build3D(
bdPlan(p1,[color:=red,opacity:=0.7,bordercolor:=red,border:=1]),
bdPlan(p1,[matrix:=matri,color:=lavender,bordercolor:=lavender,opacity:=0.5,
border:=1]),
bdDroite(d,[color:=blue,width:=10,scale:=1.8]),
bdDot(I,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
bdDot(J,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
bdDot(mtransform3d(K,matri),[dir:=[mtransform3d(vecI+vecJ,matri),mtransform3d(vecI-vecJ,matri)],dotstyle:=cross,dotscale:=2]),
bdLabel( A, "$d$", [labelpos:=[0.5,-1], above:=1]),
bdLabel( I, "I", [labelpos:=[0.3,1], above:=1]),
bdLabel( J, "J", [labelpos:=[0.3,1], above:=1]),
bdLabel( B, "$\mathscr{P}$", [labelpos:=[0.75,2.25+0.4*i], above:=1]),
bdLabel(mtransform3d(C,matri),"$\mathscr{P\prime}$",[labelpos:=[0.65,0.5+1.5*i],above:=1]),
bdLabel(mtransform3d(K,matri),"K",[labelpos:=[0.5,0.5+i],above:=1]),
),
Display3D()
]
Merci.