cascade (18apr18)

git-svn-id: svn://tug.org/texlive/trunk@47532 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 127 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/cascade/cascade.sty b/Master/texmf-dist/tex/latex/cascade/cascade.sty
new file mode 100644
index 00000000000..16b6c063f80
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/cascade/cascade.sty
@@ -0,0 +1,127 @@
+%%
+%% This is file `cascade.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% cascade.dtx  (with options: `package')
+%% 
+%% Copyright (C) 2018 by F. Pantigny
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (at your option) any later
+%% version.  The latest version of this license is in:
+%% 
+%%      http://www.latex-project.org/lppl.txt
+%% 
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2005/12/01 or later.
+%% 
+% \iffalse meta-comment
+\def\myfileversion{1.0}
+\def\myfiledate{2018/04/17}
+\RequirePackage{l3keys2e}
+\ProvidesExplPackage
+  {cascade}
+  {\myfiledate}
+  {\myfileversion}
+  {Easy presentation of demonstrations in cascades}
+\RequirePackage{xparse}
+%%
+%% The following macro is the same as the macro of amsmath
+\cs_if_free:NT \spread@equation
+    {\cs_set_protected:Npn \spread@equation
+               {\openup\jot
+                \cs_set_protected:Npn \spread@equation {}}}
+%%
+%% The following registers will be used for the options.
+\dim_new:N \l__cascade_interline_dim
+\dim_new:N \l__cascade_interline_all_dim
+\dim_new:N \l__cascade_space_between_dim
+\dim_set:Nn \l__cascade_space_between_dim {0.5 em}
+%%
+%% This set of options will be used by \Cascade and \ShortCascade
+\keys_define:nn {cascade/command}
+  {
+   interline          .dim_set:N        = \l__cascade_interline_dim,
+   interline          .value_required:n = true ,
+   interline-all      .code:n           = { \dim_set:Nn \l__cascade_interline_all_dim {#1}
+                                            \dim_set:Nn \l__cascade_interline_dim {#1} },
+   interline-all      .value_required:n = true,
+   space-between      .dim_set:N        = \l__cascade_space_between_dim,
+   space-between      .value_required:n = true}
+%%
+%% This set of options will be used by \CascadeOptions
+\keys_define:nn {cascade/global}
+  {interline-all      .dim_set:N        = \l__cascade_interline_all_dim,
+   interline-all      .value_required:n = true,
+   space-between      .dim_set:N        = \l__cascade_space_between_dim,
+   space-between      .value_required:n = true}
+\NewDocumentCommand \CascadeOptions {m}
+    {\keys_set:nn {cascade/global} {#1}}
+%%
+%% The command \Cascade is defined with \NewDocumentCommand of xparse
+\NewDocumentCommand \Cascade {O{} mmmm}
+   { \if_mode_math:
+        \msg_error:nn {cascade} {Cascade~in~math~mode}
+     \fi:
+     \mode_leave_vertical:
+     \group_begin:
+     \spread@equation
+     \dim_set_eq:NN \l__cascade_interline_dim \l__cascade_interline_all_dim
+     \keys_set:nn {cascade/command} {#1}
+     \box_clear_new:N \l__cascade_box_one
+     \box_clear_new:N \l__cascade_box_two
+     \box_clear_new:N \l__cascade_box_three
+     \box_clear_new:N \l__cascade_box_four
+     \hbox_set:Nn \l__cascade_box_one {#2}
+     \hbox_set:Nn \l__cascade_box_two {#3}
+     \hbox_set:Nn \l__cascade_box_three {#4}
+     \hbox_set:Nn \l__cascade_box_four {#5}
+     \dim_zero_new:N \l__cascade_top_dim
+     \dim_set:Nn \l__cascade_top_dim
+            {\dim_max:nn \c_zero_dim
+                         {\box_ht:N \l__cascade_box_one - \box_ht:N \l__cascade_box_two}}
+     \dim_zero_new:N \l__cascade_bottom_dim
+     \dim_set:Nn \l__cascade_bottom_dim
+            {\dim_max:nn \c_zero_dim
+                         {\box_dp:N \l__cascade_box_three - \box_dp:N \l__cascade_box_four}}
+     \box_set_ht:Nn \l__cascade_box_one \c_zero_dim
+     \box_set_dp:Nn \l__cascade_box_three \c_zero_dim
+     \vbox:n
+      {\skip_vertical:N \l__cascade_top_dim
+       \vbox_top:n
+        {\hbox:n
+          {$\left.
+              \vcenter {\halign{\hfil##\cr
+                                \hbox:n{\tl_if_empty:nF {#2}
+                                          {\box_use_drop:N \l__cascade_box_one
+                                           \skip_horizontal:n \l__cascade_space_between_dim}
+                                        \box_use_drop:N \l__cascade_box_two \strut} \cr
+                                \noalign{\skip_vertical:n \l__cascade_interline_dim}
+                                \hbox:n{\tl_if_empty:nF {#4}
+                                          {\box_use_drop:N \l__cascade_box_three
+                                           \skip_horizontal:n \l__cascade_space_between_dim}
+                                        \box_use_drop:N \l__cascade_box_four \strut} \cr
+                               }
+                       }
+            \right\}$
+          }
+         \skip_vertical:N \l__cascade_bottom_dim
+        }
+      }
+     \group_end:
+}
+\msg_new:nnn {cascade}
+             {Cascade~in~math~mode}
+             {The~commands~\token_to_str:N \Cascade\
+              and~\token_to_str:N \ShortCascade\
+              should~be~used~in~text~mode~only.~However,~you~can~
+              go~on~for~this~time.}
+\NewDocumentCommand \ShortCascade {O{}mm}
+    {\Cascade[#1]{}{#2}{}{#3}}
+
+\endinput
+%%
+%% End of file `cascade.sty'.