3 outcolor:=0.5[jaune,white];
4 incolor:=0.5[vert,white];
6 figureespace(-10u,-10u,10u,10u);
7 Initialisation(500,30,20,25);
10 ObjetNew1((sqrt(1+((zz+h)**2)/4),0,zz+h)
12 for n=if m=a:b-1 else:b fi downto 1:%if k=a:b-1 else:b fi downto 0:
13 ,(sqrt(1+((zz+h*m/a)**2)/4)*cosd(n*(360 div b)),sqrt(1+((zz+h*m/a)**2)/4)*sind(n*(360 div b)),zz+h*m/a)
16 )(4,a*b,b+a*b,b-1+a*b,a*b-1
18 for n=if m=a:m*b-1 else: m*b fi downto (m-1)*b+2:
21 ,4,m*b+1,(m+1)*b,m*b,(m-1)*b+1