From 2dc84836b06a8aa771dd7a0df65ccf230f8c0eaa Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 11 Feb 2015 18:30:51 +0000
Subject: [PATCH] screw-recess-test: initial

---
 screw-recess-test.scad | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 screw-recess-test.scad

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
new file mode 100644
index 0000000..2e4fb5c
--- /dev/null
+++ b/screw-recess-test.scad
@@ -0,0 +1,41 @@
+// -*- C -*-
+
+cubez = 12;
+
+shaftdia = 4 + 0.5;
+recessdia = 10 + 1.0;
+
+shaftz = cubez;
+recessz = 5;
+
+recesstopz = recessz + 0.5*recessdia + 0.1;
+xblocky = shaftdia + 0.1;
+
+cubexy = recessdia + 10;
+
+module RecessCylinder(h){
+  translate([0,0,-1]) cylinder(r=recessdia/2, h=h+1, $fn=40);
+}
+
+module Hole(){
+  translate([0,0,-1]) cylinder(r=shaftdia/2, h=shaftz+2, $fn=20);
+  RecessCylinder(recessz);
+  intersection(){
+    translate([-recessdia*1.5, -xblocky/2, -1])
+      cube([recessdia*3, xblocky, recesstopz+3]);
+    translate([0, -recessdia, recesstopz])
+      rotate([0,135,0]) cube([recessdia, recessdia*2, 10]);
+    RecessCylinder(recesstopz+1);
+  }
+}
+
+module Test(){
+  difference(){
+    translate([-cubexy/2, -cubexy/2, 0])
+      cube([cubexy,cubexy,cubez]);
+    Hole();
+  }
+}
+
+Test();
+//Hole();
-- 
2.30.2