tikz-bagua (17oct21)

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

1 files changed, 165 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/tikz-bagua/tikz-bagua.sty b/Master/texmf-dist/tex/latex/tikz-bagua/tikz-bagua.sty
new file mode 100644
index 00000000000..d87ac26f414
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tikz-bagua/tikz-bagua.sty
@@ -0,0 +1,165 @@
+%% This is file 'tikz-bagua.sty'
+%%
+%% Developed by Xu Wang
+%% Copyright (C) 2021 by Xu Wang <cwangx@hotmail.com>
+%%
+%% It may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License (LPPL).
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{bagua}[2021/10/17 v1.0 draw Bagua in Yijing via tikz package]
+
+\RequirePackage{tikz}
+\RequirePackage{xstring}
+\RequirePackage{bitset}
+\RequirePackage{xparse}
+\RequirePackage{xintexpr}
+
+%%\taiji[<scale>]
+\newcommand\taiji[1][0.816]{% taiji yinyang
+	\begin{tikzpicture}[baseline=-0.3em,scale=#1]
+		\draw (0,0) circle (0.5em);
+		\fill (0,-0.5em) arc (270:90:0.25em) arc (-90:90:0.25em) arc (90:270:0.5em);
+		\fill (0,-0.25em) circle (0.05em);
+		\fill [fill=white] (0,0.25em) circle (0.05em);
+	\end{tikzpicture}%
+}
+
+%%\drawliangyi[<yshift>]{<0 or 1>}
+\newcommand\drawliangyi[2][0]{%
+	\ifnum #2=0 \draw (0,#1) -- (1em/3,#1) (2em/3,#1) -- (1em,#1)%;%
+	\else%
+		\ifnum #2=1 \draw (0,#1) -- (1em,#1)%;%
+		\else \node {Error!}%
+		\fi%
+	\fi%
+}
+
+%%\liangyi{<0 or 1>}[<scale>]
+\NewDocumentCommand\liangyi{mO{1}}{%
+	\IfInteger{#1}{%
+		\xintifboolexpr{#1 = 0 || #1 = 1}{%
+			\begin{tikzpicture}[baseline=-0.3em,scale=#2]%
+				\drawliangyi{#1};%
+		\end{tikzpicture}}{\@latex@error{Error! Please check whether \#1 is 0 or 1.}{}}%
+	}{\@latex@error{Error! Please check whether \#1 is integer.}{}}%
+}
+
+%%\sixiang{<binary>}[<scale>]
+%%\sixiang*{<decimal>}[<scale>]
+\NewDocumentCommand\sixiang{smO{1}}{% \sixiang{11}=\sixiang*{3}
+	\IfInteger{#2}{% begin of if #2 is an integer
+		\IfBooleanTF#1%
+		{\xintifboolexpr{#2 >= 0 && #2 < 4}% begin of If a star is seen
+			{\bitsetSetDec{sixiangdec}{#2}%
+				\begin{tikzpicture}[baseline=-0.5em,scale=#3]%[baseline=-0.225em] 
+					\foreach \j in {1,0}
+					{
+						\drawliangyi[-\j*0.408em]{\bitsetGet{sixiangdec}{\j}};
+					}
+			\end{tikzpicture}}{\@latex@error{Error! Please check whether 0<=\#1<4.}{}}%
+		}% end of If a star is seen
+		{\StrLen{#2}[\lengthforbinary]%begin of binary
+			\xintifboolexpr{\lengthforbinary=1 || \lengthforbinary=2}{%
+				\bitsetSetBin{sixiangbin}{#2}%
+				\begin{tikzpicture}[baseline=-0.5em,scale=#3]%[baseline=-0.225em]
+					\foreach \j in {1,0}
+					{
+						\drawliangyi[-\j*0.408em]{\bitsetGet{sixiangbin}{\j}};
+					}
+				\end{tikzpicture}%
+			}{\@latex@error{Error! Please check whether 0<=\#1<=11.}{}}%end of binary
+		}%     If no star is seen
+	}% end of if #2 is an integer
+	{\@latex@error{Error! Please check whether \#1 is integer.}{}}% else #2 is not an integer
+}
+
+%%\bagua{<binary>}[<scale>]
+%%\bagua*{<decimal>}[<scale>]
+\NewDocumentCommand\bagua{smO{1}}{% \bagua{101}=\bagua*{5}
+	\IfInteger{#2}{% begin of if #2 is an integer
+		\IfBooleanTF#1%
+		{%% begin of If a star is seen
+			\bitsetSetDec{baguadec}{#2}%
+			\xintifboolexpr {#2 >= 0 && #2 <8}
+			{%
+				\begin{tikzpicture}[baseline=-0.714em,scale=#3]
+					\foreach \j in {2,1,0}
+					{
+						\drawliangyi[-\j*0.408em]{\bitsetGet{baguadec}{\j}};
+					}
+				\end{tikzpicture}%
+			}%
+			{\@latex@error{Error! Please check whether 0<=\#1<8.}{}}%
+		}%% end of If a star is seen
+		{%% begin of If no star is seen
+			\bitsetSetBin{baguabin}{#2}%
+			\StrLen{#2}[\lengthforbinary]%
+			\xintifboolexpr{\lengthforbinary > 0 && \lengthforbinary <4}%
+			{%
+				\begin{tikzpicture}[baseline=-0.714em,scale=#3]
+					\foreach \j in {2,1,0}
+					{
+						\drawliangyi[-\j*0.408em]{\bitsetGet{baguabin}{\j}};
+					}
+				\end{tikzpicture}%
+			}%
+			{\@latex@error{Error! Please check whether 0<=\#1<1000.}{}}%
+		}%% end of If no star is seen
+	}% end of if #2 is an integer
+	{\@latex@error{Error! Please check whether \#1 is integer.}{}}% else #2 is not an integer
+}
+
+%%\Bagua[<2 default, 8>]{<binary, octal>}[<scale>]
+%%\Bagua*{<decimal>}[<scale>]
+\NewDocumentCommand\Bagua{sO{2}mO{1}}{% \bagua{101110}=\bagua[8]{56}=\bagua*{46}
+	\IfInteger{#3}{% begin of if #3 is an integer
+		\IfBooleanTF#1%
+		{%% begin of If a star is seen
+			\bitsetSetDec{baguadec}{#3}%
+			\xintifboolexpr {#3 >= 1 && #3 <64}%
+			{%
+				\begin{tikzpicture}[baseline=-0.714em,scale=#4]
+					\foreach \j in {5,4,...,0}
+					{
+						\drawliangyi[-\j*0.1632em]{\bitsetGet{baguadec}{\j}};
+					}
+				\end{tikzpicture}%
+			}{\@latex@error{Error! Please check whether 0<=\#2<64.}{}}%
+		}%% end of If a star is seen
+		{%% begin of If no star is seen
+			\ifnum#2=2%
+			\bitsetSetBin{baguabin}{#3}%
+			\StrLen{#3}[\lengthforbinary]%
+			\xintifboolexpr{\lengthforbinary >= 1 && \lengthforbinary <7}%
+			{%
+				\begin{tikzpicture}[baseline=-0.714em,scale=#4]
+					\foreach \j in {5,4,...,0}
+					{
+						\drawliangyi[-\j*0.1632em]{\bitsetGet{baguabin}{\j}};
+					}
+				\end{tikzpicture}%
+			}{\@latex@error{Error! Please check whether 0<=\#2<1000000.}{}}%
+			\else%
+			\ifnum#2=8%
+			\bitsetSetOct{baguaoct}{#3}%
+			\StrLen{#3}[\lengthforoct]%
+			\xintifboolexpr{\lengthforoct =1 || \lengthforoct =2}%
+			{%
+				\begin{tikzpicture}[baseline=-0.714em,scale=#4]
+					\foreach \j in {5,4,...,0}
+					{
+						\drawliangyi[-\j*0.1632em]{\bitsetGet{baguaoct}{\j}};
+					}%
+				\end{tikzpicture}%
+			}{\@latex@error{Error! Please check whether 0<=\#2<100.}{}}%
+			\else{\@latex@error{Error! Please check whether \#1 is default (2) or 8.}{}}\fi%
+			\fi%
+		}%% end of If no star is seen
+	}% end of if #3 is an integer
+	{\@latex@error{Error! Please check whether \#2 is integer.}{}}% else #3 is not an integer
+}
+
+\endinput
+%%
+%% End of file 'tikz-bagua.sty'
\ No newline at end of file