Practica1_Robotstudio

PROC main()

                        quadrat;
                        triangle;
                        cercle;
                        inici;

            ENDPROC

            PROC quadrat()

                        MoveJ phome, v1000, z50, MyTool;

                        MoveJ p10, v1000, fine, MyTool;

                        MoveL p20, v1000, fine, MyTool;

                        MoveL p30, v1000, fine, MyTool;

                        MoveL p40, v1000, fine, MyTool;

                        MoveL p50, v1000, fine, MyTool;

            ENDPROC

            PROC cercle()

                        MoveJ phome_cercle, v1000, z50, MyTool;

                        MoveJ p200, v1000, fine, MyTool;

                        MoveC p210, p220, v1000, z10, MyTool;

                        MoveC p230, p200, v1000, z10, MyTool;

                        MoveJ phome_cercle, v1000, z50, MyTool;

            ENDPROC

            PROC inici()

                        MoveAbsJ jpos10\NoEOffs, v1000, z50, MyTool;

            ENDPROC

            PROC triangle()

                        MoveJ phome_triangle, v1000, z50, MyTool;

                        MoveJ p300, v1000, fine, MyTool;

                        MoveL p310, v1000, fine, MyTool;

                        MoveL p320, v1000, fine, MyTool;

                        MoveL p330, v1000, fine, MyTool;

                        MoveJ phome_triangle, v1000, z50, MyTool;

            ENDPROC

ENDMODULE