Revisions to How to write Morse code into Plot Dashing?

added 102 characters in body

Source Link

edited Nov 21, 2014 at 22:48

37.4k
4
61
152

First define the Morse code (from rosettacode.org with corrections by @evanb)

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", "-...."},
   {"7", "--..."}, {"8", "---.."}, {"9", "----."}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", "-...."},
   {"7", "--..."}, {"8", "---.."}, {"9", "----."}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code (from rosettacode.org with corrections by @evanb)

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", "-...."},
   {"7", "--..."}, {"8", "---.."}, {"9", "----."}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

fixed morse code for 6 through 9.

Source Link

edit approved Nov 21, 2014 at 22:42

evanb

6.6k
20
33

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", ".----...."},
   {"7", "..---..."}, {"8", "...---.."}, {"9", "....----."}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", ".----"},
   {"7", "..---"}, {"8", "...--"}, {"9", "....-"}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", "-...."},
   {"7", "--..."}, {"8", "---.."}, {"9", "----."}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

added 1 character in body

Source Link

edited Nov 21, 2014 at 21:25

rhermans

37.4k
4
61
152

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", ".----"},
   {"7", "..---"}, {"8", "...--"}, {"9", "....-"}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", ".----"},
   {"7", "..---"}, {"8", "...--"}, {"9", "....-"}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

First define the Morse code

morsecode = (#1 -> Characters[#2]) & @@@ {
   {"a", ".-"}, {"b", "-..."}, {"c", "-.-."},
   {"d", "-.."}, {"e", "."}, {"f", "..-."},
   {"g", "--."}, {"h", "...."}, {"i", ".."},
   {"j", ".---"}, {"k", "-.-"}, {"l", ".-.."},
   {"m", "--"}, {"n", "-."}, {"o", "---"},
   {"p", ".--."}, {"q", "--.-"}, {"r", ".-."},
   {"s", "..."}, {"t", "-"}, {"u", "..-"},
   {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
   {"y", "-.--"}, {"z", "--.."}, {"0", "-----"},
   {"1", ".----"}, {"2", "..---"}, {"3", "...--"},
   {"4", "....-"}, {"5", "....."}, {"6", ".----"},
   {"7", "..---"}, {"8", "...--"}, {"9", "....-"}
   };

Use AbsoluteDashing and define dots as short dashed, lines as long dashes and include proper spacing between symbols and characters.

morserule =  Append[(#[[1]] -> Append[Riffle[#[[2]], 3], 12]) & /@ (morsecode /. {"." -> 2 , "-" -> 7}), " " -> {0, 17}];

toMorseDash[s_String] :=  Flatten[Characters[ToLowerCase@s] /. morserule]

Now we can test in a simple line.

Graphics[{Thickness[0.02], AbsoluteDashing[toMorseDash[" Morse Code "]], Line[{{0, 0}, {15, 0}}]}]

For plots, use PlotStyle-> AbsoluteDashing[toMorseDash["text"]]

Plot[Sin[t], {t, 0, 4 Pi}, PlotStyle -> {Thick, AbsoluteDashing[toMorseDash[" Sine Wave"]]}]

added 15 characters in body

Source Link

edited Nov 21, 2014 at 21:19

rhermans

37.4k
4
61
152

Loading

Source Link

created Nov 21, 2014 at 21:10

rhermans

37.4k
4
61
152

Loading

Stack Exchange Network

Return to Answer