Mercurial > octave
diff scripts/image/imagesc.m @ 2303:5cffc4b8de57
[project @ 1996-06-24 09:15:24 by jwe]
author | jwe |
---|---|
date | Mon, 24 Jun 1996 09:15:24 +0000 |
parents | 5d29638dd524 |
children | 2b5788792cad |
line wrap: on
line diff
--- a/scripts/image/imagesc.m Mon Jun 24 08:12:01 1996 +0000 +++ b/scripts/image/imagesc.m Mon Jun 24 09:15:24 1996 +0000 @@ -1,34 +1,35 @@ -# Copyright (C) 1996 John W. Eaton -# -# This file is part of Octave. -# -# Octave 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, or (at your option) any -# later version. -# -# Octave 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 Octave; see the file COPYING. If not, write to the Free -# Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +### Copyright (C) 1996 John W. Eaton +### +### This file is part of Octave. +### +### Octave 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, or (at your option) +### any later version. +### +### Octave 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 Octave; see the file COPYING. If not, write to the Free +### Software Foundation, 59 Temple Place - Suite 330, Boston, MA +### 02111-1307, USA. function x = imagesc (x, zoom) -# Scale and display a matrix as an image. -# -# imagesc(x) displays a scaled version of the matrix x. The matrix is -# scaled so that its entries are indices into the current colormap. -# The scaled matrix is returned. -# -# imagesc (x, zoom) sets the magnification, the default value is 4. -# -# SEE ALSO: image, imshow + ## Scale and display a matrix as an image. + ## + ## imagesc(x) displays a scaled version of the matrix x. The matrix is + ## scaled so that its entries are indices into the current colormap. + ## The scaled matrix is returned. + ## + ## imagesc (x, zoom) sets the magnification, the default value is 4. + ## + ## SEE ALSO: image, imshow -# Written by Tony Richardson (amr@mpl.ucsd.edu) July 1994. + ## Written by Tony Richardson (amr@mpl.ucsd.edu) July 1994. if (nargin < 1 || nargin > 2) usage ("image (matrix, [zoom])"); @@ -41,13 +42,13 @@ maxval = max (max (x)); minval = min (min (x)); -# Rescale matrix so that all values are in the range 0 to -# length (colormap) inclusive. + ## Rescale matrix so that all values are in the range 0 to + ## length (colormap) inclusive. if (maxval == minval) x = ones (high, wide); else -# Rescale values to between 1 and length (colormap) inclusive. + ## Rescale values to between 1 and length (colormap) inclusive. x = fix ((x - minval) / (maxval - minval) * (length (colormap) - 1)) + 1; endif