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/obj2hackvr.pl | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100755 bin/obj2hackvr.pl

(limited to 'bin/obj2hackvr.pl')

diff --git a/bin/obj2hackvr.pl b/bin/obj2hackvr.pl
new file mode 100755
index 0000000..3639750
--- /dev/null
+++ b/bin/obj2hackvr.pl
@@ -0,0 +1,64 @@
+#!/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;
+open(FILE,$ARGV[1]) if $ARGV[1];
+while(<FILE>) {
+ $_ =~ s/[\n\r]//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 ";
+# print @points+0;
+# for($i=0;$i<(@points+0);$i++) {
+#  print " ";
+#  print $vertices[$points[$i]];
+# }
+# print "\n";
+#}
+
+#convert to triangles
+foreach $tmp (@faces) {
+ @points=split(/ /,$tmp);
+ @points = map { $_ =~ s/\/.+$//g; $_; } @points;
+# print @points;
+ for($i=2;$i<(@points);$i++) {
+  print $ARGV[0];
+  print " addshape 2 3 ";
+  print $vertices[$points[0]-1];
+  print " ";
+  print $vertices[$points[$i-1]-1];
+  print " ";
+  print $vertices[$points[$i]-1];
+  print "\n";
+ }
+}
-- 
cgit v1.2.3