function[xv,yv]=puntistella(ap,np)
%costruisce due vettori xv e yv contenenti i vertici
%di una stella ad np punte. Il parametro ap, 0<ap<1,
%consente di modificare la lunghezza delle punte
%
t=linspace(0,2*pi,np+1);
s=linspace(pi/np,2*pi-pi/np,np);
xv(1:2:2*np+1)=cos(t);
xv(2:2:2*np)=ap*cos(s);
yv(1:2:2*np+1)=sin(t);
yv(2:2:2*np)=ap*sin(s);
