[Bug-AUCTeX] preview-1.247; Some pstricks images cropped

[Ralf Angeli]

While searching for some pstricks examples worthy of a screenshot, I tried
<URL:ftp://ftp.dante.de/tex-archive/graphics/pstricks/doc/pstnews97-15.tex>.

I added
\usepackage{preview}
\PreviewEnvironment{pspicture}
to its preamble and generated the previews with `C-c C-p C-d'.  Most
of them came out correctly but two were cropped.  The following
screenshot shows one of them:

In case you cannot compile the whole document with LaTeX (as is the
case with my TeX system; yes, I am too lazy to install the missing
packages or upgrade) just use a "pdf" file extension instead of "tex"
in the URL above.


Emacs  : GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.6.2)
 of 2005-03-30 on neutrino
Package: preview-1.247

current state:
==============

Output from running `gs -h':
ESP Ghostscript 7.07.1 (2003-07-12)
Copyright 2003 artofcode LLC and Easy Software Products, all rights reserved.
Usage: gs [switches] [file1.ps file2.ps ...]
Most frequently used switches: (you can use # in place of =)
 -dNOPAUSE           no pause after page   | -q       `quiet', fewer messages
 -g<width>x<height>  page size in pixels   | -r<res>  pixels/inch resolution
 -sDEVICE=<devname>  select device         | -dBATCH  exit after last file
 -sOutputFile=<file> select output file: - for stdout, |command for pipe,
                                         embed %d or %ld for page #
Input formats: PostScript PostScriptLevel1 PostScriptLevel2 PDF
Default output device: x11
Available devices:
[...]
Search path:
   . : /usr/share/gs-esp/7.07/lib : /usr/share/gs-esp/fonts :
   /var/lib/defoma/gs.d/dirs/fonts : /usr/share/cups/fonts :
   /usr/share/ghostscript/fonts : /usr/local/lib/ghostscript/fonts
For more information, see /usr/share/doc/gs-esp/Use.htm.
Report bugs using the form at "http://www.cups.org/str.php";.

(setq
 AUC-TeX-version "CVS-5.494"
 LaTeX-command-style '(("" "%(PDF)%(latex) %S%(PDFout)"))
 image-types '(png gif jpeg xpm xbm pbm postscript)
 preview-image-type 'dvipng
 preview-image-creators '((dvipng
                           (open preview-gs-open preview-dvipng-process-setup)
                           (place preview-gs-place)
                           (close preview-dvipng-close))
                          (png (open preview-gs-open) (place preview-gs-place)
                           (close preview-gs-close))
                          (jpeg (open preview-gs-open)
                           (place preview-gs-place) (close preview-gs-close))
                          (pnm (open preview-gs-open) (place preview-gs-place)
                           (close preview-gs-close))
                          (tiff (open preview-gs-open)
                           (place preview-gs-place) (close preview-gs-close))
                          )
 preview-dvipng-image-type 'png
 preview-dvipng-command "dvipng -picky -noghostscript %d -o 
\"%m/prev%%03d.png\""
 preview-pdf2dsc-command "pdf2dsc %s.pdf %m/preview.dsc"
 preview-gs-command "gs"
 preview-gs-options '("-q" "-dSAFER" "-dNOPAUSE" "-DNOPLATFONTS" "-dPrinted"
                      "-dTextAlphaBits=4" "-dGraphicsAlphaBits=4")
 preview-gs-image-type-alist '((png png "-sDEVICE=png16m")
                               (dvipng png "-sDEVICE=png16m")
                               (jpeg jpeg "-sDEVICE=jpeg")
                               (pnm pbm "-sDEVICE=pnmraw")
                               (tiff tiff "-sDEVICE=tiff12nc"))
 preview-fast-conversion t
 preview-prefer-TeX-bb nil
 preview-dvips-command "dvips -Pwww -i -E %d -o %m/preview.000"
 preview-fast-dvips-command "dvips -Pwww %d -o %m/preview.ps"
 preview-scale-function 'preview-scale-from-face
 preview-LaTeX-command '("%l \"\\nonstopmode\\nofiles\\PassOptionsToPackage{"
                         ("," . preview-required-option-list)
                         
"}{preview}\\AtBeginDocument{\\ifx\\ifPreview\\undefined" 
preview-default-preamble "\\fi}\\input{%t}\"")
 preview-required-option-list '("active" "tightpage" "auctex")
 preview-default-option-list '("displaymath" "floats" "graphics" "textmath"
                               "sections" "footnotes")
 preview-default-preamble '("\\RequirePackage["
                            ("," . preview-default-option-list)
                            "]{preview}[2004/11/05]")
 preview-LaTeX-command-replacements nil
 preview-dump-replacements '(preview-LaTeX-command-replacements
                             ("\\`\\([^ ]+\\)\\(\\( -\\([^ 
\"]\\|\"[^\"]*\"\\)*\\)*\\)\\(.*\\)\\'" "\\1 -ini \"&\\1\" " 
preview-format-name ".ini \\5")
                             )
 preview-undump-replacements '(("\\`\\([^ ]+\\)\\(\\( -\\([^ 
\"]\\|\"[^\"]*\"\\)*\\)*\\).*\\input{\\([^}]*\\)}.*\\'" "\\1 \"&" 
preview-format-name "\" \\5")
                               )
 preview-auto-cache-preamble t
 )