From d8d5899136057828ca362a5de73f255c10dfd384 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 28 Aug 2023 11:43:34 +0100
Subject: [PATCH] poster-tube-lid: WallMount primary looks good

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 poster-tube-lid.scad | 35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 9a8e169..c51dc13 100644
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -618,24 +618,27 @@ module WallScrewHoleSlot(){ ////toplevel
   }
 }
 
+module WallMountMounts(){
+  linextr(0, wm_z_max){
+    translate([ -sm_outer_rad, 0 ])
+      rectfromto([ 0, -wm_y_max ],
+		 [ wm_thick, wm_y_slot1_max ]);
+  }
+}
+module WallMountScrewHoles(){
+  translate([ -sm_outer_rad + wm_thick, 0, wm_z_slotc_screw]) {
+    translate([ 0, wm_y_slotc_screw, 0 ])
+      WallScrewHoleSlot();
+    translate([ 0, -wm_y_slotc_screw, 0 ])
+      rotate([90,0,0])
+      WallScrewHoleSlot();
+  }
+}
+
 module WallMount(){ ////toplevel
   SomeStrap(sm_main_width, wm_z_max + 2){
-    union(){
-      linextr(0, wm_z_max){
-	translate([ -sm_outer_rad, 0 ])
-	  rectfromto([ 0, -wm_y_max ],
-		     [ wm_thick, wm_y_slot1_max ]);
-      }
-    }
-    union(){
-      translate([ -sm_outer_rad + wm_thick, 0, wm_z_slotc_screw]) {
-	translate([ 0, wm_y_slotc_screw, 0 ])
-	  WallScrewHoleSlot();
-	translate([ 0, -wm_y_slotc_screw, 0 ])
-	  rotate([90,0,0])
-	  WallScrewHoleSlot();
-      }
-    }
+    WallMountMounts();
+    WallMountScrewHoles();
   }
 }
 
-- 
2.30.2