Newport XPS-Q8 - Page 53

XPS-Q8 Tcl Manual
set code [catch "GroupJogParametersSet $socketID $Moteur 10 50 -10
50"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
puts $telnetOut " X positioner going in positive direction during 2
sec"
flush $telnetOut
puts $telnetOut " Y positioner going in negative direction during 2
sec"
flush $telnetOut
puts $telnetOut " X positioner speed = 10 / Acceleration = 50"
flush $telnetOut
puts $telnetOut " Y positioner speed = -10 / Acceleration = 50"
flush $telnetOut
# Wait 2 seconds
after 2000
# Set jog parameters to move both positioners in the reverse
# sense
set code [catch "GroupJogParametersSet $socketID $Moteur -10 50 20
50"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
puts $telnetOut " X positioner going in negative direction during 2
sec"
flush $telnetOut
puts $telnetOut " Y positioner going in positive direction during 2
sec"
flush $telnetOut
puts $telnetOut " X positioner speed = -10 / Acceleration = 50"
flush $telnetOut
puts $telnetOut " Y positioner speed = 20 / Acceleration = 50"
flush $telnetOut
# Wait 2 seconds
after 2000
# Set jog parameters to move both positioners in the negative
# direction
set code [catch "GroupJogParametersSet $socketID $Moteur -5 50 -5
50"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupJogParametersSet"
$telnetOut
return
}
puts $telnetOut "X and Y positioners going in negative direction during
500 msec"
flush $telnetOut
puts $telnetOut "X and positioner speed = -5 / Acceleration = 50"
flush $telnetOut
# Wait 500 milliseconds
after 500
EDH0307En1041 — 10/17
47