[ Fenetre(-1+i,1-i,5+5*i), Marges(0,0,0,0), size(15), FillStyle:=full, FillColor:=darkblue, Width:=8, Cercle(0,1), $n:=3, p:=9, nbcote:=n, $u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n), r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n), T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od, b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od, Width:=1, niv:=12, FillColor:= gold, Color:=FillColor, Hpavage2([0,T1],0,niv), FillStyle:=none, Color:=brown, Width:=12, BordPavage([0,T1],0,niv) ]