diff options
Diffstat (limited to 'Master/texmf-dist/metapost/cmarrows/cmarrows.mp')
-rw-r--r-- | Master/texmf-dist/metapost/cmarrows/cmarrows.mp | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/cmarrows/cmarrows.mp b/Master/texmf-dist/metapost/cmarrows/cmarrows.mp new file mode 100644 index 00000000000..fe02d670ddc --- /dev/null +++ b/Master/texmf-dist/metapost/cmarrows/cmarrows.mp @@ -0,0 +1,69 @@ +%% cmarrows.mp +%% Copyright 2006 Tommy Ekola <tek@kth.se> +% +% This work 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 +% +% This work has the LPPL maintenance status `maintained'. The Current +% Maintainer of this work is Tommy Ekola. The Base Interpreter is +% MetaPost. + +if known cmarrows_fileversion: endinput fi; +string cmarrows_fileversion; +cmarrows_fileversion := "2006/12/18, v0.9"; +message "Loading cmarrows " & cmarrows_fileversion; + +vardef setup_cmarrows(text argument_list) = + + save sfile; + string sfile; + + save arrow_name, brace_name, parameter_file, macro_name; + string arrow_name, brace_name, parameter_file, macro_name; + + argument_list; + + if not known arrow_name: + arrow_name := brace_name; + fi + + if arrow_name="Bigbrace" : sfile = "tgbx0001.mp"; + elseif arrow_name="Biggbrace" : sfile = "tgbx0002.mp"; + elseif arrow_name="bigbrace" : sfile = "tgbx0003.mp"; + elseif arrow_name="biggbrace" : sfile = "tgbx0004.mp"; + elseif arrow_name="extensiblebrace" : sfile = "tgbx0005.mp"; + elseif arrow_name="parallelarrows" : sfile = "tgbx0006.mp"; + elseif arrow_name="twoheadarrow" : sfile = "tgbx0007.mp"; + elseif arrow_name="twowayoldarrow" : sfile = "sgbx0008.mp"; + elseif arrow_name="paralleloppositearrows": sfile = "rgbx0009.mp"; + elseif arrow_name="twowayarrow" : sfile = "sgbx0010.mp"; + elseif arrow_name="twowaydoublearrow" : sfile = "sgbx0011.mp"; + elseif arrow_name="hookleftarrow" : sfile = "sgbx0012.mp"; + elseif arrow_name="hookrightarrow" : sfile = "sgbx0013.mp"; + elseif arrow_name="doublearrow" : sfile = "sgbx0014.mp"; + elseif arrow_name="lefthalfarrow" : sfile = "sgbx0015.mp"; + elseif arrow_name="paralleloppositerighthalfarrows": sfile = "rgbx0016.mp"; + elseif arrow_name="mapstoarrow" : sfile = "sgbx0017.mp"; + elseif arrow_name="oldtexarrow" : sfile = "sgbx0018.mp"; + elseif arrow_name="righthalfarrow" : sfile = "sgbx0019.mp"; + elseif arrow_name="paralleloppositelefthalfarrows" : sfile = "rgbx0020.mp"; + elseif arrow_name="shortaxisarrow" : sfile = "sgbx0021.mp"; + elseif arrow_name="texarrow" : sfile = "sgbx0022.mp"; + elseif arrow_name="tailarrow" : sfile = "sgbx0023.mp"; + elseif arrow_name="tripplearrow" : sfile = "sgbx0024.mp"; + elseif arrow_name="paralleloppositerightarrows": sfile = "rgbx0025.mp"; + elseif arrow_name="paren" : sfile = "tgbx0027.mp"; + else : errmessage "unknown options"; + fi + + expandafter save scantokens ("setup_" & arrow_name); + + scantokens ("input " & sfile); + + scantokens ("setup_" & arrow_name & "(" & + ditto & parameter_file & ditto & "," & + ditto & macro_name & ditto & ");" ); + +enddef; |