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

Merged RELEASE-1_1 back into trunk.

Browse Source 
r1836 | ffr | 2007-04-06 19:10:02 +1000 (Fri, 06 Apr 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-04-06 19:10:02 +10:00
committed by Douglas Clowes
parent 79ac59740f
commit e7324b8335
21 changed files with 1828 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
site_ansto/instrument/hrpd/config/nexus/nxscripts.tcl
View File

@@ -1 +1,31 @@
source $cfPath(nexus)/nxscripts_common_1.tcl
proc put2Dpolar_angle {nxobj point dim0 dim1} {
global det_height hmm_mode;
set det_radius_mm [SplitReply [detector_radius_mm]]
set det_angle_rad [SplitReply [detector_angle_rad]]
set det_active_ht_mm [SplitReply [detector_active_height_mm]]
set det_rot_rad [ expr [SplitReply [stth]]/[SplitReply [deg_per_rad]] ]
set row_zero [ SplitReply [detector_zero_row]]
set row_offset [ SplitReply [detector_ROI_row_offset]]
set col_zero [ SplitReply [detector_zero_col]]
set col_offset [ SplitReply [detector_ROI_col_offset]]
switch $hmm_mode {
pulser {
set folding 0;
set poladim 2;
}
calibration {
set folding 0;
set poladim 2;
}
normal -
default {
set folding 1;
set poladim 2;
}
}
set angsep [expr $det_angle_rad / ($dim1-1)]
$nxobj putpolararray dtheta [list $point 0 0] [list 1 $dim0 $dim1] $folding $poladim $det_radius_mm $angsep $det_active_ht_mm $det_rot_rad $row_zero $row_offset $col_zero $col_offset $dim0 $dim1
}