From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Feb 2014 12:30:30 +0000 (+0000)
Subject: wardrobe-hook: wip
X-Git-Tag: filamentspool-v2-release~447
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=98829f3f7c334d0bd11c1f7db6df149a1de67f15

wardrobe-hook: wip
---

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