Mercurial > hg > octave-avbm
diff scripts/plot/__pltopt1__.m @ 3426:f8dde1807dee
[project @ 2000-01-13 08:40:00 by jwe]
author | jwe |
---|---|
date | Thu, 13 Jan 2000 08:40:53 +0000 |
parents | ae7adbb591e8 |
children | 858695b3ed62 |
line wrap: on
line diff
--- a/scripts/plot/__pltopt1__.m +++ b/scripts/plot/__pltopt1__.m @@ -97,12 +97,12 @@ || strcmp (char, "6") || strcmp (char, "7") ... || strcmp (char, "8") || strcmp (char, "9")) if (set_color) - set_points = 1; - symbol = char; - set_symbol = 1; + set_points = 1; + symbol = char; + set_symbol = 1; else - color = char; - set_color = 1; + color = char; + set_color = 1; endif elseif (strcmp (char, "r")) set_color = 1; @@ -141,14 +141,14 @@ elseif (strcmp (char, ";")) # title mode. set_key = 1; working = 1; - key_title = ""; + key_title = ""; while (working) if (max (size (opt)) > 1) - char = opt(1); - opt = opt(2:length(opt)); + char = opt(1); + opt = opt(2:length(opt)); else - char = opt; - if (! strcmp (char, ";")) + char = opt; + if (! strcmp (char, ";")) error ("%s: unfinished key label", caller); end more_opts = 0; @@ -157,14 +157,14 @@ if strcmp (char, ";") working = 0; else - if (isempty (key_title)) # needs this to avoid empty matrix warning. + if (isempty (key_title)) # needs this to avoid empty matrix warning. key_title = char; - else + else key_title = strcat (key_title, char); - endif + endif endif endwhile - elseif (strcmp (char, " ")) + elseif (strcmp (char, " ")) ## whitespace -- do nothing. else error ("%s: unrecognized format character: '%s'", caller, char);