From b705626c0131cf643ddd4a89869ceda8989b35d1 Mon Sep 17 00:00:00 2001 From: Trammell Hudson Date: Sun, 25 Jan 2015 18:29:53 -0500 Subject: [PATCH] two twists --- mobius-maker | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mobius-maker b/mobius-maker index cfe2423..2011725 100755 --- a/mobius-maker +++ b/mobius-maker @@ -8,8 +8,8 @@ use warnings; use strict; my $sections = 12; -my $thickness = 30; -my $radius = [40,0,0]; +my $thickness = 50; +my $radius = [70,0,0]; my $pi = 2*atan2(1,0); my $h = sqrt(3)/2; @@ -145,13 +145,13 @@ sub module my $n = shift; # Generate the six points for the triangles - my $p00 = rotate($pts->[0], $n*120.0/$sections, 2); - my $p01 = rotate($pts->[1], $n*120.0/$sections, 2); - my $p02 = rotate($pts->[2], $n*120.0/$sections, 2); + my $p00 = rotate($pts->[0], $n*240.0/$sections, 2); + my $p01 = rotate($pts->[1], $n*240.0/$sections, 2); + my $p02 = rotate($pts->[2], $n*240.0/$sections, 2); - my $p10 = rotate($pts->[0], ($n+1)*120.0/$sections, 2); - my $p11 = rotate($pts->[1], ($n+1)*120.0/$sections, 2); - my $p12 = rotate($pts->[2], ($n+1)*120.0/$sections, 2); + my $p10 = rotate($pts->[0], ($n+1)*240.0/$sections, 2); + my $p11 = rotate($pts->[1], ($n+1)*240.0/$sections, 2); + my $p12 = rotate($pts->[2], ($n+1)*240.0/$sections, 2); # Now offset them by the radius, after flipping $p00 = v3add($radius, rotate($p00, 90, 0));