Practica2_Robotstudio

PROC rutina1()
        ! Quadrat 40x40
                ! Quadrat 40x40
                MoveJ p10, v1000, fine, MyTool;
                MoveL Offs(p10,0,-40,0), v1000, fine, MyTool;
                MoveL Offs(p10,40,-40,0), v1000, fine, MyTool;
                MoveL Offs(p10,40,0,0), v1000, fine, MyTool;
                MoveL Offs(p10,0,0,0), v1000, fine, MyTool;
                MoveJ p40, v1000, z50, MyTool;
                WaitTime 2;
        ! Quadrat 80x80
                MoveL Offs(p10,0,-70,0), v1000, fine, MyTool;
                MoveL Offs(p10,0,-150,0), v1000, fine, MyTool;
                MoveL Offs(p10,80,-150,0), v1000, fine, MyTool;
                MoveL Offs(p10,80,-70,0), v1000, fine, MyTool;
                MoveL Offs(p10,0,-70,0), v1000, fine, MyTool;
                MoveJ p40, v1000, z50, MyTool;
                WaitTime 4;
        ! Quadrat 120x120
                MoveL Offs(p10,0,-180,0), v1000, fine, MyTool;
                MoveL Offs(p10,0,-300,0), v1000, fine, MyTool;
                MoveL Offs(p10,120,-300,0), v1000, fine, MyTool;
                MoveL Offs(p10,120,-180,0), v1000, fine, MyTool;
                MoveL Offs(p10,0,-180,0), v1000, fine, MyTool;
                MoveJ p40, v1000, z50, MyTool;
    ENDPROC