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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
package require BLT
set palette greyscale
set meshes {
"exgrid-0-0.4" "1.2145224 3.4495224 208" "0 34.209 64"
"exgrid-0.05-0.4" "1.2142221 3.4492221 208" "0 34.209 64"
"exgrid-0.1-0.4" "1.2141615 3.4491615 208" "0 34.209 64"
"exgrid-0.15-0.4" "1.2141758 3.4491758 208" "0 34.209 64"
"exgrid-0.2-0.4" "1.2141744 3.4491744 208" "0 34.209 64"
"exgrid-0.25-0.4" "1.2141709 3.4491709 208" "0 34.209 64"
"exgrid-0.3-0.4" "1.2141671 3.4491671 208" "0 34.209 64"
"exgrid-0.35-0.4" "1.2141646 3.4491646 208" "0 34.209 64"
"exgrid-0.4-0.4" "1.2141631 3.4491631 208" "0 34.209 64"
"exgrid-0.45-0.4" "1.2141516 3.4541516 208" "0 34.209 64"
"exgrid-0.5-0.4" "1.2141562 3.4491562 208" "0 34.209 64"
"exgrid-0.55-0.4" "1.2141699 3.4491699 208" "0 34.209 64"
"exgrid-0.6-0.4" "1.2142394 3.4492394 208" "0 34.209 64"
}
array set plots {
"Density of states at Vg=0 and Vd=0.4" exgrid-0-0.4
"Density of states at Vg=0.05 and Vd=0.4" exgrid-0.05-0.4
"Density of states at Vg=0.1 and Vd=0.4" exgrid-0.1-0.4
"Density of states at Vg=0.15 and Vd=0.4" exgrid-0.15-0.4
"Density of states at Vg=0.2 and Vd=0.4" exgrid-0.2-0.4
"Density of states at Vg=0.25 and Vd=0.4" exgrid-0.25-0.4
"Density of states at Vg=0.3 and Vd=0.4" exgrid-0.3-0.4
"Density of states at Vg=0.35 and Vd=0.4" exgrid-0.35-0.4
"Density of states at Vg=0.4 and Vd=0.4" exgrid-0.4-0.4
"Density of states at Vg=0.45 and Vd=0.4" exgrid-0.45-0.4
"Density of states at Vg=0.5 and Vd=0.4" exgrid-0.5-0.4
"Density of states at Vg=0.55 and Vd=0.4" exgrid-0.55-0.4
"Density of states at Vg=0.6 and Vd=0.4" exgrid-0.6-0.4
}
foreach { name x y } $meshes {
blt::mesh create regular $name -x $x -y $y
}
set table [blt::datatable create]
$table import csv -file ./data/omw.csv
set labels [$table row values 0]
$table column labels $labels
$table row delete 0
$table column type @all double
set count 0
blt::contour .g -highlightthickness 0
.g element create myContour -color blue
.g isoline steps 10 -element myContour
.g legend configure -hide yes
.g axis configure z -palette $palette
proc UpdateColors {} {
global usePaletteColors
if { $usePaletteColors } {
.g element configure myContour -color palette -fill palette
} else {
.g element configure myContour -color black -fill red
}
}
proc UpdateAxis {} {
global useLogScale
.g axis configure z -logscale $useLogScale
}
proc Fix { what } {
global show elem
set bool $show($what)
.g element configure myContour -show$what $bool
}
array set show {
boundary 0
values 0
symbols 0
isolines 0
colormap 0
symbols 0
wireframe 0
}
blt::tk::checkbutton .boundary -text "Boundary" -variable show(boundary) \
-command "Fix boundary"
blt::tk::checkbutton .wireframe -text "Wireframe" -variable show(wireframe) \
-command "Fix wireframe"
blt::tk::checkbutton .colormap -text "Colormap" \
-variable show(colormap) -command "Fix colormap"
blt::tk::checkbutton .isolines -text "Isolines" \
-variable show(isolines) -command "Fix isolines"
blt::tk::checkbutton .values -text "Values" \
-variable show(values) -command "Fix values"
blt::tk::checkbutton .symbols -text "Symbols" \
-variable show(symbols) -command "Fix symbols"
blt::tk::label .label -text ""
blt::tk::checkbutton .palette -text "Use palette colors" \
-variable usePaletteColors -command "UpdateColors"
blt::tk::checkbutton .logscale -text "Log scale" \
-variable useLogScale -command "UpdateAxis"
blt::table . \
0,0 .label -fill x \
1,0 .g -fill both -rowspan 9 \
1,1 .boundary -anchor w \
2,1 .colormap -anchor w \
3,1 .isolines -anchor w \
4,1 .wireframe -anchor w \
5,1 .symbols -anchor w \
6,1 .values -anchor w \
7,1 .palette -anchor w \
8,1 .logscale -anchor w
blt::table configure . r* c1 -resize none
blt::table configure . r9 -resize both
foreach key [array names show] {
set show($key) [.g element cget myContour -show$key]
}
proc NextPlot { column } {
global table plots
set label [$table column label $column]
.g element configure myContour -values [list $table $column] \
-mesh $plots($label)
.label configure -text "$label"
incr column
if { $column == [$table numcolumns] } {
set column 0
}
after 100 NextPlot $column
}
NextPlot 0
Blt_ZoomStack .g
|
