Newport XPS-Q8 - Page 38

XPS-Q8 Tcl Manual
set Displacement 50
set NbPoints 1000
set Div 100
set code 0
# Open TCP socket
set code [catch "OpenConnection $TimeOut socketID"]
if {$code != 0} {
puts $telnetOut "OpenConnection failed => $code"
# Force transfer to channel’s output buffer
flush $telnetOut
} else {
# Kill group
set code [catch "GroupKill $socketID $Group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupKill" $telnetOut
return
}
# 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
}
# Configure gathering parameters
set code [catch "GatheringConfigurationSet $socketID $Type1
$Type2"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GatheringConfigurationSet"
$telnetOut
return
}
# Add an event
set code [catch "EventAdd $socketID $Positioner $Event 0
$Action $NbPoints $Div 0"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "EventAdd" $telnetOut
return
}
# Move positioner
set code [catch "GroupMoveRelative $socketID $Group $Displacement"]
if {$code != 0} {
EDH0307En1041 — 10/17
32