iwase/kakenhi の履歴(No.1) - PukiWiki

今年の基盤Ａを申請したときに使ったマクロです。数年前から既存のマクロを XeLaTeX を使用できるようにしていましたが、面倒になったので、昨年一から全部作りました。既存のマクロと比較した利点は

１：プログラム自体が小さく単純で、毎年の変更箇所も少ないのでさっさと使える。 ２：コマンド内でなく地の部分に文章を書き込む形式なので、他のマクロとの干渉がほぼ無い。 ３：上の２と関連して、PDFのクリックでソースを表示できる。 ４：XeLaTeX と pLaTeX の両方に対応する。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	This is a file for XeLaTeX/LaTeX	%
%	by Norio Iwase  (Feb. 1994)			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX encoding = UTF-8 Unicode
%!TEX TS-program = XeLaTeX%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	基盤Ａマクロ						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input head.inc			% TeX/XeTeX の違いを吸収
\usepackage{kibanA3}	% 基盤Ａスタイル（要uline-?.sty）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifdefined\XeTeXversion	% フォント指定（XeLaTeX 用）
 \setromanfont[Scale=1]{Times}
 \setsansfont[Scale=1]{Lucida Sans}
 \setmonofont[Scale=1]{Arial}
 \setjamainfont[RawFeature=-palt]{HGSeikaishotaiPRO}
 \setjasansfont[RawFeature=-palt]{DFPLeiSho-SB}
 \setjamonofont[RawFeature=-palt]{HiraMaruProN-W4}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	ここに使用するパッケージを記述する	%
%\usepackage{fancybox,ascmac}
%\usepackage{curves}
%\usepackage[inline]{enumitem}
%\usepackage{tabularx}
%\usepackage[matrix,arrow]{xy}
%\usepackage{pb-diagram,pb-xy}
%\usepackage{insbox}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	研究計画調書						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{document}
\pagestyle{empty}
\baselineskip 21pt
%
%\第一頁
%
\目的方法概要{20}{%
%
}
%
\目的方法本文{20}\noindent
%
\par\smallskip
%
\par\noindent
\textuul{\textbf{1）\ 項目１}}
%
\begin{kibanlist}
\item[\textbf{\textuuw{背景と問い}：}]
%
\item[\textbf{\textuuw{目的および独自性と創造性}：}]
%
\item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}：}]
%
\end{kibanlist}
%
\par\noindent
\textuul{\textbf{2）\ 項目２}}%
%
\begin{kibanlist}
\item[\textbf{\textuuw{背景と問い}：}]
%
\item[\textbf{\textuuw{目的および独自性と創造性}：}]
%
\item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}：}]
%
\end{kibanlist}
%
\par\noindent
\textuul{\textbf{3）\ 項目３}}%
%
\begin{kibanlist}
\item[\textbf{\textuuw{背景と問い}：}]
%
\item[\textbf{\textuuw{目的および独自性と創造性}：}]
%
\item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}：}]
%
\end{kibanlist}
%
\par\noindent
\textuul{\textbf{4）\ 項目４}}%
%
\begin{kibanlist}
\item[\textbf{\textuuw{背景と問い}：}]
%
\item[\textbf{\textuuw{目的および独自性と創造性}：}]
\item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}：}]
%
\end{kibanlist}
%
\着想経緯
%
\begin{kibanlist}
\vspace{-5ex}\item[\textuul{\textbf{(1) \ 本研究の着想に至った経緯と準備状況}}：]
\par\vskip0ex
%
\item[\textuul{\textbf{(2) \ 関連する国内外の研究動向と本研究の位置づけ}}：]
\par\vskip0ex
%
\end{kibanlist}
%
\研究能力環境\baselineskip18pt
\vspace{-4ex}
\newcounter{biblio}\setcounter{biblio}{0}
\def\labelenumi{[\arabic{enumi}]}
\begin{kibanlist}
\item[\textbf{\textuul{(1) これまでの研究活動}：}] ~\par\vspace{-.5ex}
\begin{kibanlist}
\item[\textbf{\textuuw{研究代表者}・\textuul{某々}：}]
%
\par
{{\baselineskip13pt\begin{biblist}
\vspace{1ex}\item
\vspace{-1ex}\item
\vspace{-1ex}\item
\setcounter{biblio}{\value{bibcount}}
\end{biblist}}}
%
\item[\textbf{\textuuw{研究分担者}\,(あいうえお順)：}]
\begin{kibanlist}
%
\item \textul{分担者１}：
%
\par
{{\baselineskip13pt\begin{biblist}
\vspace{1ex}\item
\vspace{-1ex}\item
\vspace{-1ex}\item
\setcounter{biblio}{\value{bibcount}}
\end{biblist}}}
%
\item \textul{分担者２}：
%
\par
{{\baselineskip13pt\begin{biblist}
\vspace{1ex}\item
\vspace{-1ex}\item
\vspace{-1ex}\item
\setcounter{biblio}{\value{bibcount}}
\end{biblist}}}
%
\item \textuw{分担者３}：
%
\par
{{\baselineskip13pt\begin{biblist}
\vspace{1ex}\item
\vspace{-1ex}\item
\vspace{-1ex}\item
\setcounter{biblio}{\value{bibcount}}
\end{biblist}}}
%
\item \textul{分担者４}：
%
\par
{{\baselineskip13pt\begin{biblist}
\vspace{1ex}\item
\vspace{-1ex}\item
\vspace{-1ex}\item
\setcounter{biblio}{\value{bibcount}}
\end{biblist}}}
%
\end{kibanlist}
\end{kibanlist}
\item[\textbf{\textuuw{(2) 研究環境}：}]~\par
%
\par\vskip0ex
%
\end{kibanlist}
%
\人権法令{該当しない。}
%
\最終年度研究課題{}{}{}{}当初研究{}理由{}
%
\終わり

