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
}