Mercurial > octave-nkf

comparison scripts/plot/hidden.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents dbd0c77e575e
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
31 mode = "swap"; 31 mode = "swap";
32 elseif (nargin == 1); 32 elseif (nargin == 1);
33 if (ischar (mode)) 33 if (ischar (mode))
34 mode = tolower (mode); 34 mode = tolower (mode);
35 if (! strcmp (mode, "on") && ! strcmp (mode, "off")) 35 if (! strcmp (mode, "on") && ! strcmp (mode, "off"))
36 error ("hidden: mode expected to be 'on' or 'off'"); 36 error ("hidden: mode expected to be 'on' or 'off'");
37 endif 37 endif
38 else 38 else
39 error ("hidden: expecting mode to be a string"); 39 error ("hidden: expecting mode to be a string");
40 endif 40 endif
41 else 41 else
45 for h = get (gca (), "children"); 45 for h = get (gca (), "children");
46 htype = lower (get (h, "type")); 46 htype = lower (get (h, "type"));
47 if (strcmp (htype, "surface")) 47 if (strcmp (htype, "surface"))
48 fc = get (h, "facecolor"); 48 fc = get (h, "facecolor");
49 if ((! ischar (fc) && is_white (fc)) 49 if ((! ischar (fc) && is_white (fc))
50 || (ischar (fc) && strcmpi (fc, "none"))) 50 || (ischar (fc) && strcmpi (fc, "none")))
51 switch (mode) 51 switch (mode)
52 case "on" 52 case "on"
53 set (h, "facecolor", "w"); 53 set (h, "facecolor", "w");
54 case "off" 54 case "off"
55 set (h, "facecolor", "none"); 55 set (h, "facecolor", "none");
56 case "swap" 56 case "swap"
57 if (ischar (fc)) 57 if (ischar (fc))
58 set (h, "facecolor", "w"); 58 set (h, "facecolor", "w");
59 mode = "on"; 59 mode = "on";
60 else 60 else
61 set (h, "facecolor", "none"); 61 set (h, "facecolor", "none");
62 mode = "off"; 62 mode = "off";
63 endif 63 endif
64 endswitch 64 endswitch
65 endif 65 endif
66 endif 66 endif
67 endfor 67 endfor