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