chiark / gitweb /
bigger inter-letter gap
authorian <ian>
Sun, 18 Dec 2005 18:48:39 +0000 (18:48 +0000)
committerian <ian>
Sun, 18 Dec 2005 18:48:39 +0000 (18:48 +0000)
cebpic/morse-generator

index 132e5d26567abf7aab785e1a66816ee35d2004a3..622ba7a82dfbe3cb8e8804710464c4d2f97a2171 100755 (executable)
@@ -120,7 +120,7 @@ while (<>) {
 
     @data= ();
 
-    $morse= join '000', map { $morse{$_} } @morse;
+    $morse= join '00000', map { $morse{$_} } @morse;
     $morse .= '0' x 7; # padding to fill any partial byte
     while ($morse =~ s/^([01]{8})//) {
        push @data, "$&b";