#! /usr/bin/gnuplot 
# Last edited on 2011-06-01 23:05:04 by stolfilocal

# To be {load}ed by the reacto plot scripts.
# Client must define {boomord,ymin,ymax,ybotscale,ytopscale}

set lmargin 8; set rmargin 8; set tmargin 0.5; set bmargin 2.0
unset title
set grid ytics nomytics
set bars 0.0
set key horizontal top center

# Same as {z} unless undefined:
max(a,b) = (a > b ? a : b)
min(a,b) = (a < b ? a : b)
qty(z) = (z == 99999 ? 0/0 : min(ytopscale, max(ybotscale, z)))

# The marker ordinate, if {z} is explosion code, else undefined:
bum(z) = ((z != 1) ? 0/0 : boomord)

# The marker ordinate, if {z} is smoke code, else undefined:
fum(z) = ((z != 2) ? 0/0 : boomord) 

# The marker ordinate, if {z} is water level recalibration code, else undefined:
rum(z) = ((z != 3) ? 0/0 : boomord) 

# The marker ordinate, if {z} is earthquake code, else undefined:
eum(z) = ((z != 8) ? 0/0 : boomord) 

# The marker ordinate, if {z} is tsunami code, else undefined:
tum(z) = ((z != 9) ? 0/0 : boomord) 

set yrange [ymin:ymax]; set y2range [ymin:ymax]