-
Notifications
You must be signed in to change notification settings - Fork 0
/
ploticus-time.tmpl
70 lines (58 loc) · 1.35 KB
/
ploticus-time.tmpl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#set COLORLIST = red,yellow,blue,green,orange,pink,black,white
// added scg 8/4/04.. allows spaces to be represented using underscores..
#proc settings
encodenames: yes
#proc page
pagesize: 7 5
#if @DEVICE in gif,png
scale: 1
#endif
#proc getdata
fieldnameheader: yes
#intrailer // get data from end of this file
#endproc //necessary in order to do the following computation involving NRECORDS
// compute XMAX (number of records+1 for bar graphs)
#set XMAX = $arith(@NRECORDS+1)
// set up area
#proc areadef
title: Time Results
rectangle: 1 1 6 4
yrange: 0 @XMAX
xrange: 0 12 // no way currently to do autorange on variable # of fields
yaxis.stubs: datafield=1
yaxis.label:
xaxis.stubs: inc 1
xaxis.label: Time (s)
// initialize loop variables
#set I = 2
#set NCLUST = $arith(@NFIELDS-2)
// start loop
#loop
// set vars for this iteration
#set FNAME = $fieldname(@I) // this function is new
#set ICLUST = $arith(@I-1)
#set COLOR = $nmember(@ICLUST,@COLORLIST)
// do bars
#proc bars
horizontalbars: yes
lenfield: @I
cluster: @ICLUST / @NCLUST
color: @COLOR
#hideund
legendlabel: @FNAME
#showund
barwidth: 0.06
// update I and see if time to stop..
#set I = $arith(@I+1)
#if @I > @NFIELDS
#break
#endif
#endloop
// slap on the legend
#proc legend
format: singleline
location: 1 0.5
sep: 0.5
// here's the data
#proc trailer
data