23 color("red") cylinder(Hoehe,Radius1,Radius1 / Teiler);
26 color("blue") cylinder(Ringhoehe,Radius1,Radius1);
30 color("green") cylinder(Hoehe-1,Radius1-1,Radius1 / Teiler -1);
34 // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne
36 // StricheHorizontal(20);
38 // QuadratischePunkte(32);
46 module StricheHorizontal(n) // Anzahl der Striche rundherum n=20
52 translate([Radius1,0,Ringhoehe/2])
53 cube ([1,Strichlaenge,1], center=true);
60 module StricheVertikal(m) // Anzahl der Striche rundherum m
67 translate([Radius1,0,0]) cube ([1,1,Ringhoehe], center=false);
72 // Quadratische Punkte horizontal
73 module QuadratischePunkte(o) // Anzahl der Striche rund herum o=32
80 translate([Radius1,0,Ringhoehe/2]) cube ([1,Strichlaenge2,1], center=true);