% TeXgraph version 1.93
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-6.5#8#0#16#1#1##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0.5#0.5#0.5#0.5#0#1#1##
% Affectation des Variables theta et phi
18##[theta:=4.0315, phi:=1.1443, OriginalCoord(1)]##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% objet1 (Utilisateur)
18##[Width:=1,Color:=5987163,FillStyle:=1,tMin:=-5,tMax:=5]##
14#objet1#[S:=GetSurface( [u+i*v, (u/2+v)/(2+cos(u/2)*sin(v))], 10*i,10*i, 45+45*i),
 HideWidth:=8, Dparallelep(Origin,[10,0],[10*i,0],[0,11],0),
 S1:=SortFacet(S,i),
 Map( if Re(z)=Re(jump) {fin de facette}
      then {traiter facette, on découpe aux lignes de niveau: 2, 3, 5, 7.5}
        f1:=ClipFacet(facette,[0,2,-vecK]), f2:=ClipFacet(facette,[0,2,vecK]),
        FillColor:=red, Del(f1,Nops(f1),1), Ligne3D([f1,z],1),
        f1:=ClipFacet(f2,[0,3,-vecK]), f3:=ClipFacet(f2,[0,3,vecK]),
        FillColor:=blue, Del(f1,Nops(f1),1), Ligne3D([f1,z],1),
        f1:=ClipFacet(f3,[0,5,-vecK]), f2:=ClipFacet(f3,[0,5,vecK]),
        FillColor:=green, Del(f1,Nops(f1),1), Ligne3D([f1,z],1),
        f1:=ClipFacet(f2,[0,7.5,-vecK]), f3:=ClipFacet(f2,[0,7.5,vecK]),
        FillColor:=yellow, Del(f1,Nops(f1),1), Ligne3D([f1,z],1),
        FillColor:=orange, Del(f3,Nops(f3),1), Ligne3D([f3,z],1),
        facette:=Nil,
      else Insert(facette,z) {c'est un sommet},
      fi, z, S1),
  FillStyle:=none,
  Dparallelep(Origin,[10,0],[10*i,0],[0,11],1)
]
#-1##