From 49fc84bf8cb4be8e77d8e8aabc3554a353968ae1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 19 Sep 2018 21:26:48 +0100
Subject: [PATCH] lock-inframe-bracket: Refactor ThroughHole to add features

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 lock-inframe-bracket.scad | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lock-inframe-bracket.scad b/lock-inframe-bracket.scad
index 01357e3..be52d09 100644
--- a/lock-inframe-bracket.scad
+++ b/lock-inframe-bracket.scad
@@ -211,19 +211,24 @@ module ExtrudeClipElevation(extra=0){
     children(0);
 }
 
-module ThroughHole(r, y, z) {
-  translate([-50, y, z])
+module ThroughHole(r, y, z, x=-50) {
+  translate([x, y, z])
     rotate([0, 90, 0])
     cylinder(r=r, h=100, $fn=20);
 }
 
-module ThroughHoles(){
+module MountingHoleCylinders(r, x=-50){
   for (z=[ 1/4, 3/4 ]) {
     rotate([0,0, backflange_angle])
-      ThroughHole( mountscrew_dia/2,
+      ThroughHole( r,
 		   -tube_or -0.5*backflange_d,
-		   total_h * z );
+		   total_h * z,
+		   x);
   }
+}
+
+module ThroughHoles(){
+  MountingHoleCylinders(mountscrew_dia/2);
 
   ThroughHole( clipbolt_dia/2,
 	       lock_0y + lock_d/2 + clip_d/2 + front_th/2,
-- 
2.30.2