iwase/kojo3 のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
iwase/kojo3 へ行く。
- 1 (2020-04-22 (水) 08:50:22)
- 2 (2020-11-14 (土) 09:36:22)
追加された行はこの色です。
削除された行はこの色です。
アップロードするのを忘れていたが、昨年は配偶者控除申告書を保険料控除申告書から分離して作成する必要があった。

おそらく、uplatex で動かすのは無理だと思う。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %									%
 %  配偶者特別控除申告書・九大用		%
 %									%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %!TEX TS-program = XeLaTeX
 %!TEX encoding = UTF-8 Unicode
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \input haigusha-18.inc
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \平成{30}年分配偶者特別控除申請書	%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %  研究機関のＩＤ		% 数理にのみ対応
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \税務所轄：{西福岡}税務署長{福岡市西区}市区町村長
 \所属機関：{国立大学法人　九州大学}番号{３２９０００５００３７４３}
 \所在地〒{819-0395}{福岡市西区元岡744番地}
 \部局{数理学研究院}（{1200308000}）：{某部門} 
 \事務局{理学部等}（{0 0 2 0 9}）% 理学事務？
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %  本人と配偶者のＩＤ	% 明治～平成に対応
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \本人姓{九}{キュウ}
 \本人姓{大}{ダイ}
 \本人名{某}{ボウ}
 \本人名{某}{ボウ}
 \本人番号{12345678}
 \配偶者姓{九}{キュウ}
 \配偶者姓{大}{ダイ}
 \配偶者名{何}{ナニ}
 \配偶者名{何}{ナニ}
 \配偶者は昭和{2}年{2}月{2}日生まれの{続柄} 
 \住所〒{819}ー{0385}：{福岡市西区元岡 1-2-3}
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %  配偶者控除			%
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \本人所得{0}円{0}円{0}円{0}円{0}円{0}円{0}円
 \配偶者所得{0}円{0}円{0}円{0}円{0}円{0}円{0}円
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 \これで終り書き出し		%
 %%%%%%%%%%%%%%%%%%%%%%%%%

