END
print "torusyup = ", ($circle / sqrt(2)), ";\n";
+print "channelstopup = ", ($channel / sqrt(2)), ";\n";
our @ellipse = map {
my $theta = tau * $_ / $N;
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]);
}