インクルードファイルは、初期化用の head.inc と真のスタイルファイルの kibanA3.sty の二つあります。まず head.inc は次のものです。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	This is a file for XeLaTeX/LaTeX	%
%	by Norio Iwase  (Feb. 1994)			%
%	Document Style
%
\ifx\undefined\XeTeXversion
 \documentclass[10pt,a4paper]{article}
 \usepackage[dvipdfmx]{graphicx,xcolor}
 \usepackage{uline--}
\else
 \documentclass[10pt,a4paper]{article}
 \usepackage[xetex]{graphicx,xcolor}
 \usepackage{uline-x}
\fi
 \usepackage{amsthm}
 \usepackage[leqno]{amsmath}
 \usepackage{amsfonts,amssymb}
 \setcounter{totalnumber}{1}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
 \ifdefined\OTF\usepackage[deluxe]{otf}\fi
 \usepackage[dvipdfmx,bookmarks=true,bookmarksnumbered=true,bookmarkstype=toc,colorlinks=true,linkcolor=black]{hyperref}
\else
 \usepackage[no-math]{fontspec}
 \defaultfontfeatures{Scale=.962,Mapping=tex-text}
 \usepackage[slantfont,boldfont]{xeCJK}
 \CJKspace
 \usepackage{zxjatype} % xeCJK を内部で読み込んでいる。
 \ifdefined\OTF\usepackage{zxotf}\fi
 \usepackage[xetex,bookmarks=true,bookmarksnumbered=true,bookmarkstype=toc,colorlinks=true,linkcolor=black]{hyperref}
 \ifdefined\IPA\usepackage[ipa]{zxjafont}\fi
\fi
%
%	Page Definitions
%
\textwidth=16.1cm
\textheight=25.0cm
\ifdefined\XeTeXversion
 \hoffset -18.0mm
 \voffset -23.0mm
 \usepackage{pdfsync}
\else
 \hoffset -18.0mm
 \voffset -23.0mm
\fi
%
\pagestyle{empty}
\baselineskip 21pt
\addtolength\voffset{-16mm}
\addtolength\textheight{16mm}
%

