/* Doku */ jessie → stretch, eth0 via systemd-networkd
[stratum0-wiki.git] / Gesellschaftsspiel-Replikator%2FPoeppel_V1.mw
index 2a95d5b..2cf85e4 100644 (file)
@@ -1,37 +1,87 @@
-<pre>
+<pre><nowiki>
 // Blindenpöppel
-// Annette Thurow 
-// 2014-01-21 V1
+// (c) Stratum 0 e.V.
+// 2014-04-14 V2.2
 // License: WTF
 
-Hoehe=30;
-Teiler=3;
+$fn=50;
+
+Hoehe=15;
+Teiler=2;
 Radius1=Hoehe/Teiler;
-RadiusM=Hoehe*(Teiler-1)/Teiler/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
 
-difference()
+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
 {
-     union()
-     {
-          // Kegel erzeugen
-          color("red") cylinder(Hoehe,Radius1,Radius2);
-
-          // Rand auftragen
-          color("blue") cylinder(1,Radius1,Radius1);
-     }
-
-     // Spitze abschneiden
-     translate([0,0,Hoehe/3])        
-     color("orange")cylinder(Hoehe,Radius1,Radius2);
-
-     // Hohlraum abziehen
-     color("green") cylinder(Hoehe-1,Radius1-1,Radius2);
-};
-
-// Deckel draufsetzen
-color("black") 
-translate ([0,0,Radius1-1])
- cylinder(1,RadiusM,RadiusM);
-
-// Hier Verzierungen auf den Rand anbringen todo
-</pre>
+
+    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
+
+}
+</nowiki></pre>
This page took 0.027886 seconds and 4 git commands to generate.