From 915af70a8b740750fc678c0a81751bf5678c257a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Sep 2015 14:30:52 +0100
Subject: [PATCH] fire-blanket-wall-mushroom: before no csink

---
 fire-blanket-wall-mushroom.scad | 37 +++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 fire-blanket-wall-mushroom.scad

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();
-- 
2.30.2