From ad3ad18aa939862832c90a74bcf41e8a5570ff65 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 18 Oct 2021 03:01:28 +0000 Subject: CTAN sync 202110180301 --- graphics/pgf/contrib/tikz-bagua/README.md | 52 ++++++++ graphics/pgf/contrib/tikz-bagua/tikz-bagua.pdf | Bin 0 -> 51454 bytes graphics/pgf/contrib/tikz-bagua/tikz-bagua.sty | 165 +++++++++++++++++++++++++ graphics/pgf/contrib/tikz-bagua/tikz-bagua.tex | 100 +++++++++++++++ 4 files changed, 317 insertions(+) create mode 100644 graphics/pgf/contrib/tikz-bagua/README.md create mode 100644 graphics/pgf/contrib/tikz-bagua/tikz-bagua.pdf create mode 100644 graphics/pgf/contrib/tikz-bagua/tikz-bagua.sty create mode 100644 graphics/pgf/contrib/tikz-bagua/tikz-bagua.tex (limited to 'graphics') diff --git a/graphics/pgf/contrib/tikz-bagua/README.md b/graphics/pgf/contrib/tikz-bagua/README.md new file mode 100644 index 0000000000..5a608c339e --- /dev/null +++ b/graphics/pgf/contrib/tikz-bagua/README.md @@ -0,0 +1,52 @@ +tikz-bagua +======== + +The `tikz-bagua` package provides commands to drawing symbols in Yijing (I Ching) or Zhouyi. And there is not need extra special fonts for showing those symbols. + +Basic Usage +----------- +The package provides the following macros: + + \Bagua{} + +Convert `` to a corresponding symbol in Yijing (I Ching) or Zhouyi. + + \Bagua*{} + +Similar to `\Bagua{}`, but option must be a decimal number. + +Taiji (Yinyang), Liangyi ans Sixiang symbols are considered too. + +You can read the package manual (in Chinese) for more detailed explanations. + +Contributing +------------ + +This package is on [TikZ-Bugua](https://github.com/duplli/tikz-bagua). + +Issues and pull requests are welcome. + +Copyright and Licence +--------------------- + + Copyright (C) 2012, 2014-2020 by WANG Xu + ---------------------------------------------------------------------- + + 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. This version of this license is in + http://www.latex-project.org/lppl/lppl-1-3c.txt + and 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 WANG Xu. + + This package consists of the file tikz-bagua.sty, + tikz-bagua.pdf, + tikz-bagua.tex, + README.md (this file). diff --git a/graphics/pgf/contrib/tikz-bagua/tikz-bagua.pdf b/graphics/pgf/contrib/tikz-bagua/tikz-bagua.pdf new file mode 100644 index 0000000000..78b2fbdc58 Binary files /dev/null and b/graphics/pgf/contrib/tikz-bagua/tikz-bagua.pdf differ diff --git a/graphics/pgf/contrib/tikz-bagua/tikz-bagua.sty b/graphics/pgf/contrib/tikz-bagua/tikz-bagua.sty new file mode 100644 index 0000000000..d87ac26f41 --- /dev/null +++ b/graphics/pgf/contrib/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 +%% +%% 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[] +\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[]{<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>}[] +\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{}[] +%%\sixiang*{}[] +\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{}[] +%%\bagua*{}[] +\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>]{}[] +%%\Bagua*{}[] +\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 diff --git a/graphics/pgf/contrib/tikz-bagua/tikz-bagua.tex b/graphics/pgf/contrib/tikz-bagua/tikz-bagua.tex new file mode 100644 index 0000000000..ed50dee4a6 --- /dev/null +++ b/graphics/pgf/contrib/tikz-bagua/tikz-bagua.tex @@ -0,0 +1,100 @@ +\documentclass{article} + +\usepackage[margin=3cm]{geometry} + +\usepackage{tikz-bagua} +\usetikzlibrary{math} +\usepackage[fontset=kefonts]{ctex} + +\input{binhex} + +\usepackage{makeidx} %创建索引 + +\makeindex %创建索引开始命令,有很多可选参数, 文中需要显示索引的地方 \printindex 即可 + +\title{TikZ-Bagua 宏包} +\author{王旭 (WANG Xu) \\ duplli@aliyun.com} +\date{\zhtoday~v1.0} + +\begin{document} + +\maketitle + +\section{简介} + +\verb+TikZ-Bagua+ 宏包使用 \verb+TikZ+ 宏包, 借助于 \verb+xparse+, \verb+xstring+, \verb+bitset+ 以及 \verb+xintexpr+, 定义了 \verb+\taiji+, \verb+\liangyi+, \verb+\sixiang+, 三爻 \verb+\bagua+ 和六爻 \verb+\Bagua+, 画出《周易》中所用的的太极阴阳, 两仪四象八卦和六十四卦符号, 对字体没有要求. + +\section{使用方法} + +所定义的上述五个命令中最后一个可选参数均为放缩参数, 除了 \verb+\taiji+ 中的缺省值为 $0.816$ 之外, 其他四个的均为 $1$. + +\subsection{太极阴阳} +\verb+\taiji []+\index{taiji@\verb+\taiji+}. + +\verb+\taiji+ 直接得到 符号 \taiji{}. + +\subsection{两仪} +\verb+\liangyi {} []+\index{liangyi@\verb+\liangyi+}. + +\verb+\liangyi{}+ 通过接受参数 $1$ 或 $0$ 得到两仪符号 \liangyi{1} 或 \liangyi{0}. + +\subsection{四象} +\verb+\sixiang {} []+\index{sixiang@\verb+\sixiang+}, \verb+\sixiang* {} []+\index{sixiang*@\verb+\sixiang*+}. + +\verb+\sixiang{}+ 通过接受参数 $3,2,1,0$ 的二进制数得到四象符号, 而 \verb+\sixiang*{}+ 接收十进制数. + +\begin{center} + \begin{tikzpicture} + \foreach \j in {3,2,1,0} + { + \node at (3-\j,-0.5) {$\j$}; + \node at (3-\j,0.5) {\nbinary{2}{\j}}; + \node at (3-\j,0) {\sixiang*{\j}}; + } + \end{tikzpicture} +\end{center} + +\subsection{三爻八卦} +\verb+\bagua {} []+\index{bagua@\verb+\bagua+}, \verb+\bagua* {} []+\index{bagua*@\verb+\bagua*+}. + +\verb+\bagua{}+ 通过接受参数 $7,6,\dots,0$ 的二进制数得到三爻八卦符号, 而 \verb+\bagua*{}+ 接收十进制数. + +\begin{center} + \begin{tikzpicture} + \foreach \j in {7,6,...,0} + { + \node at (7-\j,-0.5) {$\j$}; + \node at (7-\j,0.5) {\nbinary{3}{\j}}; + \node at (7-\j,0) {\bagua*{\j}}; + } + \end{tikzpicture} +\end{center} + +\subsection{六爻八卦} +\verb+\Bagua [<2,8>]{} []+\index{Bagua@\verb+\Bagua+}, \verb+\Bagua* {} []+\index{Bagua*@\verb+\Bagua*+}. + +\verb+\Bagua{}+ 通过接受参数 $63,62,\dots,0$ 的二进制数得到六爻八卦符号, \verb+\Bagua[8]{}+ 接收的为$63,62,\dots,0$ 的八进制数, 而 \verb+\Bagua*{}+ 接收十进制数. + +列出所有的六十四卦, 其中每卦上一行六位数为对应的二进制数, 下一行左右两边分别为对应的十进制和八进制数. + +\begin{center} + \begin{tikzpicture} + \foreach \j in {7,6,...,0} + { + \foreach \k in {7,6,...,0} + { + \node at (7*1.25-1.25*\k-0.3,1.5*\j-0.5) {\pgfmathparse{int(8*\j+\k)}\pgfmathresult}; + \node at (7*1.25-1.25*\k+0.3,1.5*\j-0.5) {\j\k}; + \node at (7*1.25-1.25*\k,1.5*\j+0.5) {\nbinary{3}{\j}\nbinary{3}{\k}}; + \node at (7*1.25-1.25*\k,1.5*\j) {\Bagua[8]{\j\k}[1.5]}; + } +% \node at (7-\j,0) {$\j$}; +% \node at (7-\j,-0.5) {\nbinary{3}{\j}}; +% \node at (7-\j,-1) {\bagua*{\j}}; + } + \end{tikzpicture} +\end{center} + +\printindex + +\end{document} \ No newline at end of file -- cgit v1.2.3