changeset 6415:6b1535a09268

[project @ 2007-03-15 18:03:17 by jwe]
author jwe
date Thu, 15 Mar 2007 18:03:18 +0000
parents 250eebbd7ccc
children 59a4304b7cc5
files scripts/ChangeLog scripts/control/base/rlocus.m scripts/plot/__go_draw_axes__.m
diffstat 3 files changed, 13 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Thu Mar 15 16:04:52 2007 +0000
+++ b/scripts/ChangeLog	Thu Mar 15 18:03:18 2007 +0000
@@ -6,9 +6,11 @@
 2007-03-15  Daniel J Sebald  <daniel.sebald@ieee.org>
 
 	* plot/__go_draw_axes__.m (do_linestyle_command): Fix marker types.
+	Use numeric line types.
 
 	* control/base/rlocus.m: Add asymptotes to the plot.  Use wider
-	lines and larger markers.
+	lines and larger markers.  Remove key titles from line type
+	properties.
 
 2007-03-14  John W. Eaton  <jwe@octave.org>
 
--- a/scripts/control/base/rlocus.m	Thu Mar 15 16:04:52 2007 +0000
+++ b/scripts/control/base/rlocus.m	Thu Mar 15 18:03:18 2007 +0000
@@ -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
--- a/scripts/plot/__go_draw_axes__.m	Thu Mar 15 16:04:52 2007 +0000
+++ b/scripts/plot/__go_draw_axes__.m	Thu Mar 15 18:03:18 2007 +0000
@@ -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