#!/usr/bin/perl -w
+# Use:
+# - support X/Y dist 0.5mm
+
use strict;
our $shape = <<'END';
zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
END
+# simple version (unknotted, [0,1,2]^3):
+# YxxyzYYZXzzxyXXYZyyzxZZX
+#
+# New and less symmetric one that also fits in the 2x2x2 box:
+# YXXyzzYxYXZZxzyxYzyyZXZx
+# (email 8.9.2022)
sub o { print @_ or die $!; }
__DATA__
-thick = 10;
-edgeu = 20;
+thick = 6;
+edgeu = 10;
+//edgeu = 15;
// calculated
}
}
-Trace();
+rotate([0,0,45])
+ Trace();