From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 23 Feb 2014 19:34:45 +0000 (+0000)
Subject: wardrobe-hook: straight-on version: SElevationCore
X-Git-Tag: filamentspool-v2-release~426
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;ds=sidebyside;h=b990913b797a437b2e2ccfff4f9e4b08f53c11a9;p=reprap-play.git

wardrobe-hook: straight-on version: SElevationCore
---

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 27b02dc..722a9e1 100644
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -129,6 +129,16 @@ module SPlan(){
 	      hookcurl + 90 - sbend);
 }
 
+module SElevationCore(){
+  boty = shookcy - hookoutrad - 1;
+  polygon([[-1,         tubeheight],
+	   [topwidth,   tubeheight],
+	   [topwidth,   elmid[1]],
+	   [hookwidth,  shookcy],
+	   [hookwidth,  boty],
+	   [-1,         boty]]);
+}
+
 // toplevels etc.
 
 module RightHook(){ ////toplevel
@@ -136,6 +146,7 @@ module RightHook(){ ////toplevel
 }
 
 SPlan();
-translate([60,0,0]) ElevationCore();
+translate([30,0,0]) SElevationCore();
+translate([120,0,0]) ElevationCore();
 //ElevationCore();
 //RightHook();