From ed79435a1efc2f9c348e66dd2d9b6c80e5f8f888 Mon Sep 17 00:00:00 2001
From: epoch <epoch@hacking.allowed.org>
Date: Tue, 19 Dec 2017 03:29:56 -0600
Subject: updated the tools to be color argument aware of addshape

---
 tools/obj2hackvr2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tools/obj2hackvr2.pl')

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 " ";
-- 
cgit v1.2.3