chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
scaffold-clamp-cleat: wip, reorg nfc
[reprap-play.git]
/
treefoil.scad.pl
diff --git
a/treefoil.scad.pl
b/treefoil.scad.pl
index 160c175ddda7c8e0a712f75a955b37c62d12be0e..ee233a948661e66ebc82cdb80d4dc94ac8d059ec 100755
(executable)
--- a/
treefoil.scad.pl
+++ b/
treefoil.scad.pl
@@
-1,5
+1,8
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
+# Use:
+# - support X/Y dist 0.5mm
+
use strict;
our $shape = <<'END';
use strict;
our $shape = <<'END';
@@
-7,6
+10,8
@@
xyyZZYYXYxxyzYYZXzzxyXXYXXXZxxxyyXXZyyyzXXzz
zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
END
zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
END
+# simple version (unknotted, [0,1,2]^3):
+# YxxyzYYZXzzxyXXYZyyzxZZX
sub o { print @_ or die $!; }
sub o { print @_ or die $!; }
@@
-37,8
+42,8
@@
while (<DATA>) { o $_ }
__DATA__
__DATA__
-thick =
10
;
-edgeu =
2
0;
+thick =
6
;
+edgeu =
1
0;
// calculated
// 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();