Ejemplos de 3DSys Code

3DSys tiene un sistema de códigos simple que usa una sintaxis sencilla para ejecutar funciones. Tiene una relevacnia muy importante las jerarquías, ya que las operaciones aritméticas y lógicas se hacen así.

Aquí están los ejemplos:

El diamante (12 lados)

Clr;
Sto(0,12);
For[Cll[0]]{
Ci(200,*[RPT,/[360,Cll[0]]],0);
}
For[-[Cll[0],1]]{
Ln(RPT,+[1,RPT]);
}
Ln(-[Cll[0],1],0);
Fnp;
For[Cll[0]]{
Ci(150,+[*[RPT,/[360,Cll[0]]],/[360,*[Cll[0],2]]],50);
}
For[-[Cll[0],1]]{
Ln(+[SNP,RPT],+[1,+[SNP,RPT]]);
}
Ln(+[SNP,-[Cll[0],1]],SNP);
For[-[*[Cll[0],2],1]]{
Ln(/[+[1,RPT],2],+[/[RPT,2],Cll[0]]);
}
Ln(-[ANP,1],0);
Rc(0,0,-200);
For[Cll[0]]{
Ln(RPT,-[ANP,1]);
}

La esfera (12 lados)

Cls;
Fnp;
Sto(9,12);
For[7]{
Sto(0,RPT);
For[Cll[9]]{
Po(100,*[Cll[0],30],*[RPT,30]);
}
For[-[Cll[9],1]]{
Ln(+[RPT,*[Cll[0],12]],+[+[RPT,*[Cll[0],12]],1]);
}
Ln(*[Cll[9],RPT],+[11,*[Cll[9],RPT]]
}
For[Cll[9]]{
Sto(0,RPT);
For[/[Cll[9],2]]{
Ln(+[Cll[0],*[Cll[9],RPT]],+[Cll[9],+[Cll[0],*[Cll[9],RPT]]]);
}
}
Op;

La función Op es la optimización de los puntos.