remove old color/mono options and tweak plotting options

calibration/src/sphear_bf_plot.m

@@ -27,15 +27,6 @@
 %%  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 function [BF] = sphear_bf_plot(BF, fmin, fmax, rmax, cardioid = 0)
-
-  if (!exist("plot_on"))
-    plot_on = "epsc";
-  else
-    if (plot_on == 1)
-      plot_on = "epsc"
-    end
-  end
-
   %% to close the polar plots we repeat the first point
   m = size(BF, 1);
   n = 32;
@@ -65,20 +56,6 @@ function [BF] = sphear_bf_plot(BF, fmin, fmax, rmax, cardioid = 0)
     set(ca,"fontweight","bold","linewidth",1.5)
     title([char(bname(b)) ": " sprintf("%d", round(fmin)) " to " sprintf("%d", round(fmax)) " Hz"]);
 
-    if (strcmp(plot_on, "epsc") || strcmp(plot_on, "pngc"))
-      %% color plot
-      dopts = '.-r';
-      ropts = '-b';
-      copt = '-color';
-      cext = "_color";
-    else
-      %% mono plot
-      dopts = '.-';
-      ropts = '-';
-      copt = '-mono';
-      cext = "_mono";
-    end
-
     grey = [0.1, 0.1, 0.1];
     %% radius circles
     for rad = 0.25:0.25:rmax
@@ -91,11 +68,10 @@ function [BF] = sphear_bf_plot(BF, fmin, fmax, rmax, cardioid = 0)
     end
 
     [xr, yr] = pol2cart(thetaf', ones(n + 1,1));
-    plot(xr, yr, ropts);
+    plot(yr, xr, '-');
     [x, y] = pol2cart(theta', abs(BF(:,b)));
-    plot(x, y, dopts, 'linewidth', 1.5, 'markersize', 6);
+    plot(-y, x, '.-r', 'linewidth', 1.5, 'markersize', 6);
     
   end
-  print(f, '-deps','-tight',copt,["../figures/sphear_polar_multi_" sprintf("%05d", fmin) "_" sprintf("%05d", fmax) cext ".eps"]);
 end