proc MOM_nurbs_move {} {
#_______________________________________________________________________________
# This procedure is executed for each nurbs move.
#_______________________________________________________________________________
global mom_nurbs_knot_count
global mom_nurbs_point_count
global mom_nurbs_order
global nurbs_knot_count
global nurbs_precision
global nurbs_move_flag
global anchor_flag
if {![info exists nurbs_move_flag]} {
MOM_output_literal "G05 P10000"
set nurbs_move_flag 1
}
FEEDRATE_SET
if {![info exists anchor_flag]} {
MOM_do_template anchor_point
set anchor_flag 0
}
set nurbs_knot_count 0
MOM_force once G_motion order X Y Z
while {$nurbs_knot_count < $mom_nurbs_point_count} {
MOM_do_template nurbs
set nurbs_knot_count [expr $nurbs_knot_count + 1]
}
while {$nurbs_knot_count < $mom_nurbs_knot_count} {
MOM_do_template knots
set nurbs_knot_count [expr $nurbs_knot_count + 1]
}
}