flyscreen-handle: topprotr adj

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 68923392680e470b43d450667f2307cef06baad5..5111eb36c1a4071cdc6ffed599e06622dad6df49 100644 (file)
--- 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]);