Mercurial > hg > octave-avbm

comparison scripts/plot/__pltopt1__.m @ 3426:f8dde1807dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-13 08:40:00 by jwe]
author jwe
date Thu, 13 Jan 2000 08:40:53 +0000
parents ae7adbb591e8
children 858695b3ed62
comparison
equal deleted inserted replaced
3425:8625164a0a39 3426:f8dde1807dee
95 || strcmp (char, "2") || strcmp (char, "3") ... 95 || strcmp (char, "2") || strcmp (char, "3") ...
96 || strcmp (char, "4") || strcmp (char, "5") ... 96 || strcmp (char, "4") || strcmp (char, "5") ...
97 || strcmp (char, "6") || strcmp (char, "7") ... 97 || strcmp (char, "6") || strcmp (char, "7") ...
98 || strcmp (char, "8") || strcmp (char, "9")) 98 || strcmp (char, "8") || strcmp (char, "9"))
99 if (set_color) 99 if (set_color)
100 set_points = 1; 100 set_points = 1;
101 symbol = char; 101 symbol = char;
102 set_symbol = 1; 102 set_symbol = 1;
103 else 103 else
104 color = char; 104 color = char;
105 set_color = 1; 105 set_color = 1;
106 endif 106 endif
107 elseif (strcmp (char, "r")) 107 elseif (strcmp (char, "r"))
108 set_color = 1; 108 set_color = 1;
109 color = "1"; 109 color = "1";
110 elseif (strcmp (char, "g")) 110 elseif (strcmp (char, "g"))
139 set_symbol = 1; 139 set_symbol = 1;
140 symbol = "4"; 140 symbol = "4";
141 elseif (strcmp (char, ";")) # title mode. 141 elseif (strcmp (char, ";")) # title mode.
142 set_key = 1; 142 set_key = 1;
143 working = 1; 143 working = 1;
144 key_title = ""; 144 key_title = "";
145 while (working) 145 while (working)
146 if (max (size (opt)) > 1) 146 if (max (size (opt)) > 1)
147 char = opt(1); 147 char = opt(1);
148 opt = opt(2:length(opt)); 148 opt = opt(2:length(opt));
149 else 149 else
150 char = opt; 150 char = opt;
151 if (! strcmp (char, ";")) 151 if (! strcmp (char, ";"))
152 error ("%s: unfinished key label", caller); 152 error ("%s: unfinished key label", caller);
153 end 153 end
154 more_opts = 0; 154 more_opts = 0;
155 working = 0; 155 working = 0;
156 endif 156 endif
157 if strcmp (char, ";") 157 if strcmp (char, ";")
158 working = 0; 158 working = 0;
159 else 159 else
160 if (isempty (key_title)) # needs this to avoid empty matrix warning. 160 if (isempty (key_title)) # needs this to avoid empty matrix warning.
161 key_title = char; 161 key_title = char;
162 else 162 else
163 key_title = strcat (key_title, char); 163 key_title = strcat (key_title, char);
164 endif 164 endif
165 endif 165 endif
166 endwhile 166 endwhile
167 elseif (strcmp (char, " ")) 167 elseif (strcmp (char, " "))
168 ## whitespace -- do nothing. 168 ## whitespace -- do nothing.
169 else 169 else
170 error ("%s: unrecognized format character: '%s'", caller, char); 170 error ("%s: unrecognized format character: '%s'", caller, char);
171 endif 171 endif
172 endwhile 172 endwhile