texgraph/plans.teg

   1 TeXgraph#
   2 Cmd
   3    view(-6,6,-6,6);
   4    Marges(0,0,0,0);
   5    size(10);
   6    [theta:=-10*deg,phi:=60*deg,
   7     ModelView(central),DistCam(20)];
   8 Graph objet1 = [
   9    background(full,gray),
  10    P1:=planEqn([1,1,1,2]),P2:=[Origin,vecK-vecJ],
  11    D:= interPP(P1, P2),
  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),
  15    Build3D(
  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]])
  23    ),
  24    Display3D()
  25    ];
  26