From 98829f3f7c334d0bd11c1f7db6df149a1de67f15 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Feb 2014 12:30:30 +0000
Subject: [PATCH] wardrobe-hook: wip

---
 wardrobe-hook.scad | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 38efdd9..e37e1da 100644
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -23,4 +23,26 @@ module FArcSegment(xc,yc,inrad,outrad,alpha,delta) {
   }
 }
 
-FArcSegment(10,10, 20,30, 20,10);
+tubeheight = 30;
+tubewidth = 15;
+mainthick = 4;
+
+clipthick = 2;
+clipang = 120;
+
+bend = 5;
+
+tuberad = tubewidth/2;
+mainoutrad = tuberad + mainthick;
+
+module Plan(){
+  dy = tubeheight - tuberad*2;
+  FArcSegment(0, dy, tuberad, mainoutrad, -1, 181);
+  FArcSegment(0, 0,  tuberad, mainoutrad, -bend, bend+1);
+  translate([tuberad, 0]) square(center=false, size=[mainthick,dy]);
+  FArcSegment(0, 0, tuberad, tuberad + clipthick, 360-clipang, clipang+1);
+}
+
+Plan();
+
+//FArcSegment(0, 20, 20,30, 20,160);
-- 
2.30.2