From bcea502ef79449ab4115dd5be0fe225ffdf32709 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Thu, 14 Jun 2012 10:36:30 +0200 Subject: [examples] further Context demo --- .../enigma/examples/enigma-example-context.tex | 22 ++++++++++++++++++++++ tex/context/third/enigma/t-enigma.mkvi | 4 ++-- 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{ -- cgit v1.2.3