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

Use lowercase for parameter names to be consistant with the rest of SICS.

Browse Source 
r1153 | ffr | 2006-10-16 09:38:34 +1000 (Mon, 16 Oct 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-10-16 09:38:34 +10:00
committed by Douglas Clowes
parent 509ff8036c
commit a1f0d41a1f
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,7 @@
#!/usr/bin/tclsh
# $Revision: 1.1 $
# $Date: 2006-10-12 23:06:05 $
# $Revision: 1.2 $
# $Date: 2006-10-15 23:38:34 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -51,18 +51,18 @@ proc mkSimAxes {} {
set nm $motor(axis);
set ${nm}Pos 0;
set ${nm}stepsPerX 20125;
set speed [expr $motor(stepsPerX) * $motor(maxSpeed)]
set acc [expr $motor(stepsPerX) * $motor(maxAccel)]
set dec [expr $motor(stepsPerX) * $motor(maxDecel)]
if [ info exists motor(absEnc) ] {
set enPos $motor(absEncHome);
set enCnts $motor(cntsPerX);
set ${nm}stepsperx 20125;
set speed [expr $motor(stepsperx) * $motor(maxspeed)]
set acc [expr $motor(stepsperx) * $motor(maxaccel)]
set dec [expr $motor(stepsperx) * $motor(maxdecel)]
if [ info exists motor(absenc) ] {
set enPos $motor(absenchome);
set enCnts $motor(cntsperx);
} else {
set enPos 0;
set enCnts 0;
}
puts $simFile($IPtoContName($motor(host))) "array set $nm \[\list TD 0 TP $enPos SP $speed AC $acc DC $dec cntsPerX $enCnts stepsPerX $motor(stepsPerX) PA 0 TS 44 \]";
puts $simFile($IPtoContName($motor(host))) "array set $nm \[\list TD 0 TP $enPos SP $speed AC $acc DC $dec cntsperx $enCnts stepsperx $motor(stepsperx) PA 0 TS 44 \]";
# eval "lappend $IPtoContName($motor(host))_motors $m";
}