Added some comments.

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

View File

@@ -5,6 +5,8 @@ puts "# !!- AUTOGENERATED FROM $args(-f) -!!"
puts "# !!- DO NOT MODIFY -!!"
puts "# [clock format [clock seconds] -format %c]\n"
# Use 'unknown' to suppress commands which refer to ansto specfic
# motor parameters.
proc unknown {args} {
set param [lindex $args 1];
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
# Duplicate any proc definitions
proc my_proc {args} {puts "proc $args"}
# Generate a SIM motor definition a DMC2280 motor definition.
proc Motor {name type par} {
global motors
upvar #0 $par arr