// #!/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