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
}