User:Yearningdraw/code

南管工尺譜的LaTeX原始碼

%% 要額外安裝王漢宗顏楷體繁和華康行楷體

\documentclass[a4paper,12pt]{article}
\usepackage[T1]{fontenc}%有需要嗎?

%讓撩拍有不同顏色
\usepackage{xcolor}

%表格內旋轉
\usepackage{rotating}

%首行內縮取消
\parindent=0pt  

%邊界
\usepackage{geometry}
\geometry{verbose,tmargin=1.5in,bmargin=1.5in,lmargin=1in,rmargin=1in}

%取消頁碼
\pagestyle{empty}

%增加行距(與表格高度也有關)
\renewcommand{\baselinestretch}{3.5}

%使用系統中文字型
\usepackage{xeCJK}
\setCJKmainfont{王漢宗顏楷體繁}

%以中文字為指令
\usepackage{newunicodechar}

%主要歌詞
\newunicodechar{■}{\LARGE}

%附屬歌詞
\newunicodechar{●}{\fontsize{16pt}{1em}}

%造字用
\usepackage{adjustbox}%使用\clipcox
\usepackage{graphicx}%使用\rotatebox
\usepackage{amssymb}%使用\backprime

%兩音(TeXworks有問題但pdf無誤)
%(上方要減掉約0.7~0.8em不然上方會有多餘空格)
\newunicodechar{电}{%
\scalebox{0.95}{${\raisebox{1pt}{\clipbox*{0pt 2pt 1em 0.8em}
{甲}}}\mkern-9.84mu {\clipbox*{6pt -1.1pt 1em 0.3em}{圠}}$ }\hspace{-6.5pt}
}
\newunicodechar{け}{%
\hspace{0em}\clipbox*{0pt -1pt 0.4em 0.7em}{仆}\scalebox{0.9}
{\clipbox*{3.3pt -1pt 0.9em 0.7em}{ㄨ}}\hspace{-3.4pt}
}

%點和挑(以下到五個新符號不在垂直方向做修正因為clipbox
%似乎只能對字元作用另一方面主體部分都只有微調故差別不大)
\newunicodechar{ヽ}
{\hspace{-1.6pt}\raisebox{-1pt}{\scalebox{1.2}{、}}\hspace{-0.8pt}}
\newunicodechar{╱}{\raisebox{-0.5pt}{\scalebox{1.3}{%
\hspace{1pt}\rotatebox[origin=c]{110}{$\backprime$}\hspace{0.8pt}}}}

%緊點撻
\newunicodechar{ソ}{\raisebox{-1.2pt}{\scalebox{1.3}{%
\hspace{1.3pt}${\rotatebox[origin=c]{110}{$\backprime$}}
\mkern-16mu
{\raisebox{3pt}{\rotatebox[origin=c]{10}{\footnotesize、}}}
\mkern-4mu
{\raisebox{3.5pt}{\scalebox{0.4}{\textbf{)}}}}$\hspace{1.3pt}}}}

%三角跳
\newunicodechar{シ}{\raisebox{-1pt}{\scalebox{1.3}{%
\hspace{1.5pt}${\rotatebox[origin=c]{110}{$\backprime$}}
\mkern-15mu
{\raisebox{1.8pt}{\rotatebox[origin=c]{10}{\scriptsize、}}}
\mkern-12mu
{\raisebox{3.9pt}{\rotatebox[origin=c]{10}{\scriptsize、}}}
\mkern-3mu
{\raisebox{3pt}{\scalebox{0.4}{\textbf{)}}}}$\hspace{1.5pt}}}}

%五角跳
\newunicodechar{℅}{\raisebox{-1pt}{\scalebox{1.3}{%
\hspace{0.8pt}${\rotatebox[origin=c]{110}{$\backprime$}}
\mkern-15mu
{\raisebox{1.8pt}{\rotatebox[origin=c]{10}{\scriptsize、}}}
\mkern-12mu
{\raisebox{3.9pt}{\rotatebox[origin=c]{10}{\scriptsize、}}}
\mkern-3mu
{\raisebox{3pt}{\scalebox{0.4}{\textbf{)}}}}
\mkern-10.5mu
{\raisebox{-1.7pt}{\rotatebox[origin=c]{-10}{\scriptsize、}}}$\hspace{0.8pt}}}}

%去倒
\newunicodechar{し}{\hspace{2.9pt}{\fontspec[FakeBold=3]{華康行楷體W5(P)}L}\hspace{2.9pt}}

