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
|
#----------------------------------------------------------------------------
# $Id: x12.tcl,v 1.8 2001/12/27 21:11:46 airwin Exp $
#----------------------------------------------------------------------------
# Does a simple bar chart, using color fill. If color fill is
# unavailable, pattern fill is used instead (automatic).
proc x12 {{w loopback}} {
matrix y0 f 10 = {5., 15., 12., 24., 28., 30., 20., 8., 12., 3.}
$w cmd pladv 0
$w cmd plvsta
$w cmd plwind 1980.0 1990.0 0.0 35.0
$w cmd plbox "bc" 1.0 0 "bcnv" 10.0 0
$w cmd plcol0 2
$w cmd pllab "Year" "Widget Sales (millions)" "#frPLplot Example 12"
for {set i 0} {$i < 10} {incr i} {
$w cmd plcol0 [expr $i+1]
# $w cmd plcol1 [expr ($i + 1.)/10.0 ]
$w cmd plpsty 0
plfbox $w [expr 1980. + $i] [y0 $i]
set string [format "%.0f" [y0 $i] ]
$w cmd plptex [expr 1980. + $i + .5] [expr [y0 $i] + 1.] \
1.0 0.0 .5 $string
set string [format "%d" [expr 1980 + $i] ]
$w cmd plmtex "b" 1.0 [expr ($i + 1) * .1 - .05] 0.5 $string
}
# Restore defaults
$w cmd plcol0 1
}
proc plfbox {w x0 y0} {
matrix x f 4; matrix y f 4
x 0 = $x0;
y 0 = 0.;
x 1 = $x0;
y 1 = $y0;
x 2 = [expr $x0 + 1.];
y 2 = $y0;
x 3 = [expr $x0 + 1.];
y 3 = 0.;
$w cmd plfill 4 x y
$w cmd plcol0 1
$w cmd pllsty 1
$w cmd plline 4 x y
}
|
