Newport XPS-Q8 - Page 64

XPS-Q8 Tcl Manual
}
# Initialize group
set code [catch "GroupInitialize $socketID $group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupInitialize"
$telnetOut
return
}
# Home group
set code [catch "GroupHomeSearch $socketID $group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupHomeSearch"
$telnetOut
return
}
# Loop until the number of cycles
for { set i 0} {($i < $cycles) } {incr i} {
# Move group to start position
set code [catch "GroupMoveAbsolute $socketID $group
$startpos"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupMoveAbsolute"
$telnetOut
return
}
# Move group to end position
set code [catch "GroupMoveAbsolute $socketID $group $endpos"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupMoveAbsolute"
$telnetOut
return
}
}
# Close TCP socket
set code [catch "TCP_CloseSocket $socketID"]
}
EDH0307En1041 — 10/17
58