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