c -----------------------------------------------------
c
c TAO Project Office,  NOAA/PMEL/OCRD
c
c  Programmed by Nancy Soreide, 1991. Modified by Willa 
c    Zhu to plot 8 plots per page, top justified. 
c
c stack.ppc
c
c Input parameters:
c
c    p1 is the max number of plots per page (from the bottom up)
c    p2 a user command file used to make stacked plot
c    p3 path, eg, /home/heron/taohome
c    p4 Process Id , eg, PID
c    p5 is the number of plots on the current page
c    p6 frequency identifier
c    p7 is min time
c    p8 is max time
c
c ----------------------------------------------------*
c
box,off
c
pltype,0
c
dfltfnt,cr
c
size 8 10
c
@'p3'/ppc/util/set_txtype.ppc:quiet 'p7' 'p8' 'p3'
c
c  Calculate yy = plot height, yup = amt to move up for next plot origin
c  ylb = location with respect to origin for plot label (upper rt corner)
c
c
e yy = 8 / 'p5' - 0.25
e load(yy)
set *yy 'eps$scaler'
c
set *xx 6
c
e yup = 'yy' + 0.25
e load(yup)
set *yup 'eps$scaler'
c
e ylb = 'yy' - 0.19
e load(ylb)
set *ylb 'eps$scaler'
c
axlen 'xx' 'yy'
c
axatic,,4
c
xgeom,800,1000
c
window,on
c
pltnme,stack'p4'.plt
c
@'p3'/ppc/color.ppc:quiet SUN 
c
pen,1,'red'
c
c  Calculate ypos = yposition for origin of first plot. 
c 
set *xpos 1.1
c
if p1 .eq. p5 then
  set yt2 0
else
  e yt1 = 'p5' - 'p1'
  e load(yt1) 
  set yt1 'eps$scaler'
c
  e yt2 = 'yt1' * 'yup'
  e load(yt2)
  set yt2 'eps$scaler'
endif
c
e ypos = 1.2 + 'yt2'
e load(ypos)
set *ypos 'eps$scaler'
c
txlabp,-1
axset 1 1 1 1
axlsze,,0.12
txlsze,
c 
c make the stack of plots, from the bottom to the top.  
c
if p6 .eq. "hr" then
  set mstr "Hourly"
endif
c
if p6 .eq. "dy" then
  set mstr "Daily"
endif
c
if p6 .eq. "hf" then
  set mstr "Five-Day"
endif
c
if p6 .eq. "lf" then
  set mstr "Monthly"
endif
c
if p6 .eq. "qt" then
  set mstr "Quarterly Mean"
endif
c
e xlab = 'xpos' + 'xx' / 2
e load(xlab)
set xlab 'eps$scaler'
c
e ylab = 8 + 1.4
e load(ylab)
set ylab 'eps$scaler'
c
%opnplt
c
c origin,'xlab','ylab'
c
c %label:nouser 0,0,0,0,.16,"'mstr' TAO Data"
c
c Execute the user command file
c
@'p2' 'p1'
c
@'p3'/ppc/util/proj.ppc:quiet
c
@'p3'/ppc/util/date_stamp.ppc:quiet
c
origin,'xlab','ylab'
c
%label:nouser 0,0,0,0,.16,"'mstr' TAO Data"
c
%clsplt
c