Rueda paramétrica para curso STEM.

Aquí está el código:

$fn=200;
h=3; //espesor de la rueda
ri=72/2; //radio exterior menos espesor de la rueda
re=80/2; //radio exterior gira
nr=4; // número de trazos dobles
rfi=5.1/2; //Radio del orificio interior de la rueda

Diferencia()
{
unión()
{
guarnición (h,ri,re);
Raggi(ri,h,nr);
guarnición(h,rfi,rfi+2);
}
forint(rfi,h+1);
}
Módulo forint(r,alt) {
cilindro(alt,r,r,centro=true);
}
Módulo Raggi (rai, spe, n) {
para(i=[0:n])
{
Rotar([0,90,i*180/n])
Cilindro(rai*2,spe/2,spe/2,centro=true);
}
}

Módulo de sellado (spe, rai, rae) {
diferencia(){
cilindro(spe,rae,rae,centro=true);
Cilindro(spe+2,rai,rai,centro=true);
}
}