Mercurial > octave-nkf

changeset 15517:3f1b306e2ba9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rgbplot: return graphics handle if requested
author Carnë Draug <carandraug+dev@gmail.com>
date Sat, 13 Oct 2012 21:53:21 +0200
parents 271f0a2d15ab
children dee69050bb02
files scripts/image/rgbplot.m
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/image/rgbplot.m	Fri Oct 12 17:12:53 2012 -0700
+++ b/scripts/image/rgbplot.m	Sat Oct 13 21:53:21 2012 +0200
@@ -17,16 +17,20 @@
 ## <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} rgbplot (@var{cmap})
+## @deftypefn  {Function File} {} rgbplot (@var{cmap})
+## @deftypefnx {Function File} {@var{h} =} rgbplot (@dots{})
 ## Plot the components of a colormap.
 ##
 ## The first column is plotted in red, the second column in green, and
 ## the third column in blue.  The values are between 0 and 1 and represent
 ## the intensity of the RGB components in the given indexed color.
+##
+## The optional return value @var{h} is a graphics handle to the created plot.
+##
 ## @seealso{colormap}
 ## @end deftypefn
 
-function rgbplot (cmap)
+function retval = rgbplot (cmap)
 
   if (nargin != 1)
     print_usage ();
@@ -36,10 +40,14 @@
     error ("rgbplot: CMAP must be a colormap");
   endif
 
-  plot (cmap(:,1),"r", cmap(:,2),"g", cmap(:,3),"b");
+  h = plot (cmap(:,1),"r", cmap(:,2),"g", cmap(:,3),"b");
   set (gca, 'ytick', 0:0.1:1);
   xlabel ("color index");
 
+  if (nargout > 0)
+    retval = h;
+  endif
+
 endfunction