X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=treefoil.scad.pl;h=ee233a948661e66ebc82cdb80d4dc94ac8d059ec;hb=6dba99d4594590c1af949fbd0379d366a05c2ca6;hp=28e840e01dfc77a510c64c6ada8a7312ce7994a4;hpb=19dabba52eb83aa8ad1d7381ef1d06cfff10e6f1;p=reprap-play.git diff --git a/treefoil.scad.pl b/treefoil.scad.pl index 28e840e..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,7 +42,7 @@ while () { o $_ } __DATA__ -thick = 7; +thick = 6; edgeu = 10; // calculated @@ -63,7 +68,8 @@ module TraceEdge(p,q) { } } -rotate([-45,0,0]) +rotate([0,0,45]) + rotate([0,90,0]) Trace();