black contour

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@1849 d63d8f72-b253-0410-a779-e742ad2e26cf

JET/psirz.m

@@ -101,7 +101,7 @@ if ncont>0
   figure
   contour(r,z,psinrz',ncont);
   hold on
-  [h1, h2]=contour(r,z,psinrz',[1 1]);
+  [h1, h2]=contour(r,z,psinrz',[1 1],'k');
   for i=1:length(h2)
     set(h2(i),'LineWidth',2);
   end