these files I needed when pablo gave me lang-*.png images because they were not aligned.. commiting in case

1 files changed, 113 insertions, 0 deletions

diff --git a/tools/shift_all.pl b/tools/shift_all.pl
new file mode 100644
index 000000000..88abfa0e1
--- /dev/null
+++ b/tools/shift_all.pl
@@ -0,0 +1,113 @@
+use MDK::Common;
+
+my %shifts = (
+'af' => 1,
+'am' => 1,
+'ar' => 0,
+'az' => 1,
+'be' => 2,
+'bg' => 2,
+'bn' => 1,
+'br' => 2,
+'bs' => 2,
+'ca' => 2,
+'cs' => 2,
+'cy' => 2,
+'da' => 2,
+'de' => 2,
+'el' => 2,
+'en_GB' => 2,
+'en_US' => 2,
+'eo' => 2,
+'es' => 2,
+'et' => 2,
+'eu' => 2,
+'fa' => 0,
+'fi' => 1,
+'fo' => 2,
+'fr' => 2,
+'ga' => 2,
+'gd' => 2,
+'gl' => 2,
+'gv' => 2,
+'he' => 0,
+'hi' => 1,
+'hr' => 2,
+'hu' => 2,
+'hy' => 1,
+'ia' => 2,
+'id' => 1,
+'is' => 1,
+'it' => 1,
+'iu' => 1,
+'ja' => 3,
+'ka' => 1,
+'kn' => 1,
+'ko' => 1,
+'kw' => 0,
+'lo' => 0,
+'lt' => 0,
+'lv' => 0,
+'mi' => 0,
+'mk' => 0,
+'mn' => 0,
+'mr' => 0,
+'ms' => 0,
+'mt' => 0,
+'nb' => 0,
+'nl' => 0,
+'nn' => 0,
+'no' => 0,
+'oc' => 0,
+'pl' => 0,
+'pt_BR' => 0,
+'pt' => 0,
+'ro' => 0,
+'ru' => 0,
+'sk' => 0,
+'sl' => 0,
+'sp' => 0,
+'sq' => 0,
+'sr' => 0,
+'sv' => 0,
+'ta' => 1,
+'te' => 1,
+'tg' => 0,
+'th' => 0,
+'tr' => 0,
+'tt' => 1,
+'uk' => 0,
+'ur' => 1,
+'uz' => 0,
+'vi' => 0,
+'wa' => 0,
+'yi' => 0,
+'zh_CN' => 0,
+'zh_TW' => 0,
+);
+
+foreach (glob("lang*.png")) {
+    /lang-(.*)\.png/;
+    exists $shifts{$1} or die "doesn't exist for $_";
+    $shifts{$1} or next;
+    print "./a.out $_ l.png $shifts{$1}\n";
+    system("./a.out $_ l.png $shifts{$1}");
+    renamef('l.png', $_);
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+