From a0b38f0cb07b2894c8b222d50d3cfc6faed51467 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Feb 2016 23:55:11 +0000
Subject: [PATCH] bike-lipo-box: TestSeal: wip

---
 bike-lipo-box.scad.m4 | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index d6ffd6a..56fcaa0 100644
--- a/bike-lipo-box.scad.m4
+++ b/bike-lipo-box.scad.m4
@@ -70,9 +70,9 @@ m4_dnl Box_Part($1=transl_x,$2=transl_y, $3=rot_z,$4=mirror_xy)
 m4_dnl          $5=kind(kindargs)
 m4_dnl   profile(profileargsargs);
 m4_define(`Box_Part',`
-  translate([$1,$2])
-    rotate([0,0, $3])
-    mirror([$4, 0,0])
+  translate([($1),($2)])
+    rotate([0,0,($3)])
+    mirror([($4),0,0])
     BoxPart_Extrude_$5') m4_dnl
 
 boxpart_d = 0.01;
@@ -84,6 +84,16 @@ m4_define(`BoxPart_Extrude_Linear',`
     linear_extrude(height= boxpart_d + ($1))
 ')
 
+m4_dnl BoxPart_Extrude_Arc(outer_radius, swept_angle)
+m4_dnl  arc starting at transl_x, transl_y, moving towards positive
+m4_dnl  y at first and then bending towards positive x, until
+m4_dnl  swept_angle is reached
+m4_define(`BoxPart_Extrude_Arc',`
+  translate([+($1),0,0])
+    rotate_extrude(angle=($2), convexity=10, $fs=1, $fn=36)
+    translate([-($1),0,0])
+')
+
 ts_xbox_lin = ts_xbox - ts_cnrrad*2;
 ts_ybox_lin = ts_ybox - ts_cnrrad*2;
 
-- 
2.30.2