/usr/share/doc/libplplot12/examples/tcl/x12.tcl is in plplot-tcl-dev 5.10.0+dfsg2-0.1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #----------------------------------------------------------------------------
# $Id: x12.tcl 11572 2011-02-21 07:39:43Z arjenmarkus $
#----------------------------------------------------------------------------
# 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.}
matrix pos f 5 = {0.0, 0.25, 0.5, 0.75, 1.0}
matrix red f 5 = {0.0, 0.25, 0.5, 1.0, 1.0}
matrix green f 5 = {1.0, 0.5, 0.5, 0.5, 1.0}
matrix blue f 5 = {1.0, 1.0, 0.5, 0.25, 0.0}
matrix rev i 5 = {0, 0, 0, 0, 0}
$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"
$w cmd plscmap1l 1 5 pos red green blue rev
for {set i 0} {$i < 10} {incr i} {
# $w cmd plcol0 [expr {$i+1}]
$w cmd plcol1 [expr {$i / 9.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
}
|