From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Sep 2015 13:30:52 +0000 (+0100)
Subject: fire-blanket-wall-mushroom: before no csink
X-Git-Tag: filamentspool-v2-release~158
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=915af70a8b740750fc678c0a81751bf5678c257a

fire-blanket-wall-mushroom: before no csink
---

diff --git a/fire-blanket-wall-mushroom.scad b/fire-blanket-wall-mushroom.scad
new file mode 100644
index 0000000..0ccd95f
--- /dev/null
+++ b/fire-blanket-wall-mushroom.scad
@@ -0,0 +1,37 @@
+// -*- C -*-
+
+screwrad = 4.3 / 2 + 0.30;
+shaftrad = 7.5 / 2 - 0.30;
+
+diskrad = 12.0 / 2 - 0.25;
+
+csinkpart = 0.5;
+
+csinkdepth = 3.4 * csinkpart;
+screwheadrad = (8.1 * csinkpart + screwrad * (1-csinkpart)) / 2 + 0.30;
+
+shaftlen = 4;
+
+diskthick = 1.5;
+
+disktaperratio = 2;
+
+// computed
+
+disktaperrad = diskrad - diskthick / disktaperratio;
+totallen = shaftlen + diskthick;
+
+echo(disktaperrad, screwheadrad);
+echo(diskrad, disktaperrad, shaftrad, screwheadrad, screwrad);
+
+module SidePlan(){
+  polygon([[-screwheadrad, 0],
+	   [-disktaperrad, 0],
+	   [-diskrad, -diskthick],
+	   [-shaftrad, -diskthick],
+	   [-shaftrad, -totallen],
+	   [-screwrad, -totallen],
+	   [-screwrad, -csinkdepth]]);
+}
+
+SidePlan();