merge bin from shada

[dotfiles.git] / bin / work / fix_optimierung

diff --git a/bin/work/fix_optimierung b/bin/work/fix_optimierung
new file mode 100755 (executable)
index 0000000..60a1137
--- /dev/null
+++ b/bin/work/fix_optimierung
@@ -0,0 +1,25 @@
+#! /usr/bin/perl
+
+$data_file="optmimierung_test.txt";
+open(DAT, $data_file) || die("Died");
+@raw_data=<DAT>; 
+close(DAT);
+
+$tmp;
+
+foreach $line (@raw_data)
+{
+  ($n,$file,$angle)=split(/\t/,$line);
+
+  if ($n != 1) {
+    $new_angle=$tmp - $angle;
+    $new_angle %= 360;
+    $line =~ s/$angle/$new_angle\n/;
+  } else {
+    $new_angle = $angle;
+  }
+
+  $tmp = $new_angle;
+  $angle = $new_angle;
+  print $line;
+}