clear 
clf
disp('line_style routine plots all contour levels>lev0 in solid,')
disp('                                     levels<lev0 in dashed,')
disp('                                     level =lev0 in bold')
disp('Usage: line_style(axis_handle,lev0)')
disp('Default: axis_handle=gca, lev0=0')
[cc,hh]=contour(peaks(50)); clabel(cc,hh);
disp('Press any key')
pause
line_style