bike-lipo-box: floor, profiles, etc.

[reprap-play.git] / bike-lipo-box.scad.m4

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index 1e2dbed5462d64207b8e65a6c470ac7e9ac296ba..1879221f3cc1f80ee911cb3aabd13a311138c824 100644 (file)
--- a/bike-lipo-box.scad.m4
+++ b/bike-lipo-box.scad.m4
@@ -56,9 +56,8 @@ module TestWall(){
   }    
 }
 
-ts_floorceil = 1.5;
-ts_outer = [20,20,20];
-ts_wall = [wallthick,wallthick,ts_floorceil];
+floorth = 1.5;
+ceilth = 1.5;
 
 ts_xbox = 30;
 ts_ybox = 25;
@@ -125,17 +124,28 @@ m4_define(`TestSealDoBoxShape',`
 
 m4_dnl '
 
-module TestSealWallProfile(){
+module WallProfile(){
   z = ts_zbox - ts_innertube - wallthick/2;
   translate([0, -0.1]) square([wallthick, z]);
   translate([wallthick/2, z]) circle(r = wallthick/2, $fn=20);
 }
 
+module FloorProfile(){
+  mirror([0,1]) square([wallthick, floorth]);
+}
+
 module TestSealBox(){
-  TestSealDoBoxShape(`TestSealWallProfile();');
+  TestSealDoBoxShape(WallProfile(););
+  hull(){ TestSealDoBoxShape(FloorProfile();); }
 }
 
+module ProfileDemos(){
+  WallProfile();
+  color("blue")
+    FloorProfile();
+}
+                         
 //TestWall();
-//TestSealWallProfile();
-TestSealBox();
+//TestSealBox();
+ProfileDemos();
 //FArcSegment_mask(350);