#!/usr/bin/perl -w


#---------------------------------------------------------------------
# Run GS to create jpeg files defined as $gs
#---------------------------------------------------------------------
  system("/bin/bash -c \"rm -f matrix*.jpg\" ");
  system "/bin/bash -c \"nice gs  \-sDEVICE\=jpeg \-sOutputFile\=matrix\%00d.jpg \-q \-dNOPAUSE \-dBATCH matrix.ps\" ";

#--------------------------------------------------------------------------------
# not sure how many jpegs produced so we need to loop
# file still in cgi directory at this point
#--------------------------------------------------------------------------------
      $max_jpg = 13;
      $i=1;      
      while(-e "matrix$i.jpg" && $i < $max_jpg){
           $i++;
      }#end of while
      
      #reduce it by one  
      $pages=$i-1;

   open(PAGE,"> diagrams.html") || die "Error creating diagrams.html";
   print PAGE "\<HTML\> \n";
   print PAGE "\<HEAD\> \n";
   print PAGE "\<TITLE\>Feynman Diagrams \<\/TITLE\> \n";
   print PAGE "\<\/HEAD\> \n";
   print PAGE "\<BODY\> \n";
#   print PAGE "\<H1 id=\"TOP\" \>MadGraph ll\<\/H1\> \n";

#   print PAGE "<P>\<A HREF\=\"results.html\"\> Results \<\/A\> \<BR\> \n";
   print PAGE "<P>\<A HREF\=\"matrix.ps\"\> Postscript Diagrams \<\/A\> \<BR\> \n";
#   print PAGE "\<H2\>Diagrams: \<\/H2/> \n";
   for($j=1;$j<$pages+1;$j++){
#       print PAGE "\<P>\<A NAME=\"matrix$j\" \> \<B\>Page $j of $pages \<\/B\> \<BR\> \n";
#       print PAGE "\<A HREF=\"\#TOP\" onMouseOver=\"window\.status=\'Back to top of page\'\; return true\" onMouseOut=\"window.status=\'  \'\; return true\"  \>back to top of page<\/A\> \<BR\> \n";
       print PAGE "\<IMG SRC=\"matrix$j.jpg\" ALT=\"Page $j of $pages \" \> \<BR\> \n";
   }#end of for
#
#   In case I didn't include all of the diagrams as jpeg, warn user
#
   if (-e "matrix$max_jpg.jpg" ) {
       print PAGE "<P> <H3> To save bandwidth not all diagrams were converted to jpeg.";
       print PAGE "<P> To view all diagrams click on ";
       print PAGE "\<A HREF\=\"matrix.ps\"\> postscript. \<\/A\> \<BR\> \n";
       print PAGE "\<\/H3\> \n";
#
#    Delete files which aren't included in diagrams.html
#
      $i = $max_jpg;	   
      while(-e "matrix$i.jpg"){
#	  print "Deleting matrix$i.jpg";
	  system ("/bin/bash -c \"rm -f matrix$i.jpg\" ");
           $i++;
      }#end of while

    }
   print PAGE
   print PAGE "\<\/BODY\> \n";
   print PAGE "\<\/HTML\> \n";
   close(PAGE);
#
#  Now create jpeg file for card
#
    system ("/bin/bash -c \"head -339 matrix.ps >& junk.ps\" ");
    open(PAGE,">> junk.ps") || die "Error opening junk.ps";  
  
    print PAGE "-20 -390 translate \n";
    print PAGE "0.7 0.7 scale \n";
    close(PAGE);

    system ("/bin/bash -c \"cat matrix.ps | sed 1,339d >> junk.ps\" ");

    system "/bin/bash -c \"nice gs  \-sDEVICE\=jpeg \-sOutputFile\=card.jpg \-q \-dNOPAUSE \-dBATCH \-g180x150 junk.ps; rm -f junk.ps; cp -p card.jpg ../../card.jpg\" ";
