#!/bin/sh

#set x

if [ $# -eq 0 ]; then
   FILE="fort.*"
else
   FILE="$*"
fi
cat /dev/null > pic.made

if [ -f fort.10 -a  -f fort.11 ]; then
    cat fort.10 fort.11 > fort.12
fi
if [ -f fort.20 -a  -f fort.21 ]; then
    cat fort.20 fort.21 > fort.22
fi

scheme=`cat fort.0 | awk '{print $1}'`

nx=`cat fort.1 | awk '{print $1}'`
ax=`cat fort.1 | awk '{print $2}'`
bx=`cat fort.1 | awk '{print $3}'`
hx=`cat fort.1 | awk '{print $4}'`
ny=`cat fort.1 | awk '{print $5}'`
ay=`cat fort.1 | awk '{print $6}'`
by=`cat fort.1 | awk '{print $7}'`
hy=`cat fort.1 | awk '{print $8}'`

nt=`cat fort.2 | awk '{print $1}'`
at=`cat fort.2 | awk '{print $2}'`
bt=`cat fort.2 | awk '{print $3}'`
ht=`cat fort.2 | awk '{print $4}'`
theta=`cat fort.2 | awk '{print $5}'`
sigma=`cat fort.2 | awk '{print $6}'`
epsilon=`cat fort.2 | awk '{print $7}'`

label1="X"
label2="U"

x1beg=$ax
x1end=$bx
x2beg=$ay
x2end=$by

for i in $FILE; do
   case $i in
   *.ps|*.eps|*.out) ;;
   *.c|*.cpp|*.f|*.f90) ;;
   *.o|*.h) ;;
   fort.0|fort.1|fort.2) ;;
   fort.10|fort.11|fort.20|fort.21) ;;
   xx|pic|pic.made) ;;
   *)

   ext="`echo $i | sed 's/fort\.//g'`"
   echo "$i.ps"

   id=0
   nplot=1; linecolor=red;
   linewidth=1.5; lineon=1; lineoff=0
   n=`wc -l $i | awk '{print $1}'`
   title="$scheme (T=$bt; S=$sigma; E=$epsilon; Dx=$hx; Dy=$hy)"


      if [ "$i" = "fort.12" ]; then
          n=`wc -l fort.10 | awk '{print $1}'`
          nplot=2; linecolor=red,blue
          linewidth=1,1.5; lineon=1,3; lineoff=0,5
          label1="X"
          title="U @ {Y=1/4; T=$bt}"
          id=1
      fi
      if [ "$i" = "fort.22" ]; then
          n=`wc -l fort.20 | awk '{print $1}'`
          nplot=2; linecolor=red,blue
          linewidth=1,1.5; lineon=1,3; lineoff=0,5
          label1="Y"
          title="U @ {X=1/3; T=$bt}"
          id=1
      fi

  if [ $id -eq 1 ]; then

      a2b < ${i} n1=2 > $i.bin

      psgraph < $i.bin n=$n nplot=$nplot linecolor=$linecolor \
         linewidth=$linewidth lineon=$lineon lineoff=$lineoff \
         x2beg=-0.1 x2end=1.1 \
         wbox=6.5 hbox=6.5 xbox=1.25 ybox=2.25 \
         style=normal titlecolor=blue title="$title" titlesize=20 \
         label1="$label1" label2="$label2" > ${i}.ps


   echo $i.ps >> pic.made
   rm $i.bin

  fi
   ;;
   esac

done

