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