air-hockey-puck: wip

[reprap-play.git] / treefoil.scad.pl

diff --git a/treefoil.scad.pl b/treefoil.scad.pl
index fb46feae727a6f45eb83b9ab23f69175006e49aa..ef9ef2614c83c9f25ad4e79c8080e8dc479ee7a5 100755 (executable)
--- a/treefoil.scad.pl
+++ b/treefoil.scad.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
 
+# Use:
+#   - support X/Y dist 0.5mm
+
 use strict;
 
 our $shape = <<'END';
@@ -7,6 +10,12 @@ xyyZZYYXYxxyzYYZXzzxyXXYXXXZxxxyyXXZyyyzXXzz
 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 $!; }
 
@@ -37,8 +46,9 @@ while (<DATA>) { o $_ }
 
 __DATA__
 
-thick = 7;
+thick = 6;
 edgeu = 10;
+//edgeu = 15;
 
 // calculated
 
@@ -63,6 +73,7 @@ module TraceEdge(p,q) {
     }
 }
 
-Trace();
+rotate([0,0,45])
+  Trace();