Mercurial > hg > octave-lyh
annotate scripts/plot/newplot.m @ 14493:351ca094580b
Add terminating semicolon.
* __go_draw_axes__.m (no_super_sub_scripts): Add terminating semicolon
missing since changeset 0b94080d2b0f.
| author | Ben Abbott <bpabbott@mac.com> |
|---|---|
| date | Sat, 24 Mar 2012 20:32:24 -0400 |
| parents | f3d52523cde1 |
| children | c90c9623b20f |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13204
diff
changeset
|
1 ## Copyright (C) 2005-2012 John W. Eaton |
| 6257 | 2 ## |
| 3 ## This file is part of Octave. | |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 6257 | 9 ## |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 6257 | 18 |
| 19 ## -*- texinfo -*- | |
| 20 ## @deftypefn {Function File} {} newplot () | |
|
9672
43a07df0ed4c
document graphics structures
Michael D. Godfrey <godfrey@isl.stanford.edu>
parents:
8920
diff
changeset
|
21 ## Prepare graphics engine to produce a new plot. This function is |
|
43a07df0ed4c
document graphics structures
Michael D. Godfrey <godfrey@isl.stanford.edu>
parents:
8920
diff
changeset
|
22 ## called at the beginning of all high-level plotting functions. |
|
43a07df0ed4c
document graphics structures
Michael D. Godfrey <godfrey@isl.stanford.edu>
parents:
8920
diff
changeset
|
23 ## It is not normally required in user programs. |
| 6257 | 24 ## @end deftypefn |
| 25 | |
| 26 function newplot () | |
| 27 | |
| 28 if (nargin == 0) | |
| 29 cf = gcf (); | |
| 30 fnp = get (cf, "nextplot"); | |
| 31 switch (fnp) | |
| 6314 | 32 ## FIXME -- probably we should do more than validate the nextplot |
| 33 ## property value... | |
| 6257 | 34 case "new" |
| 35 case "add" | |
| 36 case "replacechildren" | |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
37 delete (get (cf, "children")); |
| 6257 | 38 case "replace" |
| 39 otherwise | |
| 10549 | 40 error ("newplot: unrecognized nextplot property for current figure"); |
| 6257 | 41 endswitch |
| 42 ca = gca (); | |
| 43 anp = get (ca, "nextplot"); | |
|
10770
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
44 if (strcmp (get (ca, "__hold_all__"), "off")) |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
45 __next_line_color__ (true); |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
46 __next_line_style__ (true); |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
47 else |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
48 __next_line_color__ (false); |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
49 __next_line_style__ (false); |
|
84c35a483d1f
Support 'hold all' (Feature Request #30336)
David Bateman <dbateman@free.fr>
parents:
10549
diff
changeset
|
50 endif |
| 6257 | 51 switch (anp) |
|
10510
62ebba45054e
Respect the nextplot property value of 'new' for axes and 'replacechildren' for axes and figures.
Ben Abbott <bpabbott@mac.com>
parents:
10135
diff
changeset
|
52 case "new" |
| 6257 | 53 case "add" |
| 54 case "replacechildren" | |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
55 delete (get (ca, "children")); |
| 6257 | 56 case "replace" |
| 10549 | 57 __go_axes_init__ (ca, "replace"); |
| 58 __request_drawnow__ (); | |
| 6257 | 59 otherwise |
| 10549 | 60 error ("newplot: unrecognized nextplot property for current axes"); |
| 6257 | 61 endswitch |
| 62 else | |
| 63 print_usage (); | |
| 64 endif | |
|
8252
b12a2975bf7e
newplot.m: delete stray debugging code
John W. Eaton <jwe@octave.org>
parents:
8228
diff
changeset
|
65 |
| 6257 | 66 endfunction |
| 13204 | 67 |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
68 |
| 13204 | 69 %!test |
| 70 %! hf = figure ("visible", "off"); | |
| 71 %! unwind_protect | |
| 72 %! p = plot ([0, 1]); | |
| 73 %! newplot; | |
| 74 %! assert (isempty (get (gca, "children"))); | |
| 75 %! unwind_protect_cleanup | |
| 76 %! close (hf); | |
| 77 %! end_unwind_protect | |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
78 |