fuck if I know. lots of shit. moved files.

1 files changed, 0 insertions, 34 deletions

diff --git a/tools/dat2hackvr.pl b/tools/dat2hackvr.pl
deleted file mode 100755
index 03c5315..0000000
--- a/tools/dat2hackvr.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-die "usage: dat2hackvr.pl name file\n" unless $ARGV[0];
-
-my $line;
-my $prev;
-my $first;
-open(FILE,$ARGV[1]) if $ARGV[1];
-while($line=<FILE>) {
- chomp $line;
- if(!($line =~ m/^#/)) {
-  if($line eq "") {
-#   print $ARGV[0];
-#   print " addtriangle ";
-#   print $prev . " 0 " . $first . " 0 " . $first . " 0";
-#   print "\n";
-   $first="";
-  } else {
-   if($prev ne "") {
-    print $ARGV[0];
-    print " addshape 2 2 ";
-    print $line . " 0 " . $prev . " 0";
-    print "\n";
-   }
-   $prev="";
-  }
-  if($first eq "") {
-   $first=$line;
-  }
-  $prev=$line;
- }
-}