Re: %%BoundingBox: (atend)

["George N. White III" <aa056@chebucto.ns.ca>]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 1038 bytes --]

On Tue, 1 Jun 2004, Hans Hagen wrote:

> At 14:24 30/05/2004, you wrote:
>> Hello,
>> ConTeXt does not find the EPS-BoundingBox in EPS files generated by 
>> xmgrace.
>> Such a file begins like this:
>> 
>> %!PS-Adobe-3.0 EPSF-3.0
>> %%BoundingBox: (atend)
> [...]
>> If not, I'm going to write a script, that converts the file.
>
> if you have a small demo file i can add that feature to texutil

I'd suggest adopting some of the conventions used by the
LaTeX2e graphics bundle, in particular, to look for the 
BoundingBox in filename.(e)ps.bb.

Rather than making texutil more complex a separate tool (findbb, attached)
that reliably writes the bbox by trying several methods, even using the 
ghostscript bbox device to generate one (e.g., in the case of files 
created with dvips -E that get incorrect BoundingBox entries because the 
dvips calculation ignores things drawn by \specials).

Try "findbb xmgracefile.ps > xmgracefile.ps.bb"

--
George N. White III  <aa056@chebucto.ns.ca>
   Head of St. Margarets Bay, Nova Scotia, Canada

[-- Attachment #2: unix ksh script (should work with bash) to find BoundingBox --]
[-- Type: TEXT/PLAIN, Size: 2434 bytes --]

#! /bin/ksh
# findbb -- write PostScript BoundingBox to stdout

# Notes:

# 0. The '-b' flag can be used with .pdf files.

# 1. (e)ps files may contain binary preview images and may
#    use non-native newlines, so must be handled as binary.  
#    Our approach is to grab the first 5000 bytes
#    of the file, then convert \012 and \015 to \012 for
#    processing with tools intended for use with text files.

# 2. if the file does not provide a BoundingBox line, use
#    the GhostScript bbox device (-b flag) to generate one.

# 3. if the first entry is %%BoundingBox: (atend), examine
#    the last 5000 bytes of the file

# Bugs:
#    Does not normalize the line by adding a space after the ':'
#    Does not handle large preview images

# Author: George N. White III <aa056@chebucto.ns.ca>
#     

pgm="$(basename $0)"
usage="usage: $pgm [-b] filename"

TMPDIR=${TMPDIR:-/usr/tmp}
GS_PROG=${GS_PROG:-gsc} 

tempnm=$(mktemp $TMPDIR/$pgm-temp.XXXXXXXXXX ) || exit 1
pipenm=$(mktemp $TMPDIR/$pgm-pipe.XXXXXXXXXX ) || exit 1
/sbin/rm -f "$pipenm" && /sbin/mknod "$pipenm" p

trap "rm -f $tempnm $pipenm ; exit \$rc" 0

flags=""
case $# in
2) case $1 in
   -b) flags="b$flags" ; shift
       ;;
    *) print -u2 $usage ; exit 1
       ;;
    esac
    ;;
1)  ;;
*)  print -u2 $usage ; exit 1
    ;;
esac

# can we read the file?
if [ -r "$1" ] ; then
    fnm="$1"
else
    print -u2 "$pgm: unable to read file <$1>."
    exit 1
fi

case $flags in
*b*) $GS_PROG -q -dBATCH -dNOPAUSE -sDEVICE=bbox $fnm > $tempnm 2>&1 
     set $(grep --max-count=1 '^%%BoundingBox:' $tempnm ) || exit 1
     ;;
*)   set $(head --bytes=5000 $fnm | tr '[\012\015]' '\012' | grep --max-count=1 '^%%BoundingBox:') || exit 1
     ;;
esac

case "$#" in
1|2) # handle '^%%BoundingBox:(atend)' and '^%%BoundingBox: (atend)'
   case "$1$2" in
   %%BoundingBox:\(atend\)) print -u2 "$pgm -- looking 'atend'"
       bbox=$(tail --bytes=5000 $fnm | tr '[\012\015]' '\012' \
            | grep '^%%BoundingBox:'|tail -1)
       ;;
   *)
       print -u2 "$pgm failed to find BoundingBox" ; exit 1
       ;;
   esac
   ;;
4|5) # handle BoundingBox:NN ... and BoundingBox: NN ...
   case "$1$2" in
   %%BoundingBox:*)   bbox="$@"
       ;;
   *)
       ;;
   esac
   ;;
*) print -u2 "$pgm failed to find BoundingBox, try setting '-b' flag." ; exit 1
   
esac
print "$bbox"