linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make bmonscan graphics view info independent of the bmonscan feedback.

Browse Source 
r1715 | ffr | 2007-03-24 14:44:03 +1100 (Sat, 24 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-24 14:44:03 +11:00
committed by Douglas Clowes
parent 7efec40cc6
commit 4568b365a6
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
site_ansto/instrument/config/scan/scan_common_1.tcl
View File

@ -14,6 +14,7 @@ variable bmonscanvar_axis_hpath
# we use this to get auto-notification on update of bmonscancounts_array_hpath
variable bmonscancounts_array_hpath
# bmonscan setup parameters and feedback variables.
VarMake bmonscan_var_name Text User
VarMake bmonscan_var_value Float User
VarMake bmonscan_var_start Float User
@ -26,6 +27,11 @@ VarMake bmonscan_counts Int User
VarMake bmonscan_numchannels Int User
VarMake bmonscan_channel Int User
# bmonscan graphdata variables.
VarMake bmonscan_np_graphics_target Int User
VarMake bmonscan_point_graphics_current Int User
VarMake bmonscan_var_graphics_value Float User
VarMake hmscan_var_name Text User
VarMake hmscan_var_value Float User
VarMake hmscan_var_start Float User
@ -102,11 +108,13 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
proc bm_writepoint {sobj uobj pt} {
variable bmoncounts_array
set counts [SplitReply [bm getcounts]]
bmonscan_counts $counts
# lappend bmoncounts_array $counts
set bmoncounts_array [string map {\{ "" \} ""} [SplitReply [bmonscan getcounts]]];
write_nxentry bm_addnxscanentry $pt;
bmonscan_counts [SplitReply [bm getcounts]]
bmonscan_np_graphics_target [SplitReply [bmonscan_np_target]]
bmonscan_point_graphics_current [SplitReply [bmonscan_point_current]]
bmonscan_var_graphics_value [SplitReply [bmonscan_var_value]]
}
#TODO Feedback for Histogram memory scan
@ -234,9 +242,9 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
hsetprop $parent/beam_monitor_scan type graphdata;
hsetprop $parent/beam_monitor_scan viewer default;
hsetprop $parent/beam_monitor_scan rank 1;
hattach $parent/beam_monitor_scan bmonscan_np_target dim;
hattach $parent/beam_monitor_scan bmonscan_point_current point;
hattach $parent/beam_monitor_scan bmonscan_var_value lastaxis
hattach $parent/beam_monitor_scan bmonscan_np_graphics_target dim;
hattach $parent/beam_monitor_scan bmonscan_point_graphics_current point;
hattach $parent/beam_monitor_scan bmonscan_var_graphics_value lastaxis
hattach $parent/beam_monitor_scan bmonscan_counts lastdata
hmakescript $bmonscanvar_axis_hpath "set ::scancommand::bmoncounts_axis" hdbReadOnly floatvarar $defdim
hsetprop $bmonscanvar_axis_hpath type axis