Gesellschaftsspiel-Replikator/Poeppel V1: Unterschied zwischen den Versionen
Aus Stratum 0
Lulu (Diskussion | Beiträge) (Neu erstellt) |
Lulu (Diskussion | Beiträge) |
||
Zeile 2: | Zeile 2: | ||
// Blindenpöppel | // Blindenpöppel | ||
// (c) Stratum 0 e.V. | // (c) Stratum 0 e.V. | ||
− | // 2014-04-14 | + | // 2014-04-14 V2.2 |
− | // License: | + | // License: WTF |
$fn=50; | $fn=50; | ||
Zeile 10: | Zeile 10: | ||
Teiler=2; | Teiler=2; | ||
Radius1=Hoehe/Teiler; | Radius1=Hoehe/Teiler; | ||
− | |||
Randdicke=1; | Randdicke=1; | ||
Ringhoehe=3; | Ringhoehe=3; | ||
− | rotate ([180,0,0]) | + | rotate([180,0,0]) |
− | { | + | union() |
− | difference() | + | { |
− | { | + | difference() |
− | + | { | |
− | + | union() | |
− | + | { | |
− | + | // Kegel erzeugen | |
+ | color("red") cylinder(Hoehe,Radius1,Radius1 / Teiler); | ||
+ | |||
+ | // Rand auftragen | ||
+ | color("blue") cylinder(Ringhoehe,Radius1,Radius1); | ||
+ | } | ||
− | + | // Hohlraum abziehen | |
− | + | color("green") cylinder(Hoehe-1,Radius1-1,Radius1 / Teiler -1); | |
− | + | } | |
+ | |||
+ | // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne | ||
+ | |||
+ | // StricheHorizontal(20); | ||
+ | StricheVertikal(20); | ||
+ | // QuadratischePunkte(32); | ||
+ | } | ||
− | |||
− | |||
− | |||
− | // | + | // Striche horizontal |
− | + | module StricheHorizontal(n) // Anzahl der Striche rundherum n=20 | |
− | + | { | |
− | // Anzahl der Striche rundherum | + | Strichlaenge = 3; |
− | + | for(i = [1:n]) | |
− | + | { | |
− | + | rotate([0,0,360/n*i]) | |
− | + | translate([Radius1,0,Ringhoehe/2]) | |
− | + | cube ([1,Strichlaenge,1], center=true); | |
− | + | } | |
− | + | } // end module | |
− | // | ||
− | // Striche | + | // Striche vertikal |
− | // Anzahl der Striche rundherum | + | module StricheVertikal(m) // Anzahl der Striche rundherum m |
− | |||
− | |||
− | |||
{ | { | ||
− | + | ||
+ | for(j = [1:m]) | ||
{ | { | ||
− | translate([Radius1,0, | + | rotate([0,0,360/m*j]) |
+ | { | ||
+ | translate([Radius1,0,0]) cube ([1,1,Ringhoehe], center=false); | ||
} | } | ||
} | } | ||
+ | |||
// Quadratische Punkte horizontal | // Quadratische Punkte horizontal | ||
− | // Anzahl der Striche | + | module QuadratischePunkte(o) // Anzahl der Striche rund herum o=32 |
− | + | { | |
− | + | Strichlaenge2 = 1; | |
− | + | for(k = [1:o]) | |
− | + | { | |
− | + | rotate([0,0,360/o*k]) | |
− | + | { | |
− | + | translate([Radius1,0,Ringhoehe/2]) cube ([1,Strichlaenge2,1], center=true); | |
− | + | } | |
− | + | } | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | // | + | } // end module |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
} | } | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
</nowiki></pre> | </nowiki></pre> |
Aktuelle Version vom 14. April 2014, 14:15 Uhr
// Blindenpöppel // (c) Stratum 0 e.V. // 2014-04-14 V2.2 // License: WTF $fn=50; Hoehe=15; Teiler=2; Radius1=Hoehe/Teiler; Randdicke=1; Ringhoehe=3; rotate([180,0,0]) union() { difference() { union() { // Kegel erzeugen color("red") cylinder(Hoehe,Radius1,Radius1 / Teiler); // Rand auftragen color("blue") cylinder(Ringhoehe,Radius1,Radius1); } // Hohlraum abziehen color("green") cylinder(Hoehe-1,Radius1-1,Radius1 / Teiler -1); } // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne // StricheHorizontal(20); StricheVertikal(20); // QuadratischePunkte(32); } // Striche horizontal module StricheHorizontal(n) // Anzahl der Striche rundherum n=20 { Strichlaenge = 3; for(i = [1:n]) { rotate([0,0,360/n*i]) translate([Radius1,0,Ringhoehe/2]) cube ([1,Strichlaenge,1], center=true); } } // end module // Striche vertikal module StricheVertikal(m) // Anzahl der Striche rundherum m { for(j = [1:m]) { rotate([0,0,360/m*j]) { translate([Radius1,0,0]) cube ([1,1,Ringhoehe], center=false); } } // Quadratische Punkte horizontal module QuadratischePunkte(o) // Anzahl der Striche rund herum o=32 { Strichlaenge2 = 1; for(k = [1:o]) { rotate([0,0,360/o*k]) { translate([Radius1,0,Ringhoehe/2]) cube ([1,Strichlaenge2,1], center=true); } } } // end module }