インクルードファイル haigusha-18.inc は以下の通りである。
また、均等割り付けのマクロ fitwidth.sty は http://www.math.nagoya-u.ac.jp/~kubo/ja/latex/tips-003.html から取って来た。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %											%
 %  配偶者控除申告書 Macro by Norio Iwase	%
 %											%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \ifx\undefined\XeTeXversion
  \documentclass[12pt,a4j]{jarticle}
  \usepackage[dvipdfmx]{graphicx}
  \usepackage[deluxe]{otf}
 \else
  \documentclass[12pt,a4paper]{article}
  \usepackage[xetex]{graphicx}
  \usepackage[no-math]{fontspec}
  \usepackage[boldfont,slantfont]{xeCJK}
  \usepackage{zxjatype}
  \usepackage{zxotf}
  \usepackage{xunicode}\usepackage{xltxtra}
  \CJKspace
 %
  \defaultfontfeatures{Mapping=tex-text}
  \setromanfont{Times}\setsansfont{Papyrus}\setmonofont{Arial}
  \setjamainfont[Scale=0.95]{HGSeikaishotaiPRO}
  \setjasansfont[Scale=0.9]{IPAexMincho}
  \setjamonofont[Scale=0.9]{Osaka-Mono}
 \fi
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	共通設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \setlength{\voffset}		{  42.5mm}
 \setlength{\hoffset}		{ -13.0mm}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \usepackage{amssymb}
 \usepackage{ifthen,numbersty}
 \usepackage{lscape}
 \usepackage{curves}
 \usepackage{fitwidth}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  マクロ							%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \makeatletter
 \newcount\yowai \yowai=\year
 \def\生まれは明治#1年#2月#3日{%
 \advance\yowai-1867\advance\yowai by -#1}
 \def\生まれは大正#1年#2月#3日{%
 \advance\yowai-1911\advance\yowai by -#1}
 \def\生まれは昭和#1年#2月#3日{%
 \advance\yowai-1925\advance\yowai by -#1}
 \def\生まれは平成#1年#2月#3日{%
 \advance\yowai -1988\advance\yowai by -#1}
 \makeatother
 %
 \def\税務所轄：#1税務署長#2市区町村長{%
  \put(31.0,329.5){\makebox(35,0)[bc]{\Large #1}}}
 \def\所属機関：#1番号#2{%
 \put(148.8,353.0){\makebox(90,0)[bc]{\large #1}}%
 \put(152.5,334.5){\makebox(90,0)[bc]{\fitwidth{14.9em}{#2}}}}
 \def\所在地〒#1#2{\gdef\kikanzip{#1}%
 \put(133.0,318.5){\makebox(90,7)[cl]{%{〒#1} 
 #2}}}
 \def\機関代表：#1氏名#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
 \def\部局#1（#2）：#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
 \def\事務局#1（#2）{\gdef\jimu{#1}\gdef\jimucode{#2}}
 %
 \def\本人所属：#1職#2{\gdef\shozoku{#1}\gdef\shoku{#2}}
 \def\電話#1{\gdef\denwa{#1}}
 \def\電子郵便#1{\gdef\denshimail{#1}}
 \def\ファックス#1{\gdef\fax{#1}}
 \def\住所〒#1ー#2：#3{
  \put(310.0,318.0)	{\makebox(140,7)[cl]{#3}}
 }
 \newcount\HUmare \HUmare=234
 \newcount\HUmareh \HUmareh=253
 \def\配偶者は昭和#1年#2月#3日生まれの#4{
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは昭和{#1}年{#2}月{#3}日
 }
 \def\配偶者は平成#1年#2月#3日生まれの#4{
  \advance\HUmare 8
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは平成{#1}年{#2}月{#3}日
 }
 \def\配偶者は明治#1年#2月#3日生まれの#4{
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは明治{#1}年{#2}月{#3}日
 }
 \def\配偶者は大正#1年#2月#3日生まれの#4{
  \advance\HUmare 8
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは大正{#1}年{#2}月{#3}日
 }
 \def\配偶者は非居住で昭和#1年#2月#3日生まれの#4{
  \def\Gaikoku{}\配偶者は昭和{#1}年{#2}月{#3}日生まれの{#4}
 }
 \def\配偶者は非居住で平成#1年#2月#3日生まれの#4{
  \def\Gaikoku{}\配偶者は平成{#1}年{#2}月{#3}日生まれの{#4}
 }
 \def\配偶者は非居住で明治#1年#2月#3日生まれの#4{
  \def\Gaikoku{}\配偶者は明治{#1}年{#2}月{#3}日生まれの{#4}
 }
 \def\配偶者は非居住で大正#1年#2月#3日生まれの#4{
  \def\Gaikoku{}\配偶者は大正{#1}年{#2}月{#3}日生まれの{#4}
 }
 \def\隅黒{\def\sumi{1}}\def\kuro{1}\def\sumi{0}
 %
 \newcount\Line
 %
 \newcount{\kyuyo}\kyuyo=0
 \newcount{\shotoku}\shotoku=0
 \newcount{\hkyuyo}\hkyuyo=0
 \newcount{\hshunyu}\hshunyu=0
 \newcount{\hshotoku}\hshotoku=0
 \def\本人所得#1円#2円#3円#4円#5円#6円#7円{
 \Line=284
 \kyuyo=#1 \advance\kyuyo -2200000
 \ifnum\kyuyo<0 \kyuyo=0\fi \shotoku=\kyuyo
 \ifnum\shotoku>9000000
  \ifnum\shotoku>9500000
   \gdef\kubunC{}
  \else\gdef\kubunB{}\fi
 \else\gdef\kubunA{}\fi
 \put(132.0,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\shotoku}}
 \advance\Line 1
 \ifdefined\kubunA
  \put(175.0,\number\Line.5)	{\makebox( 18,7)[cr]{ \small$\checkmark$}}
 \fi
 \ifdefined\kubunB
  \put(248.5,\number\Line.5)	{\makebox( 18,7)[cr]{ \small$\checkmark$}}
 \fi
 \ifdefined\kubunC
  \put(352.0,\number\Line.5)	{\makebox( 18,7)[cr]{ \small$\checkmark$}}
 \fi
 \advance\Line -1
 \advance\Line 3
 \ifdefined\kubunA
  \put(496.7,\number\Line.0)	{\makebox( 18,7)[cr]{ \small A}}
 \fi
 \ifdefined\kubunB
  \put(496.7,\number\Line.0)	{\makebox( 18,7)[cr]{ \small B}}
 \fi
 \ifdefined\kubunC
  \put(496.7,\number\Line.0)	{\makebox( 18,7)[cr]{ \small C}}
 \fi
 \advance\Line -3
 %
 \ifx0#1\else\advance\Line -85
 \put(125.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 \put(229.0,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\kyuyo}}
 \advance\Line 85\fi
 \ifx0#2\else\advance\Line -96
 \put(125.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#2}}
 \advance\Line 96\fi
 \ifx0#3\else\advance\Line -107
 \put(125.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#3}}
 \advance\Line 107\fi
 \ifx0#4\else\advance\Line -119
 \put(125.5,\number\Line.6)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#4}}
 \advance\Line 119\fi
 \ifx0#5\else\advance\Line -130
 \put(125.5,\number\Line.2)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#5}}
 \advance\Line 130\fi
 \ifx0#6\else\advance\Line -143
 \put(125.5,\number\Line.8)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#6}}
 \advance\Line 143\fi
 \ifx0#7\else\advance\Line -155
 \put(125.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#7}}
 \advance\Line 155\fi
 %
 \advance\Line -169
 \put(229.0,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\shotoku}}
 \advance\Line 169
 }
 \def\配偶者所得#1円#2円#3円#4円#5円#6円#7円{
 \hkyuyo=#1 \advance \hkyuyo by -650000
 \ifnum\hkyuyo<0 \hkyuyo=0\fi \hshotoku=\hkyuyo
 \ifnum\hshotoku>380000
  \ifnum\hshotoku>850000
   \ifnum\hshotoku>900000
    \ifnum\hshotoku>950000
     \ifnum\hshotoku>1000000
      \ifnum\hshotoku>1050000
       \ifnum\hshotoku>1100000
        \ifnum\hshotoku>1150000
         \ifnum\hshotoku>1200000
          \ifnum\hshotoku>1230000
           \gdef\kubunz{}
          \else\gdef\kubunj{}\fi
         \else\gdef\kubuni{}\fi
        \else\gdef\kubunh{}\fi
       \else\gdef\kubung{}\fi
      \else\gdef\kubunf{}\fi
     \else\gdef\kubune{}\fi
    \else\gdef\kubund{}\fi
   \else\gdef\kubunc{}\fi
  \else\gdef\kubunb{}\fi
 \else\ifnum\yowai<70\gdef\kubuna{}\else\gdef\kubuns{}\fi\fi
 \def\hkojo{0}\def\htkojo{0}
 \ifdefined\kubunA%
  \ifdefined\kubuns\def\hkojo{480000}\fi
  \ifdefined\kubuna\def\hkojo{380000}\fi
  \ifdefined\kubunb\def\htkojo{380000}\fi
  \ifdefined\kubunc\def\htkojo{360000}\fi
  \ifdefined\kubund\def\htkojo{310000}\fi
  \ifdefined\kubune\def\htkojo{260000}\fi
  \ifdefined\kubunf\def\htkojo{210000}\fi
  \ifdefined\kubung\def\htkojo{160000}\fi
  \ifdefined\kubunh\def\htkojo{110000}\fi
  \ifdefined\kubuni\def\htkojo{60000}\fi
  \ifdefined\kubunj\def\htkojo{30000}\fi
 \fi
 \ifdefined\kubunB%
  \ifdefined\kubuns\def\hkojo{320000}\fi
  \ifdefined\kubuna\def\hkojo{260000}\fi
  \ifdefined\kubunb\def\htkojo{260000}\fi
  \ifdefined\kubunc\def\htkojo{240000}\fi
  \ifdefined\kubund\def\htkojo{210000}\fi
  \ifdefined\kubune\def\htkojo{180000}\fi
  \ifdefined\kubunf\def\htkojo{140000}\fi
  \ifdefined\kubung\def\htkojo{110000}\fi
  \ifdefined\kubunh\def\htkojo{80000}\fi
  \ifdefined\kubuni\def\htkojo{40000}\fi
  \ifdefined\kubunj\def\htkojo{20000}\fi
 \fi
 \ifdefined\kubunC%
  \ifdefined\kubuns\def\hkojo{160000}\fi
  \ifdefined\kubuna\def\hkojo{130000}\fi
  \ifdefined\kubunb\def\htkojo{130000}\fi
  \ifdefined\kubunc\def\htkojo{120000}\fi
  \ifdefined\kubund\def\htkojo{110000}\fi
  \ifdefined\kubune\def\htkojo{90000}\fi
  \ifdefined\kubunf\def\htkojo{70000}\fi
  \ifdefined\kubung\def\htkojo{60000}\fi
  \ifdefined\kubunh\def\htkojo{40000}\fi
  \ifdefined\kubuni\def\htkojo{20000}\fi
  \ifdefined\kubunj\def\htkojo{10000}\fi
 \fi
 \Line=263
 \put(436.0,\number\Line.5)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 \ifdefined\kubuns
 \advance\Line -8
  \put(310.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 8
 \else\ifdefined\kubuna
 \advance\Line -17
  \put(310.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 17
 \else\ifdefined\kubunb
 \advance\Line -26
  \put(310.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 26
 \else\ifdefined\kubunz
 \else
 \advance\Line -35
  \put(310.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 35
 \fi\fi\fi\fi
 \advance\Line -15
 \ifdefined\kubuns
  \put(496.0,\number\Line.5)	{\makebox( 20,7)[cr]{ \small \fontspec{HiraMinProN-W3} ①}}
 \else\ifdefined\kubuna
  \put(496.0,\number\Line.5)	{\makebox( 20,7)[cr]{ \small \fontspec{HiraMinProN-W3} ②}}
 \else\ifdefined\kubunb
  \put(496.0,\number\Line.5)	{\makebox( 20,7)[cr]{ \small \fontspec{HiraMinProN-W3} ③}}
 \else\ifdefined\kubunz
 \else
  \put(496.0,\number\Line.5)	{\makebox( 20,7)[cr]{ \small \fontspec{HiraMinProN-W3} ④}}
 \fi\fi\fi\fi
 \advance\Line 15
 \advance\Line -206
 \put(487.0,\number\Line)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\hkojo}}
 \advance\Line 206
 \advance\Line -232
 \put(487.0,\number\Line)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\htkojo}}
 \advance\Line 232
 \advance\Line -64
 \put(366.0,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 \put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hkyuyo}}
 \advance\Line 64
 \advance\Line -150
 \put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hshotoku}}
 \advance\Line 150
 }
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	特種設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \makeatletter
 \makeatother
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	\姓・\名 コマンド				%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \newcommand{\rubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[3.7mm]{#1}}}}
 \newcommand{\hrubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[2.7mm]{#1}}}}
 \newcommand{\Sei}{}\newcommand{\Mei}{}
 \newcommand{\sei}{}\newcommand{\mei}{}
 \def\本人姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Sei}{}}{}{\xdef\Sei{\Sei\protect{　}}}%
   \xdef\Sei{\Sei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\sei}{}}{}{\xdef\sei{\sei\protect{}}}%
   \xdef\sei{\sei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\本人名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Mei}{}}{}{\xdef\Mei{\Mei\protect{　}}}%
   \xdef\Mei{\Mei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\mei}{}}{}{\xdef\mei{\mei\protect{}}}%
   \xdef\mei{\mei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\本人番号#1{\gdef\ID{#1}}
 %
 \newcommand{\HSei}{}\newcommand{\HMei}{}
 \newcommand{\hsei}{}\newcommand{\hmei}{}
 \def\配偶者姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HSei}{}}{}{\xdef\HSei{\HSei\protect{\ }}}%
   \xdef\HSei{\HSei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hsei}{}}{}{\xdef\hsei{\hsei\protect{}}}%
   \xdef\hsei{\hsei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HMei}{}}{}{\xdef\HMei{\HMei\protect{\ }}}%
   \xdef\HMei{\HMei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hmei}{}}{}{\xdef\hmei{\hmei\protect{}}}%
   \xdef\hmei{\hmei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者の続柄#1{\gdef\htuduki{#1}}
 %
 \def\平成#1年分配偶者特別控除申請書{%
 \def\nendo{#1}\gdef\filename{h#1_71}
 \pagestyle{empty}
 %
 \begin{document}
 \begin{landscape}
 \setlength{\textwidth}		{ 200.0mm}
 \setlength{\textheight}		{ 280.0mm}
 \setlength{\oddsidemargin}	{  -6.8mm}
 \setlength{\unitlength}		{   0.5mm}
 \setlength\unitlength{0.5mm}
 \begin{picture}(280,200)(0,200)
 %
 \put(8.6,-2.5)	{\makebox(547,398){\includegraphics[page=1]{\filename}}}
 %
 }
 %
 \def\これで終り書き出し{
 \put(371.0,343.2)	{\makebox( 60,14)[cc]{\large \Sei {　} \Mei}}
 \put(44.0,235.2)	{\makebox( 60,14)[cc]{\HSei {\ \ } \HMei}}
 \put(\number\HUmare.8,\number\HUmareh.0)	{\scaleput(5,5){\bigcircle{5}}}
 \put(252.0,254.0)	{\makebox( 10,14)[cr]{ \small\HYear}}
 \put(273.5,254.0)	{\makebox( 10,14)[cc]{ \small\HMonth}}
 \ifnum\yowai<70\else
  \put(240.8,227.2)	{\makebox( 10,14)[cl]{ $\bigcirc$}}
 \fi
 \ifdefined\Gaikoku
  \put(261.8,227.2)	{\makebox( 10,14)[cl]{ $\bigcirc$}}
 \fi
 \put(295.0,254.0)	{\makebox( 10,14)[cl]{ \small\HDay}}
 \put(310,360.0)		{\makebox(30,8)[lc]{\scriptsize \ID}}
 \put(528,393.0)		{\makebox(30,8)[rc]{\scriptsize \jimucode}}
 \ifx\jimu\empty
 \put(20,395){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}}}
 \else
 \put(20,395){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}（{\jimu}）}}
 \fi
 \put(20,390){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
 %
 \put(244.0,257.8){\makebox(0,0)[cc]{\tiny 昭・平}}
 \put(244.0,262.8){\makebox(0,0)[cc]{\tiny 明・大}}
 %
 \Line=280
 %
 \ifx\undefined\ippan\else
 \advance\Line -3
 \advance\Line 3
 \advance\Line -60
 \advance\Line 60
 \fi
 %
 \ifx\undefined\nippan\else
 \advance\Line -3
 \advance\Line 3
 \advance\Line -60
 \advance\Line 60
 \fi
 %
 \ifx\undefined\kaigo\else
 \advance\Line -70
 \advance\Line 70
 \fi
 \advance\Line -95
 %
 \ifx\undefined\kojin\else
 \advance\Line -11
 \advance\Line 3
 \advance\Line -3
 \advance\Line -3
 \advance\Line 3
 \advance\Line -49
 \advance\Line 49
 \advance\Line 11
 \fi
 %
 \ifx\undefined\nkojin\else
 \advance\Line -11
 \advance\Line 3
 \advance\Line -3
 \advance\Line -3
 \advance\Line 3
 \advance\Line -49
 \advance\Line 49
 \advance\Line 11
 \fi
 %
 \advance\Line -101
 %
 \Line=76
 %
 \ifx\dishin\empty\else
 \advance\Line -32
 \advance\Line -9
 \put(257.5,\number\Line.5){
     \renewcommand{\xscale}{1}
     \renewcommand{\xscaley}{-1}
     \renewcommand{\yscale}{0.7}
     \renewcommand{\yscalex}{0.7}
 %     \scaleput(9,9){\bigcircle{9}}
     }
 \advance\Line 9
 \advance\Line -20
 \advance\Line 20
 \advance\Line -39
 \advance\Line 39
 \advance\Line 32
 \fi
 %
 \ifx\sumi\kuro
 \put(569.5, 2.5)	{\makebox(0,0){\rule{11mm}{11mm}}}
 \fi
 %
 \end{picture}
 \clearpage
 \addtolength{\voffset}		{ -4.8mm}
 \addtolength{\hoffset}		{ -3.8mm}
 \begin{picture}(280,200)(0,200)
 \put(8.6,-2.5)	{\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}}
 \end{picture}
 \end{landscape}
 \end{document}
 }