Bolygone (5)

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