Move away from truncated octahedrons

This commit is contained in:
Alessandro Ranellucci 2014-08-08 02:53:56 +02:00
parent 703ca8b413
commit 66b57a84de

View file

@ -167,8 +167,10 @@ curveType specifies which lines to print, 1 for vertical lines
sub makeNormalisedGrid {
my ($z, $gridWidth, $gridHeight, $curveType) = @_;
# offset required to create a regular octagram
my $octagramGap = 1 / (1 + sqrt(2));
## offset required to create a regular octagram
## my $octagramGap = 1 / (1 + sqrt(2));
my $octagramGap = 1;
# sawtooth wave function for range f($z) = [-$octagramGap .. $octagramGap]
my $offset = (abs((fmod($z * sqrt(2), 4)) - 2) - 1) * $octagramGap;