%
% Matlab program som ritar upp en liten figur innehållande ett träd, ett
% hur och en man.
%

% Definiera hörnpunkter till huset. Dörr och Fönster ritas också.

Huset = [ 0.0  9.0 9.0 8.0 10.0 18.0 20.0 19.0 19.0 22.0 
          0.0  0.0 3.5 3.5  4.5  4.5  3.5  3.5  0.0  0.0];
ind = [1 2 3 4 5 6 7 8 3 8 9 2 9 10];  
clf,hold on
plot( Huset(1,ind),Huset(2,ind) )

Dorr = [ 10.0 12.0 12.0 10.0 
          0.0  0.0  2.8  2.8];
ind = [1 2 3 4 1];
plot( Dorr(1,ind),Dorr(2,ind) ,'k-');

Fonster = [  15.5 17.5 17.5 15.5 
              1.5  1.5  2.5  2.5];
ind = [1 2 3 4 1];
plot( Fonster(1,ind),Fonster(2,ind) ,'k-');

axis([0 22 -0.1 4.0]);axis equal;


%
% Nu skapas punkterna som definierar gubben och hur han ritas
% 
 Gubbe = [ 13.0 13.3 13.6 13.3 13.9 13.0 13.3 13.5 13.5 13.6 13.5 13.4 13.1
            0.0  1.2  0.0  1.7  1.8  1.0  1.8  1.9  2.0  2.0   2.1 2.3  2.2];
 ind = [ 1 2 3 2 4 5 4 6 4 7 8 9 10 11 12 13 7];
 
 %
 % Här skall du lägga in eventuella kommandon för att transformera gubbens
 % hörnpunkter innan de ritas upp.
 %
 
 
 
 plot( Gubbe(1,ind),Gubbe(2,ind) ,'k-')

 
%
% Nu skapas punkterna som definierar trädet
%
 Trad = [ 6.5 6.5 6.7 7.4 7.6 7.7 7.7 7.5 7.0 6.6 6.0 5.5 4.8 4.7 4.8 5.3 5.6 5.9 5.9
          0.0 3.0 2.8 2.7 3.0 3.5 3.8 4.3 4.5 4.7 4.7 4.6 4.1 3.4 2.9 2.7 2.8 3.0 0.0];
 ind = [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 1];
 
 

%
% Här läggs kommandon in för att vrida trädet
%
 
 
  plot( Trad(1,ind),Trad(2,ind) ,'g-')
  plot( Trad(1,ind),Trad(2,ind) ,'k--')
 
