iwase/kakenhi の変更点 - PukiWiki

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

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

の4点あります。あと、既存のマクロに付随していた申請者グループの表も使用可能ですが、著作権に関わる可能性があるので、ここには載せません。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	This is a file for XeLaTeX/LaTeX	%
 %	  Document                      	%
 %	by Norio Iwase  (Feb. 1994)			%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %!TEX encoding = UTF-8 Unicode
 %!TEX TS-program = XeLaTeX%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	基盤Aマクロ						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \input head.inc			% TeX/XeTeX の違いを吸収
 \usepackage{kibanA3}	% 基盤Aスタイル(要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)\ 項目1}}
 %
 \begin{kibanlist}
 \item[\textbf{\textuuw{背景と問い}:}]
 %
 \item[\textbf{\textuuw{目的および独自性と創造性}:}]
 %
 \item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}:}]
 %
 \end{kibanlist}
 %
 \par\noindent
 \textuul{\textbf{2)\ 項目2}}%
 %
 \begin{kibanlist}
 \item[\textbf{\textuuw{背景と問い}:}]
 %
 \item[\textbf{\textuuw{目的および独自性と創造性}:}]
 %
 \item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}:}]
 %
 \end{kibanlist}
 %
 \par\noindent
 \textuul{\textbf{3)\ 項目3}}%
 %
 \begin{kibanlist}
 \item[\textbf{\textuuw{背景と問い}:}]
 %
 \item[\textbf{\textuuw{目的および独自性と創造性}:}]
 %
 \item[\textbf{\textuuw{何をどのように、どこまで明らかにしようとするのか}:}]
 %
 \end{kibanlist}
 %
 \par\noindent
 \textuul{\textbf{4)\ 項目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{分担者1}:
 %
 \par
 {{\baselineskip13pt\begin{biblist}
 \vspace{1ex}\item
 \vspace{-1ex}\item
 \vspace{-1ex}\item
 \setcounter{biblio}{\value{bibcount}}
 \end{biblist}}}
 %
 \item \textul{分担者2}:
 %
 \par
 {{\baselineskip13pt\begin{biblist}
 \vspace{1ex}\item
 \vspace{-1ex}\item
 \vspace{-1ex}\item
 \setcounter{biblio}{\value{bibcount}}
 \end{biblist}}}
 %
 \item \textuw{分担者3}:
 %
 \par
 {{\baselineskip13pt\begin{biblist}
 \vspace{1ex}\item
 \vspace{-1ex}\item
 \vspace{-1ex}\item
 \setcounter{biblio}{\value{bibcount}}
 \end{biblist}}}
 %
 \item \textul{分担者4}:
 %
 \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	%
 %	  head.inc                 			%
 %	by Norio Iwase  (Feb. 1994)			%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	基盤Aマクロ						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \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	%
 %	  Main Macro               			%
 %	by Norio Iwase  (Feb. 1994)			%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	基盤Aマクロ						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \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