From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 23 Feb 2014 19:41:41 +0000 (+0000)
Subject: wardrobe-hook: straight-on version: seems to work
X-Git-Tag: filamentspool-v2-release~425
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=345cb2f967a0422c9e91a7ce68edeb7c299fcd39;p=reprap-play.git

wardrobe-hook: straight-on version: seems to work
---

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 722a9e1..532ec44 100644
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -129,7 +129,7 @@ module SPlan(){
 	      hookcurl + 90 - sbend);
 }
 
-module SElevationCore(){
+module SElevation(){
   boty = shookcy - hookoutrad - 1;
   polygon([[-1,         tubeheight],
 	   [topwidth,   tubeheight],
@@ -139,14 +139,23 @@ module SElevationCore(){
 	   [-1,         boty]]);
 }
 
+module SHook(){
+  intersection(){
+    linear_extrude(height=topwidth) SPlan();
+    rotate([0,-90,0]) translate([0,0,-100]) linear_extrude(height=200)
+      SElevation();
+  }
+}
+
 // toplevels etc.
 
 module RightHook(){ ////toplevel
   mirror([1,0,0]) Hook();
 }
 
-SPlan();
-translate([30,0,0]) SElevationCore();
-translate([120,0,0]) ElevationCore();
+translate([-30,0,0]) SHook();
+//SPlan();
+//translate([30,0,0]) SElevation();
+//translate([120,0,0]) ElevationCore();
 //ElevationCore();
 //RightHook();