make inter-letter morse gap be real short gap (3 units)

diff --git a/cebpic/morse-generator b/cebpic/morse-generator
index 590f5e4178f91a18970535c4792197803a4fd7ae..335d892fba8ce82ee50474bc589d39392b658a63 100755 (executable)
--- a/cebpic/morse-generator
+++ b/cebpic/morse-generator
@@ -120,7 +120,7 @@ while (<>) {
 
     @data= ();
 
-    $morse= join '00000', map { $morse{$_} } @morse;
+    $morse= join '000', map { $morse{$_} } @morse;
     $morse .= '0' x 7; # padding to fill any partial byte
     while ($morse =~ s/^([01]{8})//) {
        push @data, "$&b";