[
    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)
]