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

22
site_ansto/instrument/hipd/config/nexus/nxscripts.tcl
View File

@@ -1 +1,23 @@
source $cfPath(nexus)/nxscripts_common_1.tcl
proc put2Dpolar_angle {nxobj point dim0 dim1} {
global det_height
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]]
set folding 1;
# For 1D use poladim = 1 and rows = 1
# For 2D use poladim = 2 and rows = $dim0
set poladim 2;
set rows $dim0;
set angsep [expr $det_angle_rad / ($dim1-1)]
$nxobj updatedictvar padim0 $rows
$nxobj updatedictvar padim1 $dim1
$nxobj putpolararray dtheta [list $point 0 0] [list 1 $rows $dim1] $folding $poladim $det_radius_mm $angsep $det_active_ht_mm $det_rot_rad $row_zero $row_offset $col_zero $col_offset $dim0 $dim1
}