animation for scan pattern

diff --git a/user_interface/scan_pattern_animation.sh b/user_interface/scan_pattern_animation.sh
new file mode 100755 (executable)
index 0000000..dbb1c00
--- /dev/null
+++ b/user_interface/scan_pattern_animation.sh
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+mkdir scan_pattern_animation
+
+for i in $(seq 1 0.03 3 | sed 's/,/./g'); do
+./table_control.pl sub=save_settings sample_step_size=$i 
+./table_control.pl sub=scan_pattern_to_svg 
+inkscape scan_pattern.svg --export-png="./scan_pattern_animation/scan_pattern_"$i".png"
+done
+
+cd scan_pattern_animation
+mencoder mf://*.png -mf w=800:h=600:fps=25:type=png -ovc lavc -lavcopts vcodec=mpeg4:mbd=2:trell -oac copy -o output.avi

diff --git a/user_interface/table_control.pm b/user_interface/table_control.pm
index ef1a04fc64b373220dbdb4f074dac28a14301353..80208eb80d6cef95a64aa2ccd3ce00bc695f6465 100644 (file)
--- a/user_interface/table_control.pm
+++ b/user_interface/table_control.pm
@@ -458,7 +458,7 @@ sub scan_pattern_to_svg {
   my $lastpoint;
   my $counter=0;
   for my $point (@$scan_pattern) {
-    last if ($counter++ > 200);
+    last if ($counter++ > 600);
     
     
     if(1){