Fix truncated octahedrons. #1646
This commit is contained in:
parent
534b8c3f12
commit
45fc748011
@ -186,12 +186,11 @@ sub makeNormalisedGrid {
|
|||||||
my ($z, $gridWidth, $gridHeight, $curveType) = @_;
|
my ($z, $gridWidth, $gridHeight, $curveType) = @_;
|
||||||
|
|
||||||
## offset required to create a regular octagram
|
## offset required to create a regular octagram
|
||||||
my $octagramGap = 1 / (1 + sqrt(2));
|
my $octagramGap = 3/4;
|
||||||
|
|
||||||
# my $octagramGap = 1;
|
|
||||||
|
|
||||||
# sawtooth wave function for range f($z) = [-$octagramGap .. $octagramGap]
|
# 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 = ();
|
my @points = ();
|
||||||
if (($curveType & 1) != 0) {
|
if (($curveType & 1) != 0) {
|
||||||
|
Loading…
Reference in New Issue
Block a user