was passiert nach der beitrittserlkärung?
[stratum0-wiki.git] / Gesellschaftsspiel-Replikator%2FPoeppel_V1.mw
1 <pre><nowiki>
2 // Blindenpöppel
3 // (c) Stratum 0 e.V.
4 // 2014-04-14 V2.2
5 // License: WTF
6
7 $fn=50;
8
9 Hoehe=15;
10 Teiler=2;
11 Radius1=Hoehe/Teiler;
12 Randdicke=1;
13 Ringhoehe=3;
14
15 rotate([180,0,0])
16 union()
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 // Hohlraum abziehen
30 color("green") cylinder(Hoehe-1,Radius1-1,Radius1 / Teiler -1);
31 }
32
33
34 // Randverzierungen: nach Wunsch einkommentieren, oder ganz ohne
35
36 // StricheHorizontal(20);
37 StricheVertikal(20);
38 // QuadratischePunkte(32);
39 }
40
41
42
43
44 // Striche horizontal
45
46 module StricheHorizontal(n) // Anzahl der Striche rundherum n=20
47 {
48 Strichlaenge = 3;
49 for(i = [1:n])
50 {
51 rotate([0,0,360/n*i])
52 translate([Radius1,0,Ringhoehe/2])
53 cube ([1,Strichlaenge,1], center=true);
54 }
55 } // end module
56
57
58
59 // Striche vertikal
60 module StricheVertikal(m) // Anzahl der Striche rundherum m
61 {
62
63 for(j = [1:m])
64 {
65 rotate([0,0,360/m*j])
66 {
67 translate([Radius1,0,0]) cube ([1,1,Ringhoehe], center=false);
68 }
69 }
70
71
72 // Quadratische Punkte horizontal
73 module QuadratischePunkte(o) // Anzahl der Striche rund herum o=32
74 {
75 Strichlaenge2 = 1;
76 for(k = [1:o])
77 {
78 rotate([0,0,360/o*k])
79 {
80 translate([Radius1,0,Ringhoehe/2]) cube ([1,Strichlaenge2,1], center=true);
81 }
82 }
83
84 } // end module
85
86 }
87 </nowiki></pre>
This page took 0.059617 seconds and 5 git commands to generate.