Gesellschaftsspiel-Replikator/Poeppel V1: Unterschied zwischen den Versionen
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
}

