X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2FDart.pm;h=51f3554a205336ec38ce7cf76cb84918154628f4;hb=3c56468dcf725e2b51076295f16601f8f025922e;hp=3e5dbcae49c67efde6ad78692af34b657c12a1ef;hpb=52738a9c3bc2b9bbd0729d8ba1dcb1b970681e67;p=svn42.git

diff --git a/dart/Dart.pm b/dart/Dart.pm
index 3e5dbca..51f3554 100644
--- a/dart/Dart.pm
+++ b/dart/Dart.pm
@@ -90,6 +90,7 @@ sub run
   $self->{sound_out_fh}=$sound_out_fh;
 
   push @history, Clone::clone($self);
+  print "\033[2J";
   $self->callback('before_shoot');
   #while ( my $shoot_data = <$data_in_fh>)
   while ( my $shoot_data = <STDIN>)
@@ -117,6 +118,7 @@ sub run
       next;
     }
     push @history, Clone::clone($self);
+    print "\033[2J";
     $self->callback('before_shoot');
   }
 }