6 [theta:=-10*deg,phi:=60*deg,
7 ModelView(central),DistCam(20)];
10 P1:=planEqn([1,1,1,2]),P2:=[Origin,vecK-vecJ],
12 a:=Copy(getdroite(D),1,2),
13 b:=Copy(getplan(P1,0.75),11,2),
14 c:=Copy(getplan(P2,0.75),3,2),
16 bdPlan(P1,[color:=red,opacity:=0.7,scale:=0.75]),
17 bdPlan(P2,[color:=blue,opacity:=0.7,scale:=0.75]),
18 bdDroite(D,[color:=darkgreen,width:=12]),
19 bdAxes([0,0],[color:=gold,width:=8,arrows:=1]),
20 bdLabel(a,"$D$",[labelpos:=[0.5,-i]]),
21 bdLabel(b,"$P_1$",[labelpos:=[0.5,i]]),
22 bdLabel(c,"$P_2$" [labelpos:=[0.5,i]])