<a name="camembert">\def{text n=randint(4..6)}
\def{text ss=100}
\for {i=1 to \n-1}{
\def{text u=randint(8..20)}
\if {\i=1}{\def{text s=\u}}{\def{text s=\s,\u}}
\def{real ss=\ss-\u}}
\def{text s=\s,\ss}
\def{text shu=shuffle(6)}
\def{text listecouleur=red,skyblue,orange,grey,green,purple}
\def{text listefr=rouge, bleu,orange,gris, vert, violet}
\def{text dessin= ellipse 0,0,2,2,black
line 0,0,1,0,black}
\def{text anglet=0}
\for{i=1 to \n}{
\def{real angle=item(\i,\s)*2*pi/100}
\def{real point=\anglet+\angle/2}
\def{text couleur=item(item(\i,\shu),\listecouleur)}
\def{real anglet=\anglet+\angle}
\def{text dessin=\dessin
line 0,0,cos(\anglet),sin(\anglet),black
fill  cos(\point)/2,sin(\point)/2, \couleur
text black, 2*cos(\point)/3,2*sin(\point)/3, medium, item(\i,\s)%
}}

\def{text pos=randint(1..\n)}
\def{text couleur=item(item(\pos,\shu), \listefr)}
\def{integer ind=randint(10..30)*100}
\def{real rep= round(item(\pos,\s)/100*\ind)}
<div class="exemple">
\reload{<img src="gifs/doc/etoile.gif" alt="rechargez" 
width="20" height="20">}{camembert}
<center>
\draw {200,200}
{xrange -1.5,1.5
yrange -1.5,1.5
\dessin}
</center>
</div>