summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/context/third/enigma/examples/enigma-example-context.tex22
-rw-r--r--tex/context/third/enigma/t-enigma.mkvi4
2 files changed, 24 insertions, 2 deletions
diff --git a/doc/context/third/enigma/examples/enigma-example-context.tex b/doc/context/third/enigma/examples/enigma-example-context.tex
index 21baf4c..846fa17 100644
--- a/doc/context/third/enigma/examples/enigma-example-context.tex
+++ b/doc/context/third/enigma/examples/enigma-example-context.tex
@@ -2,6 +2,16 @@
\usetypescript [iwona]
\setupbodyfont [iwona,20pt]
+\defineenigma [nilsettings]
+\setupenigma [nilsettings] [ %% a machine with vanilla settings
+ other_chars = no,
+ day_key = B I II III 01 01 01,
+ rotor_setting = aaa,
+ verbose = 3,
+]
+
+\defineenigma [othernilsettings] [nilsettings]
+
\defineenigma [secretmessage]
\setupenigma [secretmessage] [
other_chars = yes,
@@ -16,6 +26,18 @@
\starttext
+\placefigure{Enigma output and its reversal using nil settings}{
+ \framed [width=.7\hsize,frame=off,align=middle]{
+ \startnilsettings
+ aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aa
+ \stopnilsettings
+
+ \startothernilsettings
+ bdzgo wcxlt ksbtm cdlpb muqof xyhcx tgyjf linhn xs
+ \stopothernilsettings
+ }
+}
+
\startsecretmessage
føo bąr baž
\stopsecretmessage
diff --git a/tex/context/third/enigma/t-enigma.mkvi b/tex/context/third/enigma/t-enigma.mkvi
index fbe48dc..e555583 100644
--- a/tex/context/third/enigma/t-enigma.mkvi
+++ b/tex/context/third/enigma/t-enigma.mkvi
@@ -51,7 +51,7 @@ thirddata = thirddata or { }
\def\do_do_define_enigma#id{%
\edef\enigmaid{#id}%
- \expandafter\gdef\csname start\enigmaid\endcsname{%
+ \expandafter\gdef\csname \v!start\enigmaid\endcsname{%
\endgraf
\bgroup
\ctxlua{
@@ -64,7 +64,7 @@ thirddata = thirddata or { }
}%
}%
%
- \expandafter\gdef\csname stop\enigmaid\endcsname{%
+ \expandafter\gdef\csname \v!stop\enigmaid\endcsname{%
\endgraf%% We need to force a paragraph here for the callback to be
%% applied.
\ctxlua{