Re: Revised rlocus m-file

[Daniel J Sebald]

Daniel J Sebald wrote:
> John W. Eaton wrote:
>
> > If I use the above commands with the current Octave and
> >         G N U P L O T
> >         Version 4.3 patchlevel 0
> >         last modified February 2007
> >         System: Linux 2.6.18-3-amd64
> >
> > (built from a CVS checkout updated today) I get solid lines on the
> > screen but dashed lines in an EPS file created with print -deps.
> > Shouldn't they both be solid?  I'm using the wxt terminal for the
> > screen display.
>
>
> Yes, that's incorrect.  The dash pattern changes for each segment.  I'll 
> investigate.

Patch attached -- Dan

--- /usr/local/share/octave/2.9.9+/m/plot/__go_draw_axes__.m    2007-03-15 
12:31:05.000000000 -0600
+++ ./__go_draw_axes__.m        2007-03-15 12:33:00.934069448 -0600
@@ -788,18 +788,22 @@
   if (isfield (obj, "linestyle"))
     switch (obj.linestyle)
       case "-"
-       lt = "lines";
+       lt = "1";
       case "--"
-       lt = "";
+       lt = "2";
       case ":"
-       lt = "";
+       lt = "3";
       case "-."
-       lt = "";
+       lt = "6";
       case "none"
        lt = "";
       otherwise
        lt = "";
     endswitch
+    if (! isempty (lt))
+      fprintf (plot_stream, " linetype %s", lt);
+      found_style = true;
+    endif
   else
     lt = "";
   endif
--- /usr/local/share/octave/2.9.9+/m/control/base/rlocus.m      2007-03-15 
12:30:54.306319792 -0600
+++ ./rlocus.m  2007-03-15 12:33:44.519443464 -0600
@@ -243,9 +243,9 @@
         args{1,++kk} = [sigma_A sigma_A+len_A*cos(phi_A)];
         args{2,kk} = [0 len_A*sin(phi_A)];
         if (i_A == 1)
-          args{3,kk} = "k-;asymptotes;";
+          args{3,kk} = "k--;asymptotes;";
         else
-          args{3,kk} = "k-";
+          args{3,kk} = "k--";
         endif
       endfor
     endif