Bolygone (4)

Auteur ou autrice : Jean-Michel Sarlat.

Mise en ligne le 24 mai 2023

Code

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(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;
end.