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();
- intersection(){
- Channels();
- translate([-200,-200,-50])
- cube([400,400, 50+channelstopup]);
- }
+ Channels();
translate([-200,-200,-50])
cube([400,400,50]);
}