home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / hypertext / latex2html_1 / OtherStuff / pstogif < prev    next >
Text File  |  1996-01-12  |  4KB  |  165 lines
  1. #!/usr/local/bin/perl
  2. # 
  3. # pstogif.pl v1.0, July 1994, by Nikos Drakos <nikos@cbl.leeds.ac.uk>
  4. # Computer Based Learning Unit, University of Leeds.
  5. #
  6. # Accompanies LaTeX2HTML Version 95
  7. #
  8. # Script to convert an arbitrary PostScript image to a cropped GIF image
  9. # suitable for incorporation into HTML documents as inlined images to be
  10. # viewed with WWW browsers.
  11. #
  12. # This is based on the pstoepsi script 
  13. # by Doug Crabill dgc@cs.purdue.edu
  14. #
  15. # Please note the following:
  16. # - The source PostScript file must end
  17. #   in a .ps extention.  This is a GhostScript requirement, not mine...
  18. # - The -density argument has no effect unless the 
  19. #   color depth (set with the -depth argument) is equal to 1.
  20. # - Valid arguments for -depth are 1,8, or 24.
  21. #  
  22. # This software is provided as is without any guarantee.
  23. #
  24. # Nikos Drakos (ND), nikos@cbl.leeds.ac.uk
  25. # Computer Based Learning Unit, University of Leeds.
  26. #
  27. # 20 JUL 94 ND Converted to Perl and made several changes eg it now accepts 
  28. #    parameters from environment variables or from command line or will use 
  29. #    default ones. 
  30. #      
  31. # 1  APR 94 ND Changed the suffixes of multi-page files from xbm to gif (oops!)
  32. #
  33. # 
  34.  
  35. #####################################################################
  36. $| =1;
  37. &read_args;
  38.  
  39. ### You may need to specify some pathnames here if you want to
  40. ### run the script without LaTeX2HTML
  41.  
  42. # Ghostscript
  43. $GS= $ENV{'GS'} || 'gs';
  44.  
  45. # Comes with LaTeX2HTML (For ghostscript versions greater than 3.0 
  46. # you need the newer pstoppm.ps)
  47. $PSTOPPM= $ENV{'PSTOPPM'} ||
  48.     'pstoppm.ps';
  49.  
  50. # Available in the PBMPLUS libary       
  51. $PNMCROP=$ENV{'PNMCROP'} || 'pnmcrop' ;
  52.  
  53. # Also in PBMPPLUS      
  54. $PPMTOGIF=$ENV{'PPMTOGIF'} || 'ppmtogif' ;
  55.  
  56. # Also in PBMPPLUS      
  57. $REDUCE_COLOR=$ENV{'PPMQUANT'} || 'ppmquant 256' ;
  58.  
  59. $OUTFILE = $ENV{'OUTFILE'} || $out;
  60.             
  61. # Valid choices for $COLOR_DEPTH are 1, 8 or 24. 
  62. $DEPTH = $ENV{'DEPTH'} || $depth || 24;
  63.  
  64. #Default density is 72
  65. $DENSITY = $ENV{'DENSITY'} || $density || 72;
  66.     
  67. # Valid choices are any numbers greater than zero
  68. # Useful choices are numbers between 0.1 - 5
  69. # Large numbers may generate very large intermediate files
  70. # and will take longer to process
  71. $SCALE = $ENV{'SCALE'} || $scale; # No default value
  72.  
  73. $PAPERSIZE = $ENV{'PAPERSIZE'} || $papersize; # No default value;
  74.  
  75. $DEBUG = $ENV{'DEBUG'} || $DEBUG || 0;
  76.  
  77. ######################################################################
  78.  
  79. &main;
  80.  
  81. sub read_args {
  82.     local($_);
  83.     while ($ARGV[0] =~ /^-/) {
  84.     $_ = shift @ARGV;
  85.     if (/^-h(elp)?$/) {
  86.         &usage; exit}
  87.         elsif (/^-out$/) {
  88.             $out = shift @ARGV;
  89.     }
  90.     elsif (/^-(.*)$/) {
  91.         eval "\$$1 = shift \@ARGV;" # Create and set a flag $<name>
  92.         }
  93.     }
  94. }         
  95.  
  96. sub main {
  97.     local($base, $outfile, $i, $j);
  98.     $base = &test_args;
  99.     $outfile = $OUTFILE || "$base.gif";
  100.     open(STDERR, ">/dev/null") unless $DEBUG;
  101.     &convert($base);
  102.     if (-f "$base.ppm") {
  103.     &crop_scale_etc("$base.ppm", $outfile);
  104.     }
  105.     else {
  106.     foreach $i (<$base.[1-9]*ppm>) {
  107.     $j = $i; 
  108.     $j =~ s/\.(.*)ppm/$1.gif/;
  109.     &crop_scale_etc($i, $j)}
  110.     }                
  111.     &cleanup($base);
  112. }
  113.  
  114. sub crop_scale_etc {
  115.     local($in, $out) = @_;
  116.     open(STDERR, ">/dev/null") unless $DEBUG;
  117.     system("$PNMCROP $in |$REDUCE_COLOR |$PPMTOGIF  - > $out");
  118.     print "Writing $out\n";
  119. }
  120.  
  121. sub test_args {
  122.     local($file) = $ARGV[0];
  123.     if (! ($file =~ s/\.ps$//)) {
  124.     print "The name of the input file must end in '.ps'\n";
  125.     exit}
  126.     elsif (! ( -f "$file.ps")) {
  127.     print "Cannot find file $file.ps\n.";
  128.     exit}
  129.     elsif (! ($DEPTH =~ /^(1|8|24)$/)) {
  130.     print "The color depth must be 1 or 8 or 24. You specified $DEPTH\n";
  131.     exit            
  132.     }
  133.     if (defined $SCALE) {
  134.     if ($SCALE > 0) {
  135.         $DENSITY = int($SCALE * 72)}
  136.     else {
  137.         print "Error: The scale must be greater than 0.\n" .
  138.         "You specified $SCALE\n";
  139.         exit}
  140.     }
  141.     $file;
  142. }
  143.    
  144. sub convert {
  145.     local($base) = @_;
  146.     local($paperopt) = "-sPAPERSIZE=$PAPERSIZE" if $PAPERSIZE;
  147.     local($ppmtype) = join('', "ppm",$DEPTH,"run");
  148.     open (GS, "|$GS -q $paperopt -dNODISPLAY $PSTOPPM -");
  149.     print GS "$DENSITY $DENSITY ppmsetdensity\n";
  150.     print GS "ppmsetsize2$PAPERSIZE % thanks to wsineric\@win.tue.nl (Eric Verbeek)\n" if $PAPERSIZE;
  151.     print GS "($base) $ppmtype\n";
  152.     close GS;
  153. }
  154.  
  155. sub cleanup {
  156.     local($base) = @_;
  157.     unlink <$base[0-9.]*ppm>;
  158. }
  159.  
  160. sub usage {
  161.     print "Usage: pstogif [-h(elp)] [-out <output file>] [-depth <color depth 1, 8 or 24>]  [-density <pixel density>] <file>.ps\n\n";
  162. }
  163.  
  164.  
  165.