From 4a332ac59881dc673f6b4a95d3425619f727b593 Mon Sep 17 00:00:00 2001 From: Lulu Date: Wed, 22 Jan 2014 12:57:32 +0000 Subject: [PATCH] =?utf8?q?Seite=20erstellt:=20OpenSCAD=20f=C3=BCr=20Blinde?= =?utf8?q?n-Domino-Stein?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Gesellschaftsspiel-Replikator%2FDomino_V1.mw | 108 +++++++++++++++++++ 1 file changed, 108 insertions(+) create mode 100644 Gesellschaftsspiel-Replikator%2FDomino_V1.mw diff --git a/Gesellschaftsspiel-Replikator%2FDomino_V1.mw b/Gesellschaftsspiel-Replikator%2FDomino_V1.mw new file mode 100644 index 000000000..185d6715c --- /dev/null +++ b/Gesellschaftsspiel-Replikator%2FDomino_V1.mw @@ -0,0 +1,108 @@ +
+
+
+// Blindendomino
+// 2014-01-22 V1
+// by Stratum 0
+// License: WTF
+
+// **************************************
+// ** Dominos bitte *massiv* drucken!  **
+// **************************************
+
+$fn=20;
+LangeKante=40;
+KurzeKante=LangeKante/2;
+Hoehe=LangeKante/8;
+Ausschnitt=15;
+Kerbe=2;
+Punktpos=LangeKante/2-Kerbe;
+Punkthoehe=Kerbe;
+Punktbasis=2;
+Punktspitze=0;
+Punktabstand=4;
+
+
+intersection()
+{
+sphere (LangeKante*0.8);
+MyDomino();
+}
+
+module MyDomino()
+{
+CutDomino();
+AddPoints();
+}
+
+
+module CutDomino()
+{
+difference()
+{
+     // Basisdomino erstellen
+     cube([LangeKante, KurzeKante, Hoehe], center=true);
+
+     // Ausschnitt für Einkerbungen erstellen
+     // Rechte Seite
+
+     color("red") translate ([LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
+
+     // Ausschnitt für Einkerbungen erstellen
+     // Linke Seite
+
+     color("blue") translate ([-LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
+
+  
+
+};// End Difference
+}; // End Module
+
+// Punkte hinzufügen
+
+
+module AddPoints(){
+
+// Seite Z: 1
+
+color("orange")  
+translate([-LangeKante/4,0,Kerbe])  
+cylinder(Punkthoehe,Punktbasis,Punktspitze);     
+
+// Seite -Z: 6
+
+color("cyan")  
+translate([LangeKante/4+Punktabstand,0,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("white")  
+translate([LangeKante/4-Punktabstand,0,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("green")  
+translate([LangeKante/4+Punktabstand,Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("blue")  
+translate([LangeKante/4-Punktabstand,Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("yellow")  
+translate([LangeKante/4+Punktabstand,-Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("black")  
+translate([LangeKante/4-Punktabstand,-Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+
+}
+
+
+
-- 2.20.1