EPS: devol.eps

Script: make-devol.tcl

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

PsCanvas -title "devol.eps" -width 400 -height 320

Table -file "data.devol"
TableAddColumns -columns mdate; TableMap -from date -to mdate

Drawable -xrange "-1,[expr [TableGetMax -column mdate] + 3]" -yrange 0,2000 \
-coord ,40 -dimensions [expr [PsCanvasInfo -info width] - 15],
Grid -ystep 200 -xstep 1 -linecolor lightgray

# axes (no need to separate?)
AxesTicsLabels -style y -yauto ,,200
AxesTicsLabels -style x -xmanual [TableMakeAxisLabels -name date -number mdate] -xlabelrotate 90 -xlabelanchor r,c

# plot the darn data
PlotLines -xfield mdate -yfield value -stairstep true -linecolor purple \
-labelfield value -labelsize 7 -labelcolor purple -labelshift 6,0 -labelrotate 90 -labelanchor l,c

# embellishments
Circle -coord 10,463 -radius 20 -linecolor red
Circle -coord 10,463 -radius 1 -linecolor red

# all done
PsRender -file "devol.eps"

Data: data.devol