% gubbar, familjebild
  clear, clf
  a=0.25;  b=0.75;  h=1.45;
% Ritas: höger arm, vänster arm, kroppen, höger ben, vänster ben
  xg=[a 0 -a 0 0 a 0 -a];
  zg=[b h  b h b 0 b  0];
  r=0.15; v=0:2*pi/20:2*pi;
  xhuv=r*cos(v); zhuv=h+r+r*sin(v); plot(xg,zg, xhuv,zhuv), hold on
  Lm=0.8; plot(Lm+xg,zg, Lm+xhuv,zhuv)              % mamma på avståndet Lm
  xkjol=[0 a -a 0]; zkjol=[(b+h)/2 b/2 b/2 (b+h)/2];      % mammas kjol
  fill(Lm+xkjol,zkjol,'r')
  s=0.7; Lx=1.4; Lz=0.2;               % barnets förminskning och placering
  plot(Lx+s*xg,Lz+s*zg, Lx+s*xhuv,Lz+s*zhuv)
  xhatt=0.8*r*[2 2 1 1 -1 -1 -2 -2 2];                    % pappas hatt 
  q=0.2*r; zhatt=h+1.7*r+[0 q q r r q q 0 0];
  fill(xhatt,zhatt,'g'), axis equal
  disp('Klicka in ögon på alla tre!')
  for nr=1:6, [x,y]=ginput(1); plot(x,y,'o'), end

