diff options
| author | epoch <epoch@hacking.allowed.org> | 2017-12-19 03:29:56 -0600 |
|---|---|---|
| committer | epoch <epoch@hacking.allowed.org> | 2017-12-19 03:29:56 -0600 |
| commit | ed79435a1efc2f9c348e66dd2d9b6c80e5f8f888 (patch) | |
| tree | ceb571f120440c89ed47a593bc3c4168b1f3efea /tools/obj2hackvr2.pl | |
| parent | 74c364b28d3e77d89783828e151a6883a9e093a2 (diff) | |
| download | hackvr-ed79435a1efc2f9c348e66dd2d9b6c80e5f8f888.tar.gz hackvr-ed79435a1efc2f9c348e66dd2d9b6c80e5f8f888.zip | |
updated the tools to be color argument aware of addshape
Diffstat (limited to 'tools/obj2hackvr2.pl')
| -rwxr-xr-x | tools/obj2hackvr2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/obj2hackvr2.pl b/tools/obj2hackvr2.pl index 92d16a7..0736c6d 100755 --- a/tools/obj2hackvr2.pl +++ b/tools/obj2hackvr2.pl @@ -14,6 +14,7 @@ my @parts; my @points; my @tmp; my $tmp; +my $color=2; open(FILE,$ARGV[1]) if $ARGV[1]; while(<FILE>) { chomp; @@ -39,7 +40,7 @@ foreach $tmp (@faces) { @points = map { $_ =~ s/\/.+$//g; $_; } @points; ## print @points; print $ARGV[0]; - print " addshape "; + print " addshape " . (rand()*8%8) . " "; print @points+0; for($i=0;$i<(@points);$i++) { print " "; |