#!/usr/bin/perl -w
-# Trying now with:
+# Use:
# - support X/Y dist 0.5mm
use strict;
zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
END
+# simple version (unknotted, [0,1,2]^3):
+# YxxyzYYZXzzxyXXYZyyzxZZX
sub o { print @_ or die $!; }
}
}
-rotate([0,0,90])
+rotate([0,0,45])
rotate([0,90,0])
Trace();