From dca13c69af87b8c6185801d67b16cd271dcc42ed Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 27 Aug 2016 17:11:42 +0100
Subject: [PATCH] flyscreen-handle: bottom strap too

---
 flyscreen-handle.scad | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 331361a..52baafa 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -126,8 +126,8 @@ module LeverSect(top, inadj=false){
   }
 }
 
-module StrapSect(){
-  translate(P9t) {
+module StrapSectTop(){
+  translate(P9t + ourcirc_r * [+1,-1]) {
     difference(){
       circle(r = strap_below + strap_th, $fn=40);
       circle(r = strap_below,            $fn=40);
@@ -135,6 +135,14 @@ module StrapSect(){
   }
 }
 
+module StrapSectBot(){
+  mirror([0,1]){
+    translate(P9b + [ ourcirc_r - (strap_below + strap_th), -10 ]) {
+      square([strap_th, 20]);
+    }
+  }
+}
+
 module LeverSectTop(){
   difference(){
     union(){
@@ -164,7 +172,8 @@ module Demo(){
   LeverSectTop();
   translate([0,0,5]) LeverSectBot();
   color("black") LeverSectBot(true);
-  color("blue") translate([0,0,10]) StrapSect();
+  color("blue") translate([0,0,10]) StrapSectTop();
+  color("purple") translate([0,0,10]) StrapSectBot();
 }
 
 module LeverTop(){
@@ -182,5 +191,5 @@ module Test(){
 }
 
 //LeverSectBot(true);
-//Demo();
-Test();
+Demo();
+//Test();
-- 
2.30.2