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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
|
# Copyright (C) 1999-2016
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc GraphDef {} {
global igraph
global pgraph
set igraph(horz,id) 0
set igraph(vert,id) 0
set igraph(size) 150
set igraph(gap,x) 50
set igraph(gap,y) 25
set igraph(x,min) 0
set igraph(x,max) 10
set igraph(y,min) 1
set igraph(y,max) 100
global graphHorzX graphHorzY
global graphVertX graphVertY
global histX histY
blt::vector create graphHorzX graphHorzY
blt::vector create graphVertX graphVertY
blt::vector create histX histY
# prefs only
set pgraph(horz,grid) 1
set pgraph(horz,log) false
set pgraph(vert,grid) 1
set pgraph(vert,log) false
}
proc CreateGraphs {} {
global igraph
global ds9
global canvas
# Horizontal Graph
set ds9(graph,horz) [blt::graph $ds9(main).horz \
-width $canvas(width) -height $igraph(size) \
-takefocus 0 \
-background $ds9(bg) \
-highlightthickness 0 \
-plotborderwidth 2 \
-plotrelief groove \
-plotbackground $ds9(bg) \
-font [font actual TkDefaultFont] \
]
# we need to manually set the element foreground color, i.e. use graph fg
set fgcolor [$ds9(graph,horz) cget -foreground]
$ds9(graph,horz) legend configure -hide yes
$ds9(graph,horz) crosshairs configure -color green
$ds9(graph,horz) xaxis configure -hide no -showticks no -bg $ds9(bg)
$ds9(graph,horz) x2axis configure -hide yes
$ds9(graph,horz) yaxis configure -hide yes
$ds9(graph,horz) y2axis configure -hide no -bg $ds9(bg) \
-tickfont [font actual TkDefaultFont]
$ds9(graph,horz) element create line1 -xdata graphHorzX -ydata graphHorzY \
-color $fgcolor -symbol none
bind $ds9(graph,horz) <Enter> [list EnterGraph $ds9(graph,horz) 1]
bind $ds9(graph,horz) <Leave> [list LeaveGraph $ds9(graph,horz)]
bind $ds9(graph,horz) <Button-1> \
[list MotionGraph $ds9(graph,horz) %x %y 1]
bind $ds9(graph,horz) <B1-Motion> \
[list MotionGraph $ds9(graph,horz) %x %y 1]
bind $ds9(graph,horz) <Up> [list ArrowKeyGraph $ds9(graph,horz) 0 -1 1]
bind $ds9(graph,horz) <Down> [list ArrowKeyGraph $ds9(graph,horz) 0 1 1]
bind $ds9(graph,horz) <Left> [list ArrowKeyGraph $ds9(graph,horz) -1 0 1]
bind $ds9(graph,horz) <Right> [list ArrowKeyGraph $ds9(graph,horz) 1 0 1]
# Vertical Graph
set ds9(graph,vert) [blt::graph $ds9(main).vert \
-width $igraph(size) -height $canvas(height) \
-invertxy yes \
-takefocus 0 \
-background $ds9(bg) \
-highlightthickness 0 \
-plotrelief groove \
-plotborderwidth 2 \
-plotbackground $ds9(bg)
]
$ds9(graph,vert) legend configure -hide yes
$ds9(graph,vert) crosshairs configure -color green
$ds9(graph,vert) xaxis configure -hide yes -descending yes
$ds9(graph,vert) x2axis configure -hide no -descending yes \
-showticks no -bg $ds9(bg)
$ds9(graph,vert) yaxis configure -hide no -descending yes \
-bg $ds9(bg) -tickfont [font actual TkDefaultFont]
$ds9(graph,vert) y2axis configure -hide yes -descending yes
$ds9(graph,vert) element create line1 -xdata graphVertX -ydata graphVertY \
-color $fgcolor -symbol none
bind $ds9(graph,vert) <Enter> [list EnterGraph $ds9(graph,vert) 0]
bind $ds9(graph,vert) <Leave> [list LeaveGraph $ds9(graph,vert)]
bind $ds9(graph,vert) <Button-1> \
[list MotionGraph $ds9(graph,vert) %x %y 0]
bind $ds9(graph,vert) <B1-Motion> \
[list MotionGraph $ds9(graph,vert) %x %y 0]
bind $ds9(graph,vert) <Up> [list ArrowKeyGraph $ds9(graph,vert) 0 -1 0]
bind $ds9(graph,vert) <Down> [list ArrowKeyGraph $ds9(graph,vert) 0 1 0]
bind $ds9(graph,vert) <Left> [list ArrowKeyGraph $ds9(graph,vert) -1 0 0]
bind $ds9(graph,vert) <Right> [list ArrowKeyGraph $ds9(graph,vert) 1 0 0]
UpdateGraphGrid
}
proc UpdateGraphFont {} {
global ds9
$ds9(graph,horz) y2axis configure -tickfont [font actual TkDefaultFont]
$ds9(graph,vert) yaxis configure -tickfont [font actual TkDefaultFont]
}
proc UpdateGraphGrid {} {
global pgraph
global ds9
$ds9(graph,horz) xaxis configure -grid $pgraph(horz,grid) -tickdefault 4
$ds9(graph,horz) y2axis configure -grid $pgraph(horz,grid)
$ds9(graph,vert) x2axis configure -grid $pgraph(vert,grid)
$ds9(graph,vert) yaxis configure -grid $pgraph(vert,grid) -tickdefault 4
}
proc UpdateGraphXAxis {which} {
global ds9
global view
global debug
if {$debug(tcl,update)} {
puts stderr "UpdateGraphXAxis"
}
if {$view(graph,horz)} {
UpdateGraphXAxisHV $which $ds9(graph,horz) graphHorzX graphHorzY 1
}
if {$view(graph,vert)} {
UpdateGraphXAxisHV $which $ds9(graph,vert) graphVertX graphVertY 0
}
}
proc UpdateGraphXAxisHV {which what vectorX vectorY cut} {
global igraph
global graphHorzX graphHorzY
global graphVertX graphVertY
if {$which != {}} {
set xMin [expr "$$vectorX\(min\)"]
set xMax [expr "$$vectorX\(max\)"]
$what xaxis configure -min $xMin -max $xMax
$what x2axis configure -min $xMin -max $xMax
} else {
$what xaxis configure -min $igraph(x,min) -max $igraph(x,max)
$what x2axis configure -min $igraph(x,min) -max $igraph(x,max)
}
}
proc UpdateGraphYAxis {which} {
global pgraph
global ds9
global view
global debug
if {$debug(tcl,update)} {
puts stderr "UpdateGraphYAxis"
}
if {$view(graph,horz)} {
UpdateGraphYAxisHV $which $ds9(graph,horz) $pgraph(horz,log)
}
if {$view(graph,vert)} {
UpdateGraphYAxisHV $which $ds9(graph,vert) $pgraph(vert,log)
}
}
proc UpdateGraphYAxisHV {which what log} {
global igraph
if {$which != {}} {
set minmax [$which get clip]
set yMin [lindex $minmax 0]
set yMax [lindex $minmax 1]
# must use .eq. since "nan" is a legal double value
if {$yMin eq "nan" || $yMax eq "nan"} {
set yMin 0
set yMax 1
}
if {$yMin >= $yMax} {
set yMax [expr $yMin + 1]
}
$what yaxis configure -min $yMin -max $yMax -logscale $log -tickdefault 4
$what y2axis configure -min $yMin -max $yMax -logscale $log -tickdefault 4
} else {
$what yaxis configure -min $igraph(y,min) -max $igraph(y,max) \
-logscale $log -tickdefault 4
$what y2axis configure -min $igraph(y,min) -max $igraph(y,max) \
-logscale $log -tickdefault 4
}
}
proc ShowGraphData {which} {
global ds9
global view
if {$view(graph,horz)} {
ShowGraphDataHV $which $ds9(graph,horz)
}
if {$view(graph,vert)} {
ShowGraphDataHV $which $ds9(graph,vert)
}
}
proc ShowGraphDataHV {which what} {
if {$which != {}} {
if {[$which has fits]} {
$what element configure line1 -hide no
} else {
$what element configure line1 -hide yes
}
} else {
$what element configure line1 -hide yes
}
}
proc ClearGraphData {} {
global ds9
global view
if {$view(graph,horz)} {
$ds9(graph,horz) element configure line1 -hide yes
}
if {$view(graph,vert)} {
$ds9(graph,vert) element configure line1 -hide yes
}
}
proc UpdateGraph {which x y sys} {
global ds9
global view
if {[$which has fits]} {
if {$view(graph,horz)} {
if {![catch {$which get horizontal cut graphHorzX graphHorzY $x $y $sys}]} {
$ds9(graph,horz) element configure line1 -hide no
} else {
$ds9(graph,horz) element configure line1 -hide yes
}
}
if {$view(graph,vert)} {
if {![catch {$which get vertical cut graphVertX graphVertY $x $y $sys}]} {
$ds9(graph,vert) element configure line1 -hide no
} else {
$ds9(graph,vert) element configure line1 -hide yes
}
}
}
}
proc EnterGraph {which horz} {
global current
focus $which
$which crosshairs on
if {$current(frame) != {}} {
switch $current(mode) {
crosshair -
analysis {
set x [$which crosshairs cget -x]
set y [$which crosshairs cget -y]
set coord [$current(frame) get crosshair canvas]
set X [lindex $coord 0]
set Y [lindex $coord 1]
if {$horz} {
EnterInfoBox $current(frame)
UpdateInfoBox $current(frame) $x $Y canvas
UpdatePixelTableDialog $current(frame) $x $Y canvas
} else {
EnterInfoBox $current(frame)
UpdateInfoBox $current(frame) $X $y canvas
UpdatePixelTableDialog $current(frame) $X $y canvas
}
}
}
}
}
proc LeaveGraph {which} {
focus {}
$which crosshairs off
LeaveInfoBox
PixelTableClearDialog
}
proc MotionGraph {which x y horz} {
global current
$which crosshairs configure -x $x -y $y
if {$current(frame) != {}} {
switch $current(mode) {
crosshair -
analysis {
set coord [$current(frame) get crosshair canvas]
set X [lindex $coord 0]
set Y [lindex $coord 1]
if {$horz} {
UpdateInfoBox $current(frame) $x $Y canvas
UpdatePixelTableDialog $current(frame) $x $Y canvas
} else {
UpdateInfoBox $current(frame) $X $y canvas
UpdatePixelTableDialog $current(frame) $X $y canvas
}
}
}
}
}
proc ArrowKeyGraph {which x y horz} {
set cx [$which crosshairs cget -x]
set cy [$which crosshairs cget -y]
set cx [expr $cx+$x]
set cy [expr $cy+$y]
MotionGraph $which $cx $cy $horz
}
proc LayoutGraphs {} {
global igraph
global ds9
global canvas
global view
global colorbar
global icolorbar
set cbh [expr $view(colorbar) && \
[string equal $colorbar(orientation) {horizontal}]]
set cbv [expr $view(colorbar) && \
[string equal $colorbar(orientation) {vertical}]]
set grh [expr $view(graph,horz)]
set grv [expr $view(graph,vert)]
if {$grh} {
set xx 0
set yy [expr $canvas(height) + $canvas(gap)]
if {$cbh} {
incr yy $icolorbar(horizontal,height)
}
if {$grv && !$cbh} {
incr yy $igraph(gap,y)
}
if {$igraph(horz,id) == 0} {
set igraph(horz,id) [$ds9(canvas) create window $xx $yy \
-window $ds9(graph,horz) -anchor nw]
} else {
$ds9(canvas) coords $igraph(horz,id) $xx $yy
}
set ww [expr $canvas(width)+$igraph(gap,x)]
$ds9(graph,horz) configure -width $ww
} else {
if {$igraph(horz,id)>0} {
$ds9(canvas) delete $igraph(horz,id)
set igraph(horz,id) 0
}
}
if {$grv} {
set yy 0
set xx [expr $canvas(width) + $canvas(gap)]
if {$cbv} {
incr xx $icolorbar(vertical,width)
}
if {$grh && !$cbv} {
incr xx $igraph(gap,x)
}
if {$igraph(vert,id) == 0} {
set igraph(vert,id) [$ds9(canvas) create window $xx $yy \
-window $ds9(graph,vert) -anchor nw]
} else {
$ds9(canvas) coords $igraph(vert,id) $xx $yy
}
set hh [expr $canvas(height)+$igraph(gap,y)]
$ds9(graph,vert) configure -height $hh
} else {
if {$igraph(vert,id)>0} {
$ds9(canvas) delete $igraph(vert,id)
set igraph(vert,id) 0
}
}
}
|