Bolygone (1)

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