Comme ceci :
- Code: Tout sélectionner
[//command
view(-8.9,5.6,-4.7,4.6),
Marges(0,0,0,0), size(7.5), viewDir(30,60),
V:= [4-1.5*i,-4.5],
C:=Sphere(1-i,3,30,30),
P2:=[M(0,0,3)+V/2,vecJ+6*vecK],
Delta := [M(2,-5,-4), V],
sphere2 := ClipFacet(C,P2,sphere1),
C2:= Intersection(P2,C), // C2 est une liste d'arêtes
I := interDP([Delta,V],P2),
FillStyle:=full, FillOpacity:=0.5, Width:=2,
DrawSmoothFacet(sphere1, [color:=white,backculling :=0]),
DrawPlan(P2,vecI,12,9.5),
//draw("line", Proj3D(L), [close:=1, FillColor:=white,Width:=10]),
HideStyle:=userdash, Width:=10, DrawAretes(C2),
DrawSmoothFacet(sphere2,
[color:=white, FillStyle:=none, Width:=2,backculling :=0]),
]