%甲線
\newunicodechar{＋}{\hspace{4pt}${\clipbox*{6pt -1pt 1em 0.72em}{〢}}
\mkern-15.15mu
{\raisebox{3.7pt}
{\clipbox*{0pt -1pt 1em 0.2em}{〧}}}
\mkern-11.85mu
{\raisebox{-4pt}{\clipbox*{6pt -1pt 1em 1em}{〢}}}$\hspace{-2pt} }

%甲線加圓弧
\newunicodechar{ㄗ}{\hspace{4pt}${\clipbox*{6pt -1pt 1em 0.72em}{〢}}
\mkern-15.15mu
{\raisebox{3.7pt}
{\clipbox*{0pt -1pt 1em 0.2em}{〧}}}
\mkern-11.85mu
{\raisebox{-4pt}{\clipbox*{6pt -1pt 1em 1em}{〢}}}
\mkern-2mu
{\raisebox{3pt}{\scalebox{0.6}{\textbf{)}}}}$\hspace{-3.8pt} }

%犯指
\newunicodechar{凢}{\raisebox{0.6pt}{\hspace{-0.5pt}${\clipbox*
{0pt -1.2pt 1em 0.4325em}{亢}}\mkern-14.5mu
{\raisebox{0.4em}{\rotatebox[origin=c]{15}{\clipbox*{0.5em 0.5em 1em 0.7em}
{衫}}}}$\hspace{3.5pt}}}

%撩
\newunicodechar{、}{\raisebox{-2.5pt}{\hspace{-4.77pt}\LARGE\textcolor{red}{、}\hspace{-3.61pt}}}

%拍
\newunicodechar{。}{\hspace{-0.5pt}{\large\,\textcolor{red}{\textbf{o}}}\hspace{2pt}}

%撚指
\newunicodechar{ㅇ}{\hspace{-0.5pt}{\large\,\textbf{o}}\hspace{2pt}}

%空格
\newunicodechar{　}{\normalsize%使在歌詞中也可用(為了使語法直觀)
\hspace{1em}}

