diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty | 425 |
1 files changed, 240 insertions, 185 deletions
diff --git a/Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty b/Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty index bcca7fdee25..e78454f4fdd 100644 --- a/Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty +++ b/Master/texmf-dist/tex/latex/adfsymbols/adfarrows.sty @@ -1,199 +1,254 @@ -%% Copyright 2019 Clea F. Rees -% -% 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 -% and version 1.3 or later is part of all distributions of LaTeX -% version 2005/12/01 or later. -% -% This work has the LPPL maintenance status `maintained'. -% -% The Current Maintainer of this work is Clea F. Rees. -% -% This work consists of all files listed in manifest.txt. +%% +%% This is file `adfarrows.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% adfarrows.dtx (with options: `sty') +%% +%% Copyright (C) 2024 Clea F. Rees. +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3c +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% https://www.latex-project.org/lppl.txt +%% and version 1.3c or later is part of all distributions of LaTeX +%% version 2008-05-04 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% +%% The Current Maintainer of this work is Clea F. Rees. +%% +%% This file may only be distributed together with a copy of the package +%% fontscripts. You may however distribute the package fontscripts without +%% such generated files. +%% +%% This work consists of all files listed in manifest.txt. +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{adfarrows}[2019/10/13 v1.2b adfarrows CFR] -\RequirePackage{pifont,fp} -{\Pifont{ArrowsADF}} - -\def\adfarrows@ot{opentail}% -\def\adfarrows@p{plain}% -\def\adfarrows@c{comic}% -\def\adfarrows@st{solidtail}% -\def\adfarrows@th{thick}% -\def\adfarrows@t{tail}% -\def\adfarrows@e{e}% -\def\adfarrows@east{east}% -\def\adfarrows@se{se}% -\def\adfarrows@southeast{southeast}% -\def\adfarrows@s{s}% -\def\adfarrows@south{south}% -\def\adfarrows@sw{sw}% -\def\adfarrows@southwest{southwest}% -\def\adfarrows@w{w}% -\def\adfarrows@west{w}% -\def\adfarrows@nw{nw}% -\def\adfarrows@northwest{northwest}% -\def\adfarrows@n{n}% -\def\adfarrows@north{north}% -\def\adfarrows@ne{ne}% -\def\adfarrows@northeast{northeast}% -\FPset\adfarrows@base{0}% -\FPset\adfarrows@add{0}% -\FPset\adfarrowsbase@opentail{3}% -\FPset\adfarrowsbase@plain{11}% -\FPset\adfarrowsbase@comic{19}% -\FPset\adfarrowsbase@solidtail{29}% -\FPset\adfarrowsbase@thick{37}% -\FPset\adfarrowsbase@tail{45}% -\FPset\adfarrowsdir@e{0}% -\FPset\adfarrowsdir@se{1}% -\FPset\adfarrowsdir@s{2}% -\FPset\adfarrowsdir@sw{3}% -\FPset\adfarrowsdir@w{4}% -\FPset\adfarrowsdir@nw{5}% -\FPset\adfarrowsdir@n{6}% -\FPset\adfarrowsdir@ne{7}% -\newcommand*{\adfarrows@dir}[4]{% - \edef\adfarrows@tempw{#1}% - \edef\adfarrows@tempx{#2}% - \edef\adfarrows@tempy{#3}% - \edef\adfarrows@tempz{#4}% - \ifx\adfarrows@tempw\adfarrows@tempz - \FPset\adfarrows@addtemp{\adfarrows@tempy}% - \global\let\adfarrows@add\adfarrows@addtemp - \else - \ifx\adfarrows@tempx\adfarrows@tempz - \FPset\adfarrows@addtemp{\adfarrows@tempy}% - \global\let\adfarrows@add\adfarrows@addtemp - \fi - \fi} -\newcommand*{\adfarrows@fam}[4]{% - \edef\adfarrows@tempw{#1}% - \edef\adfarrows@tempx{#2}% - \edef\adfarrows@tempy{#3}% - \edef\adfarrows@tempz{#4}% - \ifx\adfarrows@tempw\adfarrows@tempz - \FPset\adfarrows@basetemp{\adfarrows@tempy}% - \global\let\adfarrows@base\adfarrows@basetemp - \else - \ifx\adfarrows@tempx\adfarrows@tempz - \FPset\adfarrows@basetemp{\adfarrows@tempy}% - \global\let\adfarrows@base\adfarrows@basetemp - \fi - \fi} -\newcommand*{\adfarrow}[2][]{% - \def\adfarrows@tempa{#1}% - \ifx\adfarrows@tempa\@empty - \Pisymbol{ArrowsADF}{#2}% - \else - \adfarrows@fam{1}{\adfarrows@ot}{\adfarrowsbase@opentail}{#1}% - \adfarrows@fam{2}{\adfarrows@p}{\adfarrowsbase@plain}{#1}% - \adfarrows@fam{3}{\adfarrows@c}{\adfarrowsbase@comic}{#1}% - \adfarrows@fam{4}{\adfarrows@st}{\adfarrowsbase@solidtail}{#1}% - \adfarrows@fam{5}{\adfarrows@th}{\adfarrowsbase@thick}{#1}% - \adfarrows@fam{6}{\adfarrows@t}{\adfarrowsbase@tail}{#1}% - \adfarrows@dir{\adfarrows@s}{\adfarrows@south}{\adfarrowsdir@s}{#2}% - \adfarrows@dir{\adfarrows@se}{\adfarrows@southeast}{\adfarrowsdir@se}{#2}% - \adfarrows@dir{\adfarrows@sw}{\adfarrows@southwest}{\adfarrowsdir@sw}{#2}% - \adfarrows@dir{\adfarrows@n}{\adfarrows@north}{\adfarrowsdir@n}{#2}% - \adfarrows@dir{\adfarrows@ne}{\adfarrows@northeast}{\adfarrowsdir@ne}{#2}% - \adfarrows@dir{\adfarrows@nw}{\adfarrows@northwest}{\adfarrowsdir@nw}{#2}% - \adfarrows@dir{\adfarrows@w}{\adfarrows@west}{\adfarrowsdir@w}{#2}% - \adfarrows@dir{\adfarrows@e}{\adfarrows@east}{\adfarrowsdir@e}{#2}% - \FPadd\adfarrows@arrow\adfarrows@base\adfarrows@add - \FPround{\adfarrows@arrow}{\adfarrows@arrow}{0}% - \ifnum\adfarrows@arrow < 53 - \ifnum\adfarrows@arrow > 0 - \Pisymbol{ArrowsADF}{\adfarrows@arrow}% - \else - \PackageError{adfarrows}{adfarrows@arrow must be greater than 0 but is \adfarrows@arrow}% - \fi - \else - \PackageError{adfarrows}{adfarrows@arrow must be less than than 53 but is \adfarrows@arrow}% - \fi - \fi} - +\RequirePackage{svn-prov} +\ProvidesPackageSVN[\filebase.sty]{$Id: adfarrows.dtx 10467 2024-10-03 23:14:27Z cfrees $}[v1.3 \revinfo ArrowsADF] +\DefineFileInfoSVN[adfarrows] +\newif\if@adfarrows@digonnew +\@ifundefined{ExplLoaderFileDate}{% + \IfFileExists{expl3.sty}{% + \RequirePackage{expl3}% + }{% + \@adfarrows@digonnewfalse + }% +}{\@adfarrows@digonnewtrue} +\if@adfarrows@digonnew +\ExplSyntaxOn +\keys_define:nn { adfarrows } +{ + scale .tl_set:N = \adfarrows@scale, + scale .initial:V = \@empty, +} +\else + \let\adfarrows@scale\@empty +\fi +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\providecommand \IfFormatAtLeastTF { \@ifl@t@r \fmtversion } +\IfFormatAtLeastTF { 2022-06-01 } +{ + \ProcessKeyOptions [ adfarrows ] +}{ + \RequirePackage { l3keys2e } + \ProcessKeysOptions { adfarrows } +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ExplSyntaxOff +\DeclareRobustCommand{\adfarrows@style}{%% do NOT break line below! + \not@math@alphabet\adfarrows@style\relax + \fontencoding{U}\fontfamily{ArrowsADF}\fontseries{m}\fontshape{n}\selectfont +} +\ExplSyntaxOn +\int_new:N \l__adfarrows_base_ot_int +\int_set:Nn \l__adfarrows_base_ot_int {1} +\int_new:N \l__adfarrows_base_p_int +\int_set:Nn \l__adfarrows_base_p_int {2} +\int_new:N \l__adfarrows_base_c_int +\int_set:Nn \l__adfarrows_base_c_int {3} +\int_new:N \l__adfarrows_base_st_int +\int_set:Nn \l__adfarrows_base_st_int {4} +\int_new:N \l__adfarrows_base_th_int +\int_set:Nn \l__adfarrows_base_th_int {5} +\int_new:N \l__adfarrows_base_t_int +\int_set:Nn \l__adfarrows_base_t_int {6} +\int_new:N \l__adfarrows_dir_e_int +\int_set:Nn \l__adfarrows_dir_e_int {0} +\int_new:N \l__adfarrows_dir_east_int +\int_set:Nn \l__adfarrows_dir_east_int {0} +\int_new:N \l__adfarrows_dir_se_int +\int_set:Nn \l__adfarrows_dir_se_int {1} +\int_new:N \l__adfarrows_dir_southeast_int +\int_set:Nn \l__adfarrows_dir_southeast_int {1} +\int_new:N \l__adfarrows_dir_s_int +\int_set:Nn \l__adfarrows_dir_s_int {2} +\int_new:N \l__adfarrows_dir_south_int +\int_set:Nn \l__adfarrows_dir_south_int {2} +\int_new:N \l__adfarrows_dir_sw_int +\int_set:Nn \l__adfarrows_dir_sw_int {3} +\int_new:N \l__adfarrows_dir_southwest_int +\int_set:Nn \l__adfarrows_dir_southwest_int {3} +\int_new:N \l__adfarrows_dir_w_int +\int_set:Nn \l__adfarrows_dir_w_int {4} +\def\adfarrows@west{west}% +\int_new:N \l__adfarrows_dir_west_int +\int_set:Nn \l__adfarrows_dir_west_int {4} +\int_new:N \l__adfarrows_dir_nw_int +\int_set:Nn \l__adfarrows_dir_nw_int {5} +\int_new:N \l__adfarrows_dir_northwest_int +\int_set:Nn \l__adfarrows_dir_northwest_int {5} +\int_new:N \l__adfarrows_dir_n_int +\int_set:Nn \l__adfarrows_dir_n_int {6} +\int_new:N \l__adfarrows_dir_north_int +\int_set:Nn \l__adfarrows_dir_north_int {6} +\int_new:N \l__adfarrows_dir_ne_int +\int_set:Nn \l__adfarrows_dir_ne_int {7} +\int_new:N \l__adfarrows_dir_northeast_int +\int_set:Nn \l__adfarrows_dir_northeast_int {7} +\int_new:N \g__adfarrows_base_int +\int_new:N \g__adfarrows_add_int +\int_new:N \l__adfarrows_base_opentail_int +\int_set:Nn \l__adfarrows_base_opentail_int {3} +\int_new:N \l__adfarrows_base_plain_int +\int_set:Nn \l__adfarrows_base_plain_int {11} +\int_new:N \l__adfarrows_base_comic_int +\int_set:Nn \l__adfarrows_base_comic_int {19} +\int_new:N \l__adfarrows_base_solidtail_int +\int_set:Nn \l__adfarrows_base_solidtail_int {29} +\int_new:N \l__adfarrows_base_thick_int +\int_set:Nn \l__adfarrows_base_thick_int {37} +\int_new:N \l__adfarrows_base_tail_int +\int_set:Nn \l__adfarrows_base_tail_int {45} +\int_new:N \l__adfarrows_arrow_int +\cs_new_nopar:Nn \__adfarrows_arrow:nn +{ + \int_if_exist:cTF { l__adfarrows_base_#1_int } + { + \int_gset_eq:Nc \g__adfarrows_base_int { l__adfarrows_base_#1_int } + }{ % some kind of error check needed here + \int_gset:Nn \g__adfarrows_base_int { #1 } + } + \int_if_exist:cTF { l__adfarrows_dir_#2_int } + { + \int_gset_eq:Nc \g__adfarrows_add_int { l__adfarrows_dir_#2_int } + }{ + \PackageError{adfarrows}{#2 ~not~a~valid~direction.~Setting~east~} + \int_gzero:N \g__adfarrows_add_int + } + \int_set:Nn \l__adfarrows_arrow_int { \g__adfarrows_base_int + \g__adfarrows_add_int } + \int_compare:nNnTF { \l__adfarrows_arrow_int } < { 53 } + { %^^A ~ \ifnum ... \the \numexpr ... N \the \numexpr ... \else ... \fi + \int_compare:nNnTF { \l__adfarrows_arrow_int } > { 0 } + { + \expandafter\adfarrows@style\expandafter\char \int_to_arabic:n { + \l__adfarrows_arrow_int + } + }{ + \PackageError{adfarrows}{\textbackslash l__adfarrows_arrow_int~must~be~greater~than~0~but~is~\int_to_arabic:n {\l__adfarrows_arrow_int}}% + } + }{ + \PackageError{adfarrows}{\textbackslash l__adfarrows_arrow_int ~ must~be~less~than~than~53~but~is~\int_to_arabic:n {\l__adfarrows_arrow_int}}% + } +} +\cs_new_nopar:Nn \__adfarrows_arrow:n +{ + \adfarrows@style\char#1 +} +\NewDocumentCommand \adfarrow { o m } +{ + \group_begin: + \IfValueTF { #1 } + { + \__adfarrows_arrow:nn { #1 } { #2 } + }{ + \__adfarrows_arrow:n { #2 } + } + \group_end: +} +\ExplSyntaxOff \newcommand*{\adfhalfarrowright}{\adfarrow{1}} \newcommand*{\adfhalfarrowleft}{\adfarrow{2}} \newcommand*{\adfhalfarrowrightsolid}{\adfarrow{27}} \newcommand*{\adfhalfarrowleftsolid}{\adfarrow{28}} - \gdef\adfarrowe#1{% - \ifcase #1 \relax - \or \adfarrow{3}% - \or \adfarrow{11}% - \or \adfarrow{19}% - \or \adfarrow{29}% - \or \adfarrow{37}% - \or \adfarrow{45}% - \fi} +\ifcase #1 \relax +\or \adfarrow{3}% +\or \adfarrow{11}% +\or \adfarrow{19}% +\or \adfarrow{29}% +\or \adfarrow{37}% +\or \adfarrow{45}% +\fi} \gdef\adfarrowse#1{% - \ifcase #1 \relax - \or \adfarrow{4}% - \or \adfarrow{12}% - \or \adfarrow{20}% - \or \adfarrow{30}% - \or \adfarrow{38}% - \or \adfarrow{46}% - \fi} +\ifcase #1 \relax +\or \adfarrow{4}% +\or \adfarrow{12}% +\or \adfarrow{20}% +\or \adfarrow{30}% +\or \adfarrow{38}% +\or \adfarrow{46}% +\fi} \gdef\adfarrows#1{% - \ifcase #1 \relax - \or \adfarrow{5}% - \or \adfarrow{13}% - \or \adfarrow{21}% - \or \adfarrow{31}% - \or \adfarrow{39}% - \or \adfarrow{47}% - \fi} +\ifcase #1 \relax +\or \adfarrow{5}% +\or \adfarrow{13}% +\or \adfarrow{21}% +\or \adfarrow{31}% +\or \adfarrow{39}% +\or \adfarrow{47}% +\fi} \gdef\adfarrowsw#1{% - \ifcase #1 \relax - \or \adfarrow{6}% - \or \adfarrow{14}% - \or \adfarrow{22}% - \or \adfarrow{32}% - \or \adfarrow{40}% - \or \adfarrow{48}% - \fi} +\ifcase #1 \relax +\or \adfarrow{6}% +\or \adfarrow{14}% +\or \adfarrow{22}% +\or \adfarrow{32}% +\or \adfarrow{40}% +\or \adfarrow{48}% +\fi} \gdef\adfarroww#1{% - \ifcase #1 \relax - \or \adfarrow{7}% - \or \adfarrow{15}% - \or \adfarrow{23}% - \or \adfarrow{33}% - \or \adfarrow{41}% - \or \adfarrow{49}% - \fi} +\ifcase #1 \relax +\or \adfarrow{7}% +\or \adfarrow{15}% +\or \adfarrow{23}% +\or \adfarrow{33}% +\or \adfarrow{41}% +\or \adfarrow{49}% +\fi} \gdef\adfarrownw#1{% - \ifcase #1 \relax - \or \adfarrow{8}% - \or \adfarrow{16}% - \or \adfarrow{24}% - \or \adfarrow{34}% - \or \adfarrow{42}% - \or \adfarrow{50}% - \fi} +\ifcase #1 \relax +\or \adfarrow{8}% +\or \adfarrow{16}% +\or \adfarrow{24}% +\or \adfarrow{34}% +\or \adfarrow{42}% +\or \adfarrow{50}% +\fi} \gdef\adfarrown#1{% - \ifcase #1 \relax - \or \adfarrow{9}% - \or \adfarrow{17}% - \or \adfarrow{25}% - \or \adfarrow{35}% - \or \adfarrow{43}% - \or \adfarrow{51}% - \fi} +\ifcase #1 \relax +\or \adfarrow{9}% +\or \adfarrow{17}% +\or \adfarrow{25}% +\or \adfarrow{35}% +\or \adfarrow{43}% +\or \adfarrow{51}% +\fi} \gdef\adfarrowne#1{% - \ifcase #1 \relax - \or \adfarrow{10}% - \or \adfarrow{18}% - \or \adfarrow{26}% - \or \adfarrow{36}% - \or \adfarrow{44}% - \or \adfarrow{52}% - \fi} - -\endinput +\ifcase #1 \relax +\or \adfarrow{10}% +\or \adfarrow{18}% +\or \adfarrow{26}% +\or \adfarrow{36}% +\or \adfarrow{44}% +\or \adfarrow{52}% +\fi} %% end adfarrows.sty - +\endinput +%% +%% End of file `adfarrows.sty'. |