From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 16 Sep 2012 14:56:46 +0000 (+0100)
Subject: splitpin wip
X-Git-Tag: filamentspool-v2-release~813
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=fd7bf8ad11ee3c446ac74085772c259dced5b73f;ds=inline

splitpin wip
---

diff --git a/splitpin.scad b/splitpin.scad
new file mode 100644
index 0000000..553d14c
--- /dev/null
+++ b/splitpin.scad
@@ -0,0 +1,27 @@
+// -*- C -*-
+
+include <cliphook.scad>
+
+tau = 6.28318530718;
+function deg2rad(deg) = deg/360 * tau;
+
+module SplitPin(w=1.5, holeminrad=3, deviationrad=1, thick=3,
+		mainlen=20){
+  bent_x0 = w*1.5;
+  bent_x1 = holeminrad;
+  bent_dx = bent_x1 - bent_x0;
+  bent_y1 = mainlen;
+  bent_rad = (bent_dy / bent_dx) * bent_dy;
+  bent_subang = atan(bent_dx / bent_dy);
+  actual_mainlen = bent_rad * deg2rad(bent_subang);
+  unbent_dx = bent_dx + deviationrad;
+  
+  for (xmir=[0,1]) mirror([xmir,0,0]) {
+    linear_extrude(height=thick) {
+      FlatArc(0,0, w*0.5, w*1.5, 270-1,360);
+      FlatArc();
+    }
+  }
+}
+
+SplitPin();