Roue paramétrique pour un cours STEM.

Voici le code :

$fn=200 ;
h=3 ; // épaisseur de la roue
ri=72/2 ; //rayon extérieur moins l'épaisseur de la roue
re=80/2 ; //rayon externe de la roue
nr=4 ; // nombre de traits doubles atteints
rfi=5.1/2 ; //rayon du trou intérieur de la roue

différence()
{
union()
{
Garniture (h,ri,re) ;
raggi(ri,h,nr);
Garniture (h, rfi, rfi+2) ;
)
forint(rfi,h+1) ;
)
Module forint(r,alt) {
cylindre(alt,r,r,center=true);
)
Module Raggi (rai, spe, n) :
pour (i=[0:n])
{
rotate([0,90,i*180/n])
cylindre(rai*2,spe/2,spe/2,centre=true);
)
)

Module d'étanchéité (spe, rai, rae) {
différence(){
cylindre(spe,rae,rae,centre=true);
cylindre(spe+2,rai,rai,center=true);
)
)