ksafe-base: introduce SomeBaseProfile (nfc)

[reprap-play.git] / ksafe-base.scad

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 973ec8d3bd49478493628caf3a4558351e539874..2866278a2a7e9021af044eec63bed9f59f22c7ed 100644 (file)
--- 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) {