Added linewidth option to geom_funline

Corrected error happening when multiple lines were created

Author: piermorel

@gramm/draw.m

@@ -1191,7 +1191,7 @@
                 xl=[mean(tmp_xl)-tmp_extent mean(tmp_xl)+tmp_extent];
                 if ~isnan(obj.abline.intercept(line_ind))
                     %abline
-                    plot(xl,xl*obj.abline.slope(line_ind)+obj.abline.intercept(line_ind),obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth,'Parent',ca);
+                    plot(xl,xl*obj.abline.slope(line_ind)+obj.abline.intercept(line_ind),obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth(line_ind),'Parent',ca);
                 else
                     if ~isnan(obj.abline.xintercept(line_ind))
                         %vline
@@ -1203,14 +1203,14 @@
                         end
                         tmp_extent=(tmp_yl(2)-tmp_yl(1))*obj.abline.extent(line_ind)/2;
                         yl=[mean(tmp_yl)-tmp_extent mean(tmp_yl)+tmp_extent];
-                        plot([obj.abline.xintercept(line_ind) obj.abline.xintercept(line_ind)],yl,obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth,'Parent',ca);
+                        plot([obj.abline.xintercept(line_ind) obj.abline.xintercept(line_ind)],yl,obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth(line_ind),'Parent',ca);
                     else
                         if ~isnan(obj.abline.yintercept(line_ind))
                             %hline
-                            plot(xl,[obj.abline.yintercept(line_ind) obj.abline.yintercept(line_ind)],obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth,'Parent',ca);
+                            plot(xl,[obj.abline.yintercept(line_ind) obj.abline.yintercept(line_ind)],obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth(line_ind),'Parent',ca);
                         else
                             temp_x=linspace(xl(1),xl(2),500);
-                            plot(temp_x,obj.abline.fun{line_ind}(temp_x),obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth,'Parent',ca);
+                            plot(temp_x,obj.abline.fun{line_ind}(temp_x),obj.abline.style{line_ind},'LineWidth',obj.abline.linewidth(line_ind),'Parent',ca);
                         end
                     end
                 end

@gramm/geom_funline.m

@@ -9,9 +9,10 @@
 my_addParameter(p,'fun',@(x)x);
 my_addParameter(p,'style','k--');
 my_addParameter(p,'extent',2);
+my_addParameter(p,'linewidth',1);
 parse(p,varargin{:});
 
 for obj_ind=1:numel(obj)
-    obj(obj_ind).abline=fill_abline(obj(obj_ind).abline,NaN,NaN,NaN,NaN,p.Results.fun,p.Results.style,p.Results.extent);
+    obj(obj_ind).abline=fill_abline(obj(obj_ind).abline,NaN,NaN,NaN,NaN,p.Results.fun,p.Results.style,p.Results.extent,p.Results.linewidth);
 end
 end