ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/objview.pl
(Generate patch)

Comparing ray/src/util/objview.pl (file contents):
Revision 2.1 by greg, Wed Dec 4 20:07:07 2013 UTC vs.
Revision 2.2 by greg, Fri Aug 19 17:51:23 2016 UTC

# Line 31 | Line 31 | my $glradopt = 0;     # An option specific to glrad wa
31  
32   while (@ARGV) {
33          $_ = $ARGV[0];
34 <        if (m/-g/) {   # OpenGL output
34 >        if (m/^-g\b/) {   # OpenGL output
35                  if ( $^O =~ /MSWin32/ ) {
36                          die("OpenGL view is not available under Windows.\n");
37                  }
38                  $usegl = 1;
39 <        } elsif (m/-u/) {   # up direction
39 >        } elsif (m/^-u\b/) {   # up direction
40                  $up = $ARGV[1];
41                  shift @ARGV;
42 <        } elsif ((m/-s/) or (m/-w/)) {   # silent, no warnings
42 >        } elsif ((m/^-s\b/) or (m/^-w/)) {   # silent, no warnings
43                  $opts .= " $_";
44 <        } elsif (m/-b/) {   # back face visibility
44 >        } elsif (m/^-b/) {   # back face visibility
45                  $rendopts .= ' -bv';
46 <        } elsif (m/-v/) {   # standard view "[Xx]?[Yy]?[Zz]?[vlcahs]?"
46 >        } elsif (m/^-v\b/) {   # standard view "[Xx]?[Yy]?[Zz]?[vlcahs]?"
47                  # Let rad do any error handling...
48                  $vw = $ARGV[1];
49                  shift @ARGV;
50 <        } elsif (m/-N/) {   # No. of parallel processes
50 >        } elsif (m/^-N\b/) {   # No. of parallel processes
51                  $opts .= ' -N ' . $ARGV[1];
52                  $radopt = 1;
53                  shift @ARGV;
54 <        } elsif (m/-o/) {   # output device (rvu -devices)
54 >        } elsif (m/^-o\b/) {   # output device (rvu -devices)
55                  $raddev = $ARGV[1];
56                  $radopt = 1;
57                  shift @ARGV;
58 <        } elsif ((m/-V/) or (m/-e/)) {   # print view, explicate variables
58 >        } elsif ((m/^-V\b/) or (m/^-e\b/)) {   # print view, explicate variables
59                  # Think of those two as '-verbose'.
60                  $opts .= " $_";
61                  $radopt = 1;
62 <        } elsif (m/-S/) {   # full-screen stereo
62 >        } elsif (m/^-S\b/) {   # full-screen stereo
63                  $opts .= " $_";
64                  $glradopt = 1;
65          } elsif (m/^-\w/) {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines