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

Cosmetic changes.

Browse Source 
r2164 | ffr | 2007-09-26 16:19:39 +1000 (Wed, 26 Sep 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-09-26 16:19:39 +10:00
committed by Douglas Clowes
parent f78b9cefd3
commit 7722ccaff3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/config/hmm/hmm_cylindrical_detector_configuration.tcl
View File

@@ -18,8 +18,8 @@ namespace eval histogram_memory {
return [calc_axis $proc_name @none @none @none $opt $args] return [calc_axis $proc_name @none @none @none $opt $args]
} }
"-arrayname" { "-arrayname" {
set max_b [OAT_TABLE -get X_max] set max_b [OAT_TABLE -get X_MAX]
set min_b [OAT_TABLE -get X_min] set min_b [OAT_TABLE -get X_MIN]
set scale_factor [expr {$deg_per_radian*($det_width_mm/$det_radius_mm) / ($max_b - $min_b)}] set scale_factor [expr {$deg_per_radian*($det_width_mm/$det_radius_mm) / ($max_b - $min_b)}]
set offset [::histogram_memory::detector_posn_degrees] set offset [::histogram_memory::detector_posn_degrees]
return [calc_axis $proc_name $scale_factor $offset [OAT_TABLE -get X_boundaries] $opt $arglist] return [calc_axis $proc_name $scale_factor $offset [OAT_TABLE -get X_boundaries] $opt $arglist]
@@ -28,8 +28,8 @@ namespace eval histogram_memory {
return "degrees" return "degrees"
} }
default { default {
set max_b [OAT_TABLE -get X_max] set max_b [OAT_TABLE -get X_MAX]
set min_b [OAT_TABLE -get X_min] set min_b [OAT_TABLE -get X_MIN]
set scale_factor [expr {$deg_per_radian*($det_width_mm/$det_radius_mm) / ($max_b - $min_b)}] set scale_factor [expr {$deg_per_radian*($det_width_mm/$det_radius_mm) / ($max_b - $min_b)}]
set offset [lindex $arglist 0] set offset [lindex $arglist 0]
return [calc_axis $proc_name $scale_factor $offset [OAT_TABLE -get X_boundaries] $args] return [calc_axis $proc_name $scale_factor $offset [OAT_TABLE -get X_boundaries] $args]