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
|