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