color c[];
 c1 := (0.18,0.31,0.31); % DarkSlateGrey
 c2 := (0.72,0.53,0.04); % DarkGoldenRod
 c3 := (0.00,0.81,0.82); % DarkTurquoise
 c4 := (1.00,0.27,0.00); % OrangeRed 
 c5 := (0.60,0.20,0.80); % DarkOrchid
 c6 := (0.63,0.32,0.18); % Sienna
 
 R := 5cm;
 
 

 beginfig(1);
 
     fill fullcircle scaled 2R withcolor 0.5[c3,white];
         
     for i=0 step 5 until 360:
 	draw ((cosd(i),sind(i))--(cosd(2i),sind(2i))) 
 	    scaled R 
 	    withcolor c6;
     endfor;
     
     draw fullcircle scaled 2R;
 
 endfig;
 
 

 beginfig(2);
 
     fill fullcircle scaled 2R withcolor 0.5[c2,white];
     
     for i=0 step 4 until 360:
 	draw ((cosd(i),sind(i))--(cosd(3i),sind(3i))) 
 	    scaled R 
 	    withcolor c2;
     endfor;
 
     draw fullcircle scaled 2R;
 
 endfig;
 
 

 beginfig(3);
 
     fill fullcircle scaled 2R withcolor 0.5[c4,white];
         
     for i=0 step 2 until 360:
 	draw ((cosd(i),sind(i))--(cosd(4i),sind(4i))) 
 	    scaled R 
 	    withcolor c4;
     endfor;
 
     draw fullcircle scaled 2R;
 
 endfig;
 
 

 beginfig(4);
 
     fill fullcircle scaled 2R withcolor 0.5[c5,white];
     
     for i=0 step 2 until 360:
 	draw ((cosd(i),sind(i))--(cosd(5i),sind(5i))) 
 	    scaled R 
 	    withcolor red;
     endfor;
 
     draw fullcircle scaled 2R;
 
 endfig;
 
 path c;
 
 vardef P(expr i) = point (i/360*length(c)) of c enddef;
 
 

 beginfig(5);
     
     c := (312,466)--(112,276)--(148,09)--(496,062)--(523,390)-- cycle;
     fill c withcolor 0.75[c1,white];
     
     for i=1 step 2 until 360:
 	draw (P(i)--P(2i mod 360)) withcolor c1;
     endfor;
     
     draw c;
 
 endfig;
 
 end