From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Oct 2018 00:39:01 +0000 (+0000)
Subject: ksafe-base: introduce SomeBaseProfile (nfc)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;ds=sidebyside;h=37e6240dbeb35539d789f702ebb41d2cae072a6d;p=reprap-play.git

ksafe-base: introduce SomeBaseProfile (nfc)

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

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) {