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, ModelView(central), DistCam(20)];
   7 Graph objet1 = [
   8         background(full, gray),
   9         P1 :=planEqn([1, 1, 1, 2]), P2 :=[Origin, vecK-vecJ],
  10         D := interPP(P1, P2),
  11         a :=Copy(getdroite(D), 1, 2),
  12         b :=Copy(getplan(P1, 0.75), 11, 2),
  13         c :=Copy(getplan(P2, 0.75), 3, 2),
  14         Build3D(
  15                 bdPlan(P1, [color :=red, opacity :=0.7, scale :=0.75 ]),
  16                 bdPlan(P2, [color :=blue, opacity :=0.7, scale :=0.75]),
  17                 bdDroite(D, [color :=darkgreen, width :=12]),
  18                 bdAxes([0, 0], [color :=gold, width :=8, arrows :=1]),
  19                 bdLabel(a, "$D$", [labelpos :=[0.5, -i]]),
  20                 bdLabel(b, "$P_1$", [labelpos :=[0.5, i]]),
  21                 bdLabel(c, "$P_2$", [labelpos :=[0.5, i]])
  22         ),
  23         Display3D()
  24         ];
  25