chiark / gitweb /
ksafe-base: introduce SomeBaseProfile (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 31 Oct 2018 00:39:01 +0000 (00:39 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 31 Oct 2018 00:39:01 +0000 (00:39 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
ksafe-base.scad

index 973ec8d..2866278 100644 (file)
@@ -151,11 +151,15 @@ module WebProfile(){
   }
 }
 
   }
 }
 
+module SomeBaseProfile(I, F){
+  polygon([ I,
+           F,
+           [ hsz+1, F[1] ],
+           [ hsz+1, I[1] ] ]);
+}
+
 module BaseProfile(){
 module BaseProfile(){
-  polygon([ $xppI,
-           $xppF,
-           [ hsz+1, $xppF[1] ],
-           [ hsz+1, $xppI[1] ] ]);
+  SomeBaseProfile($xppI, $xppF);
 }
 
 module SWalls(ymin, ymax, t_bevel) {
 }
 
 module SWalls(ymin, ymax, t_bevel) {