source $cfPath(nexus)/nxscripts_common_1.tcl

proc addnxscanentry {nxobj entryname scanVariable scanVarPos scanVarStep start_time} {
  global dradius ndect angsep; 
  set dim0 [SplitReply [hmm configure dim0]]
  set dim1 [SplitReply [hmm configure dim1]]
putcommon $nxobj $entryname $scanVariable
putcrystal $nxobj
putmonitor $nxobj
putsample $nxobj
    set scanVar_value [string trim [lindex [split [$scanVariable] =] 1]]
    $nxobj putfloat $scanVariable $scanVar_value
    $nxobj putfloat detangle_degrees [SplitReply [detector_angle_deg]]
    $nxobj puttext estart $start_time
    putpolar_angle $nxobj $dim0 $dim1
    $nxobj puttext dtype [SplitReply [detector_type]]
    $nxobj puttext ddesc [SplitReply [detector_description]]
    $nxobj putfloat dradius [SplitReply [detector_radius_mm]] 
    $nxobj puttext dlayout area
    $nxobj puthm dcounts hmm $hmm_start $hmm_length [hmmdictitemval $histomem bank]
    $nxobj puthm deff hmm
    $nxobj makelink scandata dcounts
    $nxobj makelink scanvertaxis dvaxis
    $nxobj makelink scandata dtheta
    $nxobj makelink scanvar $scanVariable
    $nxobj putfloat scanstep $scanVarStep
    $nxobj puttext eend [sicstime];
}