% Testroutine zum Programm 
% DeCasteljau, Blatt 3

% Datenpunkte generieren
P = [0 0;-1 -1;-3 -1;-3 3];
T = linspace(0,1);

% Aufruf des Programms
C = DeCasteljau(P,T);

% Ergebnis visualisieren
figure(1)
clf reset
plot(P(:,1),P(:,2),'r','LineWidth',2)
hold on
plot(P(:,1),P(:,2),'r.','MarkerSize',25)
plot(C(:,1),C(:,2),'b','LineWidth',1)
axis([-5 1 -2 4])