X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=treefoil.scad.pl;h=ee233a948661e66ebc82cdb80d4dc94ac8d059ec;hb=3c1da07f2c510b741d2a83025220c7c1b70aab44;hp=160c175ddda7c8e0a712f75a955b37c62d12be0e;hpb=f169bb60ee7f824cf914ccb654e13654aff51151;p=reprap-play.git

diff --git a/treefoil.scad.pl b/treefoil.scad.pl
index 160c175..ee233a9 100755
--- 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,8 @@ xyyZZYYXYxxyzYYZXzzxyXXYXXXZxxxyyXXZyyyzXXzz
 zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
 yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
 END
+# simple version (unknotted, [0,1,2]^3):
+# YxxyzYYZXzzxyXXYZyyzxZZX
 
 sub o { print @_ or die $!; }
 
@@ -37,8 +42,8 @@ while (<DATA>) { o $_ }
 
 __DATA__
 
-thick = 10;
-edgeu = 20;
+thick = 6;
+edgeu = 10;
 
 // calculated
 
@@ -54,6 +59,17 @@ module OctaThing() {
     }
 }
 
-OctaThing();
+module TraceEdge(p,q) {
+    hull(){
+        for (x=[p,q]) {
+            translate(x * edgeu)
+                OctaThing();
+        }
+    }
+}
+
+rotate([0,0,45])
+  rotate([0,90,0])
+  Trace();