#! /usr/bin/gnuplot 
# Last edited on 2011-05-30 01:07:57 by stolfi

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

set lmargin 8; set rmargin 8
unset title
set grid xtics
set grid ytics
set bars 0.0
set key horizontal top center
set format x ""

# 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) 

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