bike-lipo-box: TestSeal: wip

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index d6ffd6a9ad5440d531ca9a6eac5c3e36d39f3401..56fcaa05613abf0e0cd65fdaefc661e83acf6200 100644 (file)
--- 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;