From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 12 Feb 2016 00:32:54 +0000 (+0000)
Subject: bike-lipo-box: floor, profiles, etc.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=94d3ecb72a458c2f9122c99bb9381c1774bf9610;p=reprap-play.git

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

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index 1e2dbed..1879221 100644
--- 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);