Changeset 90 for sans/utils/bt5/tilt/tilt

Timestamp:

Apr 17, 2007 12:43:01 PM (16 years ago)

Author:

ajj

Message:

Added Init code to set motor channel and velocity and print some info.

File:

• sans/utils/bt5/tilt/tilt (modified) (2 diffs)

sans/utils/bt5/tilt/tilt

@@ -71 +71 @@
 pack .fmain -fill both -expand true -anchor nw
 
+exp_send "\r"
+expect -re ">" { $tf.output insert end $expect_out(buffer)
+                exec_cmd "VER" 
+                }
+expect -re ">" { $tf.output insert end $expect_out(buffer)
+                 exec_cmd "CHL A1=0" 
+                }
+expect -re ">" { $tf.output insert end $expect_out(buffer)
+                exec_cmd "VEL A1 0=100" 
+                }
+expect -re ">" { $tf.output insert end $expect_out(buffer)
+                exec_cmd "VEL A1 0" 
+                }
+expect -re ">" { $tf.output insert end $expect_out(buffer)
+                exec_cmd "ACC A1 0" 
+                }
+expect -re ">" { $tf.output insert end $expect_out(buffer) }
+
 expect_background {
         -re ">" {
@@ -79 +97 @@
         }
 }               
-
-exp_send "\r"