From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 26 Aug 2016 00:01:44 +0000 (+0100)
Subject: flyscreen-handle: topprotr adj
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=d41dba652cc5be9d5e36d64733f2743471ed4391

flyscreen-handle: topprotr adj
---

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 6892339..5111eb3 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -11,6 +11,8 @@ retain_empir_angle = 20;
 retain_empir_stalkw = 1.0;
 retain_rad = 1.5;
 
+topprotr_rad = 0.35;
+
 bot_overlap = 5;
 bot_w = 3;
 
@@ -35,7 +37,12 @@ handle_y1 = handle_y0 + handle_h;
 handle_x1 = handle_x0 + bot_w + handle_w;
 
 module InsertSection(){
-  translate([-ins_orad, 0]) square([ins_th, opening_topprotr]);
+  hull(){
+    translate([-ins_orad, 0]) square([ins_th, 0.1]);
+    translate([-ins_irad - topprotr_rad,
+	       opening_topprotr - topprotr_rad])
+      circle(r=topprotr_rad, $fn=10);
+  }
   translate([0, -ins_orad]) square([ins_irad+1, ins_th]);
   intersection(){
     translate([0.1,0.1]) mirror([1,1]) square([100,100]);