P2d_T CWfwDoc::SetCrsAgl(double x, double y) {
  P2d_T agl = m_crsAglCrr;
  PshCrs();
  m_crsAglCrr.x = fmod(x + STD2PI          ,STD2PI);
  m_crsAglCrr.y = fmod(y + STD2PI + STDPI_2,STD2PI);
  if(ISEQU(m_crsAglCrr.x,m_crsAglCrr.y)  || ISEQU(fmod(m_crsAglCrr.x,STDPI),fmod(m_crsAglCrr.y,STDPI))) {     
    // colinear cursor lines are not applicable force orthogonal
    m_crsAglCrr.y = m_crsAglCrr.x + STDPI_2;         
  }
  PopCrs();
  return(agl);
}