From 420eeee620a287ac5bf133f8a17329a7182d5bbf Mon Sep 17 00:00:00 2001
From: epoch <epoch@hacking.allowed.org>
Date: Tue, 5 Feb 2019 21:48:29 -0600
Subject: forgot to add bin dir that contains a LOT of the handy stuff

---
 bin/obj2hackvr2.pl | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 bin/obj2hackvr2.pl

(limited to 'bin/obj2hackvr2.pl')

diff --git a/bin/obj2hackvr2.pl b/bin/obj2hackvr2.pl
new file mode 100755
index 0000000..0736c6d
--- /dev/null
+++ b/bin/obj2hackvr2.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+use strict;
+
+die "usage: obj2hackvr.pl name file\n" unless $ARGV[0];
+
+my $i;
+my $j;
+my $com;
+my @vertices;
+my @faces;
+my @linepart;
+my @parts;
+my @points;
+my @tmp;
+my $tmp;
+my $color=2;
+open(FILE,$ARGV[1]) if $ARGV[1];
+while(<FILE>) {
+ chomp;
+ $_ =~ s/[\r\n]//g;
+ @linepart=split(/ /,$_,2);
+ $com=$linepart[0];
+ if($com eq "v") {
+  push(@vertices,$linepart[1]);
+ }
+ if($com eq "f") {
+  push(@faces,$linepart[1]);
+ }
+}
+
+#foreach $tmp (@vertices) {
+# foreach(@$tmp) {
+# print $tmp . "\n";
+# }
+#}
+
+foreach $tmp (@faces) {
+ @points=split(/ /,$tmp);
+ @points = map { $_ =~ s/\/.+$//g; $_; } @points;
+## print @points;
+ print $ARGV[0];
+ print " addshape " . (rand()*8%8) . " ";
+ print @points+0;
+ for($i=0;$i<(@points);$i++) {
+  print " ";
+  print $vertices[$points[$i]-1];
+ }
+ print "\n";
+}
-- 
cgit v1.2.3