#! /usr/bin/perl

$filebase= $ARGV[0];  $filebase =~ s/\.drf//;
@picfiles= glob("${filebase}[0-9]*.html");

$subframenum= 2;
# 存在するhtmlファイルを数える。
for($i=1; $i<100; $i++){
    unless ( join(" ",@picfiles) =~ /${filebase}$i.html/ ){
       $xend= $i-1;
       last;
   }
}

for($i=1; $i<=$xend; $i++){
    for($j=1; $j<=$subframenum; $j++){
	open FH, ">tmp.tex";
	print FH << 'END1';
\documentclass{jarticle}
\usepackage{pstricks}
\pagestyle{empty}
\begin{document}
\begin{center}
\rule{8cm}{0.5mm}
 \par
 \bigskip\bigskip\bigskip\bigskip
 {\blue\sf\LARGE
END1
    print FH "${filebase}$i_$j.jpg\n";
  print FH << 'END2';
 }
 \bigskip\bigskip\bigskip\bigskip
 \par
 \rule{8cm}{0.5mm}
\end{center}
\end{document}
END2
        close(FH);
        system("platex tmp; dvips tmp ; convert -quality 30 -crop 0x0+10+10 -geometry 384x288! tmp.ps tmp.jpg");
	rename "tmp.jpg", "${filebase}$i_$j.jpg";
    }
}

unlink <tmp.*>;

