function wind_plot_test
%wind_plot_test test for wind_plot
%
% See also: wind_plot
 
TMP = figure;

Umax = 12;
tmax = 24;

t=0:tmax;
D = 0:15:360;
I=0:.5:Umax;
wind_plot(t,D,I,'dtype','meteo','Ulim',[0 Umax*2]);
xlim([0 (tmax+Umax)]);
set(gca,'xtick',[3:6:21])
title(mktex('f_scale=1, Ulim=Umax*2, and default f_level=range(Ulim)/2, so last vector should have tip at y=0'))
% check whether uy tips at y=0
try
print2screensizeoverwrite(mfilename('fullpath'))
close(TMP)
end