wardrobe-hook: straight-on version: sort out toplevels and a Demo

[reprap-play.git] / wardrobe-hook.scad

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 532ec44322a17ae456f1c3b7af3d44636c6ec2c1..b746a1f8e03e8a213241675f61fb1f6debd68c4a 100644 (file)
--- 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();
+}