学内便宛名面のLatexソース(cut and pasteして御利用下さい）

% gakunaibin.tex : 学内便 宛先 欄
% 2005/3/4,2012/3/8: 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

\newsavebox{\bigarrow}

\savebox{\bigarrow}(0,0)[]{
\begin{picture}(0,0)
\thicklines
\put(-5,-2){\line(0,1){4}}
\put(-5, 2){\line(1,0){6}}
\put(-5,-2){\line(1,0){6}}
\put(1, 2){\line(0,1){2}}
\put(1,-2){\line(0,-1){2}}
\put(5,0){\line(-1,1){4}}
\put(5,0){\line(-1,-1){4}}
\end{picture}
}

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

\put(100,-5){\makebox(0,0){\Huge 学　内　便}}

\thicklines

\multiput(5,-12)(0,-22){13}{\line(1,0){190}}

\multiput(5,-12)(190,0){2}{\line(0,-1){264}}
\put(15,-12){\line(0,-1){264}}

\multiput(6,-27)(0,-22){12}{\line(1,1){8}}

\multiput(105,-23)(0,-22){12}{\usebox{\bigarrow}}

\multiput(13,-17)(96,0){2}{
  \multiput(0,0)(0,-22){12}{
    \mbox{
      \parbox[t]{5mm}{\small \baselineskip=2.5mm 文\\京\\・\\松\\岡}
    }
  }
}
\end{picture}

\end{document}