From bf882ada8b6c7af1e90a515d37ca253ac5a36412 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 5 May 2014 13:54:54 +0100
Subject: [PATCH] velux-window-grip: MainLoopTest 1

---
 velux-window-grip.scad | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/velux-window-grip.scad b/velux-window-grip.scad
index 33c2e1e..ea1edea 100644
--- a/velux-window-grip.scad
+++ b/velux-window-grip.scad
@@ -7,10 +7,13 @@ main_in_dia = 28.9 + 0.5;
 
 horn_ext_dia = 20 - 0.5; //?
 
-horn_c_x = -5; //?
+horn_c_x = -6; //?
 horn_c_dy= -4; //?
 
-blhook_start_ang = 45;
+blhook_start_ang = 40; //?
+
+blhook_str_len = 5.4;
+blhook_mid_rad = 3.5; //?
 
 width = 20;
 
@@ -18,7 +21,7 @@ mc_mid_rad = main_in_dia/2 + main_thick/2;
 
 mc_bl = circle_point([0,0], mc_mid_rad, 270-blhook_start_ang);
 
-$fs=0.1;
+$fs=0.05;
 
 horn_thick = main_thick;
 
@@ -55,6 +58,25 @@ module MainLoop(){
   }
   translate([0,main_in_dia/2]) mirror([1,0])
     square([-horn_c_x + horn_ext_dia/2 * 0.75, main_thick]);
+  translate(mc_bl){
+    translate([-blhook_str_len/2, 0])
+      square(center=true, [blhook_str_len, main_thick]);
+    translate([-blhook_str_len, blhook_mid_rad]){
+      intersection(){
+	difference(){
+	  circle(r=blhook_mid_rad + main_thick/2);
+	  circle(r=blhook_mid_rad - main_thick/2);
+	}
+	mirror([1,1]) square(50);
+      }
+    }
+  }
+}
+
+module MainLoopTest(){
+  linear_extrude(height=1.6)
+    MainLoop();
 }
 
-MainLoop();
+MainLoopTest();
+
-- 
2.30.2