zap "Lighting" from options

Author: mohawk2

lib/PDL/Graphics/TriD/Contours.pm

@@ -170,7 +170,6 @@ sub get_valid_options { +{
   ContourMax => undef,
   ContourVals => pdl->null,
   Labels => undef,
-  Lighting => 0,
 }}
 
 =head2 set_colortable($table)

lib/PDL/Graphics/TriD/Graph.pm

@@ -134,7 +134,6 @@ sub get_valid_options { +{
   NDiv => 4,
   Names => [qw(X Y Z)],
   LineWidth => 1,
-  Lighting => 0,
 }}
 
 sub new {

lib/PDL/Graphics/TriD/Image.pm

@@ -21,7 +21,6 @@ my $defaultvert = PDL->pdl([
 ]);
 sub get_valid_options { +{
   UseDefcols => 0,
-  Lighting => 0,
   FullScreen => 0,
   Points => $defaultvert,
 }}

lib/PDL/Graphics/TriD/Objects.pm

@@ -73,7 +73,6 @@ sub set_colors {
 
 sub get_valid_options { +{
   UseDefcols => 0,
-  Lighting => 1,
 }}
 sub get_points { $_[0]{Points} }
 sub cdummies { $_[1] }
@@ -87,7 +86,6 @@ sub cdummies { $_[1]->slice(":," . join ',', map "*$_", grep defined, ($_[2]->di
 sub get_valid_options { +{
   UseDefcols => 0,
   PointSize => 1,
-  Lighting => 0,
 }}
 
 package # hide from PAUSE
@@ -96,7 +94,6 @@ use base qw/PDL::Graphics::TriD::GObject/;
 # need to add radius
 sub get_valid_options { +{
   UseDefcols => 0,
-  Lighting => 1,
 }}
 
 package # hide from PAUSE
@@ -107,7 +104,6 @@ sub r_type { return "SURF2D";}
 sub get_valid_options { +{
   UseDefcols => 0,
   LineWidth => 1,
-  Lighting => 0,
 }}
 
 package # hide from PAUSE
@@ -118,7 +114,6 @@ sub r_type { return "SURF2D";}
 sub get_valid_options { +{
   UseDefcols => 0,
   LineWidth => 1,
-  Lighting => 0,
 }}
 sub new {
   my $options = ref($_[-1]) eq 'HASH' ? pop : {};
@@ -291,7 +286,6 @@ sub cdummies { $_[1]->dummy(1, $_[2]->dim(1)) }
 sub r_type {""}
 sub get_valid_options { +{
   UseDefcols => 0,
-  Lighting => 0,
 }}
 sub new {
   my $options = ref($_[-1]) eq 'HASH' ? pop : {};
@@ -310,7 +304,6 @@ use base qw/PDL::Graphics::TriD::GObject/;
 use fields qw/Strings/;
 sub get_valid_options { +{
   UseDefcols => 0,
-  Lighting => 0,
 }}
 sub new {
   my $options = ref($_[-1]) eq 'HASH' ? pop : {};