Select Code to Download

Using an array as a reference is deprecated at /tmp/3dgraphics2.perl l
+ine 989.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl l
+ine 990.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl l
+ine 1094.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl l
+ine 1096.
Using an array as a reference is deprecated at /tmp/3dgraphics2.perl l
+ine 1129.

       @{$zbuffer}->[$x]->[$y]

       $$zbuffer[$x][$y]

       my $rec = {
                  edge => [$A, $B],
...
                  dz   => $Z1 - $Z2,
                  z    => ( $X1 < $X2 ) ? ($Z1) : ($Z2)
                  };