From 42b9172b21fa9c5b6e63dd9026aa54ae59257e88 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 May 2014 20:57:41 +0100
Subject: [PATCH] velux-window-grip: wip

---
 velux-window-grip.scad | 54 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 velux-window-grip.scad

diff --git a/velux-window-grip.scad b/velux-window-grip.scad
new file mode 100644
index 0000000..672a42f
--- /dev/null
+++ b/velux-window-grip.scad
@@ -0,0 +1,54 @@
+// -*- C -*-
+
+include <funcs.scad>
+
+main_thick = 3.3;
+main_in_dia = 28.9 + 0.5;
+
+horn_ext_dia = 20 - 0.5; //?
+
+horn_c_x = -5; //?
+horn_c_dy= -5; //?
+
+blhook_start_ang = 45;
+
+width = 20;
+
+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;
+
+horn_thick = main_thick;
+
+module MainLoop(){
+  intersection(){
+    difference(){
+      circle(r= main_in_dia/2 + main_thick, $fn=50);
+      circle(r= main_in_dia/2, $fn=50);
+    }
+    polygon([[0,0],
+	     3*mc_bl,
+	     [0, -100],
+	     [100,-100],
+	     [100,100],
+	     [0,100]]);
+  }
+  translate(mc_bl)
+    circle(main_thick/2);
+  translate([horn_c_x, mc_mid_rad + horn_c_dy])
+    intersection(){
+    difference(){
+      circle(horn_ext_dia/2);
+      circle(horn_ext_dia/2 - horn_thick);
+    }
+    polygon([[0,0],
+	      [-50,0],
+	      [0,50]]);
+  }
+  translate([0,main_in_dia/2]) mirror([1,0])
+    square([-horn_c_x + horn_ext_dia/2 * 0.75, main_thick]);
+}
+
+MainLoop();
-- 
2.30.2