bike-lipo-box: CeilProfile

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

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index 39bbf2e4e8636ab4b5979b47583847486e7f915e..60c11659ff0ed313529d0bc2ebf92f6631f28342 100644 (file)
--- a/bike-lipo-box.scad.m4
+++ b/bike-lipo-box.scad.m4
@@ -158,6 +158,11 @@ module LidProfile(){
   }
 }
 
+module CeilProfile(){
+  translate([0, ts_zbox])
+    square([wallthick*2, ceilth]);
+}
+
 module TestSealBox(){
   TestSealDoBoxShape(WallProfile(););
   hull(){ TestSealDoBoxShape(FloorProfile();); }
@@ -165,9 +170,9 @@ module TestSealBox(){
 
 module ProfileDemos(){
   WallProfile();
-  color("blue")
-    FloorProfile();
+  color("blue") FloorProfile();
   LidProfile();
+  color("blue") CeilProfile();
 }
                          
 //TestWall();