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
bike-phone-mount: wip diagonal
[reprap-play.git]
/
treefoil.scad.pl
diff --git
a/treefoil.scad.pl
b/treefoil.scad.pl
index fb46feae727a6f45eb83b9ab23f69175006e49aa..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,7
+42,7
@@
while (<DATA>) { o $_ }
__DATA__
__DATA__
-thick =
7
;
+thick =
6
;
edgeu = 10;
// calculated
edgeu = 10;
// calculated
@@
-63,6
+68,8
@@
module TraceEdge(p,q) {
}
}
}
}
-Trace();
+rotate([0,0,45])
+ rotate([0,90,0])
+ Trace();