%Constantes
u:=1cm;
v:=(sqrt3)/2;
pi:=3.141592654;
e:=2.718281828;
c:=57.29578; % conversion d'un radian en degres
color rouge,vert,bleu,jaune,noir,blanc,orange,rose,violet,ciel,cielfonce,orangevif,gris,marron;
rouge=(1,0,0);
bleu=(0,0,1);
noir=(0,0,0);
blanc=(1,1,1);
orange=(1,0.5,0);
violet=blanc-vert;
rose=(1,0.7,0.7);
cielfonce=0.9*(0.25,1,1);
ciel=bleu+vert;
orangevif=(1,0.25,0.1);
vert=(0,1,0);
jaune=rouge+vert;
gris=0.8*white;
marron=(.545,.27,.075);
%coloriage et lumière
vardef Hsv(expr CC)=%CC couleur donnée en hsv d'après http://en.wikipedia.org/wiki/HSL_color_space
  save $;
  color $;
  SSw:=floor(redpart(CC)/60);
  SSh:=SSw mod 6;
  SSf:=(redpart(CC)/60)-floor(SSw);
  SSs:=greenpart((CC));
  SSv:=bluepart((CC));
  SSp:=SSv*(1-SSs);
  SSq:=SSv*(1-SSf*SSs);
  SSt:=SSv*(1-(1-SSf)*SSs);
  if SSh=0: $=(SSv,SSt,SSp) elseif SSh=1:$=(SSq,SSv,SSp) elseif SSh=2:$=(SSp,SSv,SSt) elseif SSh=3:$=(SSp,SSq,SSv) elseif SSh=4:$=(SSt,SSp,SSv) elseif SSh=5:$=(SSv,SSp,SSq) fi;
  $
enddef;

%Conversion RGB -> Html
vardef Html(expr CC)=%CC donnée en string html
  save $;
  color $;
  nrr:=hex(substring(0,2) of CC);
  nvv:=hex(substring(2,4) of CC);
  nbb:=hex(substring(4,6) of CC);
  $=(nrr,nvv,nbb)/256;
  $
enddef;

%Couleur vert Kawasaki
color Evidence;
Evidence=Html("00B51A");

%Quelques couleurs pour le daltonisme
color PfCdblue,PfCdcyan,PfCdgreen,PfCdyellow,PfCdred,PfCdpurple,PfCdgray,PfCdorange,PfCdrose,PfCdmarron,PfCdlightgreen;
PfCdblue=Html("4477AA");
PfCdcyan=Html("66CCEE");
PfCdgreen=Html("228833");
PfCdyellow=Html("CCBB44");
PfCdred=Html("EE6677");
PfCdpurple=Html("AA3377");
PfCdgray=Html("BBBBBB");
PfCdorange=Html("EE7733");
PfCdrose=Html("EE99AA");
PfCdmarron=Html("993404");
PfCdlightgreen=Html("CAE0AB");

%https://stackoverflow.com/questions/65013406/how-to-generate-30-distinct-colors-that-are-color-blind-friendly
color PfCNoteCouleur[];
PfCNoteCouleur[1]=Html("000000");
PfCNoteCouleur[2]=Html("004949");
PfCNoteCouleur[3]=Html("009292");
PfCNoteCouleur[4]=Html("ff6db6");
PfCNoteCouleur[5]=Html("ffb6db");
PfCNoteCouleur[6]=Html("490092");
PfCNoteCouleur[7]=Html("006ddb");
PfCNoteCouleur[8]=Html("b66dff");
PfCNoteCouleur[9]=Html("6db6ff");
PfCNoteCouleur[10]=Html("b6dbff");
PfCNoteCouleur[11]=Html("920000");
PfCNoteCouleur[12]=Html("924900");
PfCNoteCouleur[13]=Html("db6d00");
PfCNoteCouleur[14]=Html("24ff24");
PfCNoteCouleur[15]=Html("ffff6d");