// #!/usr/bin/pl
// Setup drawing area
#proc page
pagesize: 8 6
landscape: yes
#proc areadef
rectangle: 0.55 0.80 7.6 5.95
frame: color=grey(0.9)
xscaletype: datetime yyyy-mm-dd.hh:mm:ss
xrange: 2003-05-07.11:00:00 2003-05-09.12:00:00
yrange: 0 2500
#proc xaxis
stubs: incremental 4 hour
stubformat: hh:mm
stubcull: yes
stubrange: 2003-05-07.11:00:00
minorticinc: 1 hour
grid: color=grey(0.9)
gridskip: min
#proc xaxis
location: min-0.25
stubs: incremental 1 day
stubrange: 2003-05-07.24:00:00
stubformat: yyyy-mm-dd
minorticinc: 1 day
stubcull: yes
label: Time/Temp (min)
#proc yaxis
stubs: incremental 200
minorticinc: 100
stubdetails: size=8
labeldetails: size=10
grid: color=grey(0.9) width=1
gridskip: min
label: Elevation/Élévation (m)
minorticlen: 0.05
// Wind data
#proc getdata
delim: comma
file: wind.csv
fieldnameheader: yes
pf_fieldnames: legendId,windTimeStamp,windLevel,windSpeed,windDirection
filter: ##set newWindTimeStamp = $change(' ', '.', @@windTimeStamp)
##print @@legendId,@@newWindTimeStamp,@@windLevel,@@windSpeed,@@windDirection
// Wind legend entries
#proc legendentry
label: Data 1
sampletype: line
details: color=blue
tag: 1
#proc legendentry
label: Data 2
sampletype: line
details: color=red
tag: 2
// Draw the windbarbs
#proc vector
xfield: windTimeStamp
yfield: windLevel
linedetails: color=black
magfield: windSpeed
dirfield: windDirection
colorfield: legendId
type: barb
constantlen: 0.25
// Draw dots at the points of the windbarbs
#proc scatterplot
xfield: windTimeStamp
yfield: windLevel
symbol: shape=circle radius=0.005 style=fill fillcolor=black
cluster: no
#proc legend
location: min+0.21 min-0.65
//details: size=12 color=black style=B
sep: 1
format: singleline
#proc legend
reset