~maddevelopers/mg5amcnlo/3.0.2-alpha0

#!/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\" ";