source: GTP/trunk/Lib/Vis/Preprocessing/work/plots/ps_histo_plot @ 2009

#!/bin/sh
unalias rm

rm -f *.tmpplot*

PFILE=plot.fig
FILE=tmp.plot
echo $FILE
rm -f $FILE
#echo set term postscript eps monochrome dashed \"Times-Roman\" 24 > $FILE
#echo set term postscript eps color solid > $FILE
echo set term fig color fontsize 20 big landscape > $FILE
echo set output \"$PFILE\" >> $FILE


#echo set term x11 > $FILE
#echo set grid >> $FILE 
STYLE=$1
echo set xlabel \"$2\" >> $FILE 
echo set ylabel \"$3\" >> $FILE
#echo set yrange \[0:100\] >> $FILE
#echo set xrange \[0:200000\] >> $FILE

#echo set boxwidth 300.0 >> $FILE
echo set style fill >> $FILE

#echo set logscale x >> $FILE
echo -n plot >> $FILE


PAR1=$2
PAR2=$3
NAME=A

shift
shift
shift    

pt=1
lt=1

for i in $* ; do
    echo $i ;
    echo $NAME
    grep -A 1 $PAR1 $i | grep -v "\-\-" | grep -v "#" > $i.tmpplot.x ;
    grep -A 1 $PAR2 $i | grep -v "\-\-" | grep -v "#" > $i.tmpplot.y ;
    paste $i.tmpplot.x $i.tmpplot.y > $i.tmpplot ;
    if test $i != $1 ; then echo -n ", ">>$FILE; fi
    echo -n " "\"$i.tmpplot\"  title \"$NAME\" with boxes fill pattern" " lt $pt >>$FILE ;
    YPLOT="$YPLOT $i.tmpplot.y";
    case $NAME in
    A) NAME=B;;
    B) NAME=C;;
    C) NAME=D;;
    D) NAME=E;;
    E) NAME=F;;
    F) NAME=G;;
    esac;
    let pt=$pt+1;
done ;
echo >> $FILE
paste $1.tmpplot.x $YPLOT | grep -v "#"

cat $FILE
gnuplot $FILE 
rm -f $FILE
rm -f *.tmpplot*