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

Added some comments.

Browse Source 
r1476 | ffr | 2007-02-13 16:20:09 +1100 (Tue, 13 Feb 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-02-13 16:20:09 +11:00
committed by Douglas Clowes
parent f4a85b93a9
commit 06d35ac3f9
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
site_ansto/instrument/mksim_config.tcl
View File

@@ -5,6 +5,8 @@ puts "# !!- AUTOGENERATED FROM $args(-f) -!!"
puts "# !!- DO NOT MODIFY -!!" puts "# !!- DO NOT MODIFY -!!"
puts "# [clock format [clock seconds] -format %c]\n" puts "# [clock format [clock seconds] -format %c]\n"
# Use 'unknown' to suppress commands which refer to ansto specfic
# motor parameters.
proc unknown {args} { proc unknown {args} {
set param [lindex $args 1]; set param [lindex $args 1];
set nonsim_motpars [list speed home hardlowerlim hardupperlim accel decel maxSpeed minSpeed maxAccel minDecel blockage_check_interval] set nonsim_motpars [list speed home hardlowerlim hardupperlim accel decel maxSpeed minSpeed maxAccel minDecel blockage_check_interval]
@@ -13,8 +15,11 @@ proc unknown {args} {
} }
} }
source ../utility.tcl source ../utility.tcl
# Duplicate any proc definitions
proc my_proc {args} {puts "proc $args"} proc my_proc {args} {puts "proc $args"}
# Generate a SIM motor definition a DMC2280 motor definition.
proc Motor {name type par} { proc Motor {name type par} {
global motors global motors
upvar #0 $par arr upvar #0 $par arr