EPS: filled.eps

Script: make-filled.tcl


# source the library
source zplot.tcl
namespace import Zplot::*

# define the canvas
PsCanvas -title "filled.eps" -width 3.5in -height 2.75in

# read in the file into a table called bar1
Table -table line1 -file "data.flines1"
Table -table line2 -file "data.flines2"

# this defines one particular drawing area
set xrange [TableGetRange -table line1,line2 -column x,x]
set ymax [TableGetMax -table line1,line2 -column y,y]

# make drawable
Drawable -xrange $xrange -yrange 0,$ymax

# now plot filled region first, then line on top of it (for both gray area behind and then blue on top)
PlotVerticalFill -table line1 -xfield x -yfield y -fillstyle solid -fillcolor lightgray
PlotLines -table line1 -xfield x -yfield y -linecolor darkgray

PlotVerticalFill -table line2 -xfield x -yfield y -fillstyle solid -fillcolor lightblue
PlotLines -table line2 -xfield x -yfield y -linecolor darkblue

# axes?
AxesTicsLabels

# all done
PsRender -file filled.eps


Data: data.flines1 Data: data.flines2