%加落指(尾端加負空格還是無法縮短與正常文字間的間距)
\newcommand{\passstwo}[1]{\mbox{\hspace{6pt}{\rotatebox[origin=c]{90}
{\hspace{2em}\scalebox{1.67}
{\textbf{)}}}\hspace{-2.5em}%使文字進入括弧
}#1}}
\newcommand{\passthree}[1]{\mbox{\hspace{5.5pt}{\rotatebox[origin=c]{90}
{\hspace{2em}\scalebox{4}
{)}}\hspace{-4.8em}%使文字進入括弧
}#1}}
\renewenvironment{SS}{\passstwo\bgroup}{\egroup}
\newenvironment{SSS}{\passthree\bgroup}{\egroup}

%旋轉頁面
\usepackage{pdflscape}

%表格(有特殊定義故要擺最後)
\def\wordspace{\hspace{3pt}}
\catcode`\〔=\active
\def〔{\wordspace\mbox\bgroup\begin{sideways}}
\catcode`\〕=\active
\def〕{\end{sideways}\egroup\wordspace}

\begin{document}
\begin{landscape}
〔　　　〕
〔　　　〕
〔　過　〕
〔　緊　〕
〔　三　〕
〔　ヽ　〕
〔■推　〕
〔けㅇ　〕
〔　分　〕
〔■枕　〕
〔一╱　〕
〔■著　〕
〔一＋。〕
〔●於　〕
〔けし　〕
〔■衣　〕
〔一℅、〕
〔■阮　〕
〔电╱　〕
〔■起　〕
〔けし。〕
〔■來　〕
〔一ヽ　〕
〔　＋、〕
\begin{SSS}
〔电　　〕
〔■步　〕
〔六　　〕
\end{SSS}
〔　╱　〕
〔■履　〕
〔六凢。〕
〔　し　〕
〔一し、〕
〔电ヽ　〕
〔　＋。〕
〔■懶　〕
〔六ㅇ、〕
\begin{SSS}
〔工　　〕
〔■移　〕
〔ㄨ　　〕
\end{SSS}
〔　╱　〕
〔■步　〕
〔ㄨ凢。〕
〔■倚　〕
〔电ㅇ、〕
〔■窗　〕
〔六╱　〕
〔　ソ　〕
〔工ソ　〕
〔■邊　〕
〔六ヽ。〕
〔■無　〕
〔六＋　〕
\begin{SSS}
〔工　　〕
〔■聊　〕
〔ㄨ　、〕
\end{SSS}
〔■興　〕
〔ㄨ╱　〕
〔■只　〕
〔工ヽ　〕
〔■處　〕
〔六╱　〕
〔■望　〕
〔ㄨヽ。〕
〔■月　〕
〔工ヽ　〕
〔ㄨ╱　〕
〔　口、〕
〔■瞻　〕
〔六ヽ　〕
〔　口　〕
〔工ソ　〕
〔■星　〕
〔六ヽ。〕
〔■對　〕
〔电ヽ　〕
\begin{SSS}
〔六　　〕
〔■嫦　〕
〔工　、〕
\end{SSS}
〔■娥　〕
〔六╱　〕
〔　ヽ　〕
〔■阮　〕
〔电╱　〕
〔■殷　〕
〔六ヽ。〕
〔　し　〕
〔■勤　〕
〔工℅　〕
〔●於　〕
〔六╱　〕
〔■問　〕
〔ㄨヽ。〕
〔　╱　〕
〔　口　〕
〔■卜　〕
〔六ソ　〕
〔■歸　〕
〔工シ、〕
〔ㄨヽ　〕
〔●於　〕
〔工╱　〕
〔■期　〕
〔ㄨヽ。〕
〔　╱　〕
〔　口　〕
\begin{SS}
〔工　　〕
〔ㄨ　、〕
\end{SS}
〔　╱〕
〔下ヽ　〕
〔　＋。〕
〔■你　〕
〔けㅇ、〕
〔■不　〕
〔一し　〕
〔■應　〕
〔一凢。〕
〔●於　〕
〔けし　〕
〔■阮　〕
〔一℅、〕
〔电╱　〕
〔■越　〕
〔六ヽ。〕
〔　ㄗ　〕
〔　口　〕
〔■自　〕
〔电ソ　〕
〔■傷　〕
〔一シ、〕
〔电ヽ　〕
〔一╱　〕
〔■悲　〕
〔电ヽ。〕
〔　ㅇ、〕
〔　╱　〕
〔　ヽ　〕
〔六╱　〕
〔　ヽ。〕
〔　╱　〕
〔　ヽ　〕
〔　╱　〕
〔工し、〕
〔ㄨヽ　〕
〔　ヽ。〕
〔■空　〕
〔六シ　〕
〔■惱　〕
〔工ヽ、〕
〔■得　〕
〔六╱　〕
〔　口　〕
〔■阮　〕
〔电ソ　〕
〔■思　〕
〔六ヽ。〕
〔■想　〕
〔电し　〕
〔●於　〕
〔六ヽ、〕
\begin{SSS}
〔工　　〕
〔■無　〕
〔ㄨ　　〕
\end{SSS}
〔　╱　〕
〔■意　〕
〔ㄨ凢。〕
〔■想　〕
〔工し　〕
〔■起　〕
〔六ヽ、〕
〔■來　〕
〔工╱　〕
〔■那　〕
〔ㄨヽ　〕
〔■是　〕
〔工╱　〕
〔■冤　〕
〔六ヽ。〕
〔工╱　〕
〔■家　〕
〔六ヽ　〕
〔　ㄗ　〕
〔　口、〕
〔■你　〕
〔工ヽ　〕
〔　口　〕
〔■來　〕
〔ㄨソ　〕
〔■誤　〕
〔下ヽ。〕
〔　し　〕
〔■阮　〕
〔ㄨヽ、〕
〔下╱　〕
〔ㄨヽ　〕
〔　ヽ。〕
〔■少　〕
〔六し　〕
〔■年　〕
〔工シ、〕
〔ㄨヽ　〕
〔●於　〕
〔工╱　〕
〔■時　〕
〔ㄨヽ。〕
〔■想　〕
〔六シ　〕
〔■起　〕
〔六ヽ、〕
〔■來　〕
〔工╱　〕
〔■那　〕
〔ㄨヽ　〕
〔■是　〕
〔工╱　〕
〔■枉　〕
〔六ヽ。〕
〔■屈　〕
〔六ソ　〕
〔■阮　〕
〔六ヽ　〕
〔■只　〕
〔电╱　〕
〔■青　〕
〔六ヽ、〕
〔■春　〕
〔六╱　〕
〔■你　〕
〔六ソ　〕
〔■來　〕
〔工ソ　〕
〔■誤　〕
〔ㄨヽ。〕
〔　╱　〕
〔　口　〕
〔■阮　〕
〔工ソ　〕
〔■守　〕
〔六ヽ、〕
〔■只　〕
\begin{SSS}
〔工　　〕
〔■長　〕
〔ㄨ　　〕
\end{SSS}
〔●於　〕
〔工╱　〕
〔■暝　〕
〔ㄨヽ。〕
〔　╱　〕
〔　口　〕
\begin{SS}
〔工　　〕
〔ㄨ　、〕
\end{SS}
〔　╱　〕
〔下ヽ　〕
〔　＋。〕
\end{landscape}
\end{document}