linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stickrot script

Browse Source
This commit is contained in:
l_samenv
2022-08-22 15:26:45 +02:00
parent 99db0c6bb4
commit 1cef94cbd2
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tcl/stickrot.tcl Normal file
View File

@ -0,0 +1,20 @@
# make the sample stick rotation using the phytron motor controller
# stickname may contain the name of the object (dom is default)
# stickconn may contain an example of a connection used in the error message when disconnected
if {![info exists stickname]} {
set stickname sr
}
if {![info exists stickconn]} {
set stickconn ma11-ts:3005
}
source phytron.tcl
if {[sicsdescriptor stickrot] eq "notfound"} {
makesctcontroller stickrot phytron unconnected 0.5
phytron::make $stickname X stickrot -360 360 0
}
silent 0 stickrot reconnectinterval 0
stickrot disconnect
hsetprop /sics/stickrot/reconnect __save true
hsetprop /sics/$stickname offline_msg "disconnected - use e.g. '$stickname connect $stickconn'"
hsetprop /sics/$stickname refused_msg "controller is already connected by someone else\nERROR: use '$stickname disconnect' on the instrument where this device was last used"