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
71
|
# $Id: xw12.py 11680 2011-03-27 17:57:51Z airwin $
# Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Alan W. Irwin
# Bar chart demo.
#
# This file is part of PLplot.
#
# PLplot is free software; you can redistribute it and/or modify
# it under the terms of the GNU Library General Public License as published
# by the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# PLplot is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public License
# along with PLplot; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
#
from plplot_py_demos import *
# main
#
# Does a simple bar chart, using color fill. If color fill is
# unavailable, pattern fill is used instead (automatic).
def main():
pos = array ([0.0, 0.25, 0.5, 0.75, 1.0])
red = array ([0.0, 0.25, 0.5, 1.0, 1.0])
green = array ([1.0, 0.5, 0.5, 0.5, 1.0])
blue = array ([1.0, 1.0, 0.5, 0.25, 0.0])
pladv(0)
plvsta()
plwind(1980.0, 1990.0, 0.0, 35.0)
plbox("bc", 1.0, 0, "bcnv", 10.0, 0)
plcol0(2)
pllab("Year", "Widget Sales (millions)", "#frPLplot Example 12")
y0 = [5, 15, 12, 24, 28, 30, 20, 8, 12, 3]
plscmap1l(1, pos, red, green, blue)
for i in range(10):
# plcol0(i + 1)
plcol1(i / 9.0)
plpsty(0)
fbox( (1980. + i), y0[i] )
string = `y0[i]`
plptex((1980. + i + .5), (y0[i] + 1.), 1.0, 0.0, .5, string)
string = `1980 + i`
plmtex("b", 1.0, ((i + 1) * .1 - .05), 0.5, string)
# Restore defaults
#plcol0(1)
def fbox( x0, y0 ):
x = [x0, x0, x0 + 1., x0 + 1.]
y = [0., y0, y0, 0.]
plfill(x, y)
plcol0(1)
pllsty(1)
plline(x, y)
main()
|
