lemon-stand.scad.pl: channelstopup (for revert)

diff --git a/lemon-stand.scad.pl b/lemon-stand.scad.pl
index ebba9ee874285cab84143eabc5bc23415d60fe9f..d63c0cdd8ff629cff9b6a03363eb0ca637087658 100755 (executable)
--- a/lemon-stand.scad.pl
+++ b/lemon-stand.scad.pl
@@ -21,6 +21,7 @@ print <<END;
 END
 
 print "torusyup = ", ($circle / sqrt(2)), ";\n";
+print "channelstopup = ", ($channel / sqrt(2)), ";\n";
 
 our @ellipse = map {
     my $theta = tau * $_ / $N;
@@ -148,7 +149,11 @@ module Stand(){
     difference(){
        translate([0,0,torusyup])
            Torusy();
-       Channels();
+       intersection(){
+           Channels();
+           translate([-200,-200,-50])
+               cube([400,400, 50+channelstopup]);
+       }
        translate([-200,-200,-50])
            cube([400,400,50]);
     }