vmario
/
papercraft
0
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix position, maybe

This commit is contained in:
Trammell Hudson 2015-01-03 20:09:49 +01:00
parent d52f024c3d
commit 8c015bcd70
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mobius-maker
View File

@ -1,5 +1,9 @@
#!/usr/bin/perl
# Generate the mobius segments for a twisting bracelet
# (0,0)
# (1,0)
# (0.5,sqrt(3)/2)
# center is (0.5, sqrt(3)/3)
use warnings;
use strict;
@ -8,10 +12,12 @@ my $thickness = 14;
my $radius = [40,0,0];
my $pi = 2*atan2(1,0);
my $h = sqrt(3)/2;
my $pts = [
v3scale($thickness, [-0.5, -sqrt(3)/4 + sqrt(3)/12, 0]),
v3scale($thickness, [ 0.0, +sqrt(3)/4 + sqrt(3)/12, 0]),
v3scale($thickness, [+0.5, -sqrt(3)/4 + sqrt(3)/12, 0]),
v3scale($thickness, [-0.5, -$h/3, 0]),
v3scale($thickness, [ 0.0, +$h*2/3, 0]),
v3scale($thickness, [+0.5, -$h/3, 0]),
];