Des exemples peuvent être trouvés dans le pdf téléchargeable au bas de cette page. On demande évidemment de ne pas copier ces exemples mais d’en créer d’autres, originaux…
Des exemples (sans JavaScript) sont les sangaku du site de Géry Huvent ou ceux de ce site d’art en anglais.
Pour concourir, cliquer sur « Répondre à cet article » à droite.
Poster des carscripts entre des balises « code » ou des figures exportées au format png (dans « fichier », sélectionner « exporter au format png ») ou mettre les fichiers zir (de CaRMetal) en pièce jointe, péalablement zippés (cliquer sur « ajouter un document »).
Voici les rendus des premières contributions :
23 mars 2010 à 18h29min / PELLIER Jean-Emile
var char1=new Array;
var char2=new Array;
for(i=-0xD; i<=0xD; i++){
char1[i]=Point(5*Math.sin(i),5*Math.cos(i));
SetHide(char1[i],true);
char2[i]=Point(5*Math.cos(i),5*Math.sin(i));
SetHide(char2[i],true);
Segment(char1[i],char2[~i]);
Segment(char2[i],char1[~i]);
}Avec ce résultat :
29 mars 2010 à 18h25min / Morgan Le Gac // Alias Nagrom22 —
o=Point(0,0) ;SetHide(o,true) ; r=FixedCircle(o,1) ;SetColor(r,"red") ; for (i=0 ; i<=50 ; i=i+1) m=Point(Math.cos(i),Math.sin(i)) ;SetHide(m,true) ; n=Point(0.5*Math.cos(i),0.5*Math.cos(i)) ;SetHide(n,true) ; n=Segment(m,n) ;SetColor(n,"red") ; for (i=0 ; i<=6 ; i=i+0.1) m=Point(Math.cos(i),Math.sin(i)) ;SetHide(m,true) ; n=Point(-Math.sqrt(i),-Math.sqrt(i)) ;SetHide(n,true) ; b=Segment(m,n) ;SetColor(b,"blue") ;
m=Point(Math.cos(i),Math.sin(i)) ;SetHide(m,true) ; n=Point(Math.sqrt(i),-Math.sqrt(i)) ;SetHide(n,true) ; b=Segment(m,n) ;SetColor(b,"blue") ;
m=Point(Math.cos(i),Math.sin(i)) ;SetHide(m,true) ; n=Point(Math.sqrt(i),Math.sqrt(i)) ;SetHide(n,true) ; b=Segment(m,n) ;SetColor(b,"blue") ;
m=Point(Math.cos(i),Math.sin(i)) ;SetHide(m,true) ; n=Point(-Math.sqrt(i),Math.sqrt(i)) ;SetHide(n,true) ; b=Segment(m,n) ;SetColor(b,"blue") ;Bogué, avec ce résultat :
22 avril 2010 à 17h08min / Morgan Le Gac // Alias Nagrom22 —
Correction script
for (i=0; i<=7; i=i+0.1){
m=Point(Math.cos(i)-2,Math.sin(i)-2);SetHide(m,true);
n=Point(-Math.sqrt(i)-2,-Math.sqrt(i)-2);SetHide(n,true);
b=Segment(m,n);SetColor(b,"blue");
m=Point(Math.cos(i)+2,Math.sin(i)-2);SetHide(m,true);
n=Point(Math.sqrt(i)+2,-Math.sqrt(i)-2);SetHide(n,true);
b=Segment(m,n);SetColor(b,"blue");
m=Point(Math.cos(i)+2,Math.sin(i)+2);SetHide(m,true);
n=Point(Math.sqrt(i)+2,Math.sqrt(i)+2);SetHide(n,true);
b=Segment(m,n);SetColor(b,"blue");
m=Point(Math.cos(i)-2,Math.sin(i)+2);SetHide(m,true);
n=Point(-Math.sqrt(i)-2,Math.sqrt(i)+2);SetHide(n,true);
b=Segment(m,n);SetColor(b,"blue");
}
q=Point(5,0);SetHide(q,true);
s=Point(-5,0);SetHide(s,true);
for (i=0; i<=1.6; i=i+0.1){
d=Point(0,i);SetHide(d,true);
z=Segment(d,q);SetColor(z,"red");
}
for (i=0; i>=-1.6; i=i-0.1){
d=Point(0,i);SetHide(d,true);
z=Segment(d,q);SetColor(z,"red");
}
for (i=0; i<=1.6; i=i+0.1){
d=Point(0,i);SetHide(d,true);
z=Segment(d,s);SetColor(z,"red");
}
for (i=0; i>=-1.6; i=i-0.1){
d=Point(0,i);SetHide(d,true);
z=Segment(d,s);SetColor(z,"red");
}
k=Point(0,5);SetHide(k,true);
l=Point(0,-5);SetHide(l,true);
for (i=0; i<=1.6; i=i+0.1){
d=Point(i,0);SetHide(d,true);
z=Segment(d,k);SetColor(z,"red");
}
for (i=0; i>=-1.6; i=i-0.1){
d=Point(i,0);SetHide(d,true);
z=Segment(d,k);SetColor(z,"red");
}
for (i=0; i<=1.6; i=i+0.1){
d=Point(i,0);SetHide(d,true);
z=Segment(d,l);SetColor(z,"red");
}
for (i=0; i>=-1.6; i=i-0.1){
d=Point(i,0);SetHide(d,true);
z=Segment(d,l);SetColor(z,"red");
}
for (i=0; i<=75; i=i+1){
m=Point(Math.cos(i)*1.5,Math.sin(i)*1.5);SetHide(m,true);
n=Point(0.5*Math.cos(i),0.5*Math.cos(i));SetHide(n,true);
n=Segment(m,n);SetColor(n,"blue");
}
