function speechflake(W,angle,lag,top)
if nargin==1
	angle=pi/3;
	lag=1;
	top=deg2rad(50);
end
npts=length(W);
% recherche du minimum et du maximum
hi=max(W);
low=min(W);
% mise à l'échelle
W=((W-low).*top)./(hi-low);
% représentation graphique
h=plot(0,0);
hold on
delete(h)
i=0:angle:2*pi-angle;
for j=1:npts-lag
	if W(j+lag)-W(j) >= 0
		couleur='g';
	else
		couleur='b';
	end
	r=W(j);
	theta1=i+W(j+lag);
	theta2=i-W(j+lag);
	[x1,y1]=pol2cart(theta1,r);
	[x2,y2]=pol2cart(theta2,r);
	plot(x1,y1,'.','color',couleur)
	plot(x2,y2,'.','color',couleur)
end

axis off
axis equal
hold off

