3 # grap2graph -- compile graph description descriptions to bitmap images
5 # by Eric S. Raymond <esr@thyrsus.com>, May 2003
7 # In Unixland, the magic is in knowing what to string together...
9 # Take grap description on stdin, emit cropped bitmap on stdout.
10 # The pic markup should *not* be wrapped in .G1/.G2, this script will do that.
11 # A -U option on the command line enables gpic/groff "unsafe" mode.
12 # A -format FOO option changes the image output format to any format
13 # supported by convert(1). All other options are passed to convert(1).
14 # The default format is PNG.
17 # Requires the groff suite and the ImageMagick tools. Both are open source.
18 # This code is released to the public domain.
20 # Here are the assumptions behind the option processing:
22 # 1. None of the options of grap(1) are relevant.
24 # 2. Only the -U option of groff(1) is relevant.
26 # 3. Many options of convert(1) are potentially relevant, (especially
27 # -density, -interlace, -transparency, -border, and -comment).
29 # Thus, we pass -U to groff(1), and everything else to convert(1).
46 echo "GNU grap2graph (groff) version @VERSION@"
49 echo "usage: grap2graph [ option ...] < in > out"
52 convert_opts
="$convert_opts $1";;
57 # create temporary directory
59 for d
in "$GROFF_TMPDIR" "$TMPDIR" "$TMP" "$TEMP" /tmp
; do
60 test -z "$d" && continue
62 tmp
=`(umask 077 && mktemp -d -q "$d/grap2graph-XXXXXX") 2> /dev/null` \
63 && test -n "$tmp" && test -d "$tmp" \
66 tmp
=$d/grap2graph$$
-$RANDOM
67 (umask 077 && mkdir
$tmp) 2> /dev
/null
&& break
69 if test -z "$tmp"; then
70 echo "$0: cannot create temporary directory" >&2
74 trap 'exit_status=$?; rm -rf $tmp && exit $exit_status' 0 2 15
78 # 2. Process through grap(1) to emit pic markup.
79 # 3. Process through groff(1) with pic preprocessing to emit Postscript.
80 # 4. Use convert(1) to crop the Postscript and turn it into a bitmap.
81 (echo ".G1"; cat; echo ".G2") | grap |
groff -p $groff_opts -Tps -P-pletter | \
82 convert
-trim -crop 0x0 $convert_opts - $tmp/grap2graph.
$format \
83 && cat $tmp/grap2graph.
$format