drowRect

 Drows rectancle around x and y in direction v

0001 
0002 function a = drowRect(x,y)
0003 % Drows rectancle around x and y in direction v
0004 
0005 a = 10;
0006 b = 6;
0007 c = 6;
0008 r = 1;
0009 
0010 plot(x,(y-(b/2)-2.5),'*','LineWidth',2,...
0011                 'MarkerEdgeColor','r',...
0012                 'MarkerFaceColor','r',...
0013                 'MarkerSize',5), hold on  
0014             
0015 X1 = [x-a/2; x+a/2];
0016 Y1 = [y+b/2; y+b/2];
0017 plot(X1,Y1 ,'red', 'LineWidth',2,...
0018                 'MarkerEdgeColor','r',...
0019                 'MarkerFaceColor','r',...
0020                 'MarkerSize',5)    
0021 
0022 X2 = [x+a/2; x+a/2];
0023 Y2 = [y-b/2; y+b/2];
0024 plot(X2,Y2, 'red', 'LineWidth',2,...
0025                 'MarkerEdgeColor','r',...
0026                 'MarkerFaceColor','r',...
0027                 'MarkerSize',5)      
0028 
0029 X3 = [x-a/2; x-a/2];
0030 Y3 = [y+b/2; y-b/2];
0031 plot(X3,Y3, 'red', 'LineWidth',2,...
0032                 'MarkerEdgeColor','r',...
0033                 'MarkerFaceColor','r',...
0034                 'MarkerSize',5)    
0035 
0036 X4 = [x-a/2; x+a/2];
0037 Y4 = [y-b/2; y-b/2];
0038 plot(X4,Y4, 'red', 'LineWidth',2,...
0039                 'MarkerEdgeColor','r',...
0040                 'MarkerFaceColor','r',...
0041                 'MarkerSize',5)    
0042 
0043 alfa1 = [(pi/2):0.001:(3*pi/2)];
0044 xr1 = r.*cos(alfa1) + (x-(c/2)).*ones(size(alfa1));
0045 yr1 = r.*sin(alfa1) + y.*ones(size(alfa1));
0046 plot(xr1',yr1', 'red')
0047 
0048 alfa2 = [(-pi/2):0.001:(pi/2)];
0049 xr2 = r.*cos(alfa2) + (x+(c/2)).*ones(size(alfa2));
0050 yr2 = r.*sin(alfa2) + y.*ones(size(alfa2));
0051 plot(xr2',yr2', 'red')
0052 
0053 X6 = [x-(c/2); x+(c/2)];
0054 Y6 = [y-1; y-1];
0055 plot(X6,Y6, 'red')
0056 
0057 X7 = [x-(c/2); x+(c/2)];
0058 Y7 = [y+1; y+1];
0059 plot(X7,Y7, 'red')
0060 
0061 
0062