pre-fill pressure min/max in Pol

mohawk2 · mohawk2 · commit ff1a2a07f396 · 2026-05-20T03:21:35.000+01:00
diff --git a/lib/PDL/Graphics/TriD/Graph.pm b/lib/PDL/Graphics/TriD/Graph.pm
@@ -347,7 +347,7 @@ sub new {
 
 sub init_scale {
   my ($this) = @_;
-  $this->{Scale} = [];
+  $this->{Scale} = [undef, undef, [100,1012.5]];
 }
 
 sub add_scale {
@@ -363,10 +363,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
`@@ -347,7 +347,7 @@ sub new {`
`347`	`347`
`348`	`348`	`sub init_scale {`
`349`	`349`	`my ($this) = @_;`
`350`		`- $this->{Scale} = [];`
	`350`	`+ $this->{Scale} = [undef, undef, [100,1012.5]];`
`351`	`351`	`}`
`352`	`352`
`353`	`353`	`sub add_scale {`
`@@ -363,10 +363,6 @@ sub add_scale {`
`363`	`363`	`barf "Error in Latitude $max $min\n";`
`364`	`364`	`}`
`365`	`365`	`}`
`366`		`- elsif ($i==2) {`
`367`		`- $max = 1012.5 if $max<1012.5;`
`368`		`- $min = 100 if $min>100;`
`369`		`- }`
`370`	`366`	`if (!defined $this->{Scale}[$i]) {`
`371`	`367`	`$this->{Scale}[$i] = [$min,$max];`
`372`	`368`	`} else {`