#!/bin/sh
###########################
if   [ $# = 1 ]
then
 cat $1
###########################
elif [ $# = 2 ]
then
 sed '
  /\/YourX0/c\
   \/YourX0     45 mm def
  /\/YourY0/c\
   \/YourY0    148 mm def
  /\/YourScaleX/c\
   \/YourScaleX 120 mm def
  /\/YourScaleY/c\
   \/YourScaleY 120 mm def
  /showpage/d
  /quit/d
 ' $1 

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     45 mm def
  /\/YourY0/c\
   \/YourY0     28 mm def
  /\/YourScaleX/c\
   \/YourScaleX 120 mm def
  /\/YourScaleY/c\
   \/YourScaleY 120 mm def
 ' $2 
###########################
elif [ $# = 3 ]
then
 sed '
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    170 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $1

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    170 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $2

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0     80 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
 ' $3
###########################
elif [ $# = 4 ]
then
 sed '
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    170 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $1

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    170 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $2

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0     80 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $3

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0     80 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
 ' $4
###########################
elif [ $# = 5 ]
then
 sed '
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    195 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $1

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    195 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $2

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    105 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $3

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    105 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $4

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0     15 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
 ' $5
###########################
elif [ $# = 6 ]
then
 sed '
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    195 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $1

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    195 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $2

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0    105 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $3

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0    105 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $4

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0     10 mm def
  /\/YourY0/c\
   \/YourY0     15 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
  /showpage/d
  /quit/d
 ' $5

 sed '
  /#!/d
  /\/YourX0/c\
   \/YourX0    100 mm def
  /\/YourY0/c\
   \/YourY0     15 mm def
  /\/YourScaleX/c\
   \/YourScaleX  90 mm def
  /\/YourScaleY/c\
   \/YourScaleY  90 mm def
 ' $6
###########################
else echo " usage : $0 hcopyfiles  | lp"
     echo " or      $0 hcopyfiles  > yourfile"
     echo " accepts 1..6 files generated by pplot"
     echo "   either by  clicking a button while in Hcopy window"
     echo "   or     by  pplot -b datafile(s) (batch run to produce a hcopy file)"
fi
###########################
