#!/bin/nawk -f
# $Id: align2pm,v 1.2 1992/11/02 22:11:39 schwartz Exp $
BEGIN {
  if (W == "") { W=2; }
  needx = (X0 == "");
  needy = (Y == "");
  print "% W " W
  print "% Y " Y
  print "% X " X0 " " X1
}

/^}/ { 
  if (block == "d") { print ") def" }
  if (block == "s" || block == "S") { 
	print "/x0 " X0 " def"
	print "/x1 " X1 " def"
        print "/y0 " 0  " def"
	Y = needy ? (X1-X0+1)/5 : Y;
	print "/y1 " Y " def"
	print "/vtic-step " Y/10 " def"
	print "/y-scale-fudge " Y/100 " def"
  }
  block=" ";
  next; 
}

/^s/ { block="s"; next; }

/^a/ { 
  block="a";
  print "plotdata";
  next; 
}

/^d/ { 
  block="d"; 
  print "/description (";
  next; 
}

block=="d" {
  print;
}

block=="s" && NF==3 {
  if (needx) { X0=$2; X1=$3; }
  block="S";
}

block=="a" && $0 ~ /^[   ]*l/ {
  print $2+X0-1 " " \
        $3*Y/100 " " \
        $4+X0-1 " " \
        $5*Y/100 " " \
        W " 0 Line"
}