Параметрическая ротация для курса STEM.

Вот код:

$fn=200;
h=3; // толщина колеса
ri=72/2; //внешний радиус минус толщина колеса.
re=80/2; //внешний радиус вращается
НР=4; //двойные цифры
rfi=5.1/2; //радиус внутреннего отверстия колеса

difference()
{
union()
{
Гарнитура (h,ri,re);
Раджи(ри,х,нр);
Гуарниция (h, rfi, rfi+2);
)
forint(rfi,h+1);
)
Модуль для форинта (r, alt):
Цилиндр(высота, радиус, радиус, центр=истина);
)
Модуль raggi(rai,spe,n){
для(i=[0:n])
{
Поворачиваем ([0,90, i*180/n])
Цилиндр(rai*2,spe/2,spe/2,center=true);
)
)

Модуль уплотнения (spe, rai, rae) {
Разница().
Цилиндр(spe,rae,rae,center=true);
Цилиндр(spe+2,rai,rai,center=true);
)
)