chiark / gitweb /
lemon-stand.scad.pl: channelstopup (for revert)
[reprap-play.git] / lemon-stand.scad.pl
index ebba9ee..d63c0cd 100755 (executable)
@@ -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]);
     }