From 45fc74801172d1651311217a72c06df0c36c2685 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 8 Aug 2014 13:28:24 +0200
Subject: [PATCH] Fix truncated octahedrons. #1646

---
 lib/Slic3r/Fill/3DHoneycomb.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/Slic3r/Fill/3DHoneycomb.pm b/lib/Slic3r/Fill/3DHoneycomb.pm
index 2f1a52509c..7e705e4f04 100644
--- a/lib/Slic3r/Fill/3DHoneycomb.pm
+++ b/lib/Slic3r/Fill/3DHoneycomb.pm
@@ -186,12 +186,11 @@ sub makeNormalisedGrid {
     my ($z, $gridWidth, $gridHeight, $curveType) = @_;
     
     ## offset required to create a regular octagram
-    my $octagramGap = 1 / (1 + sqrt(2));
-    
-    # my $octagramGap = 1;
+    my $octagramGap = 3/4;
     
     # sawtooth wave function for range f($z) = [-$octagramGap .. $octagramGap]
-    my $offset = (abs((fmod($z * sqrt(2), 4)) - 2) - 1) * $octagramGap;
+    my $wave = abs(fmod($z, 2) - 1)*2 - 1;
+    my $offset = $wave * $octagramGap;
     
     my @points = ();
     if (($curveType & 1) != 0) {