From 37e6240dbeb35539d789f702ebb41d2cae072a6d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Oct 2018 00:39:01 +0000
Subject: [PATCH] ksafe-base: introduce SomeBaseProfile (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 ksafe-base.scad | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 973ec8d..2866278 100644
--- a/ksafe-base.scad
+++ b/ksafe-base.scad
@@ -151,11 +151,15 @@ module WebProfile(){
   }
 }
 
+module SomeBaseProfile(I, F){
+  polygon([ I,
+	    F,
+	    [ hsz+1, F[1] ],
+	    [ hsz+1, I[1] ] ]);
+}
+
 module BaseProfile(){
-  polygon([ $xppI,
-	    $xppF,
-	    [ hsz+1, $xppF[1] ],
-	    [ hsz+1, $xppI[1] ] ]);
+  SomeBaseProfile($xppI, $xppF);
 }
 
 module SWalls(ymin, ymax, t_bevel) {
-- 
2.30.2