function robot(x,y,teta)

c=cos(teta);
s=sin(teta);
T=[ c, -s, 0 x;
    s,  c, 0 y;
    0,  0, 1 0;
    0   0  0 1
];

P1 = T*[-85/2  0   0 1]';
P2 = T*[0     30   0 1]';
P3 = T*[85/2   0  0 1]';

x_chasis = [P1(1) P2(1) P3(1) P1(1)];
y_chasis = [P1(2) P2(2) P3(2) P1(2)];

#-- Draw the robot
plot(x_chasis,y_chasis,"-");

#-- Set other atributes
axis([-500 500 -500 500],"equal");
grid ("on");
#axis("off");

