[
    view(-6,6,-6.5,6), Marges(0,0,0,0), size(12,1), background(full,beige),
    theta:=30*deg, phi:=99*deg,
    C:=Cone(M(0,0,-6),10*vecK,4,25), S:=Sphere(Origin,3,25,25),
    I1:=Clip3D(S,C), I2:=Clip3D(C,S), {<- nécessite scene3d.mod ŕ jour}
    Build3D( 
	[1,red,I1], 
	[1,blue,I2]
    ), 
    Display3D(),
    Width:=8, FillStyle:=full, FillColor:=Rgb(0.74,0.73,1),
    FillOpacity:=0.2,
    Color:=blue, Dcone(M(0,0,-6),10*vecK,4,2),
    Color:=red, FillColor:=Rgb(1,0.73,0.74), Dsphere(Origin,3,2) 
]