wardrobe-hook: THookL: define it

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

diff --git a/wardrobe-hook.scad b/wardrobe-hook.scad
index 97292d0833d98b9a5c01339f5b5d86ae2702a902..9ea6a3cd0e94299a83dda251b55ecbc25a34b8f4 100644 (file)
--- a/wardrobe-hook.scad
+++ b/wardrobe-hook.scad
@@ -178,12 +178,19 @@ module TPlan(){
   FArcSegment(0,shookcy, hookinrad,hookoutrad,
              tbend1, 270+hookcurl - tbend1);
   translate(tbend0p) {
-    rotate(tbend_raw) mirror([0,1]) {
-      square(size=[mainthick, dist2d(tbend0p,tbend1p)]);
+    rotate(tbend_raw+180) mirror([1,0]) {
+      translate([0,-0.1]) square(size=[mainthick, dist2d(tbend0p,tbend1p)+0.2]);
     }
   }
 }
 
+module THookL(){ ///toplevel
+  intersection(){
+    linear_extrude(height=topwidth) TPlan();
+    SElevationPlaced();
+  }
+}
+
 // other toplevels etc.
 
 module HookR(){ ////toplevel