From a8c7b695c0a0e5abe9d6e0adcfabcf5e45ff5895 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 12 Feb 2016 00:55:36 +0000
Subject: [PATCH] bike-lipo-box: CeilProfile

---
 bike-lipo-box.scad.m4 | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/bike-lipo-box.scad.m4 b/bike-lipo-box.scad.m4
index 39bbf2e..60c1165 100644
--- 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();
-- 
2.30.2