10 RadiusM=Hoehe*(Teiler-1)/Teiler/Teiler;
17 color("red") cylinder(Hoehe,Radius1,Radius2);
20 color("blue") cylinder(1,Radius1,Radius1);
24 translate([0,0,Hoehe/3])
25 color("orange")cylinder(Hoehe,Radius1,Radius2);
28 color("green") cylinder(Hoehe-1,Radius1-1,Radius2);
33 translate ([0,0,Radius1-1])
34 cylinder(1,RadiusM,RadiusM);
36 // Hier Verzierungen auf den Rand anbringen todo