% bez2g,  kvadratisk bezierkurva mellan p1 och p2 
% grafisk inmatning av styrpunkten
  clear, clf
  p1=[0  5];  p2=[8 1];  p=[p1; p2] 
  plot(p(:,1),p(:,2),':', p(:,1),p(:,2),'o')  
  axis([0 10 0 8]), axis equal, hold on
  title('Kvadratisk bezierkurva')
  disp('Klicka styrpunkten')
  t=(0:0.02:1)';  F=[(1-t).^2   2*t.*(1-t)  t.^2]; 
  [bx,by]=ginput(1),  b=[bx by],  plotus(bx,by,'+')
  pbp=[p1; b; p2];   r=F*pbp; 
  plot(pbp(:,1),pbp(:,2),':', r(:,1),r(:,2))
% Linjen mellan b och mittpunkten av p1p2:
  pm=(p1+p2)/2;  bp=[b; pm];  plot(bp(:,1),bp(:,2),'-.')


