55347984ec
cvs diff -u -rRELEASE-1_2-MERGEPOINT -rHEAD <filepath> and found no modifications on the trunk between the release 1.2 mergepoint and cvs HEAD r1946 | ffr | 2007-05-08 15:01:16 +1000 (Tue, 08 May 2007) | 4 lines
15 lines
664 B
Tcl
15 lines
664 B
Tcl
source $cfPath(nexus)/nxscripts_common_1.tcl
|
|
proc put_polar_angle {nxobj point dim0 dim1} {
|
|
global det_height;
|
|
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 det_zero_col [ SplitReply [detector_zero_col]]
|
|
set det_last_hor_pixel [SplitReply [detector_last_hor_pixel]]
|
|
set col_zero [expr ($dim1 -1.0)*$det_zero_col/$det_last_hor_pixel]
|
|
|
|
|
|
set angsep [expr $det_angle_rad / ($dim1-1)]
|
|
$nxobj putpolararray dtheta [list $point 0] [list 1 $dim1] $angsep $det_active_ht_mm $det_rot_rad $col_zero $dim0 $dim1
|
|
}
|