diff options
| author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
|---|---|---|
| committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
| commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
| tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /systems/tex-extensions/clasen/math/cramp.ch | |
Initial commit
Diffstat (limited to 'systems/tex-extensions/clasen/math/cramp.ch')
| -rw-r--r-- | systems/tex-extensions/clasen/math/cramp.ch | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/systems/tex-extensions/clasen/math/cramp.ch b/systems/tex-extensions/clasen/math/cramp.ch new file mode 100644 index 0000000000..57231a383f --- /dev/null +++ b/systems/tex-extensions/clasen/math/cramp.ch @@ -0,0 +1,48 @@ +@x +begin case c div 2 of +0: print_esc("displaystyle"); {|display_style=0|} +1: print_esc("textstyle"); {|text_style=2|} +2: print_esc("scriptstyle"); {|script_style=4|} +3: print_esc("scriptscriptstyle"); {|script_script_style=6|} +othercases print("Unknown style!") +@y +begin case c of +display_style: print_esc("displaystyle"); +display_style+cramped: print_esc("crampeddisplaystyle"); +text_style: print_esc("textstyle"); +text_style+cramped: print_esc("crampedtextstyle"); +script_style: print_esc("scriptstyle"); +script_style+cramped: print_esc("crampedscriptstyle"); +script_script_style: print_esc("scriptscriptstyle"); +script_script_style+cramped: print_esc("crampedscriptscriptstyle"); +othercases print("Unknown style!") +@z +@x +primitive("displaystyle",math_style,display_style); +@!@:display_style_}{\.{\\displaystyle} primitive@> +primitive("textstyle",math_style,text_style); +@!@:text_style_}{\.{\\textstyle} primitive@> +primitive("scriptstyle",math_style,script_style); +@!@:script_style_}{\.{\\scriptstyle} primitive@> +primitive("scriptscriptstyle",math_style,script_script_style); +@!@:script_script_style_}{\.{\\scriptscriptstyle} primitive@> +@y +primitive("displaystyle",math_style,display_style); +@!@:display_style_}{\.{\\displaystyle} primitive@> +primitive("crampeddisplaystyle",math_style,display_style+cramped); +@!@:cramped_display_style_}{\.{\\crampeddisplaystyle} primitive@> +primitive("textstyle",math_style,text_style); +@!@:text_style_}{\.{\\textstyle} primitive@> +primitive("crampedtextstyle",math_style,text_style+cramped); +@!@:cramped_text_style_}{\.{\\crampedtextstyle} primitive@> +primitive("scriptstyle",math_style,script_style); +@!@:script_style_}{\.{\\scriptstyle} primitive@> +primitive("crampedscriptstyle",math_style,script_style+cramped); +@!@:cramped_script_style_}{\.{\\crampedscriptstyle} primitive@> +primitive("scriptscriptstyle",math_style,script_script_style); +@!@:script_script_style_}{\.{\\scriptscriptstyle} primitive@> +primitive("crampedscriptscriptstyle",math_style,script_script_style+cramped); +@!@:cramped_script_script_style_}{\.{\\crampedscriptscriptstyle} primitive@> +@z + + |