From 4d64f5926122c37a8bb18478dd89a4a03402d13f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 23 Feb 2014 19:50:15 +0000
Subject: [PATCH] wardrobe-hook: straight-on version: sort out toplevels and a
 Demo

---
 Makefile           |  2 +-
 wardrobe-hook.scad | 26 +++++++++++++++-----------
 2 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/Makefile b/Makefile
index 6a4b9c5..3d1b5a5 100644
--- a/Makefile
+++ b/Makefile
@@ -8,7 +8,7 @@ PLAY ?= $(CWD)
 
 CONFIG=$(PLAY)/slic3r-config.ini
 
-USING_AUTOS ?= filamentspool xeno-drivebay-bracket dungeonquest-cone anke-gps-bracket cable-hole-trunking-cover anglepoise-neck crossbar-computer-led-mount
+USING_AUTOS ?= filamentspool xeno-drivebay-bracket dungeonquest-cone anke-gps-bracket cable-hole-trunking-cover anglepoise-neck crossbar-computer-led-mount wardrobe-hook
 AUTO_TOPLEVELS := $(foreach m,$(USING_AUTOS),$(shell $(PLAY)/toplevel-find $m))
 
 AUTO_INCS = funcs.scad
diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 532ec44..b746a1f 100644
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -101,7 +101,7 @@ module PlaneAbove(){
 taperangle = -270 + tangent_intersect_beta([-hookcy, 0],
 					  hookoutrad,
 					  [-eltop[1], -eltop[0]]);
-module Hook(){ ////toplevel
+module HookL(){ ////toplevel
   difference(){
     rotate([taperangle,0,0])
       translate([0,-eltop[1],0])
@@ -139,7 +139,7 @@ module SElevation(){
 	   [-1,         boty]]);
 }
 
-module SHook(){
+module SHookL(){ ///toplevel
   intersection(){
     linear_extrude(height=topwidth) SPlan();
     rotate([0,-90,0]) translate([0,0,-100]) linear_extrude(height=200)
@@ -147,15 +147,19 @@ module SHook(){
   }
 }
 
-// toplevels etc.
+// other toplevels etc.
 
-module RightHook(){ ////toplevel
-  mirror([1,0,0]) Hook();
+module HookR(){ ////toplevel
+  mirror([1,0,0]) HookL();
 }
 
-translate([-30,0,0]) SHook();
-//SPlan();
-//translate([30,0,0]) SElevation();
-//translate([120,0,0]) ElevationCore();
-//ElevationCore();
-//RightHook();
+module SHookR(){ ////toplevel
+  mirror([1,0,0]) SHookL();
+}
+
+module Demo(){ ////toplevel
+  translate([-30,tubeheight,0]) HookL();
+  translate([  0,tubeheight,0]) HookR();
+  translate([ 30,         0,0]) SHookL();
+  translate([ 60,         0,0]) SHookR();
+}
-- 
2.30.2