6-3-2.tex

需要通过验证才能下载！希望大家多多合作！否则不能下载！请谅解！

% 6-3-2.tex
\documentclass{article}
\begin{document}
\setlength{\unitlength}{1mm}
\newsavebox{\flower}
\savebox{\flower}(12,21){%
\begin{picture}(12,21)
\thicklines
\put(0,8){\line(1,0){12}}
\put(2,0){\line(1,0){8}}
\put(2,0){\line(-1,4){2}}
\put(10,0){\line(1,4){2}}
\qbezier(6,8)(4,13)(8,21)
\qbezier(5.3,11)(3,14)(4,17)
\qbezier(5.5,14)(6,16)(10,18)
\end{picture}}

\newcommand{\wrt}[1]{\makebox(0,0)[c]{#1}}
\newcounter{pot}\setcounter{pot}{0}
\begin{center}
\begin{picture}(84,29)
\multiput(0,0)(18,0){5}{\usebox{\flower}}
\multiput(9,8)(18,0){4}{\usebox{\flower}}
\multiput(15,12)(18,0){4}{\addtocounter{pot}{1}\wrt{\Roman{pot}}}
\multiput(6,4)(18,0){5}{\addtocounter{pot}{1}\wrt{\Roman{pot}}}
\end{picture}
\end{center}
\sbox{\flower}{}
\end{document}