12 RadiusM=Hoehe*(Teiler-1)/Teiler/Teiler;
14 // Randverzierungen als Kindelemente übergeben
15 module randverzierung(n = 12) {
17 rotate([0,0,i*(360/n)])
18 translate([Radius1+0.1,0,0.5])
28 color("red") cylinder(Hoehe,Radius1,Radius2);
31 color("blue") cylinder(1,Radius1,Radius1);
35 translate([0,0,Hoehe/3])
36 color("orange")cylinder(Hoehe,Radius1,Radius2);
39 color("green") cylinder(Hoehe-1,Radius1-1,Radius2);
44 translate ([0,0,Radius1-1])
45 cylinder(1,RadiusM,RadiusM);
47 // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne
50 //randverzierung(n=4) {
52 // cylinder(r1=0.5, r2=0, h=0.5, center=true);
56 //randverzierung(n=5) {
58 // cube([1,0.5,0.5], center=true);
62 //randverzierung(n=9) {
63 // cube([0.5,2,0.5], center=true);
67 //randverzierung(n=11) {
69 // cylinder(r1=0.5, r2=0, h=0.4, center=true, $fn=4);
73 //randverzierung(n=12) {
75 // cube([1,0.3,0.5], center=true);
76 // cube([0.3,1,0.5], center=true);