File: test_heatmap.tcl

package info (click to toggle)
tklib 0.9-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 23,156 kB
  • sloc: tcl: 105,088; sh: 2,573; ansic: 792; pascal: 359; makefile: 69; sed: 53; exp: 21
file content (15 lines) | stat: -rw-r--r-- 367 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# test_heatmap.tcl --
#     Test/demonstrate the heatmap plot facilities
#
pack [canvas .c -width 600 -height 600]

set p [::Plotchart::createHeatmap .c {First Second Third Fourth Fifth} {1 2 3 4 5 6 7 8}]

$p scale values 0 100

$p plot row First {0 10 20 30 40 70 100 100}

$p scale colours red green

$p plot column "1" {200 100 50 30 0}
$p plot cell Fifth "8" 50