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

Cycle motors through a sequence of positions.

Browse Source 
r1235 | ffr | 2006-11-03 16:19:42 +1100 (Fri, 03 Nov 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-11-03 16:19:42 +11:00
committed by Douglas Clowes
parent 748afaf3f1
commit a3165b0fb2
1 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
site_ansto/instrument/hrpd/Test/cyclebatch.tcl Normal file
View File

@@ -0,0 +1,38 @@
# $Revision: 1.1 $
# $Date: 2006-11-03 05:19:42 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
# Cycle motors
clientput "drive to zero reference"
drive ss2vg 10 ss2hg 10 ss1vg 10 ss1hg 10
drive som 0 ss1vo 0 ss2vo 0 ss2vo 0 ss2ho 0 sphi 0 schi 90 sx 0 sz 0
clientput "zero done"
set starttime [sicstime]
#About 120 iterations per hour
for {set i 0} {$i < 240} {incr i} {
clientput "cycle: $i"
set soff [expr 10 * ($i%2)]
set omega [expr 10 * ($i%5)]
set phi [expr $i%5]
set chi [expr 90 + $i%5]
set xpos [expr $i%5]
set zpos [expr $i%5]
clientput "drive slits to $soff mm"
drive ss1vo $soff ss1ho $soff ss2vo $soff ss2ho $soff
clientput "drive som to $omega degrees"
clientput "drive sphi to $phi degrees"
clientput "drive schi to $chi degrees"
clientput "drive sx to $xpos mm"
clientput "drive sz to $zpos mm"
drive som $omega sphi $phi schi $chi sx $xpos sz $zpos
clientput "drive to zero reference"
drive som 0 ss1vo 0 ss1ho 0 ss2vo 0 ss2ho 0 sphi 0 schi 90 sx 0 sz 0
}
set stoptime [sicstime]
clientput "started: $starttime"
clientput "stopped: $stoptime"