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
XCAS HD Icon
Modérateur : xcasadmin
-
- Messages : 568
- Inscription : sam. févr. 04, 2017 11:34 pm
- Localisation : Colombia
- Contact :
Re: XCAS HD Icon
It's certainly derived from this program:
https://www-fourier.univ-grenoble-alpes ... e/logo.xws
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);
};