From 161d527583d640fe1d8585a9dd35c6caae1b4548 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 23 Sep 2021 20:16:29 +0000 Subject: zitie (23sep21) git-svn-id: svn://tug.org/texlive/trunk@60595 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/xelatex/zitie/README.md | 75 ++ Master/texmf-dist/doc/xelatex/zitie/zitie-cn.pdf | Bin 0 -> 288061 bytes Master/texmf-dist/doc/xelatex/zitie/zitie-cn.tex | 608 +++++++++++++ Master/texmf-dist/tex/xelatex/zitie/zitie.sty | 1016 ++++++++++++++++++++++ Master/tlpkg/bin/tlpkg-ctan-check | 2 +- Master/tlpkg/libexec/ctan2tds | 1 + Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc | 1 + Master/tlpkg/tlpsrc/zitie.tlpsrc | 0 8 files changed, 1702 insertions(+), 1 deletion(-) create mode 100644 Master/texmf-dist/doc/xelatex/zitie/README.md create mode 100644 Master/texmf-dist/doc/xelatex/zitie/zitie-cn.pdf create mode 100644 Master/texmf-dist/doc/xelatex/zitie/zitie-cn.tex create mode 100644 Master/texmf-dist/tex/xelatex/zitie/zitie.sty create mode 100644 Master/tlpkg/tlpsrc/zitie.tlpsrc diff --git a/Master/texmf-dist/doc/xelatex/zitie/README.md b/Master/texmf-dist/doc/xelatex/zitie/README.md new file mode 100644 index 00000000000..f70e1fc844b --- /dev/null +++ b/Master/texmf-dist/doc/xelatex/zitie/README.md @@ -0,0 +1,75 @@ +# zitie + +zitie is a LaTeX package for making CJK character calligraphy practicing +sheet (copybook). + +zitie distinguishes `CJK` Classes and `Punctutation` Classes (`FullLeft`, +`FullRight`, `HalfLeft`, `HalfRight`) and other Classes. + +## Main Interfaces + +`\framezi*[]{}`, makes frame for every single + +`\framezifile*[]{}`, makes frame from +containning + +`\framerange[]{}`, makes frame from Hex range, +such as: "4E00 -> "4E27, "4E30. etc + +`\zitienewfont*{...}`, declares new font(s) for making frame + +`\framezhlipsum[]{}[]`, frames Lorem ipsum given + and made by package `zhlipsum`. Use +`\usepackage[enable-zhlipsum]{zitie}` to enable this function + +`\zitiebackground[]`, make frames in background, +much faster than `\frame...` family. Use +`\usepackage[enable-background]{zitie}` to enable this function + +`\begin{zitieframe}{}[] ... \end{zitieframe}`, +environment version for `\framezi`, can cantain `\par` + +`\zitieCJKfamily`, use CJK font family declared before + +`\zitiecolorlet`, zitie version of `\colorlet` in `xcolor` package + +`...` + +See PDF documentation (in chinese) for more details. + +Please note the frame functions of this package currently do need many TeX +computation, so the compiling maybe very slow. + +Currently, only support XeTeX. + +## Dependence: + +`LaTeX2e 2020-10-01` and after, `l3draw`, `xeCJK`, `ctexsize`, please note that `l3draw` +is very experimental, some interfaces maybe cannot use later. + +Need not `pgf` or `pstricks`. + +## TODO: +- faster and less resource +- optimize `background` module +- support LuaTeX +- support pinyin +- more grid +- more transformation +- support more character Classes +- support opacity (require l3opacity) +- ... + +## IMPORTANT!!! + +Please note the attached PDF documentation contains NON-COMMERCIAL font. +The copyright of those fonts belong to font designer(s), mainly, FounderType. +CANNOT be used for commercial purposes without authorization. + +Source file (zitie.tex, zitie.sty) under LPPL 1.3c license. + +## Contact + +GitHub: https://github.com/Sophanatprime/zitie + +Email: longaster@163.com \ No newline at end of file diff --git a/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.pdf b/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.pdf new file mode 100644 index 00000000000..fef8c4afecf Binary files /dev/null and b/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.pdf differ diff --git a/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.tex b/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.tex new file mode 100644 index 00000000000..e310b6f930e --- /dev/null +++ b/Master/texmf-dist/doc/xelatex/zitie/zitie-cn.tex @@ -0,0 +1,608 @@ +\PassOptionsToPackage{AutoFallBack}{xeCJK} +\documentclass{ctxdoc} +\usepackage[enable-zhlipsum,enable-background]{zitie} +\usepackage{geometry} + +\NewDocumentCommand{\init}{+v}{\hspace{\fill}初始值~=~\textcolor{blue}{\bfseries#1}} + +\IfFontExistsTF{KaiTi}{\zitienewfont{{楷体}{KaiTi}}}{} +\IfFontExistsTF{FZSunGuoTingCaoShuFU}{\zitienewfont{{孙过庭草繁}{FZSunGuoTingCaoShuFU}{FallBack=SimSun}}}{} +\IfFontExistsTF{FZWenZhengMingXingCaoJF}{\zitienewfont{{文征明行草简繁}{FZWenZhengMingXingCaoJF}{FallBack=KaiTi}}}{} + +\zitiesetup{ + framecolor=green!60!black,charcolor=red!65!black, + resize=square,frametype=咪,font,savefontname, +} +\def\zitieversion{1.1} +\title{\texorpdfstring{\framezi[width=3\ccwd,fillcolor=black,charcolor=red!75!black,font=文征明行草简繁]{字帖}\framezi[width=2\ccwd,font=楷体]{宏包}}{zitie宏包}} +\date{\texorpdfstring{\framezi[width=2\ccwd,font=文征明行草简繁]{农历二〇二一年八月十五}}{农历二〇二一年八月十五} v\zitieversion} +\author{陈文建(Longaster)} + +\begin{document} + +\newgeometry{textheight=27cm,textwidth=17cm,bottom=1.7cm} +\maketitle +\thispagestyle{empty} + +\parskip=0pt \parindent=0pt \lineskip=0pt \raggedright +\framezi[ + width=1.8cm,punctuation=onlast, + fillcolor=black,charcolor=red!75!black,font=文征明行草简繁, +]{ + 我欲乘風向北行, + 雪落軒轅大如席。 + 我欲借船向東游, + 綽約仙子迎風立。 + 我欲踏云千萬裏, + 廟堂龍吟奈我何。}% +\framezi[ + width=1.8cm,punctuation=onlast,charstroke=whitesolid, + fillcolor=black,charcolor=red!75!black,font=文征明行草简繁, +]{ + 昆侖之巔沐日光, + 滄海絕境見青山。 + 長風萬裏燕歸來, + 不見天涯人不回。} + +\bigskip + +\zitienewrule{punctuation}{package1}{\makebox[\zitiewidth][l]{ \zitieCJKfamily{\zitiefontname} #1}} +\framezi[ + width=2.5\ccwd,linewidth=.2pt, + dashpattern={1mm,.5mm},punctuation=package1, + fillcolor={},framecolor=red,charcolor=black, + font=孙过庭草繁, +]{ + 我欲乘風向北行, + 雪落軒轅大如席。 + 我欲借船向東游, + 綽約仙子迎風立。 + 我欲踏云千萬裏, + 廟堂龍吟奈我何。 + 昆侖之巔沐日光, + 滄海絕境見青山。 + 長風萬裏燕歸來, + 不見天涯人不回。 +}\hfill ——《少年歌行》 + +{\heiti\small 注:本文档中的非商业的字体版权为原字体公司(北京方正有限公司及其它相关公司),此处使用该字体仅为显示该宏包的排版效果,不作商业用途。本文档\pkg{zitie.tex}和相应的\pkg{zitie.sty}源文件使用 \href{https://www.latex-project.org/lppl/lppl-1-3c/}{LPPL 1.3c 协议。}} + +\clearpage +\restoregeometry +\setlength{\parindent}{2\ccwd} +\lineskip=2bp +\zitiebackground[ + on,linewidth=.2pt,dashpattern={1mm,.5mm,2mm,1mm}, + frametype=田,framecolor=green!80!black, + colboxes=20,rowboxes=30, +] + +\pkg{zitie} 宏包是用纯 \LaTeX3 模块编写的(即,不加载 \pkg{pgf}、\pkg{pstricks} 等绘图宏包),来生成网格化的字、生成网格化的背景的宏包。绘图功能完全依赖 \pkg{l3draw},但应注意 \pkg{l3draw} 目前仍然是实验性的,其接口在后续版本可能无法使用。 + +\LaTeXe 版本应在 2020-10-01 及以后。 + +目前仅支持 \XeTeX,待后续版本支持 \LuaTeX,不支持 \pdfTeX。 + +\tableofcontents + +\section{\pkg{zitie} 宏包的加载和基本命令}\label{sec:basics} + +加载宏包:\tn{usepackage}\oarg{key-val}\verb|{zitie}|。\meta{key-val} 选项见以下几节。 + +若要加载 \pkg{ctex} 宏包,请先加载 \pkg{ctex} 然后再加载 \pkg{zitie} 宏包。若加载本宏包时未加载 \pkg{ctex} 宏包, +则会加载 \pkg{xeCJK} 宏包和 \pkg{ctexsize} 宏包。如果是Windows平台,还将设置宋体为主字体。 + +\begin{function}{\zitienewfont,\zitieCJKfamily} + \begin{syntax} + \cs{zitienewfont} \{ \marg{font family} \marg{font name} , ... \} + \cs{zitienewfont} \{ \marg{font family} \marg{font name} \marg{features} , ... \} + \cs{zitienewfont} * \marg{font family} \marg{font name} \marg{font feature} + \cs{zitieCJKfamily} \marg{font family} + \cs{zitieCJKfamily}+ \marg{font family} + \cs{zitieCJKfamily}- \marg{font family} + \end{syntax} + 这个命令用来加载和设置需要的字体,\meta{font family} 为在 \cs{framezi} 等命令的 \opt{font} 选项中使用的名字,也可通过 \cs{zitieCJKfamily} 来在文档中使用该字体。\meta{font name} 为字体的名字,\meta{features},为 \pkg{fontspec} 宏包和 \pkg{xeCJK} 宏包支持的字体特性。 + + \cs{zitieCJKfamily} 和 \pkg{xeCJK} 宏包的 \cs{CJKfamily} 作用完全相同,只不过首先判断该 \meta{font family} 是否被 \cs{zitienewfont} 声明,若没有,则再使用 \cs{CJKfamily} 进行处理。 +\end{function} + +\begin{function}{\framezi,\framerange,\framezifile} + \begin{syntax} + \cs{framezi} * \oarg{key-val} \marg{字或词句} + \cs{framerange} \oarg{key-val} \marg{逗号分隔的16进制序列} + \cs{framezifile} * \oarg{key-val} \marg{文件名} + \end{syntax} + 以上命令用来生成网格化的字。 + + \meta{字或词句} 应仅包含类代码为 11 或 12 的字符,即正常情况下输入的字符,不应包含 \TeX 控制序列即其它特殊字符。\cs{framezi} 带星号的版本接收一个控制序列,这个序列包含想要网格化的字。 + + \meta{逗号分隔的16进制序列} 应使用如下的形式:\verb|"4E00 -> "4E27, "4E30| 或 \verb|`一 -> `丢, `丰|,与其它设置字符序列的宏包相似(如 \pkg{xeCJK} 宏包的 \cs{xeCJKDeclareSubCJKBlock})。注意,由于网格化操作需要大量的计算,因此单个 \meta{range} 不应太大,依据编译环境而定,一般不应超过 1000 个,否则可能无法成功编译。其它命令中也是如此。 + + \meta{文件名} 为想要网格化的文字的文件名。\cs{framezifile} 带 \verb|*| 的版本,可在 \meta{key-val} 中使用 \opt{filepath} 设置文件搜索路径,详见后节的说明。带星号和不带星号的版本实现略有差异,速度也可能不一样。 + + 当连续多次使用 \cs{framezi} 等命令时,为去掉后面的空白,可使用 \opt{\%}。 +\end{function} + +\begin{function}{ + zitie/framezi/before, zitie/framezi/after, + zitie/framerange/before, zitie/framerange/after, + zitie/framerange/range, + zitie/framezifile/before, zitie/framezifile/after +} + 这三个命令还各自定义了钩子(hook),其中带有 \verb|after| 为 \verb|reversed|,即先添加的后执行。\verb|before| 为选项设置完成后执行,\verb|after| 为整个命令执行完之后执行。其中 \verb|zitie/framerange/range| 为每一个列表均执行一次,包括无效的和最后一次。 + + 可以通过 \cs{AddToHook}、\cs{AddToHookNext}、\cs{RemoveFromHook} 来添加和执行,详细请参考 \pkg{source2e.pdf} 或 \pkg{lthooks} 的说明文档。 +\end{function} + +\begin{function}{zitieframe, + zitie/zitieframe/before, zitie/zitieframe/after, + zitie/zitieframe/par +} + \begin{syntax} + \verb|\begin{zitieframe}| \oarg{key-val} + ~~... + \verb|\end{zitieframe}| + \verb|\begin{zitieframe}| \marg{initial material} \oarg{key-val} + ~~... + \verb|\end{zitieframe}| + \end{syntax} + 可以在 \env{zitieframe} 环境中使用分段(显式的或隐式的,特殊命令仍然不可使用)。 + + \meta{initial material} 为在选项和钩子执行完毕之后要执行的内容。这里的内容不会被网格化。 + + \verb|zitie/zitieframe/par| 钩子为环境中的每个段落分段后要执行的命令。 +\end{function} + +\section{选项}\label{sec:options} + +以下选项在方框化命令的宏中是局部设置的。 + +\begin{function}{basechar,zihao} + \begin{syntax} + basechar = \meta{CJK char} \init{好} + zihao = \meta{字号} \init{4} + \end{syntax} + \opt{basechar} 设置当 \opt{resize} 为 \opt{base} 类时的基字符,这个用来计算缩放比例,基字符不同时,即使给定相同的缩放比例,其实际缩放比例也可能不同。 + + \opt{zihao} 设置计算缩放比例时的字号大小。 +\end{function} + +\begin{function}{punctuation, punctuation*} + \begin{syntax} + punctuation = \init{ignore} + punctuation*= \marg{replace} + \end{syntax} + \pkg{zitie} 宏包对字符类型进行区分,对CJK字符和标点符号采用不同的处理方式。 + 该选项设置标点符号采用何种处理方式。初始情况下为 \opt{ignore},即忽略该字符。 + + \opt{leave} 选项把该标点符号原样输出,不对其进行任何处理,字体和其它属性和正文相同。 + + \opt{onlast} 选项把标点符号放到0宽度的盒子中,并且忽略它的深度和高度,看起来就像是在最后一个字的方框中。 + + \opt{scale} 选项把标点符号按最后一个字的缩放倍数进行缩放,再将其进行输出。 + + 选项 \opt{punctuation*} 定义处理标点符号的方式为其值,可接收一个参数。如设置 \verb|punctuation*=\fbox{#1}|,则将标点符号放入 \tn{fbox} 内。 + + 若 \opt{punctuation} 并不存在,则将其值视为已定义的宏。如,假设 \verb|@gobble| 值并不存在,若使用 \verb|punctuation=@gobble|,则标点符号处理命令为 \tn{@gobble},这是 \LaTeXe 定义的命令,其作用与 \verb|punctuation=ignore| 相同。 + + 还可使用 \cs{zitienewrule} 定义新的标点符号处理方式。详见 \cs{zitienewrule} 命令的说明。 + + 实际上,\opt{onlast} 和 \opt{scale} 就是由 \cs{zitienewrule} 定义的,这个键的处理器接收一个标点符号作为其参数。 + 具体的定义见 \cs{zitienewrule} 命令的说明。 +\end{function} +\begin{texnote} + 按照 \pkg{xeCJK} 宏包的字符分类,\pkg{zitie} 宏包将字符类别为 \verb|FullLeft|、\verb|FullRight|、\verb|HalfLeft|、\verb|HalfRight| 视为标点符号。将 \verb|CJK|视为CJK字符。 +\end{texnote} + +\begin{function}{frametype,resize} + \begin{syntax} + frametype = \init{none} + resize = \init{none} + \end{syntax} + \opt{frametype} 设置方框样式。可用值的效果正如选项值:\verb|口|--仅方框,\verb|十|--仅中间的横线和竖线,\verb|田|--常见的田字格,\verb|米|--十字格再加上斜的两条线,\verb|咪|--常见的米字格。还可自定义方框,详见第 \ref{sec:interface} 节。 + + {\zitiesetup{font=楷体,width=1cm,resize=square,framecolor=black,linewidth=.7pt} + \framezi[frametype=none]{无} + \framezi[frametype=口]{口} + \framezi[frametype=十]{十} + \framezi[frametype=田]{田} + \framezi[frametype=米]{米} + \framezi[frametype=咪]{咪}} + + \opt{resize} 设置缩放方式。\opt{real},使用字符实际宽高缩放,\opt{base},使用 \opt{basechar} 设置的字符的宽高缩放,\opt{square},使得字符的宽高相等再进行缩放。还可自定义缩放方式,详见第 \ref{sec:interface} 节。 + + 以下为宽度设置为 1cm 时的缩放情况。 + {\zitiesetup{font=楷体,width=1cm,frametype=咪,framecolor=black} + \framezi[resize=none]{无} + \framezi[resize=real]{实} + \framezi[resize=base]{基} + \framezi[resize=square]{方}} +\end{function} + +\begin{function}{ + xscale,yscale,scale, + width,height +} + \begin{syntax} + xscale = \meta{scale ratio} \init{1} + yscale = \meta{scale ratio} \init{1} + scale = \meta{scale ratio} + width = \meta{dim} + height = \meta{dim} + \end{syntax} + 设置缩放比例和盒子宽高。 + + 宽高具有更高的优先级,即若比例和宽高都设置了,则使用宽高来计算。宽高为二者都为0cm视为未设置,二者有一大于0cm,视为设置了宽高。 + + 此处的宽高和最终的宽高可能略有差异,最终的宽高保存在 \tn{zitiewidth} 和 \tn{zitieheight} dim寄存器中。 +\end{function} + +\begin{function}{ + linewidth, + dashpattern, + framearc, + framearc* +} + \begin{syntax} + linewidth = \meta{dim} \init{0.4pt} + dashpattern = \{ \meta{ dim1, dim2, ... } \} + framearc = \meta{dim} + framearc* = \{ \marg{dim1} \marg{dim2} \} + \end{syntax} +\end{function} + +{\zitiesetup{width=2cm,framecolor=black,font=楷体} +\verb|linewidth=1pt|:\framezi[linewidth=1pt]{好} \\ +\verb|dashpattern={1mm,2mm,3mm,4mm}|:\framezi[dashpattern={1.5mm,1mm,2mm,1.5mm}]{好} \\ +\verb|framearc=3mm,frametype=口|:\framezi[framearc=3mm,frametype=口]{好} \\ +\verb|framearc=3mm,frametype=咪|:\framezi[framearc=3mm,frametype=咪]{好} \\ +\verb|framearc*={3mm}{6mm},frametype=口|:\framezi[framearc*={3mm}{6mm},frametype=口]{好} \\ +\verb|framearc*={3mm}{6mm},frametype=咪|:\framezi[framearc*={3mm}{6mm},frametype=咪]{好} +} + +\begin{function}{ + framecolor, + framecolor*, + charcolor, + charcolor*, + fillcolor, + fillcolor* +} + \begin{syntax} + framecolor = \meta{color expr} \init{black} + framecolor* = \marg{model(s)} \marg{value(s)} + charcolor = \meta{color expr} \init{black} + charcolor* = \marg{model(s)} \marg{value(s)} + fillcolor = \meta{color expr} + fillcolor* = \marg{model(s)} \marg{value(s)} + \end{syntax} + 命名的颜色仅支持 \LaTeX3 定义的 black, white, red, green, blue, cyan, magenta 和 yellow。颜色模型和表达式也应使用 \LaTeX3 支持的模型和表达式,详见 \pkg{interface3.pdf} 文档。 + + 若要去掉 \opt{fillcolor},应将其设置为空,即 \verb|fillcolor={}|,而不是将其设置为白色。 +\end{function} + +\begin{function}{ + charstroke, + charstrokespecial, + \zitiestrokechars +} + \begin{syntax} + charstroke = \init{none} + charstrokespecial = \meta{pdf literal} + \cs{zitiestrokechars} \marg{pdf literal} \marg{typeset material} + \end{syntax} + 设置字符的外框,类似微软Word中字符的轮廓特效:\framezi[width=2\ccwd,charcolor=blue,charstroke=solid,fillcolor={}]{好} + \framezi[width=2\ccwd,charcolor=blue,charstroke=dashed,fillcolor={}]{好} + + 初始值 \opt{none} 什么也不做。\opt{solid} 设置外轮廓为 0.25bp 的实线,\opt{dashed} 设置外轮廓为 0.25bp 的虚线。这两个 + 不会进行填充操作,即背景色是什么颜色,则字显示的就是背景,字轮廓的颜色为 \opt{charcolor} 的颜色。\opt{whitesolid} 和 + \opt{whitedashed} 在 \opt{solid} 和 \opt{dashed} 的基础上将字填充为白色。 + + \opt{charstrokespecial} 将 \meta{pdf literal} 为用在 \tn{special}\verb|{pdf:code ...}| 中 pdf 的指令, + 其中,\verb|charstroke=solid| 相当于 \verb|charstrokespecial={1 Tr 0.25 w [] 0 d 1 J}|, + \verb|charstroke=dashed| 相当于 \verb|charstrokespecial={1 Tr 0.25 w [0.8] 0 d 1 J}|, + \verb|charstroke=whitesolid| 相当于 \verb|charstrokespecial={2 Tr 0.25 w [] 0 d 1 J 1 1 1 rg}|, + \verb|charstroke=whitedashed| 相当于 \verb|charstrokespecial={2 Tr 0.25 w [0.8] 0 d 1 J 1 1 1 rg}|。 + + 还可使用 \cs{zitienewrule} 来定义新的 \opt{charstroke} 处理规则。这个键的处理器接收当前的 \meta{CJK char} 作为其参数。 + 具体的定义见 \cs{zitienewrule} 的说明。 + + \cs{zitiestrokechars} 使用 \meta{pdf literal} 处理 \meta{typeset material}。 +\end{function} + +\begin{function}{ + font,savefontname, + fallback, + fontbackfont, + fontbackfont* +} + \begin{syntax} + font = \meta{font family} \init{宋体} + savefontname = \TTF \init{false} + fallback = \TTF \init{false} + fallbackfont = \marg{fallback font list} + fallbackfont+= \marg{fallback font list} + \end{syntax} + \opt{font} 设置盒子中使用的字体,若将其设置为空,即 \verb|font={}| 或 \verb|font|,则将使用正文字体。 + + \opt{savefontname} 设置是否保存字体名字,以便在后文使用,如在标点符号的处理中。 + + \opt{fallbackfont} 设置当当前字体中不存在此字形时,要使用哪些字体,字体必须被 \cs{zitienewfont} 或 \cs{newCJKfontfamily} 声明。 + \opt{fallbackfont+} 将 \marg{fallback font list} 添加的之前的 \meta{fallback font list} 中。 + + 注意,\opt{fallbackfont} 特性和 \pkg{xeCJK} 的 \verb|FallBack| 并不冲突,当 \opt{fallback font list} 中的所有字体没有对应的字形时,才会使用 \verb|FallBack| 定义的字体。这一特性可通过 \verb|fallback=false| 来关闭。 +\end{function} + +如在 \verb|FZSunGuoTingCaoShuFU|(方正孙过庭草书)字体中没有“丂丄”, +虽然在在导言区使用 \verb|\zitienewfont{ {孙过庭草繁}{FZSunGuoTingCaoShuFU}{FallBack=SimSun} }| 设置其 \verb|FallBack| 字体为 \verb|SimSun|(宋体),但若设置 \verb|fallbackfont={楷体},fallback=true| 则会在楷体中查找是否有该字形,然后再在宋体中查找: + +\begin{verbatim} + \framezi[fallbackfont={楷体},width=1cm,font=孙过庭草繁,fallback]{一丁丂七丄} +\end{verbatim} +\framezi[fallbackfont={楷体},width=1cm,font=孙过庭草繁,fallback,framecolor=black]{一丁丂七丄} + +\begin{verbatim} + \framezi[width=1cm,font=孙过庭草繁,fallback]{一丁丂七丄} +\end{verbatim} +\framezi[width=1cm,font=孙过庭草繁,fallback,framecolor=black]{一丁丂七丄} + +\begin{function}{ + filepath, + filepath+ +} + \begin{syntax} + filepath = + \end{syntax} + \opt{filepath} 为 \cs{framefile}\verb|*| 添加文件搜索路径。其值为逗号分隔的列表。 + \opt{filepath+} 将新的搜索路径添加到原有的路径上。 +\end{function} + +\begin{function}{ + \zitiesetup, + \zitiecolorlet, +} + \begin{syntax} + \cs{zitiesetup} \marg{key-val} + \cs{zitiecolorlet} \marg{name} \oarg{model} \marg{value} + \end{syntax} + 用于设置选项,定义新的颜色。注意,若加载 \pkg{xcolor} 不能使用 \tn{colorlet}命令,必须使用 \cs{zitiecolorlet} 来设置颜色。 +\end{function} + +\begin{function}{\zitienewrule} + \begin{syntax} + \cs{zitienewrule} \oarg{arg nums} \marg{option key} \marg{rule} \marg{replace} + \end{syntax} + 为 \pkg{zitie} 宏包的键 \meta{option key} 定义新的处理规则。将忽略 \meta{option key} 和 \meta{rule} 两端的空格。 + + \meta{arg nums} 为键预先定义的参数数目。若未设置 \meta{arg nums},则将其设置为1。 +\end{function} + +\pkg{zitie} 宏包使用了 +\begin{verbatim} + \zitienewrule{punctuation}{onlast} + {\penalty10000 \smash{\makebox[0pt]{% + \color{zitiecharcolor}\zitieCJKfamily{\zitiefontname}#1}}} +\end{verbatim} +和 +\begin{verbatim} + \zitienewrule{punctuation}{scale}{ + \hbox_set:Nn \l_tmpa_box + { \color_select:n { zitiecharcolor } \zitieCJKfamily{\zitiefontname} #1 } + \box_scale:Nnn \l_tmpa_box \zitiexscaleratio \zitieyscaleratio + \box_use_drop:N \l_tmpa_box + } +\end{verbatim} +定义了两个 \opt{punctuation} 处理规则:\opt{onlast} 和 \opt{scale},这样就可以使用 \verb|punctuation=onlast| 和 \verb|punctuation=scale| 来对标点符号进行处理。 + +使用 +\begin{verbatim} + \zitienewrule {charstroke} {solid} + { \zitiestrokechars { 1 Tr 0.25 w [] 0 d 1 J } {#1} } + \zitienewrule {charstroke} {dashed} + { \zitiestrokechars { 1 Tr 0.25 w [0.8] 0 d 1 J } {#1} } + \zitienewrule {charstroke} {whitesolid} + { \zitiestrokechars { 2 Tr 0.25 w [] 0 d 1 J 1 1 1 rg } {#1} } + \zitienewrule {charstroke} {whitedashed} + { \zitiestrokechars { 2 Tr 0.25 w [0.8] 0 d 1 J 1 1 1 rg } {#1} } +\end{verbatim} +定义了四个 \opt{charstroke} 处理规则,这样就可以使用 \verb|charstroke=solid, ...| 来处理字符。 + +\begin{function}{ + \zitiewidth, + \zitieheight, + \zitieboxwd, + \zitieboxht, + \zitieboxdp, + \zitiefontname, + \zitiexscaleratio, + \zitieyscaleratio, +} + 这些命令为全局设置的接口。 +\end{function} + +\begin{function}{ + zitieframecolor, + zitiecharcolor, + zitiefillcolor, +} + 这些是全局保存的颜色名,可在 \pkg{xcolor} 宏包的 \tn{color} 命令 和 \LaTeX3 命令 \cs{color_select:n} 中使用。 +\end{function} + + +\section{background}\label{sec:background} + +在宏包加载时使用 \opt{enable-background} 以启用该特性。 + +\begin{function}{\zitiebackground} + \begin{syntax} + \cs{zitiebackground} \oarg{background key-val} + \end{syntax} + 使用背景。 +\end{function} + +\pkg{background} 可用的键值:(设置是全局的) + +\begin{function}{true, on, false, off, next} + \opt{true} 和 \opt{on} 作用相同,表示设置网格背景。 + \opt{false} 和 \opt{off} 作用相同,表示取消网格背景。 + \opt{next} 表示下一次设置背景,即当前页设置背景。这个选项也将取消之前设置的背景。 +\end{function} + +\begin{function}{ + colboxes,rowboxes, + framewidth,frameheight, + boxwidth,boxheight, + onpaper,ontext +} + \begin{syntax} + colboxes = \meta{integer} \init{1} + rowboxes = \meta{integer} \init{1} + framewidth = \meta{dim} + frameheight = \meta{dim} + boxwidth = \meta{dim} + boxheight = \meta{dim} + onpaper + ontext + \end{syntax} + 设置背景格子的大小。 + + \opt{boxwidth} 和 \opt{boxheight} 具有更高的优先级,若设置了,则背景每个格子的宽高为所设置的值,否则,使用 \meta{framewidth}、\meta{frameheight} 及 \meta{colboxes}、\meta{rowboxes} 来计算大小。 + + \opt{onpaper} 设置 \verb|frameheight=\paperheight, framewidth=\paperwidth|, + \opt{ontext} 设置 \verb|frameheigh=\textheight, framewidth=\textwidth|。 +\end{function} + +\begin{function}{ + frametype, + linewidth, + framecolor, + framecolor*, + fillcolor, + fillcolor*, + dashpattern +} + 和 \cs{framezi} 等命令的选项相同,但二者互不影响。 + + 颜色分别保存在 \verb|zitiebackgroundframecolor|,\verb|zitiebackgroundfillcolor| 颜色名中。可在 \tn{color} 中直接使用,也可在 \cs{color_select:n} 中使用。 +\end{function} + +\begin{function}{xrange,yrange} + \begin{syntax} + xrange = \{ \meta{left} , \meta{right} \} + yrange = \{ \meta{top} , \meta{bottom} \} + \end{syntax} + 设置网格显示的范围。注意这是实验性的,效果可能并不好。 +\end{function} + +本文档的设置为: +\begin{verbatim} + \zitiebackground[ + on, linewidth=0.2pt, dashpattern={1mm,.5mm,2mm,1mm}, + frametype=田, framecolor=green!80!black, + colboxes=20, rowboxes=30, + ] +\end{verbatim} + +\section{zhlipsum, 中文乱数假文} + +\pkg{zitie} 宏包完全兼容 \pkg{zhlipsum} 宏包。使用 \cs{newzhlipsum} 命令定义的假文也可使用。 + +在加载宏包时使用 \opt{enable-zhlipsum} 以启用该特性。 + +\begin{function}{ + \framezhlipsum, + zitie/framezhlipsum/before, + zitie/framezhlipsum/after, + zitie/framezhlipsum/paragraph +} + \begin{syntax} + \cs{framezhlipsum} \oarg{key-val} \marg{paragraph list} \oarg{name} + \end{syntax} + \meta{key-val} 为 \cs{framezi} 第 \ref{sec:options} 节定义的选项,\meta{paragraph list} 为段落列表,支持如下形式:\verb|6-8,-3,9|。\meta{name} 为假文的名字。可用值为 \opt{simp}、\opt{trad}、\opt{nanshanjing}、\opt{xiangyu}、\opt{zhufu}、\opt{aspirin},详细说明参考 \pkg{zhlipsum} 宏包的说明文档。 + + 定义了 \verb|zitie/framezhlipsum/before|、\verb|zitie/framezhlipsum/after|、\verb|zitie/framezhlipsum/paragraph| 三个钩子。其中 \verb|zitie/framezhlipsum/paragraph| 为假文间要执行的代码,如有5段,则在这5个段落中间格执行一次,即执行4次。其它两个钩子的用法和前述相似。 +\end{function} + + +\section{编程接口}\label{sec:interface} + +\begin{function}{ + \zitie_new_frame_construct:nn, + \zitie_frame_type:n, + \zitie_frame_type_c:n, + \zitie_new_resize_method:nn, + \zitie_new_font:n, + \zitie_new_font:nnn, +} + 创建新的构造器、resize方法和字体。 +\end{function} + +\begin{function}{ + \zitie_new_process_rule:nnn, + \zitie_new_process_rule:nnnn, + \zitie_processor:n, + \zitie_processor_c:n, + \zitie_processor:nnn, + \zitie_processor_c:nnn, +} + 创建和使用处理器。 +\end{function} + +\begin{function}{ + \zitie_color_select:nn, + \zitie_color_select:nnn, +} + 颜色选择。 +\end{function} + +\begin{function}{ + \zitie_cjk_glyph_use:nN, + \zitie_token_class_dispatch:Nnnnn, + \zitie_token_class_dispatch_o:Nnnnn, + \zitie_token_class_dispatch_f:Nnnnn, +} + 字形选择和字符类别判断。 +\end{function} + +\begin{function}[TF]{ + \zitie_token_if_punctuation:N, + \zitie_token_if_punctuation_o:N, + \zitie_token_if_punctuation_f:N, +} + 是否为标点符号。 +\end{function} + +\begin{function}{ + \zitie_single_construct:N, + \zitie_single_construct:nN, +} + 构造单个字的方框。 +\end{function} + +\begin{function}{ + \zitie_background_new_frame_construct:nn, + \zitie_background_frame_type:n, + \zitie_background_frame_type_c:n, +} + 创建和使用新的 background frame 类型。 +\end{function} + +\section{TODO} + +\begin{itemize} + \item 实现更快的、消耗资源更少的版本。 + \item 支持 \LuaTeX。 + \item 优化背景模块。 + \item 增加间距功能。 + \item 更多网格效果。 + \item 更多缩放和变换效果。 + \item 对字符类别进行更多的分类处理。 + \item 支持透明度,(需要 \pkg{l3opacity})。 + \item 等。 +\end{itemize} + +\IndexLayout +\zitiebackground[off] +\PrintChanges +\PrintIndex +\end{document} \ No newline at end of file diff --git a/Master/texmf-dist/tex/xelatex/zitie/zitie.sty b/Master/texmf-dist/tex/xelatex/zitie/zitie.sty new file mode 100644 index 00000000000..0dfe9d137c2 --- /dev/null +++ b/Master/texmf-dist/tex/xelatex/zitie/zitie.sty @@ -0,0 +1,1016 @@ +%% license LPPL 1.3c, https://www.latex-project.org/lppl/lppl-1-3c/ +\NeedsTeXFormat{LaTeX2e}[2020/10/01] +\RequirePackage{ xparse , l3keys2e } +\RequirePackage{ l3draw } +\ProvidesExplPackage {zitie} {2021/09/23} {v1.1} {CJK character calligraphy sheet} +\RequirePackage { xeCJK } +\@ifpackageloaded { ctex } { } + { \RequirePackage { ctexsize } \sys_if_platform_windows:T { \setCJKmainfont {SimSun} } } +\@ifpackageloaded { xcolor } + { + \cs_set_nopar:Npn \zitie_color_select:nn #1#2 { \colorlet{#1}{#2} \color_set:nn {#1} {#2} } + \cs_set_nopar:Npn \zitie_color_select:nnn #1#2#3 { \colorlet{#1}[#2]{#3} \color_set:nnn {#1} {#2} {#3} } + } + { + \hook_gput_code:nnn { package/after/xcolor } { package } + { + \cs_set_nopar:Npn \zitie_color_select:nn #1#2 { \colorlet{#1}{#2} \color_set:nn {#1} {#2} } + \cs_set_nopar:Npn \zitie_color_select:nnn #1#2#3 { \colorlet{#1}[#2]{#3} \color_set:nnn {#1} {#2} {#3} } + } + \cs_set_nopar:Npn \zitie_color_select:nn #1#2 { \color_set:nn {#1} {#2} } + \cs_set_nopar:Npn \zitie_color_select:nnn #1#2#3 { \color_set:nnn {#1} {#2} {#3} } + } +\NewDocumentCommand \zitiecolorlet { m o m } + { \IfNoValueTF {#2} { \zitie_color_select:nn {#1} {#3} } { \zitie_color_select:nnn {#1} {#2} {#3} } } + +\box_new:N \l_zitie_basebox_box +\tl_new:N \l_zitie_frame_type_tl +\tl_new:N \l_zitie_resize_method_tl +\clist_new:N \g__zitie_frame_list_clist +\clist_new:N \g__zitie_resize_method_clist +\dim_new:N \l__zitie_char_width_dim +\dim_new:N \l__zitie_char_height_dim +\dim_new:N \l__zitie_box_width_dim +\dim_new:N \l__zitie_box_height_dim +\coffin_new:N \l__zitie_box_coffin +\dim_new:N \l__zitie_linewidth_dim +\cs_new_nopar:Nn \__zitie_aux_color_fill: { } +\ior_new:N \g__zitie_file_read_ior +\clist_new:N \g__zitie_fallback_font_clist + +\dim_new:N \zitiewidth +\dim_new:N \zitieheight +\dim_new:N \zitieboxwd +\dim_new:N \zitieboxht +\dim_new:N \zitieboxdp +\tl_new:N \zitiefontname +\tl_new:N \zitiexscaleratio +\tl_new:N \zitieyscaleratio + +\int_new:N \l__zitie_begin_int +\int_new:N \l__zitie_end_int +\clist_new:N \l__zitie_tmpa_clist +\tl_new:N \l__zitie_tmpa_tl +\seq_new:N \l__zitie_tmpa_seq +\coffin_new:N \l__zitie_tmpa_coffin +\coffin_new:N \l__zitie_tmpb_coffin +\tl_new:N \l__zitie_file_chars_tl + +\tl_const:Nn \c_zitie_font_name_prefix_tl { 字帖@ } + +%%% fontspec, xeCJK, xetex +\cs_new:Npn \zitie_stroke_chars:nn #1#2 % operator, chars + { \special { pdf:code ~ q ~ #1 } #2 \special { pdf:code ~ Q } } +\cs_new:Npn \zitiestrokechars { \zitie_stroke_chars:nn } +\prg_set_eq_conditional:NNn \zitie_font_if_exist:n \fontspec_font_if_exist:n { T, F, TF } +\cs_new_nopar:Npn \__zitie_zihao:n #1 { \zihao {#1} } +\cs_set_eq:NN \__zitie_check_num_range:nnNN \__xeCJK_check_num_range:nnNN +\cs_set_eq:NN \__zitie_int_until_do:nn \xeCJK_int_until_do:nn +\cs_new_nopar:Npn \__zitie_font_select:nN #1 + { + \xeCJK_family_if_exist:nTF { \c_zitie_font_name_prefix_tl #1 } + { \CJKfamily+ { \c_zitie_font_name_prefix_tl #1 } } + { \CJKfamily+ {#1} } + } +\NewDocumentCommand \zitieCJKfamily { t+ t- m } + { + \xeCJK_family_if_exist:nTF { \c_zitie_font_name_prefix_tl #3 } + { \xeCJK_family:NNx #1 #2 { \c_zitie_font_name_prefix_tl #3 } } + { \xeCJK_family:NNx #1 #2 {#3} } + \tex_ignorespaces:D + } +\msg_new:nnn { zitie } { font-exist } { Font~ `#1'~ not~ exist, has~ been~ ignored. } +\cs_new:Npn \__zitie_new_font_family:nnn #1#2#3 % family name, font name, feature + { \__xeCJK_pass_args:nnnn { \xeCJK_set_family:nnn { \c_zitie_font_name_prefix_tl #1 } } {#3} {#2} { } } +\cs_new:Npn \__zitie_new_font_family_validate:nnn #1#2#3 + { + \zitie_font_if_exist:nTF {#2} { \__zitie_new_font_family:nnn {#1} {#2} {#3} } + { \msg_warning:nnn { zitie } { font-exist } {#2} } + } +\cs_new:Npn \zitie_token_class_dispatch:Nnnnn #1 + { + \if_case:w \xeCJK_token_value_class:N #1 \exp_stop_f: + \exp_after:wN \use_none:nnn % other + \or: \exp_after:wN \use_i:nnnn % CJK + \or: \exp_after:wN \use_ii:nnnn % FullLeft + \or: \exp_after:wN \use_iii:nnnn % FullRight + \else: \exp_after:wN \use_none:nnn % other + \fi: + } +\cs_new:Npn \zitie_token_class_dispatch_o:Nnnnn #1 + { \exp_after:wN \zitie_token_class_dispatch:Nnnnn #1 } +\cs_new:Npn \zitie_token_class_dispatch_f:Nnnnn #1 + { \exp_args:Nf \zitie_token_class_dispatch:Nnnnn #1 } +\prg_new_conditional:Npnn \zitie_token_if_punctuation:N #1 { p, T, F, TF } + { + \int_compare:nNnTF { \xeCJK_token_value_class:N #1 } > 1 + { + \int_compare:nNnTF { \xeCJK_token_value_class:N #1 } < 6 + { \prg_return_true: } { \prg_return_false: } + } + { \prg_return_false: } + } +\cs_set:Npn \zitie_token_if_punctuation_o:NTF + { \exp_after:wN \zitie_token_if_punctuation:NTF } +\cs_set:Npn \zitie_token_if_punctuation_o:NT + { \exp_after:wN \zitie_token_if_punctuation:NT } +\cs_set:Npn \zitie_token_if_punctuation_o:NF + { \exp_after:wN \zitie_token_if_punctuation:NF } +\cs_set:Npn \zitie_token_if_punctuation_f:NTF + { \exp_args:Nf \zitie_token_if_punctuation:NTF } +\cs_set:Npn \zitie_token_if_punctuation_f:NT + { \exp_args:Nf \zitie_token_if_punctuation:NT } +\cs_set:Npn \zitie_token_if_punctuation_f:NF + { \exp_args:Nf \zitie_token_if_punctuation:NF } +%%% + +\prg_new_conditional:Npnn \zitie_if_preamble: { p, T, F, TF } + { + \if_meaning:w \@onlypreamble \@notprerr + \prg_return_false: + \else: + \prg_return_true: + \fi: + } +\cs_new:Npn \__zitie_calc_basechar_w_h: + { + \dim_set:Nn \l__zitie_char_width_dim { \box_wd:N \l_zitie_basebox_box } + \dim_set:Nn \l__zitie_char_height_dim { \box_ht_plus_dp:N \l_zitie_basebox_box } + } +\cs_new_nopar:Npn \zitie_frame_type:n #1 { __zitie_frame_construct_type_ #1 :nnnnnn } % x1, y1, x2, y2, x times, y times +\cs_new_nopar:Npn \zitie_frame_type_c:n #1 { \use:c { __zitie_frame_construct_type_ #1 :nnnnnn } } +\cs_new_nopar:Npn \__zitie_resize:n #1 { __zitie_processor_resize_ #1 :n } +\cs_new_nopar:Npn \__zitie_resize_c:n #1 { \use:c { __zitie_processor_resize_ #1 :n } } +\cs_new_nopar:Npn \zitie_processor:n #1 { __zitie_processor_ #1 :n } +\cs_new_nopar:Npn \zitie_processor_c:n #1 { \use:c { __zitie_processor_ #1 :n } } +\cs_new_nopar:Npn \zitie_processor:nnn #1#2#3 + { + __zitie_processor_ #1 @ #2 : + \if_case:w 0#3 \prg_do_nothing: + \or: n \or: nn \or: nnn \or: nnnn \or: nnnnn \or: nnnnnn + \or: nnnnnnn \or: nnnnnnnn \else: nnnnnnnnn \fi: + } +\cs_new_nopar:Npn \zitie_processor_c:nnn #1#2#3 { \use:c { \zitie_processor:nnn {#1} {#2} {#3} } } +\cs_new_nopar:Npn \__zitie_coffin_ht_plus_dp:N #1 { \coffin_ht:N #1 + \coffin_dp:N #1 } +\cs_new:Npn \zitie_debug:n { \bool_if:NTF \l__zitie_debug_bool { \use:n } { \use_none:n } } +\cs_new_nopar:Npn \zitie_cjk_glyph_use:nN #1#2 + { + \group_begin: + \bool_if:NTF \l__zitie_font_fallback_bool + { + \__zitie_font_select:nN {#1} \prg_do_nothing: + \__zitie_cjk_glyph_use_aux:N #2 + } + { \__zitie_font_select:nN {#1} #2 } + \group_end: + } +\cs_new_nopar:Npn \__zitie_cjk_glyph_use_aux:N #1 + { + \exp_args:Nf \xeCJK_glyph_if_exist:NTF #1 {#1} + { + \clist_pop:NNTF \g__zitie_fallback_font_clist \l__zitie_tmpa_tl + { + \xeCJK_family_if_exist:nTF { \c_zitie_font_name_prefix_tl \l__zitie_tmpa_tl } + { + \CJKfamily+ { \c_zitie_font_name_prefix_tl \l__zitie_tmpa_tl } + \__zitie_cjk_glyph_use_aux:N #1 + } + { + \CJKfamily+ { \l__zitie_tmpa_tl } + \__zitie_cjk_glyph_use_aux:N #1 + } + } + {#1} + } + } + + +\msg_new:nnn { zitie } { frame-exists } { The~ frame~ type~ `#1~ not~ exists. } +\msg_new:nnn { zitie } { font-args } { The~ font~ arguments~ number~ must~ be~ 2~ or~ 3, while~ you~ get~ `#1' } + +\keys_define:nn { zitie } + { + enable-background .bool_set:N = \g__zitie_enable_background_bool , + enable-background .initial:n = false , + enable-background .default:n = true , + enable-zhlipsum .bool_set:N = \g__zitie_enable_zhlipsum_bool , + enable-zhlipsum .initial:n = false , + enable-zhlipsum .default:n = true , + } + +\keys_define:nn { zitie } + { + basechar .code:n = { \tl_gset:Nx \c_zitie_basechar_tl {#1} \__zitie_calc_basechar_w_h: } , + zihao .code:n = + { + \hbox_gset:Nn \l_zitie_basebox_box { \__zitie_zihao:n {#1} \c_zitie_basechar_tl } + \__zitie_calc_basechar_w_h: + } , + punctuation .choice: , + punctuation / ignore .code:n = { \cs_set_eq:cN { \zitie_processor:n { punctuation } } \use_none:n } , + punctuation / leave .code:n = { \cs_set_eq:cN { \zitie_processor:n { punctuation } } \use:n } , + punctuation / unknown .code:n = { \cs_set_eq:cc { \zitie_processor:n { punctuation } } {#1} } , + punctuation .initial:n = ignore , + punctuation* .cs_set:cp = { \zitie_processor:n { punctuation } } #1 , + + frametype .code:n = + { + \exp_args:NNx \clist_if_in:NnTF \g__zitie_frame_list_clist {#1} + { \tl_set:Nx \l_zitie_frame_type_tl {#1} } + { \msg_error:nnx { zitie } { frame-exists } {#1} } + } , + resize .code:n = + { + \exp_args:NNx \clist_if_in:NnTF \g__zitie_resize_method_clist {#1} + { \tl_set:Nx \l_zitie_resize_method_tl {#1} } + { \msg_error:nnx { zitie } { resize-method } {#1} } + } , + font .tl_set:N = \l__zitie_font_tl , + font .initial:n = 宋体 , + font .default:n = { } , % { \l_xeCJK_family_tl } , + xscale .tl_set:N = \l__zitie_x_scale_tl , + xscale .initial:n = 1 , + yscale .tl_set:N = \l__zitie_y_scale_tl , + yscale .initial:n = 1 , + scale .meta:n = { xscale = #1 , yscale = #1 } , + width .dim_set:N = \l__zitie_box_width_dim , + height .dim_set:N = \l__zitie_box_height_dim , + linewidth .dim_set:N = \l__zitie_linewidth_dim , + linewidth .initial:n = 0.4pt , + framecolor .code:n = { \zitie_color_select:nn { zitieframecolor } {#1} } , + framecolor .initial:n = black , + framecolor* .code:n = { \zitie_color_select:nnn { zitieframecolor } #1 } , + charcolor .code:n = { \zitie_color_select:nn { zitiecharcolor } {#1} } , + charcolor .initial:n = black , + charcolor* .code:n = { \zitie_color_select:nnn { zitieframecolor } {#1} } , + color .meta:n = { framecolor = #1, charcolor = #1 } , + color* .meta:n = { framecolor* = #1, charcolor* = #1 } , + fillcolor .code:n = + { + \exp_args:Nx \tl_if_empty:nTF {#1} + { \zitie_color_select:nn { zitiefillcolor } { white } \cs_set_nopar:Npn \__zitie_aux_color_fill: { } } + { + \zitie_color_select:nn { zitiefillcolor } {#1} + \cs_set_nopar:Npn \__zitie_aux_color_fill: { \color_fill:n {#1} } + } + } , + fillcolor* .code:n = + { + \zitie_color_select:nnn { zitiefillcolor } #1 + \cs_set_nopar:Npn \__zitie_aux_color_fill: { \color_fill:nn #1 } + } , + dashpattern .tl_set:N = \l__zitie_dash_pattern_tl , + dashpattern .initial:n = { } , + framearc .code:n = { \tl_set:Nn \l__zitie_frame_arc_tl { {#1}{#1} } } , + framearc* .tl_set:N = \l__zitie_frame_arc_tl , + framearc* .initial:n = { { 0cm }{ 0cm } } , + filepath .code:n = + { + \seq_clear:N \l_file_search_path_seq + \keys_set:nn { zitie } { filepath+ = {#1} } + } , + filepath+ .code:n = { \tl_map_inline:nn {#1} { \seq_put_right:Nn \l_file_search_path_seq {##1} } } , + charstroke .multichoice: , + charstroke / none .code:n = { \cs_set_eq:cN { \zitie_processor:n { charstroke } } \use:n } , + charstroke / unknown .code:n = { \cs_set_eq:cc { \zitie_processor:n { charstroke } } {#1} } , + charstrokespecial .code:n = + { + \cs_set:cn { \zitie_processor:n { charstroke } } + { \zitie_stroke_chars:nn {#1} {##1} } + } , + charstroke .initial:n = { none } , + + debug .bool_set:N = \l__zitie_debug_bool , + debug .initial:n = false , + debug .default:n = true , + savefontname .bool_set:N = \l__zitie_savefontname_bool , + savefontname .initial:n = false , + savefontname .default:n = true , + fallback .bool_set:N = \l__zitie_font_fallback_bool , + fallback .initial:n = false , + fallback .default:n = true , + fallbackfont .clist_set:N = \g__zitie_fallback_font_clist , + fallbackfont .initial:n = { 宋体 } , + fallbackfont+ .code:n = { \clist_put_right:Nn \g__zitie_fallback_font_clist {#1} } , + } + +\hook_new_pair:nn { zitie/processor/before } { zitie/processor/after } +\cs_new:Npn \zitie_new_process_rule:nnn #1#2#3 % processor, id, code + { + \cs_set:cpn { __zitie_processor_ #1 @ #2 :n } ##1 + { \hook_use:n { zitie/processor/before } #3 \hook_use:n { zitie/processor/after } } + \keys_define:nn { zitie } + { #1/#2 .code:n = { \cs_set_eq:cc { \zitie_processor:n {#1} } { __zitie_processor_ #1 @ #2 :n } } } + } +\cs_new:Npn \zitie_new_process_rule:nnnn #1#2#3#4 % processor, id, arg num, code + { + \cs_set:cn { \zitie_processor:nnn {#1} {#2} {#3} } + { \hook_use:n { zitie/processor/before } #4 \hook_use:n { zitie/processor/after } } + \keys_define:nn { zitie } + { #1/#2 .code:n = { \cs_set_eq:cc { \zitie_processor:n {#1} } { \zitie_processor:nnn {#1} {#2} {#3} } } } + } +\NewDocumentCommand \zitienewrule { O{1} >{\TrimSpaces} m > {\TrimSpaces} m m } + { \zitie_new_process_rule:nnnn {#2} {#3} {#1} {#4} } +\zitie_new_process_rule:nnn { punctuation } { onlast } + { \tex_penalty:D 10000\smash{ \makebox[0pt]{ \color_select:n { zitiecharcolor } \zitieCJKfamily{\zitiefontname} #1 } } } +\zitie_new_process_rule:nnn { punctuation } { scale } + { + \hbox_set:Nn \l_tmpa_box { \color_select:n { zitiecharcolor } \zitieCJKfamily{\zitiefontname} #1 } + \box_scale:Nnn \l_tmpa_box \zitiexscaleratio \zitieyscaleratio \box_use_drop:N \l_tmpa_box + } +\zitie_new_process_rule:nnn { charstroke } { solid } + { \zitie_stroke_chars:nn { 1 ~ Tr ~ 0.25 ~ w ~ [] ~ 0 ~ d ~ 1 ~ J } {#1} } +\zitie_new_process_rule:nnn { charstroke } { dashed } + { \zitie_stroke_chars:nn { 1 ~ Tr ~ 0.25 ~ w ~ [.8] ~ 0 ~ d ~ 1 ~ J } {#1} } +\zitie_new_process_rule:nnn { charstroke } { whitesolid } + { \zitie_stroke_chars:nn { 2 ~ Tr ~ 0.25 ~ w ~ [] ~ 0 ~ d ~ 1 ~ J ~ 1 ~ 1 ~ 1 ~ rg } {#1} } +\zitie_new_process_rule:nnn { charstroke } { whitedashed } + { \zitie_stroke_chars:nn { 2 ~ Tr ~ 0.25 ~ w ~ [.8] ~ 0 ~ d ~ 1 ~ J ~ 1 ~ 1 ~ 1 ~ rg } {#1} } + + +\cs_new:Npn \__zitie_new_font_family:nn #1#2 { \__zitie_new_font_family:nnn {#1} {#2} { } } +\cs_new:Npn \__zitie_new_font_family_validate:nn #1#2 { \__zitie_new_font_family_validate:nnn {#1} {#2} { } } +\cs_new:Npn \zitie_new_font:n #1 + { + \clist_map_inline:nn {#1} + { + \int_case:nnF { \tl_count:n {##1} } + { + { 2 } { \__zitie_new_font_family_validate:nn ##1 } + { 3 } { \__zitie_new_font_family_validate:nnn ##1 } + } + { \msg_error:nnn { zitie } { font-args } {##1} } + } + } +\cs_new:Npn \zitie_new_font:nnn #1#2#3 % fontfamily, fontname, font feature + { + \seq_set_from_clist:Nn \l__zitie_tmpa_seq {#1} + \clist_set:Nn \l__zitie_tmpa_clist {#2} + \seq_map_indexed_inline:Nn \l__zitie_tmpa_seq + { + \__zitie_new_font_family_validate:nnn + { ##2 } { \clist_item:Nn \l__zitie_tmpa_clist {##1} } {#3} + } + } + +\cs_new:Npn \zitiesetup #1 + { + \keys_set:nn { zitie } {#1} + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + } + + +\cs_new:Npn \zitie_new_resize_method:nn #1 + { + \clist_put_right:Nn \g__zitie_resize_method_clist {#1} + \cs_new:cpn { \__zitie_resize:n {#1} } + } +\zitie_new_resize_method:nn { none } { } +\cs_new:Npn \zitie_new_frame_construct:nn #1 + { + \clist_put_right:Nn \g__zitie_frame_list_clist {#1} + \cs_new:cn { \zitie_frame_type:n {#1} } + } +\zitie_new_frame_construct:nn { none } { } + +\zitie_font_if_exist:nT { SimSun } { \zitie_new_font:n { {宋体}{SimSun} } } +\keys_set:nn { zitie } + { + basechar = 好 , + zihao = 4 , + frametype = none , + resize = none , + } + +\ProcessKeysPackageOptions { zitie } +\cs_new:Npn \zitie_single_construct:nN #1#2 + { + \group_begin: + \tl_if_empty:nF {#1} { \keys_set:nn { zitie } {#1} } + \tl_set:Nf \l__zitie_curr_char_tl {#2} + \__zitie_single_construct_o:N \l__zitie_curr_char_tl + \group_end: + } +\cs_new:Npn \zitie_single_construct:N #1 + { + \group_begin: + \tl_set:Nf \l__zitie_curr_char_tl {#1} + \__zitie_single_construct_o:N \l__zitie_curr_char_tl + \group_end: + } +\cs_new:Npn \__zitie_single_construct:N #1 + { + \zitie_token_if_punctuation_f:NTF #1 + { \zitie_processor_c:n { punctuation } {#1} } + { + \hcoffin_set:Nn \l__zitie_box_coffin + { + \color_select:n { zitiecharcolor } + \zitie_processor_c:n { charstroke } + { \zitie_cjk_glyph_use:nN { \l__zitie_font_tl } \l__zitie_curr_char_tl } + } + \tl_set:Nx \zitiexscaleratio { \dim_to_decimal:n { \coffin_wd:N \l__zitie_box_coffin} } + \tl_set:Nx \zitieyscaleratio { \dim_to_decimal:n { \__zitie_coffin_ht_plus_dp:N \l__zitie_box_coffin } } + \__zitie_resize_c:n { \l_zitie_resize_method_tl } + \dim_gset:Nn \zitiewidth { \coffin_wd:N \l__zitie_box_coffin } + \dim_gset_eq:NN \zitieboxwd \zitiewidth + \dim_gset:Nn \zitieboxht { \coffin_ht:N \l__zitie_box_coffin } + \dim_gset:Nn \zitieboxdp { \coffin_dp:N \l__zitie_box_coffin } + \dim_gset:Nn \zitieheight { \zitieboxht + \zitieboxdp } + \tl_gset:Nx \zitiexscaleratio { \fp_eval:n { \dim_to_fp:n { \zitiewidth } / \zitiexscaleratio } } + \tl_gset:Nx \zitieyscaleratio { \fp_eval:n { \dim_to_fp:n { \zitieheight } / \zitieyscaleratio } } + \__zitie_single_frame_construct: + } + } +\cs_set:Npn \__zitie_single_construct_o:N + { \exp_after:wN \__zitie_single_construct:N } +\cs_set:Npn \__zitie_single_construct_f:N + { \exp_args:Nf \__zitie_single_construct:N } + +\cs_new:Npn \zitie_dim_gezero_dispatch:NNnnn #1#2 #3#4#5 + { + \dim_compare:nNnTF #1 > \c_zero_dim + { #3 } + { + \dim_compare:nNnTF #2 > \c_zero_dim + { #4 } { #5 } + } + } +\cs_new:Npn \zitie_dim_gezero_dispatch:NNnnnn #1#2 #3#4#5#6 + { + \dim_compare:nNnTF #1 > \c_zero_dim + { + \dim_compare:nNnTF #2 > \c_zero_dim + { #3 } { #4 } + } + { + \dim_compare:nNnTF #2 > \c_zero_dim + { #5 } { #6 } + } + } +\cs_new:Npn \__zitie_force_size_dispatch:nnn % height, width, none + { \zitie_dim_gezero_dispatch:NNnnn \l__zitie_box_height_dim \l__zitie_box_width_dim } +\cs_new:Npn \__zitie_force_size_dispatch:nnnn % both, height, width, none + { \zitie_dim_gezero_dispatch:NNnnnn \l__zitie_box_height_dim \l__zitie_box_width_dim } +\zitie_new_resize_method:nn { real } + { + \__zitie_force_size_dispatch:nnnn + { \coffin_resize:Nnn \l__zitie_box_coffin \l__zitie_box_width_dim \l__zitie_box_height_dim } + { + \coffin_scale:Nnn \l__zitie_box_coffin + { \dim_ratio:nn { \l__zitie_box_height_dim } { \__zitie_coffin_ht_plus_dp:N \l__zitie_box_coffin } } + { \dim_ratio:nn { \l__zitie_box_height_dim } { \__zitie_coffin_ht_plus_dp:N \l__zitie_box_coffin } } + } + { + \coffin_scale:Nnn \l__zitie_box_coffin + { \dim_ratio:nn { \l__zitie_box_width_dim } { \coffin_wd:N \l__zitie_box_coffin } } + { \dim_ratio:nn { \l__zitie_box_width_dim } { \coffin_wd:N \l__zitie_box_coffin } } + } + { \coffin_scale:Nnn \l__zitie_box_coffin { \l__zitie_x_scale_tl } { \l__zitie_y_scale_tl } } + } + +\zitie_new_resize_method:nn { base } + { + \__zitie_force_size_dispatch:nnnn + { \coffin_resize:Nnn \l__zitie_box_coffin \l__zitie_box_width_dim \l__zitie_box_height_dim } + { + \coffin_resize:Nnn \l__zitie_box_coffin + { \l__zitie_char_width_dim * \dim_ratio:nn { \l__zitie_box_height_dim } { \__zitie_coffin_ht_plus_dp:N \l__zitie_box_coffin } } + { \l__zitie_box_height_dim } + } + { + \coffin_resize:Nnn \l__zitie_box_coffin + { \l__zitie_box_width_dim } + { \l__zitie_char_height_dim * \dim_ratio:nn { \l__zitie_box_width_dim } { \coffin_wd:N \l__zitie_box_coffin } } + } + { + \coffin_resize:Nnn \l__zitie_box_coffin + { \l__zitie_x_scale_tl \l__zitie_char_width_dim } + { \l__zitie_y_scale_tl \l__zitie_char_height_dim } + } + } + +\zitie_new_resize_method:nn { square } + { + \hcoffin_set:Nn \l__zitie_tmpa_coffin { \phantom { \c_zitie_basechar_tl } } + \dim_set:Nn \zitiewidth { \coffin_wd:N \l__zitie_box_coffin } + \dim_set:Nn \zitieheight { \__zitie_coffin_ht_plus_dp:N \l__zitie_box_coffin } + \__zitie_resize_method_square_aux: + \tl_set:Nx \zitiexscaleratio { \dim_to_decimal:n \zitiewidth } + \tl_set_eq:NN \zitieyscaleratio \zitiexscaleratio + \__zitie_force_size_dispatch:nnnn + { \coffin_resize:Nnn \l__zitie_box_coffin \l__zitie_box_width_dim \l__zitie_box_height_dim } + { \coffin_resize:Nnn \l__zitie_box_coffin \l__zitie_box_height_dim \l__zitie_box_height_dim } + { \coffin_resize:Nnn \l__zitie_box_coffin \l__zitie_box_width_dim \l__zitie_box_width_dim } + { \coffin_scale:Nnn \l__zitie_box_coffin \l__zitie_x_scale_tl \l__zitie_y_scale_tl } + } +\cs_new:Npn \__zitie_resize_method_square_aux: + { + \if_dim:w \zitieheight > \zitiewidth + \coffin_resize:Nnn \l__zitie_tmpa_coffin + { ( \zitieheight - \zitiewidth ) / 2 } + { \zitieheight } + \coffin_join:NnnNnnnn \l__zitie_box_coffin { r } { vc } \l__zitie_tmpa_coffin { l } { vc } { 0pt } { 0pt } + \coffin_join:NnnNnnnn \l__zitie_box_coffin { l } { vc } \l__zitie_tmpa_coffin { r } { vc } { 0pt } { 0pt } + \dim_set_eq:NN \zitiewidth \zitieheight + \else: \if_dim:w \zitiewidth > \zitieheight + \coffin_resize:Nnn \l__zitie_tmpa_coffin + { \zitiewidth } + { ( \zitiewidth - \zitieheight ) / 2 } + \coffin_join:NnnNnnnn \l__zitie_box_coffin { hc } { t } \l__zitie_tmpa_coffin { hc } { b } { 0pt } { 0pt } + \coffin_join:NnnNnnnn \l__zitie_box_coffin { hc } { b } \l__zitie_tmpa_coffin { hc } { t } { 0pt } { 0pt } + \dim_set_eq:NN \zitieheight \zitiewidth + \fi: \fi: + } + +\msg_new:nnn { zitie } { frame-type } { using~ `#1'~ frame. } +\cs_new:Npn \__zitie_single_frame_construct: + { + \draw_begin: + \draw_linewidth:n { \l__zitie_linewidth_dim } + \__zitie_aux_color_fill: + \color_stroke:n { zitieframecolor } + \tl_if_empty:NF \l__zitie_dash_pattern_tl { \exp_args:No \draw_dash_pattern:nn { \l__zitie_dash_pattern_tl } { 0pt } } + \exp_after:wN \draw_path_corner_arc:nn \l__zitie_frame_arc_tl + \zitie_frame_type_c:n { \l_zitie_frame_type_tl } { 0 } { 0 } { \zitiewidth } { \zitieheight } { 1 } { 1 } + \draw_coffin_use:Nnn \l__zitie_box_coffin { l } { b } + \draw_end: + } +\zitie_new_frame_construct:nn { 口 } + { + \draw_path_rectangle_corners:nn { #1 , #2 } { #3 , #4 } + \cs_if_eq:NNTF \__zitie_aux_color_fill: \c_empty_tl + { \draw_path_use_clear:n { stroke } } + { \draw_path_use_clear:n { stroke , fill } } + } +\zitie_new_frame_construct:nn { 十 } + { + \draw_path_moveto:n { (#3)/2 , #2 } + \draw_path_lineto:n { #3/2 , #4 } + \draw_path_moveto:n { #1 , (#4)/2 } + \draw_path_lineto:n { #3 , (#4)/2 } + \draw_path_use_clear:n { stroke } + } +\zitie_new_frame_construct:nn { 田 } + { + \zitie_frame_type_c:n { 口 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + } +\zitie_new_frame_construct:nn { × } + { + \draw_path_moveto:n { #1 , #2 } + \draw_path_lineto:n { #3 , #4 } + \draw_path_moveto:n { #1 , #4 } + \draw_path_lineto:n { #3 , #2 } + \draw_path_use_clear:n { stroke } + } +\zitie_new_frame_construct:nn { 咪 } + { + \zitie_frame_type_c:n { 口 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_frame_type_c:n { × } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + } +\zitie_new_frame_construct:nn { 米 } + { + \zitie_frame_type_c:n { × } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + } + +\NewDocumentCommand \zitienewfont { s } { \IfBooleanTF {#1} { \zitie_new_font:nnn } { \zitie_new_font:n } } +\hook_new_pair:nn { zitie/framezi/before } { zitie/framezi/after } +\NewDocumentCommand \framezi { s O{} m } + { + \group_begin: + \tl_if_empty:nF {#2} { \keys_set_filter:nnn { zitie } { geometry } {#2} } + \hook_use:n { zitie/framezi/before } + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + \IfBooleanTF {#1} + { \tl_map_inline:Nn #3 { \zitie_single_construct:N ##1 \allowbreak } } + { \tl_map_inline:nn {#3} { \zitie_single_construct:N ##1 \allowbreak } } + \hook_use:n { zitie/framezi/after } + \group_end: + } +\hook_new_pair:nn { zitie/framerange/before } { zitie/framerange/after } +\hook_new:n { zitie/framerange/range } +\NewDocumentCommand \framerange { O{} m } + { + \group_begin: + \tl_if_empty:nF {#1} { \keys_set_filter:nnn { zitie } { geometry } {#1} } + \hook_use:n { zitie/framerange/before } + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + \clist_map_inline:nn {#2} + { + \str_if_eq:nnF {##1} { -> } + { + \__zitie_frame_range_aux:Nnw \__zitie_check_num_range:nnNN {##1} + \l__zitie_begin_int \l__zitie_end_int + \__zitie_int_until_do:nn { \l__zitie_begin_int > \l__zitie_end_int } + { + \group_begin: + \tl_set:Nf \l__zitie_curr_char_tl { \tex_Uchar:D \l__zitie_begin_int } + \__zitie_single_construct_o:N \l__zitie_curr_char_tl + \group_end: \allowbreak + \int_incr:N \l__zitie_begin_int + } + } + \hook_use:n { zitie/framerange/range } + } + \hook_use:n { zitie/framerange/after } + \group_end: + } +\NewDocumentCommand \__zitie_frame_range_aux:Nnw { m >{ \SplitArgument { 1 } { -> } } m } { #1 #2 } + +\cs_new:Npn \__zitie_construct_loop:N #1 + { + \tl_if_eq:nnTF #1 \par { \par \hook_use:n { zitie/zitieframe/par } \__zitie_construct_loop:N } + { \quark_if_nil:nF {#1} { \zitie_single_construct:N #1 \allowbreak \__zitie_construct_loop:N } } + } +\hook_new_pair:nn { zitie/zitieframe/before } { zitie/zitieframe/after } +\hook_new:n { zitie/zitieframe/par } +\NewDocumentEnvironment { zitieframe } { G{} O{} +b } + { + \group_begin: + \lineskip=0pt \parindent=0pt \parskip=0pt \raggedright + \tl_if_empty:nF {#2} { \keys_set:nn { zitie } {#2} } + \hook_use:n { zitie/zitieframe/before } + #1 + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + \__zitie_construct_loop:N #3 \q_nil + } { \hook_use:n { zitie/zitieframe/after } \group_end: } + +\hook_new_pair:nn { zitie/framezifile/before } { zitie/framezifile/after } +\NewDocumentCommand \framezifile { s O{} m } + { + \group_begin: + \tl_if_empty:nF {#2} { \keys_set_filter:nnn { zitie } { geometry } {#2} } + \hook_use:n { zitie/framezifile/before } + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + \IfBooleanTF {#1} + { + \file_get:nnN {#3} { } \l__zitie_file_chars_tl + \tl_map_inline:Nn \l__zitie_file_chars_tl { \zitie_single_construct:N ##1 \allowbreak } + } + { + \ior_open:Nn \g__zitie_file_read_ior {#3} + \ior_map_inline:Nn \g__zitie_file_read_ior + { \tl_map_inline:nn {##1} { \zitie_single_construct:N ####1 \allowbreak } } + \ior_close:N \g__zitie_file_read_ior + } + \hook_use:n { zitie/framezifile/after } + \group_end: + } + + +\if_bool:N \g__zitie_enable_background_bool +%%% module background +\dim_new:N \g__zitie_background_lmargin_dim +\dim_new:N \g__zitie_background_tmargin_dim +\dim_new:N \g__zitie_background_rmargin_dim +\dim_new:N \g__zitie_background_bmargin_dim +\dim_new:N \g__zitie_background_boxwidth_dim +\dim_new:N \g__zitie_background_boxheight_dim +\skip_new:N \g__zitie_background_boxcol_skip +\skip_new:N \g__zitie_background_boxrow_skip +\dim_new:N \g__zitie_background_framewidth_dim +\dim_new:N \g__zitie_background_frameheight_dim +\dim_new:N \g__zitie_background_x_left_dim +\dim_new:N \g__zitie_background_x_right_dim +\dim_new:N \g__zitie_background_y_top_dim +\dim_new:N \g__zitie_background_y_bottom_dim +\bool_new:N \g__zitie_background_colnum_bool +\bool_new:N \g__zitie_background_rownum_bool +\int_new:N \g__zitie_background_colboxes_int +\int_new:N \g__zitie_background_rowboxes_int +\dim_new:N \g__zitie_background_linewidth_dim +\cs_new_nopar:Npn \__zitie_background_aux_color_fill: { } +\keys_define:nn { zitie } { background .meta:nn = { zitie/background } {#1} } +\NewDocumentCommand \zitiebackground { O{} } + { + \keys_set:nn { zitie/background } {#1} + \__zitie_background_typeset: + } +\keys_define:nn { zitie/background } + { + typeset .choice: , + typeset / true .code:n = { \cs_gset:Npn \__zitie_background_typeset: { \zitie_set_background_frame: } } , + typeset / false .code:n = { \cs_gset:Npn \__zitie_background_typeset: { \zitie_unset_background_frame: } } , + typeset / next .code:n = + { + \cs_gset:Npn \__zitie_background_typeset: + { \zitie_unset_background_frame: \zitie_set_next_background_frame: } + } , + typeset / none .code:n = { \cs_gset:Npn \__zitie_background_typeset: { } } , + true .meta:n = { typeset = true } , + on .meta:n = { typeset = true } , + false .meta:n = { typeset = false } , + off .meta:n = { typeset = false } , + next .meta:n = { typeset = next } , + none .meta:n = { typeset = none } , + lmargin .dim_gset:N = \g__zitie_background_lmargin_dim , + tmargin .dim_gset:N = \g__zitie_background_tmargin_dim , + rmargin .dim_gset:N = \g__zitie_background_rmargin_dim , + bmargin .dim_gset:N = \g__zitie_background_bmargin_dim , + margin .code:n = + { + \if_case:w \clist_count:n {#1} \exp_stop_f: + \dim_gset:Nn \g__zitie_background_lmargin_dim { 0pt } + \dim_gset:Nn \g__zitie_background_tmargin_dim { 0pt } + \dim_gset:Nn \g__zitie_background_rmargin_dim { 0pt } + \dim_gset:Nn \g__zitie_background_bmargin_dim { 0pt } + \or: + \dim_gset:Nn \g__zitie_background_lmargin_dim {#1} + \dim_gset:Nn \g__zitie_background_tmargin_dim {#1} + \dim_gset:Nn \g__zitie_background_rmargin_dim {#1} + \dim_gset:Nn \g__zitie_background_bmargin_dim {#1} + \or: + \dim_gset:Nn \g__zitie_background_lmargin_dim { \clist_item:nn {#1} { 1 } } + \dim_gset:Nn \g__zitie_background_tmargin_dim { \clist_item:nn {#1} { 2 } } + \dim_gset:Nn \g__zitie_background_rmargin_dim { \clist_item:nn {#1} { 1 } } + \dim_gset:Nn \g__zitie_background_bmargin_dim { \clist_item:nn {#1} { 2 } } + \or: + \dim_gset:Nn \g__zitie_background_lmargin_dim { \clist_item:nn {#1} { 1 } } + \dim_gset:Nn \g__zitie_background_tmargin_dim { \clist_item:nn {#1} { 2 } } + \dim_gset:Nn \g__zitie_background_rmargin_dim { \clist_item:nn {#1} { 1 } } + \dim_gset:Nn \g__zitie_background_bmargin_dim { \clist_item:nn {#1} { 2 } } + \else: + \dim_gset:Nn \g__zitie_background_lmargin_dim { \clist_item:nn {#1} { 1 } } + \dim_gset:Nn \g__zitie_background_tmargin_dim { \clist_item:nn {#1} { 2 } } + \dim_gset:Nn \g__zitie_background_rmargin_dim { \clist_item:nn {#1} { 3 } } + \dim_gset:Nn \g__zitie_background_bmargin_dim { \clist_item:nn {#1} { 4 } } + \fi: + } , + colnum .bool_gset:N = \g__zitie_background_colnum_bool , + rownum .bool_gset:N = \g__zitie_background_rownum_bool , + colboxes .int_gset:N = \g__zitie_background_colboxes_int , + rowboxes .int_gset:N = \g__zitie_background_rowboxes_int , + framewidth .dim_gset:N = \g__zitie_background_framewidth_dim , + frameheight .dim_gset:N = \g__zitie_background_frameheight_dim , + boxwidth .dim_gset:N = \g__zitie_background_boxwidth_dim , + boxheight .dim_gset:N = \g__zitie_background_boxheight_dim , + onpaper .meta:n = { frameheight = \paperheight , framewidth = \paperwidth } , + onpaper .value_forbidden:n = true , + ontext .meta:n = { frameheight = \textheight , framewidth = \textwidth } , + ontext .value_forbidden:n = true , + + xrange .code:n = + { + \dim_gset:Nn \g__zitie_background_x_left_dim { \clist_item:nn {#1} {1} } + \dim_gset:Nn \g__zitie_background_x_right_dim { \clist_item:nn {#1} {2} } + } , + yrange .code:n = + { + \dim_gset:Nn \g__zitie_background_y_top_dim { \clist_item:nn {#1} {1} } + \dim_gset:Nn \g__zitie_background_y_bottom_dim { \clist_item:nn {#1} {2} } + } , + frametype .tl_gset:N = \g__zitie_background_frametype_tl , + linewidth .dim_gset:N = \g__zitie_background_linewidth_dim , + framecolor .code:n = { \zitie_color_select:nn { zitiebackgroundframecolor } {#1} } , + framecolor* .code:n = { \zitie_color_select:nnn { zitiebackgroundframecolor } #1 } , + fillcolor .code:n = + { + \exp_args:Nx \tl_if_empty:nTF {#1} + { + \zitie_color_select:nn { zitiebackgroundfillcolor } { white } + \cs_gset_nopar:Npn \__zitie_background_aux_color_fill: { } + } + { + \zitie_color_select:nn { zitiebackgroundfillcolor } {#1} + \cs_gset_nopar:Npn \__zitie_background_aux_color_fill: { \color_fill:n {#1} } + } + } , + fillcolor* .code:n = + { + \zitie_color_select:nnn { zitiebackgroundfillcolor } #1 + \cs_gset_nopar:Npn \__zitie_background_aux_color_fill: { \color_fill:nn #1 } + } , + dashpattern .tl_gset:N = \g__zitie_background_dash_pattern_tl , + } + +\keys_set:nn { zitie/background } + { + typeset = none, + margin = { 0pt, 0pt, 0pt, 0pt }, + colnum = false, + rownum = false, + colboxes = 1, + rowboxes = 1, + onpaper, + xrange = { 0cm, \paperwidth } , + yrange = { 0cm, \paperheight } , + frametype = none, + linewidth = 0.4pt, + framecolor = black, + dashpattern = { }, + } + +\cs_new:Npn \zitie_set_background_frame: + { + \__zitie_background_calc: + \__zitie_background_construct:nnn { background } + { \g__zitie_background_x_left_dim-.5\g__zitie_background_linewidth_dim } + { -\g__zitie_background_y_bottom_dim-.5\g__zitie_background_linewidth_dim } + } +\cs_new:Npn \zitie_set_next_background_frame: + { + \__zitie_background_calc: + \__zitie_background_next_construct:nnn { background } + { \g__zitie_background_x_left_dim-.5\g__zitie_background_linewidth_dim } + { -\g__zitie_background_y_bottom_dim-.5\g__zitie_background_linewidth_dim } + } +\cs_new:Npn \zitie_unset_background_frame: + { \__zitie_unset_background_frame:n { background } } +\cs_new:Npn \__zitie_background_calc: + { + \zitie_dim_gezero_dispatch:NNnnnn + \g__zitie_background_boxheight_dim + \g__zitie_background_boxwidth_dim + { \use_none:nn } { \use_ii:nn } { \use_i:nn } { \use:nn } + { + \dim_set:Nn \g__zitie_background_boxheight_dim + { \g__zitie_background_frameheight_dim/\g__zitie_background_rowboxes_int } + } + { + \dim_set:Nn \g__zitie_background_boxwidth_dim + { \g__zitie_background_framewidth_dim/\g__zitie_background_colboxes_int } + } + } +\cs_new_protected:Npn \__zitie_background_construct:nnn #1#2#3 + { + \hook_gput_code:nnn { shipout/#1 } { zitie/background } + { \put ( \dim_eval:n {#2} , \dim_eval:n {#3} ) { \__zitie_background_construct_draw: } } + } +\cs_new_protected:Npn \__zitie_background_construct:nnnn #1#2#3#4 + { + \hook_gput_code:nnn { shipout/#1 } { zitie/background/#2 } + { \put ( \dim_eval:n {#3} , \dim_eval:n {#4} ) { \__zitie_background_construct_draw: } } + } +\cs_new_protected:Npn \__zitie_background_next_construct:nnn #1#2#3 + { + \hook_gput_next_code:nn { shipout/#1 } + { \put ( \dim_eval:n {#2} , \dim_eval:n {#3} ) { \__zitie_background_construct_draw: } } + } +\cs_new:Npn \__zitie_unset_background_frame:n #1 + { \hook_gremove_code:nn { shipout/#1 } { zitie/background } } +\cs_new:Npn \__zitie_unset_background_frame:nn #1#2 + { \hook_gremove_code:nn { shipout/#1 } { zitie/background/#2 } } +\cs_new:Npn \zitie_background_frame_type:n #1 { __zitie_background_frame_ #1 :nnnnnn } +\cs_new:Npn \zitie_background_frame_type_c:n #1 { \use:c { __zitie_background_frame_ #1 :nnnnnn } } +\cs_new:Npn \__zitie_background_construct_draw: + { + \draw_begin: + \tl_if_empty:NF \g__zitie_background_dash_pattern_tl + { \exp_args:No \draw_dash_pattern:nn { \g__zitie_background_dash_pattern_tl } { 0pt } } + \draw_linewidth:n { \g__zitie_background_linewidth_dim } + \__zitie_background_aux_color_fill: + \color_stroke:n { zitiebackgroundframecolor } + \zitie_background_frame_type_c:n { \g__zitie_background_frametype_tl } + { 0cm } { 0cm } + { \g__zitie_background_x_right_dim - \g__zitie_background_x_left_dim } + { \g__zitie_background_y_bottom_dim - \g__zitie_background_y_top_dim } + { \g__zitie_background_boxwidth_dim } + { \g__zitie_background_boxheight_dim } + \draw_end: + } +\cs_new:Npn \zitie_background_new_frame_construct:nn #1 + { \cs_set:cn { \zitie_background_frame_type:n {#1} } } +\int_new:N \l__zitie_background_tmpa_int +\int_new:N \l__zitie_background_tmpb_int +\fp_new:N \l__zitie_background_tmpa_fp +\fp_new:N \l__zitie_background_tmpb_fp +\zitie_background_new_frame_construct:nn { none } { } +\zitie_background_new_frame_construct:nn { 口 } + { + \cs_if_eq:NNF \__zitie_background_aux_color_fill: \c_empty_tl + { + \draw_path_rectangle_corners:nn { #1 , #2 } { #3 , #4 } + \draw_path_use_clear:n { stroke , fill } + } + \draw_path_grid:nnnn { #5 } { #6 } { #1 , #2 } + { #3+\g__zitie_background_linewidth_dim, #4+\g__zitie_background_linewidth_dim } + \draw_path_use_clear:n { stroke } + } +\zitie_background_new_frame_construct:nn { 十 } + { + \dim_step_inline:nnnn {#1+.5#5} {#5} {#3} + { + \draw_path_moveto:n { ##1 , #2 } + \draw_path_lineto:n { ##1 , #4 } + } + \dim_step_inline:nnnn {#2+.5#6} {#6} {#4} + { + \draw_path_moveto:n { #1 , ##1 } + \draw_path_lineto:n { #3 , ##1 } + } + \draw_path_use_clear:n { stroke } + } +\zitie_background_new_frame_construct:nn { 田 } + { + \zitie_background_frame_type_c:n { 口 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_background_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + } +\zitie_background_new_frame_construct:nn { × } + { + \int_set:Nn \l__zitie_background_tmpa_int { \fp_to_int:n { ceil( \dim_ratio:nn {(#3)-(#1)} {#5} ) } } + \int_set:Nn \l__zitie_background_tmpb_int { \fp_to_int:n { ceil( \dim_ratio:nn {(#4)-(#2)} {#6} ) } } + \if_int_compare:w \l__zitie_background_tmpa_int < \l__zitie_background_tmpb_int + \__zitie_background_frame_construct_aux_cross:nnnnnnnn + {#1} {#2} {#3} {#4} {#5} {#6} { \l__zitie_background_tmpb_int } { } + \else: + \__zitie_background_frame_construct_aux_cross:nnnnnnnn + {#1} {#2} {#3} {#4} {#5} {#6} { \l__zitie_background_tmpa_int } { } + \fi: + \draw_path_use_clear:n { stroke } + } +\cs_new:Npn \__zitie_background_frame_construct_aux_cross:nnnnnnnn #1#2#3#4#5#6#7#8 + { + \int_step_inline:nn {#7} + { + \draw_path_moveto:n { #1 , #2 + ##1*(#6) } + \draw_path_lineto:n { #1 + ##1*#5 , #2 } + } + \int_step_inline:nn {#7} + { + \draw_path_moveto:n { #1+#7*(#5) , #2+#7*(#6)-##1*(#6) } + \draw_path_lineto:n { #1+#7*(#5)-##1*(#5) , #2+#7*(#6) } + } + \int_step_inline:nn {#7} + { + \draw_path_moveto:n { #1+#7*(#5)-##1 #5 , #2 } + \draw_path_lineto:n { #1+#7*(#5) , #2+(##1)*#6 } + } + \int_step_inline:nn {#7} + { + \draw_path_moveto:n { #1 , #2+#7*#6-##1*(#6) } + \draw_path_lineto:n { #1+##1*(#5) , #2+#7*(#6) } + } + } +\zitie_background_new_frame_construct:nn { 米 } + { + \zitie_background_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_background_frame_type_c:n { × } {#1} {#2} {#3} {#4} {#5} {#6} + } +\zitie_background_new_frame_construct:nn { 咪 } + { + \zitie_background_frame_type_c:n { 口 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_background_frame_type_c:n { 十 } {#1} {#2} {#3} {#4} {#5} {#6} + \zitie_background_frame_type_c:n { × } {#1} {#2} {#3} {#4} {#5} {#6} + } +%%% end of background +\else: +\msg_new:nnn { zitie } { background } + { `background'~ unenable.~ You~ must~ use~ `enable-background'~ when~ loading~ this~ package. } +\keys_define:nn { zitie } { background .code:n = \msg_error:nn { zitie } { background } } +\fi: + + +\if_bool:N \g__zitie_enable_zhlipsum_bool +\RequirePackage { zhlipsum } +%%% module zhlipsum +\cs_new:Npn \__zitie_zhlipsum_paras:nn #1#2 { c__zhlipsum_ #1 @ #2 _tl } +\hook_new_pair:nn { zitie/framezhlipsum/before } { zitie/framezhlipsum/after } +\hook_new:n { zitie/framezhlipsum/paragraph } +\NewDocumentCommand \framezhlipsum { O{} m >{ \TrimSpaces } O{simp} } + { + \group_begin: + \zhlipsum_if_exist:nTF {#3} + { + \tl_if_empty:nF {#1} { \keys_set_filter:nnn { zitie } { geometry } {#1} } + \hook_use:n { zitie/framezhlipsum/before } + \bool_if:NTF \l__zitie_savefontname_bool + { \tl_gset_eq:NN \zitiefontname \l__zitie_font_tl } + { \tl_gset_eq:NN \zitiefontname \c_empty_tl } + \__zhlipsum_parse_par:nn {#3} {#2} + \seq_if_empty:NF \l__zhlipsum_par_num_seq + { + \seq_pop_right:NN \l__zhlipsum_par_num_seq \l__zhlipsum_tmpa_tl + \seq_map_inline:Nn \l__zhlipsum_par_num_seq + { + \tl_map_inline:cn { \__zitie_zhlipsum_paras:nn {#3} {##1} } + { \zitie_single_construct:N ####1 \allowbreak } + \hook_use:n { zitie/framezhlipsum/paragraph } + } + \tl_map_inline:cn { \__zitie_zhlipsum_paras:nn {#3} { \l__zhlipsum_tmpa_tl } } + { \zitie_single_construct:N ##1 \allowbreak } + } + \hook_use:n { zitie/framezhlipsum/after } + } + { \__zhlipsum_error:nn { invalid-name } {#3} } + \group_end: + } +%%% +\else: +\msg_new:nnn { zitie } { zhlipsum } + { `zhlipsum'~ unenable.~ You~ must~ use~ `enable-zhlipsum'~ option~ when~ loading~ this~ package. } +\keys_define:nn { zitie } + { zhlipsum .code:n = \msg_error:nn { zitie } { zhlipsum } } +\fi: diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 74c0e040e67..42d10eea4c0 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -864,7 +864,7 @@ my @TLP_working = qw( yinit-otf york-thesis youngtab yplan yquant ytableau zapfchan zapfding zbmath-review-template zebra-goodies zed-csp zhlineskip zhlipsum zhnumber zhmetrics zhmetrics-uptex zhspacing - ziffer zlmtt zootaxa-bst zref zref-check + ziffer zitie zlmtt zootaxa-bst zref zref-check zwgetfdate zwpagelayout zxjafbfont zxjafont zxjatype zztex ); diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 2ef841663a8..be9fcc91e9e 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1497,6 +1497,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); 'zhmcjk', "die 'skipping, sorry, 8000 tfm files, (7feb12)'", 'zhmetrics', "&MAKEcopy", 'zhmetrics-uptex', "&MAKEflatten", + 'zitie', "&MAKEflatten", 'zwgetfdate', "&MAKEcopy", 'zztex', "&MAKEflatten", ); diff --git a/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc b/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc index 7f1013700fb..57648a4fcc3 100644 --- a/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc @@ -21,4 +21,5 @@ depend jfmutil depend norasi-c90 depend pxtatescale depend xcjk2uni +depend zitie depend zxjafont diff --git a/Master/tlpkg/tlpsrc/zitie.tlpsrc b/Master/tlpkg/tlpsrc/zitie.tlpsrc new file mode 100644 index 00000000000..e69de29bb2d -- cgit v1.2.3