X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=flyscreen-handle.scad;h=28753b7e26746051a0a24c69ec8f1b20e2b68c03;hb=ee60b10540f16fdd87c389ad102d6a5a0aa0e578;hp=36205f12748edf86e6ab7bf10fd148f55ba3fdc2;hpb=dfcedbd4f731d030e12245b650c2d36ff1a70aaf;p=reprap-play.git

diff --git a/flyscreen-handle.scad b/flyscreen-handle.scad
index 36205f1..28753b7 100644
--- a/flyscreen-handle.scad
+++ b/flyscreen-handle.scad
@@ -147,7 +147,7 @@ module StrapSectTop(){
   }
 }
 
-module StrapSectBot(){
+module StrapSectBot(inadj=false){
   mirror([0,1]){
     for (dx = [ -(strap_below + strap_th),
 		0 ]) {
@@ -158,16 +158,22 @@ module StrapSectBot(){
   }
 }
 
+module Ribbles(xmax, xmin, y){
+  for (x = [ xmax + ourcirc_r - ribble_rad :
+	     -ribble_rad * 4 :
+	     xmin ]) {
+    translate([x, y])
+      circle(r = ribble_rad, $fn=20);
+  }
+}
+
 module LeverSectTop(){
   difference(){
     union(){
       LeverSect(true, false);
-      for (x = [ P8t[0] + ourcirc_r - ribble_rad :
-		 -ribble_rad * 4 :
-		 Q0[0] + edge_or + ribble_rad*2 ]) {
-	translate([x, P5[1] + ourcirc_r])
-	  circle(r = ribble_rad, $fn=20);
-      }
+      Ribbles(P8t[0],
+	      Q0[0] + edge_or + ribble_rad*2,
+	      P5[1] + ourcirc_r);
     }
     translate([pivot_x,0]) circle(r= pivot_r + pivot_slop, $fn=20);
   }
@@ -179,6 +185,9 @@ module LeverSectBot(inadj=false){
     LeverSect(false, inadj);
     PsHull([P5,P6,P7]);
     PsHull([P8b,P8eb,P9eb,P9b]);
+    Ribbles(P8eb[0],
+	    P9b[0],
+	    P8eb[1]);
     translate([pivot_x,0]) circle(r=pivot_r, $fn=20);
   }
 }
@@ -218,27 +227,27 @@ module LeverTop(){ ////toplevel
     StrapSectTop();
   }
 }
-module LeverBot(){ ////toplevel
+module LeverBotOutside(){ ////toplevel
   SomeLever(){
     LeverSectBot();
     StrapSectBot();
   }
 }
-module LeverBotAdj(){ ////toplevel
+module LeverBotInside(){ ////toplevel
   SomeLever(){
     LeverSectBot(true);
     StrapSectBot(true);
   }
 }
 
-module Kit(){ ////toplevel
+module KitOutside(){ ////toplevel
   translate([0,2,0]) LeverTop();
-  LeverBot();
+  LeverBotOutside();
 }
 
-module KitAdj(){ ////toplevel
+module KitInside(){ ////toplevel
   translate([0,2,0]) LeverTop();
-  LeverBotAdj();
+  LeverBotInside();
 }
 
 //LeverSectBot(true);
@@ -246,4 +255,4 @@ module KitAdj(){ ////toplevel
 //LeverTop();
 //Test();
 //Kit();
-//KitAdj();
+//KitInside();