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}
}