XCAS HD Icon

[compsystems]

Hello, I found an HD icon of XCAS, I think it could be attached to the project, of course if it is freely distributed

https://github.com/PapirusDevelopmentTe ... issues/896

[parisse]

It's certainly derived from this program:
https://www-fourier.univ-grenoble-alpes ... e/logo.xws

Code : Tout sélectionner

etoilo(z0,r,a):={
 local j,l,somet,p,L,pa;
 z0:=evalf(z0);
 r:=evalf(r);
 a:=evalf(a);
 l:=evalf(r*(3-sqrt(7))/2);
 somet:=[z0+l*exp(i*a),z0+r*exp(i*(a+evalf(pi/7)))];
 L:=somet;
 for (j:=1;j<7;j++){
   L:=concat(L,rotation(z0,2*j*evalf(pi/7),somet));
 }
 p:=polygone(L);
 return p;
}:;
etoilog(z0,r,a):={
 return affichage(etoilo(z0,r,a),rempli);
}:;
logox(z0,r,a,c):={
 local j,k,R,L,nr,nz0;
 L:=[affichage(etoilo(z0,r,a),c+rempli)];
 R:=r;
 for (j:=0;j<7;j++){
   nr:=2*R/(1+sqrt(7));
   nz0:=z0+R*exp(2*i*j*pi/7+i*a);
   for (k:=1;k<7;k++){
     L:=append(L,affichage(etoilo(evalf(nz0),nr,a),c+(j+1)*k+rempli));
     r:=nr;
     nr:=2*r/(1+sqrt(7));
     nz0:=nz0+r*exp(2*i*j*pi/7+i*a);
   }
 }
 return L;
}:;
lx(z0,r):={
 return(segment(z0+r*(-1-i),z0+r*(1+i)),segment(z0+r*(1-i),z0+r*(-1+i)));
}:;
lc(z0,r):={
 return (cercle(z0,r,pi/4,7*pi/4));
}:;
la(z0,r):={

return(segment(z0+r*(-1-i),z0+r*i),segment(z0+r*(1-i),z0+r*i),segment(z0+r*-0.5,
+z0+r*0.5));
}:;
ls(z0,r):={
 return
(segment(z0+r*(-1/2-i),z0-r*i),segment(z0+r*(1/2+i),z0+r*i),cercle(z0+r*i/2,r/2,
+pi/2,3*pi/2),cercle(z0-r*i/2,r/2,-pi/2,pi/2));

}:;

//c represente la couleur
logoxcas(z0,r,a,c):={
return logox(z0,r,a,c),
affichage(lx(evalf(z0-2*r*exp(i*a),r*0.2)),line_width_3+c+4),
affichage(lc(evalf(z0-2*r*exp(-2*i*pi/7+i*a),0.2*r)),line_width_3+c+3),
affichage(la(evalf(z0-2*r*exp(-4*i*pi/7+i*a),0.2*r)),line_width_3+c+2),
affichage(ls(evalf(z0-2*r*exp(-6*i*pi/7+i*a),0.2*r)),line_width_3+c+1);
};