#!/usr/local/bin/bash -f

cat manybars.in ; awk '
BEGIN{
    RS = "\t";
    cnt = 0;
    pref = 0;
    suf = 0.6;
    prev = 0;
    fil = 0;
}

{ 
    val = prev+.5*$1;
    prev += $1;
    print "newcurve marktype box fill "fil"\nlinethickness 0.0\nmarksize 0.04 " $1"\npts\n       "pref+suf " " val"\n\n";
    fil += 0.17;

    if(fil > 1.02)
    {
	prev = 0;
	fil = 0;
	cnt += 1;
	pref +=1;
    }
    if(cnt>6)
    {
	pref = 0;
	suf +=0.06;
	cnt = 0;
    }
}' manybars.data