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

Implement SC (stop code)

Browse Source 
r2523 | dcl | 2008-05-12 11:08:15 +1000 (Mon, 12 May 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-05-12 11:08:15 +10:00
parent fba2b55fb9
commit 1087dcf7ce
2 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl
View File

@@ -1,9 +1,9 @@
#!/usr/bin/tclsh
# $Revision: 1.7 $
# $Date: 2007-11-06 03:49:11 $
# $Revision: 1.8 $
# $Date: 2008-05-12 01:08:15 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
# Last revision by: $Author: dcl $
# Creates fake DMC configuration files based on the instrument
# configuration file.
@@ -70,7 +70,7 @@ proc mkSimAxes {instrument} {
set enPos 0;
set enCnts 0;
}
puts $simFile($IPtoContName($motor(asyncqueue)-$instrument)) "array set $nm \[\list TD 0 TP $enPos BG 0 ST 0 SP $speed AC $acc DC $dec cntsperx $enCnts stepsperx $motor(stepsperx) PA 0 TS 44 \]";
puts $simFile($IPtoContName($motor(asyncqueue)-$instrument)) "array set $nm \[\list SC 1 TD 0 TP $enPos BG 0 ST 0 SP $speed AC $acc DC $dec cntsperx $enCnts stepsperx $motor(stepsperx) PA 0 TS 44 \]";
# eval "lappend $IPtoContName($motor(host))_motors $m";
}