Gesellschaftsspiel-Replikator%2FDomino_V1.mw

   1 <pre>
   2
   3
   4 // Blindendomino
   5 // 2014-01-22 V1
   6 // by Stratum 0
   7 // License: WTF
   8
   9 // **************************************
  10 // ** Dominos bitte *massiv* drucken!  **
  11 // **************************************
  12
  13 $fn=20;
  14 LangeKante=40;
  15 KurzeKante=LangeKante/2;
  16 Hoehe=LangeKante/8;
  17 Ausschnitt=15;
  18 Kerbe=2;
  19 Punktpos=LangeKante/2-Kerbe;
  20 Punkthoehe=Kerbe;
  21 Punktbasis=2;
  22 Punktspitze=0;
  23 Punktabstand=4;
  24
  25
  26 intersection()
  27 {
  28 sphere (LangeKante*0.8);
  29 MyDomino();
  30 }
  31
  32 module MyDomino()
  33 {
  34 CutDomino();
  35 AddPoints();
  36 }
  37
  38
  39 module CutDomino()
  40 {
  41 difference()
  42 {
  43      // Basisdomino erstellen
  44      cube([LangeKante, KurzeKante, Hoehe], center=true);
  45
  46      // Ausschnitt für Einkerbungen erstellen
  47      // Rechte Seite
  48
  49      color("red") translate ([LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
  50
  51      // Ausschnitt für Einkerbungen erstellen
  52      // Linke Seite
  53
  54      color("blue") translate ([-LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
  55
  56
  57
  58 };// End Difference
  59 }; // End Module
  60
  61 // Punkte hinzufügen
  62
  63
  64 module AddPoints(){
  65
  66 // Seite Z: 1
  67
  68 color("orange")
  69 translate([-LangeKante/4,0,Kerbe])
  70 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  71
  72 // Seite -Z: 6
  73
  74 color("cyan")
  75 translate([LangeKante/4+Punktabstand,0,Kerbe])
  76
  77 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  78
  79 color("white")
  80 translate([LangeKante/4-Punktabstand,0,Kerbe])
  81
  82 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  83
  84 color("green")
  85 translate([LangeKante/4+Punktabstand,Punktabstand,Kerbe])
  86
  87 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  88
  89 color("blue")
  90 translate([LangeKante/4-Punktabstand,Punktabstand,Kerbe])
  91
  92 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  93
  94 color("yellow")
  95 translate([LangeKante/4+Punktabstand,-Punktabstand,Kerbe])
  96
  97 cylinder(Punkthoehe,Punktbasis,Punktspitze);
  98
  99 color("black")
 100 translate([LangeKante/4-Punktabstand,-Punktabstand,Kerbe])
 101
 102 cylinder(Punkthoehe,Punktbasis,Punktspitze);
 103
 104
 105 }
 106
 107
 108 </pre>