Gesellschaftsspiel-Replikator%2FPoeppel_V1.mw

   1 <pre><nowiki>
   2 // Blindenpöppel
   3 // (c) Stratum 0 e.V.
   4 // 2014-04-14 V3.0
   5 // License: CC0
   6
   7 $fn=50;
   8
   9 Hoehe=15;
  10 Teiler=2;
  11 Radius1=Hoehe/Teiler;
  12
  13 Randdicke=1;
  14 Ringhoehe=3;
  15
  16 rotate ([180,0,0])
  17 {
  18 difference()
  19 {
  20      union()
  21      {
  22           // Kegel erzeugen
  23           color("red") cylinder(Hoehe,Radius1,Radius1 / Teiler);
  24
  25           // Rand auftragen
  26           color("blue") cylinder(Ringhoehe,Radius1,Radius1);
  27      }
  28
  29
  30 // Hohlraum abziehen
  31 color("green") cylinder(Hoehe-1,Radius1-1,Radius1 / Teiler -1);
  32 }
  33
  34
  35
  36 // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne
  37
  38 // Neu
  39 // Striche vertikal
  40 // Anzahl der Striche rundherum: n
  41 //n=20;
  42 //for(i = [1:n])
  43 //{
  44 //    rotate([0,0,360/n*i])
  45 //    {
  46 //        translate([Radius1,0,0])  cube ([1,1,Randdicke], center=false);
  47 //    }
  48 //}
  49
  50
  51
  52 // Striche horizontal
  53 // Anzahl der Striche rundherum: n
  54 n=20;
  55 Strichlaenge = 3;
  56 for(i = [1:n])
  57 {
  58     rotate([0,0,360/n*i])
  59     {
  60         translate([Radius1,0,Ringhoehe/2])  cube ([1,Strichlaenge,1], center=true);
  61     }
  62 }
  63
  64 // Quadratische Punkte horizontal
  65 // Anzahl der Striche rundherum: n
  66 //n=32;
  67 //Strichlaenge = 1;
  68 //for(i = [1:n])
  69 //{
  70 //    rotate([0,0,360/n*i])
  71 //    {
  72 //        translate([Radius1,0,Ringhoehe/2])  cube ([1,Strichlaenge,1], center=true);
  73 //    }
  74 //}
  75
  76 // alt
  77
  78
  79 // Kegel:
  80 //randverzierung(n=4) {
  81 //      rotate([0,90,0])
  82 //              cylinder(r1=0.5, r2=0, h=0.5, center=true);
  83 //}
  84
  85
  86 // Striche quer:
  87 //randverzierung(n=9) {
  88 //      cube([0.5,2,0.5], center=true);
  89 //}
  90
  91 // Pyramiden:
  92 //randverzierung(n=11) {
  93 //      rotate([0,90,0])
  94 //      cylinder(r1=0.5, r2=0, h=0.4, center=true, $fn=4);
  95 //}
  96
  97 // Plusse:
  98 //randverzierung(n=12) {
  99 //      rotate([0,90,0]) {
 100 //              cube([1,0.3,0.5], center=true);
 101 //              cube([0.3,1,0.5], center=true);
 102 //      }
 103 //}
 104 }
 105
 106 // Randverzierungen als Kindelemente übergeben
 107 //module randverzierung(n = 12) {
 108 //      for(i = [1:n]) {
 109 //              rotate([0,0,i*(360/n)])
 110 //                      translate([Radius1+0.1,0,0.5])
 111 //                      child();
 112 //      }
 113 //}
 114 </nowiki></pre>