/usr/share/blt2.5/demos/graph5.tcl is in blt-demo 2.5.3+dfsg-1.
This file is owned by root:root, with mode 0o755.
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | #!/usr/bin/wish8.6
package require BLT
# --------------------------------------------------------------------------
# Starting with Tcl 8.x, the BLT commands are stored in their own
# namespace called "blt". The idea is to prevent name clashes with
# Tcl commands and variables from other packages, such as a "table"
# command in two different packages.
#
# You can access the BLT commands in a couple of ways. You can prefix
# all the BLT commands with the namespace qualifier "blt::"
#
# blt::graph .g
# blt::table . .g -resize both
#
# or you can import all the command into the global namespace.
#
# namespace import blt::*
# graph .g
# table . .g -resize both
#
# --------------------------------------------------------------------------
if { $tcl_version >= 8.0 } {
namespace import blt::*
#namespace import -force blt::tile::*
}
source scripts/demo.tcl
option add *Element.ScaleSymbols true
option add *Axis.loose true
option add *Pixels .8c
option add *Element.lineWidth 0
option add *Legend.ActiveRelief raised
option add *Legend.padY 0
option add *Button*Font { Courier 14 } widgetDefault
option add *Legend*Font { Courier 14 bold } widgetDefault
option add *Graph.Font { Courier 18 bold } widgetDefault
option add *Graph.title "Element Symbol Types"
option add *Graph.width 8i
option add *Graph.height 6i
option add *Graph.plotPadY .25i
option add *Graph.plotPadX .25i
set graph .graph
graph $graph
vector create x -variable ""
x set { 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 }
for { set i 0 } { $i < 11 } { incr i } {
set vecName "y${i}"
vector create ${vecName}
$vecName length 11
$vecName variable y
set y(:) [expr $i*100.0]
}
set attributes {
none "None" red red4 y0
arrow "Arrow" brown brown4 y10
circle "Circle" yellow yellow4 y2
cross "Cross" cyan cyan4 y6
diamond "Diamond" green green4 y3
plus "Plus" magenta magenta4 y9
splus "Splus" Purple purple4 y7
scross "Scross" red red4 y8
square "Square" orange orange4 y1
triangle "Triangle" blue blue4 y4
"@bitmaps/hobbes.xbm @bitmaps/hobbes_mask.xbm"
"Bitmap" yellow black y5
}
set count 0
foreach {symbol label fill color yVec} $attributes {
$graph element create line${count} \
-label $label -symbol $symbol -color $color -fill $fill -x x -y $yVec
incr count
}
$graph element configure line0 -dashes { 2 4 2 } -linewidth 2
button .quit -text Quit -command exit
table . \
$graph 0,0 -fill both \
.quit 1,0 -fill x
Blt_ZoomStack $graph
Blt_Crosshairs $graph
Blt_ActiveLegend $graph
Blt_ClosestPoint $graph
Blt_PrintKey $graph
|