From 98e8b71a90856a50147edcce3c30a6836648f497 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 1 Aug 2015 17:36:25 +0100
Subject: [PATCH] pull-cord-keeper: wip, before reorg for ovals

---
 pull-cord-keeper.scad | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 pull-cord-keeper.scad

diff --git a/pull-cord-keeper.scad b/pull-cord-keeper.scad
new file mode 100644
index 0000000..b7a6aa7
--- /dev/null
+++ b/pull-cord-keeper.scad
@@ -0,0 +1,34 @@
+// -*- C -*-
+
+hoopthick = 3;
+
+hinnerrad = 15;
+houterrad = hinnerrad + hoopthick;
+hcentredist = 10;
+
+blockdepth = 5;
+blockwidth = hcentredist*2 + 6;
+
+module Oval(centredist, rad) {
+  hull() {
+    translate([-centredist/2,0,0]) circle(r=rad);
+    translate([+centredist/2,0,0]) circle(r=rad);
+  }
+}  
+
+module Hoop(){
+  difference(){
+    Oval(hcentredist, houterrad);
+    Oval(hcentredist, hinnerrad);
+  }
+}
+
+module Positive(){
+  Hoop();
+  translate([0, (blockdepth + hoopthick)/2 + hinnerrad])
+    square([blockwidth,
+	    blockdepth + hoopthick],
+	   center=true);
+}
+
+Positive();
-- 
2.30.2