From 43b1aabb60edd532a7296a7d767c62a1c402c4ee Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 8 Aug 2014 14:16:41 +0200
Subject: [PATCH] Fix truncated octahedrons. #1646

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

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