draw left side of highlight box on screen

mohawk2 · mohawk2 · commit 0e0403212a43 · 2026-08-03T01:55:07.000+01:00
diff --git a/lib/PDL/Graphics/TriD/GL.pm b/lib/PDL/Graphics/TriD/GL.pm
@@ -955,7 +955,7 @@ sub highlight {
   );
   my ($w, $h) = @$vp{qw(W H)};
   if (!$hl->{IsValid}) {
-    $hl->{Points} .= PDL->new(PDL::float, [[0,0], [$w-2,0], [$w-2,$h-2], [0,$h-2]]),
+    $hl->{Points} .= PDL->new(PDL::float, [[1,0], [$w-2,0], [$w-2,$h-2], [1,$h-2]]),
     $hl->togl_setup;
     $hl->{IsValid} = 1;
   }

Original file line number	Diff line number	Diff line change
`@@ -955,7 +955,7 @@ sub highlight {`
`955`	`955`	`);`
`956`	`956`	`my ($w, $h) = @$vp{qw(W H)};`
`957`	`957`	`if (!$hl->{IsValid}) {`
`958`		`- $hl->{Points} .= PDL->new(PDL::float, [[0,0], [$w-2,0], [$w-2,$h-2], [0,$h-2]]),`
	`958`	`+ $hl->{Points} .= PDL->new(PDL::float, [[1,0], [$w-2,0], [$w-2,$h-2], [1,$h-2]]),`
`959`	`959`	`$hl->togl_setup;`
`960`	`960`	`$hl->{IsValid} = 1;`
`961`	`961`	`}`