A Robot Arm Script
|
Background {1 1 1} Load board.gv Transform {Scale .3} Transform {YZ -$pi/2.5} Transform {XY -$pi/6} Transform {Translate {-2.5 0 -1}} source Robot.tcl Pause 3 ArmTo {2 -.75 1.75} ArmTo {3 -3 .5}; Pause 3 Close; Pause 3 ArmTo {2 1 2.5}; Pause 3 Rotate $pi/2 Down; Pause 3 ArmTo {1 3 .5}; Pause 3 Open; Pause 3 ArmTo {1 0 1.5}; Pause 3 Up |