view brighten.m @ 41:5942b14d6c22 Octave-Forge-2003.02.22

Use of "T x[n]" where n is not constant is a g++ extension so replace it with OCTAVE_LOCAL_BUFFER(T,x,n), and other things to keep the picky MipsPRO CC compiler happy.
author pkienzle
date Thu, 20 Feb 2003 23:03:59 +0000
parents 2adef77b98d0
children
line wrap: on
line source

## Copyright (C) 1999,2000  Kai Habel
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

## -*- texinfo -*-
## @deftypefn {Function File} @var{map_out}= brighten (@var{map},@var{beta})
## @deftypefnx {Function File} @var{map_out}= brighten (@var{beta})
## darkens or brightens the given colormap.
## If the @var{map} argument is omitted, the function is applied to the
## current colormap.
## Should the resulting colormap @var{map_out} not be assigned, it will be
## written to the current colormap.
## The argument @var{beta} should be a scalar between -1 and 1,
## where a negative value darkens and a positive value brightens
## the colormap.
##
## @end deftypefn

## Author:	Kai Habel <kai.habel@gmx.de>
## Date:	05. March 2000

function [Rmap] = brighten (m, beta)

  if (nargin == 1)
    beta = m;
    m = colormap;

  elseif (nargin == 2)
    if ( (!is_matrix (m)) || (size (m, 2) != 3) )
      error ("brighten(map,beta) map must be a matrix of size nx3.");
    endif

  else
    usage ("brighten(...) number of arguments must be 1 or 2.");
  endif

  if ( (!is_scalar (beta)) || (beta <= -1) || (beta >= 1) )
    error ("brighten(...,beta) beta must be a scalar in the range (-1,1).");
  endif

  if (beta > 0)
    gamma = 1 - beta;
  else
    gamma = 1 / (1 + beta);
  endif

  if (nargout == 0)
    colormap (m .^ gamma);
  else
    Rmap = m .^ gamma;
  endif

endfunction