topeak-mtx-tortec-expeditionrack-adapter: break out

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/topeak-mtx-tortec-expeditionrack-adapter.scad b/topeak-mtx-tortec-expeditionrack-adapter.scad
index fce69cca0c267a99989e2b0733035714ffb2a915..256f07cfd842591d01af4bc913b1b801045e758c 100644 (file)
--- a/topeak-mtx-tortec-expeditionrack-adapter.scad
+++ b/topeak-mtx-tortec-expeditionrack-adapter.scad
@@ -220,6 +220,20 @@ module FamLinextr(){
     children();
 }
 
+module FamGraspElevation(){
+  hull(){
+    ybot = $rack_rail_y - rack_rail_dia/2 + grasp_large_r
+      - fit_slope_len * 0.5;
+    for (y = [
+             ybot,
+             adapt_main_top_y - grasp_large_r
+             ])
+      for (dx= [-1,+1] * rack_rail_dia/2)
+       translate([ -$foreaftmaint_rail_z + dx, y ])
+         circle(r= grasp_large_r);
+  }
+}
+
 module Principal(){
   // calculated
   $rack_rail_y = rack_rail_y_of_elevation($elevation_nominal);
@@ -275,17 +289,7 @@ module Principal(){
                rectfromto([ -$foreaftmaint_rail_z, adapt_main_top_y ],
                           [ 0, block_y_min]);
            difference(){
-               hull(){
-                 ybot = $rack_rail_y - rack_rail_dia/2 + grasp_large_r
-                   - fit_slope_len * 0.5;
-                 for (y = [
-                           ybot,
-                           adapt_main_top_y - grasp_large_r
-                           ])
-                   for (dx= [-1,+1] * rack_rail_dia/2)
-                     translate([ -$foreaftmaint_rail_z + dx, y ])
-                       circle(r= grasp_large_r);
-               }
+              FamGraspElevation();
              translate([0, adapt_main_top_y])
                 rectfromto([-500, 0], [500, 500]);
            }