pre-fill pressure min/max in CylindricalEquidistantAxes

mohawk2 · mohawk2 · commit 45e64813fa44 · 2026-05-20T01:42:02.000+01:00
diff --git a/lib/PDL/Graphics/TriD/Graph.pm b/lib/PDL/Graphics/TriD/Graph.pm
@@ -248,7 +248,7 @@ sub new {
 
 sub init_scale {
   my ($this) = @_;
-  $this->{Scale} = [];
+  $this->{Scale} = [undef, undef, [100,1012.5]];
 }
 
 sub add_scale {
@@ -264,10 +264,6 @@ sub add_scale {
 	barf "Error in Latitude $max $min\n";
       }
     }
-    elsif ($i==2) {
-      $max = 1012.5 if $max<1012.5;
-      $min = 100 if $min>100;
-    }
     if (!defined $this->{Scale}[$i]) {
       $this->{Scale}[$i] = [$min,$max];
     } else {

Original file line number	Diff line number	Diff line change
`@@ -248,7 +248,7 @@ sub new {`
`248`	`248`
`249`	`249`	`sub init_scale {`
`250`	`250`	`my ($this) = @_;`
`251`		`- $this->{Scale} = [];`
	`251`	`+ $this->{Scale} = [undef, undef, [100,1012.5]];`
`252`	`252`	`}`
`253`	`253`
`254`	`254`	`sub add_scale {`
`@@ -264,10 +264,6 @@ sub add_scale {`
`264`	`264`	`barf "Error in Latitude $max $min\n";`
`265`	`265`	`}`
`266`	`266`	`}`
`267`		`- elsif ($i==2) {`
`268`		`- $max = 1012.5 if $max<1012.5;`
`269`		`- $min = 100 if $min>100;`
`270`		`- }`
`271`	`267`	`if (!defined $this->{Scale}[$i]) {`
`272`	`268`	`$this->{Scale}[$i] = [$min,$max];`
`273`	`269`	`} else {`