문제는 동일한 이미지를 반복해서 넣는 경우 pdf 파일 사이즈가 불필요하게 커진다는 겁니다. 그래서 좀 고쳐봤습니다.

\def\picture#1#{%
  \def\next{%
    \unless\ifcsname PicKey #1\the\toks0\endcsname
      \immediate\pdfximage #1 {\the\toks0}%
      \expandafter\xdef\csname PicKey #1\the\toks0\endcsname{\the\pdflastximage}%
    \fi
    \expandafter\pdfrefximage\csname PicKey #1\the\toks0\endcsname\relax}%
  \afterassignment\next\toks0= }