#!/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 $!; }
}
}
-Trace();
+rotate([0,0,45])
+ rotate([0,90,0])
+ Trace();