御席番号くじ のLatexソース(cut and pasteして御利用下さい）

% seat_number_lot.tex 
% 07/3/15 created by N.Tajima
\documentstyle[12pt]{article}
\topmargin=-33mm
\oddsidemargin=-20mm
\evensidemargin=-20mm
\textheight=285mm
\textwidth=205mm

\begin{document}
\pagestyle{empty}
\baselineskip=0.7cm

\unitlength 1mm

\noindent
\begin{picture}(0,0)

\newcounter{columnnumber} \newcounter{rownumber} \newcounter{seatnumber} 
\newcounter{xcoordinate} \newcounter{ycoordinate}

\setcounter{rownumber}{1}
\setcounter{seatnumber}{1} 
{
\setcounter{ycoordinate}{-20}
\loop
  \setcounter{columnnumber}{1}
  \setcounter{xcoordinate}{20}
  {
  \loop

    \put(\value{xcoordinate},\value{ycoordinate}){
%       \makebox(0,0){\Huge \arabic{seatnumber}} 
        \makebox(0,0){\normalsize \arabic{seatnumber}} 
     }

    \put(\value{xcoordinate},\value{ycoordinate}){
      \oval(35,35)
    }

    \put(\value{xcoordinate},\value{ycoordinate}){
%     \makebox(0,12)[t]{御　席　番　号}
      \makebox(0,12)[t]{御席番号くじ}
    }

     \addtocounter{seatnumber}{1}
     \ifnum\value{columnnumber}<5
     \addtocounter{columnnumber}{1}
     \addtocounter{xcoordinate}{40}
   \repeat
   }
   \ifnum\value{rownumber}<7
   \addtocounter{rownumber}{1}
   \addtocounter{ycoordinate}{-40}
\repeat
}

\end{picture}

\end{document}