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



[Link] [Prev]