added procedure _rcore_line