32 lines
1.0 KiB
Tcl
32 lines
1.0 KiB
Tcl
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
|
|
}
|