Welcome, guest | Sign In | My Account | Store | Cart
namespace eval MathToImg {
   image create photo MathToImgHelperImage

   set tmpdir "/tmp"; # configure for platforms!

   # What LaTeX size should we format at?  This looks good on my workstation
   set latexSize huge; # No backslash!

   # Commands
   set latexCommand "latex '\\nonstopmode\\input{%s.tex}'"
   set dvipsCommand "dvips -E -q -o %s.eps %s.dvi"
   set gsCommand "gs -q -dNOPAUSE -dSAFER -sDEVICE=ppmraw           -sOutputFile=%s.ppm %s.eps"

   # Regular expression for finding bounding box
   set BBre {^%%BoundingBox: ([0-9]+) ([0-9]+) ([0-9]+) ([0-9]+) *$}

   proc external cmd {
      exec sh -c $cmd 2>@stderr </dev/null
   }

   proc mathToImg {latex {packages {}}} {
      # Keep ourselves current-dir neutral
      set cwd [pwd]
      cd $::MathToImg::tmpdir

      # Put a wrapper round the supplied LaTeX source
      set latexSource "\\documentclass{article}\n"
      if {[llength $packages]} {
         # Add needed packages, converting Tcl list to comma-ed list
         append latexSource "\\usepackage{" [join $packages ,] "}"
      }
      append latexSource "\\begin{document} \\$::MathToImg::latexSize              \\pagestyle{empty} \\begin{displaymath}\n% USER CODE START\n"
      append latexSource $latex "\n% USER CODE END\n"
      append latexSource "\\end{displaymath} \\end{document}\n"

      set basename [file tail [file rootname $::argv0]]_mathToImg_[pid]

      set f [open $basename.tex w]
      puts -nonewline $f $latexSource
      close $f

      # LaTeX -> DVI
      external [format $::MathToImg::latexCommand $basename]
      # DVI -> EPS
      external [format $::MathToImg::dvipsCommand $basename $basename]

      # Grok out the size, which we need later...
      set f [open $basename.eps r]
      while {![eof $f]} {
         gets $f line
         if {[regexp $::MathToImg::BBre $line ? x1 y1 x2 y2]} {
            break
         }
      }
      close $f

      # EPS -> PPM
      external [format $::MathToImg::gsCommand $basename $basename]

      # Make the image - we can't go direct as we need the size of
      # the image to handle the cropping correctly.
      set img [image create photo               -height [expr {$y2-$y1}]               -width  [expr {$x2-$x1}]]
      # PS has (0,0) in bottom left, Tk in top left
      MathToImgHelperImage read $basename.ppm
      set h [image height MathToImgHelperImage]
      $img copy MathToImgHelperImage               -from $x1 [expr {$h-$y1}] $x2 [expr {$h-$y2}]
      MathToImgHelperImage blank; # Ditch the data

      # Try to clean up after ourselves!
      catch {eval file delete [glob $basename.*]}

      cd $cwd
      return $img
   }

   namespace export mathToImg
}
namespace import MathToImg::*

History