次が真のスタイルファイルの kibanA3.sty です。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	This is a file for XeLaTeX/LaTeX	%
%	by Norio Iwase  (Feb. 1994)			%
%	Kaken Macros
%
\def\終わり{\end{document}\end}
%
\def\目的方法概要#1#2{\begin{figure}[htbp]\begin{picture}(430,340)(6,340)
\put(-66,-151){\includegraphics[page=1]{s-12}}
\put(   3,503){\begin{minipage}[t]{162mm}\baselineskip#1pt{\large#2}\end{minipage}}
\end{picture}\end{figure}}
%
\def\目的方法本文#1{\large\baselineskip#1pt\par
\目的方法{2}枚目%\baselineskip 21pt
\目的方法{3}枚目%\baselineskip 21pt
\目的方法{4}枚目%\baselineskip 21pt
\目的方法{5}枚目%\baselineskip 21pt
}
%
\def\目的方法#1枚目{\begin{figure}[t]{\begin{picture}(430,38)(6,-27)
\put(-66,-826){\includegraphics[page=#1]{s-12}}
\end{picture}}\end{figure}}
%
\def\着想経緯{%
\ifnum\value{page}<5\newpage~\fi
\ifnum\value{page}<5\newpage~\fi
\ifnum\value{page}<5\newpage~\fi
\ifnum\value{page}<5\newpage~\fi
\newpage\begin{figure}[t]{\begin{picture}(430,83)(6,642)
\put(-66,-109)	{\includegraphics[page=6]{s-12}}
\end{picture}}\end{figure}}
%
\newcounter{NouKan}
%
\def\研究能力環境{\clearpage\begin{figure}[t]{\begin{picture}(430,94)(6,637)
\put(-66,-102)	{\includegraphics[page=7]{s-12}}
\end{picture}}\end{figure}
\能力環境{2}枚目
}
%
\def\能力環境#1枚目{\begin{figure}[t]{\begin{picture}(430,30)(6,-27)
\setcounter{NouKan}{6}\addtocounter{NouKan}{#1}
\put(-66,-826){\includegraphics[page=\number\value{NouKan}]{s-12}}
\end{picture}}\end{figure}}
%
\def\人権法令#1{%
\ifnum\value{page}<8\newpage~\fi
\ifnum\value{page}<8\newpage~\fi
\clearpage\begin{picture}(430,680)(6,0)
\put(-77,-153)	{\includegraphics[page=9]{s-12}}
\put(-10,514){\begin{minipage}[t]{163mm}\baselineskip 15pt{#1}\end{minipage}}\end{picture}}
%
\def\最終年度研究課題#1#2#3#4当初研究#5理由#6{\clearpage
\begin{picture}(430,680)(6,0)
\put(-77,-153)	{\includegraphics[page=10]{s-12}}
\end{picture}}
%
\def\textul#1{\uline{#1}}\def\textol#1{\oline{#1}}
\def\textuw#1{\uwave{#1}}\def\textow#1{\owave{#1}}
\def\textud#1{\udash{#1}}\def\textod#1{\odash{#1}}
\def\textuul#1{\uline[lines=2]{#1}}\def\textool#1{\oline[lines=2]{#1}}
\def\textuuw#1{\uwave[lines=2]{#1}}\def\textoow#1{\owave[lines=2]{#1}}
\def\textuud#1{\udash[lines=2]{#1}}\def\textood#1{\odash[lines=2]{#1}}
%
\newcounter{kibancount}\setcounter{kibancount}{1}
\newenvironment{kibanlist}{\setcounter{kibancount}{1}\list{(\arabic{kibancount})~}{\usecounter{kibancount}%
\setlength{\rightmargin}{0mm}\setlength{\leftmargin}{0em}
\ifnum\@listdepth=\@ne\topsep.25\normalbaselineskip\else\topsep\z@\fi
\itemsep.25\normalbaselineskip
\itemindent0pt\labelwidth-5pt\labelsep 5pt\listparindent0pt
}}{\endlist}
%
\newcounter{bibcount}\setcounter{bibcount}{1}
\newenvironment{biblist}{\setcounter{bibcount}{1}\addtocounter{bibcount}{1}\list{[\arabic{bibcount}]}{\usecounter{bibcount}%
\setlength{\rightmargin}{1mm}\setlength{\leftmargin}{1mm}
\ifnum\@listdepth=\@ne\topsep.25\normalbaselineskip\else\topsep\z@\fi
\itemsep.5\normalbaselineskip
\itemindent2pt\labelwidth-2pt\labelsep4pt\listparindent1pt
}}{\endlist}
%
トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS