clear all;
clc;

Room.LowerLeftCorner  =  [ 0 , 0 ];
Room.Length           =  200;
Room.Width            =  100;
Room.X  =  [ Room.LowerLeftCorner(1) , Room.LowerLeftCorner(1)+Room.Length , Room.LowerLeftCorner(1)+Room.Length , Room.LowerLeftCorner(1) ];
Room.Y  =  [ Room.LowerLeftCorner(2) , Room.LowerLeftCorner(2) , Room.LowerLeftCorner(2)+Room.Width , Room.LowerLeftCorner(2)+Room.Width ];
Room.X(end+1)  =  Room.X(1);  % to have a close curve
Room.Y(end+1)  =  Room.Y(1);  

Target.Schrank  =  [ 0 , 75 ];
Target.Length           =  25;
Target.Width            =  25;
Target.X1  =  [ Target.Schrank(1) , Target.Schrank(1)+Target.Length , Target.Schrank(1)+Target.Length , Target.Schrank(1) ];
Target.Y1  =  [ Target.Schrank(2) , Target.Schrank(2) , Target.Schrank(2)+Target.Width , Target.Schrank(2)+Target.Width ];
Target.X1(end+1)  =  Target.X1(1);  
Target.Y1(end+1)  =  Target.Y1(1);  

Target.Couch  =  [ 75 , 0 ];
Target.Length           =  25;
Target.Width            =  15;
Target.X2  =  [ Target.Couch(1) , Target.Couch(1)+Target.Length , Target.Couch(1)+Target.Length , Target.Couch(1) ];
Target.Y2  =  [ Target.Couch(2) , Target.Couch(2) , Target.Couch(2)+Target.Width , Target.Couch(2)+Target.Width ];
Target.X2(end+1)  =  Target.X2(1); 
Target.Y2(end+1)  =  Target.Y2(1); 

Target.chair  =  [ 140 , 40 ];
Target.Length           =  40;
Target.Width            =  25;
Target.X3  =  [ Target.chair(1) , Target.chair(1)+Target.Length , Target.chair(1)+Target.Length , Target.chair(1) ];
Target.Y3  =  [ Target.chair(2) , Target.chair(2) , Target.chair(2)+Target.Width , Target.chair(2)+Target.Width ];
Target.X3(end+1)  =  Target.X3(1); 
Target.Y3(end+1)  =  Target.Y3(1); 

figure(1); hold on; box on; axis equal;
Something  =  20;
xlim([ min(Room.X)-Something , max(Room.X)+Something ])
ylim([ min(Room.Y)-Something , max(Room.Y)+Something ])
plot( Room.X   , Room.Y   , 'k' )
plot( Target.X1 , Target.Y1 , 'b' )
plot( Target.X2 , Target.Y2 , 'b' )
plot( Target.X3 , Target.Y3 , 'b' )
% fill( Target.X , Target.Y , 'y' )