1#! /bin/ksh
2#
3# usage: mkgrads.sh <gradient>
4#
5# where gradient has the form g_lin<angle>.fmt, g_wlin<angle>.fmt or g_rad<angle>.fmt
6# where .fmt gives the desired output format.
7
8if (( $# == 0 ))
9then
10  echo "mkgrads: missing gradient name argument"
11  exit 1
12fi
13
14TGT=$1               # g_type.fmt
15GRAD=${1%.*}         # g_type
16FMT=${1#$GRAD.}      # fmt
17F=$GRAD.dot          # g_type.dot
18WT=
19
20case "$GRAD" in
21 g_lin* )
22  ANG=${GRAD#g_lin}
23  STYLE=
24  ;;
25 g_wlin* )
26  ANG=${GRAD#g_wlin}
27  STYLE=
28  WT=';0.3'
29  ;;
30 g_rad* )
31  ANG=${GRAD#g_rad}
32  STYLE=-Nstyle=radial
33  ;;
34esac
35
36    exec 3> $F
37
38    echo "digraph G {" >&3
39    echo "  node[style=filled fillcolor=\"yellow${WT}:blue\" shape=box label=\"\"]" >&3
40    echo "  H " >&3
41    echo "}" >&3
42
43    exec 3>&-
44
45    dot -T$FMT $STYLE -Ngradientangle=$ANG $F > $TGT
46    rm -f $F
47
48
49