octave-nkf: scripts/image/imwrite.m annotate

annotate scripts/image/imwrite.m @ 20830:b65888ec820e draft default tip gccjit

dmalcom gcc jit import

author	Stefan Mahr <dac922@gmx.de>
date	Fri, 27 Feb 2015 16:59:36 +0100
parents	5b8e4f668c53
children

rev	line source
19898 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19896 diff changeset	1 ## Copyright (C) 2008-2015 John W. Eaton
4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19896 diff changeset	2 ## Copyright (C) 2013-2015 Carnë Draug
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	3 ##
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	4 ## This file is part of Octave.
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	5 ##
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	6 ## Octave is free software; you can redistribute it and/or modify it
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	7 ## under the terms of the GNU General Public License as published by
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	8 ## the Free Software Foundation; either version 3 of the License, or (at
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	9 ## your option) any later version.
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	10 ##
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	11 ## Octave is distributed in the hope that it will be useful, but
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	14 ## General Public License for more details.
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	15 ##
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	16 ## You should have received a copy of the GNU General Public License
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	17 ## along with Octave; see the file COPYING. If not, see
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	18 ## <http://www.gnu.org/licenses/>.
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	19
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	20 ## -- texinfo --
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	21 ## @deftypefn {Function File} {} imwrite (@var{img}, @var{filename})
16944 1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	22 ## @deftypefnx {Function File} {} imwrite (@var{img}, @var{filename}, @var{ext})
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	23 ## @deftypefnx {Function File} {} imwrite (@var{img}, @var{map}, @var{filename})
54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	24 ## @deftypefnx {Function File} {} imwrite (@dots{}, @var{param1}, @var{val1}, @dots{})
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	25 ## Write images in various file formats.
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	26 ##
17170 d6499c14021c doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 17086 diff changeset	27 ## The image @var{img} can be a binary, grayscale, RGB, or multi-dimensional
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	28 ## image. The size and class of @var{img} should be the same as what should
54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	29 ## be expected when reading it with @code{imread}: the 3rd and 4th dimensions
17171 c3bd7314643c doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 17170 diff changeset	30 ## reserved for color space, and multiple pages respectively. If it's an
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	31 ## indexed image, the colormap @var{map} must also be specified.
54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	32 ##
16944 1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	33 ## If @var{ext} is not supplied, the file extension of @var{filename} is used
1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	34 ## to determine the format. The actual supported formats are dependent on
1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	35 ## options made during the build of Octave. Use @code{imformats} to check
1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	36 ## the support of the different image formats.
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	37 ##
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	38 ## Depending on the file format, it is possible to configure the writing of
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	39 ## images with @var{param}, @var{val} pairs. The following options are
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	40 ## supported:
8148 213dd524f96b Improve documentation for image I/O. sh@sh-laptop parents: 8054 diff changeset	41 ##
213dd524f96b Improve documentation for image I/O. sh@sh-laptop parents: 8054 diff changeset	42 ## @table @samp
17332 eb7e9a991ffb Implement writing of CMYK and fix writing of image alpha channel (bug #32986). Carnë Draug <carandraug@octave.org> parents: 17281 diff changeset	43 ## @item Alpha
eb7e9a991ffb Implement writing of CMYK and fix writing of image alpha channel (bug #32986). Carnë Draug <carandraug@octave.org> parents: 17281 diff changeset	44 ## Alpha (transparency) channel for the image. This must be a matrix with
eb7e9a991ffb Implement writing of CMYK and fix writing of image alpha channel (bug #32986). Carnë Draug <carandraug@octave.org> parents: 17281 diff changeset	45 ## same class, and number of rows and columns of @var{img}. In case of a
eb7e9a991ffb Implement writing of CMYK and fix writing of image alpha channel (bug #32986). Carnë Draug <carandraug@octave.org> parents: 17281 diff changeset	46 ## multipage image, the size of the 4th dimension must also match and the third
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	47 ## dimension must be a singleton. By default, image will be completely opaque.
17332 eb7e9a991ffb Implement writing of CMYK and fix writing of image alpha channel (bug #32986). Carnë Draug <carandraug@octave.org> parents: 17281 diff changeset	48 ##
20616 5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	49 ## @item Compression
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	50 ## Compression to use one the image. Can be one of the following: "none"
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	51 ## (default), "bzip", "fax3", "fax4", "jpeg", "lzw", "rle", or "deflate".
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	52 ## Note that not all compression types are available for all image formats
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	53 ## in which it defaults to your Magick library.
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	54 ##
17854 adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	55 ## @item DelayTime
adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	56 ## For formats that accept animations (such as GIF), controls for how long a
19010 19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18620 diff changeset	57 ## frame is displayed until it moves to the next one. The value must be scalar
17854 adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	58 ## (which will applied to all frames in @var{img}), or a vector of length
adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	59 ## equal to the number of frames in @var{im}. The value is in seconds, must
adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	60 ## be between 0 and 655.35, and defaults to 0.5.
adb0ba0d0c13 imwrite: implement DelayTime option. Carnë Draug <carandraug@octave.org> parents: 17853 diff changeset	61 ##
17855 bfbe5dcc9943 imwrite: implement DisposalMethod option. Carnë Draug <carandraug@octave.org> parents: 17854 diff changeset	62 ## @item DisposalMethod
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	63 ## For formats that accept animations (such as GIF), controls what happens to
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	64 ## a frame before drawing the next one. Its value can be one of the
17855 bfbe5dcc9943 imwrite: implement DisposalMethod option. Carnë Draug <carandraug@octave.org> parents: 17854 diff changeset	65 ## following strings: "doNotSpecify" (default); "leaveInPlace"; "restoreBG";
bfbe5dcc9943 imwrite: implement DisposalMethod option. Carnë Draug <carandraug@octave.org> parents: 17854 diff changeset	66 ## and "restorePrevious", or a cell array of those string with length equal
bfbe5dcc9943 imwrite: implement DisposalMethod option. Carnë Draug <carandraug@octave.org> parents: 17854 diff changeset	67 ## to the number of frames in @var{img}.
bfbe5dcc9943 imwrite: implement DisposalMethod option. Carnë Draug <carandraug@octave.org> parents: 17854 diff changeset	68 ##
17853 aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	69 ## @item LoopCount
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	70 ## For formats that accept animations (such as GIF), controls how many times
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	71 ## the sequence is repeated. A value of Inf means an infinite loop (default),
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	72 ## a value of 0 or 1 that the sequence is played only once (loops zero times),
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	73 ## while a value of 2 or above loops that number of times (looping twice means
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	74 ## it plays the complete sequence 3 times). This option is ignored when there
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	75 ## is only a single image at the end of writing the file.
aacb9da13df6 imwrite: implement LoopCount option. Carnë Draug <carandraug@octave.org> parents: 17744 diff changeset	76 ##
8148 213dd524f96b Improve documentation for image I/O. sh@sh-laptop parents: 8054 diff changeset	77 ## @item Quality
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	78 ## Set the quality of the compression. The value should be an integer
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	79 ## between 0 and 100, with larger values indicating higher visual quality and
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	80 ## lower compression. Defaults to 75.
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	81 ##
54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	82 ## @item WriteMode
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	83 ## Some file formats, such as TIFF and GIF, are able to store multiple images
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	84 ## in a single file. This option specifies if @var{img} should be appended
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	85 ## to the file (if it exists) or if a new file should be created for it
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	86 ## (possibly overwriting an existing file). The value should be the string
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	87 ## @qcode{"Overwrite"} (default), or @qcode{"Append"}.
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	88 ##
54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	89 ## Despite this option, the most efficient method of writing a multipage
20368 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	90 ## image is to pass a 4 dimensional @var{img} to @code{imwrite}, the same
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	91 ## matrix that could be expected when using @code{imread} with the option
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20038 diff changeset	92 ## @qcode{"Index"} set to @qcode{"all"}.
16988 54b75bed4bc7 imwrite: implement WriteMode option. Carnë Draug <carandraug@octave.org> parents: 16948 diff changeset	93 ##
8148 213dd524f96b Improve documentation for image I/O. sh@sh-laptop parents: 8054 diff changeset	94 ## @end table
213dd524f96b Improve documentation for image I/O. sh@sh-laptop parents: 8054 diff changeset	95 ##
16944 1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	96 ## @seealso{imread, imfinfo, imformats}
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	97 ## @end deftypefn
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	98
16916 59f575e504dc Connect imwrite with imformats. Carnë Draug <carandraug@octave.org> parents: 15714 diff changeset	99 function imwrite (varargin)
59f575e504dc Connect imwrite with imformats. Carnë Draug <carandraug@octave.org> parents: 15714 diff changeset	100 if (nargin < 2)
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	101 print_usage ();
ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	102 endif
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	103 [filename, ext] = imwrite_filename (varargin{2:end});
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	104
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	105 fmt = imformats (ext);
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	106 ## When there is no match, fmt will be a 1x1 structure with
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	107 ## no fields, so we can't just use `isempty (fmt)'.
18607 7b60d0d9f0f2 imwrite.m: Fix bug with numfields introduction in cset fcd87f68af4f. Rik <rik@octave.org> parents: 18606 diff changeset	108 if (numfields (fmt) == 0)
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	109 if (isempty (ext))
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	110 error ("imwrite: no extension found for %s to identify the image format",
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	111 filename);
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	112 endif
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	113 warning ("imwrite: unlisted image format %s (see imformats). Trying to save anyway.",
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	114 ext);
17086 3db796f89695 Rename private core_imfnc functions to follow the __fnc__ convention style. Carnë Draug <carandraug@octave.org> parents: 16988 diff changeset	115 __imwrite__ (varargin{:});
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	116 else
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	117 fmt.write (varargin{:});
16944 1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	118 endif
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	119
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	120 endfunction
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	121
20038 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19898 diff changeset	122 ## Test input validation
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	123 %!error imwrite () # Wrong # of args
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	124 %!error imwrite (1) # Wrong # of args
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	125 %!error imwrite ({"cell"}, "filename.jpg") # Wrong class for img
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	126 %!error imwrite (1, [], "filename.jpg") # Empty image map
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	127 %!error imwrite (1, 2, 3) # No filename specified
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	128 %!error imwrite (1, "filename") # No fmt specified
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	129 %!error imwrite (1, "filename", "junk") # Invalid fmt specified
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	130 %!error imwrite ([], "filename.jpg") # Empty img matrix
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	131 %!error imwrite (spones (2), "filename.jpg") # Invalid sparse img
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	132
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	133 %!function [r, cmap, a] = write_and_read (format, varargin)
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	134 %! filename = [tempname() format];
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	135 %! unwind_protect
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	136 %! imwrite (varargin{1}, filename, varargin{2:end});
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	137 %! [r, cmap, a] = imread (filename, "Index", "all");
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	138 %! unwind_protect_cleanup
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	139 %! unlink (filename);
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	140 %! end_unwind_protect
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	141 %!endfunction
17338 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 17332 diff changeset	142
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	143 ## typical usage with grayscale uint8 images
18610 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	144 %!testif HAVE_MAGICK
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	145 %! gray = randi (255, 10, 10, 1, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	146 %! r = write_and_read (".tif", gray);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	147 %! assert (r, gray)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	148
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	149 ## grayscale uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	150 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	151 %! gray = randi (255, 10, 10, 1, "uint8");
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	152 %! alpha = randi (255, 10, 10, 1, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	153 %! [r, ~, a] = write_and_read (".tif", gray, "Alpha", alpha);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	154 %! assert (r, gray)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	155 %! assert (a, alpha)
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	156
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	157 ## multipage grayscale uint8 images
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	158 %!testif HAVE_MAGICK
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	159 %! gray = randi (255, 10, 10, 1, 5, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	160 %! r = write_and_read (".tif", gray);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	161 %! assert (r, gray)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	162
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	163 ## multipage RGB uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	164 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	165 %! gray = randi (255, 10, 10, 3, 5, "uint8");
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	166 %! alpha = randi (255, 10, 10, 1, 5, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	167 %! [r, ~, a] = write_and_read (".tif", gray, "Alpha", alpha);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	168 %! assert (r, gray)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	169 %! assert (a, alpha)
18610 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	170
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	171 ## typical usage with RGB uint8 images
18610 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	172 %!testif HAVE_MAGICK
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	173 %! rgb = randi (255, 10, 10, 3, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	174 %! r = write_and_read (".tif", rgb);
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	175 %! assert (r, rgb)
18610 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	176
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	177 ## RGB uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	178 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	179 %! rgb = randi (255, 10, 10, 3, "uint8");
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	180 %! alpha = randi (255, 10, 10, 1, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	181 %! [r, ~, a] = write_and_read (".tif", rgb, "Alpha", alpha);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	182 %! assert (r, rgb)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	183 %! assert (a, alpha)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	184
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	185 ## multipage RGB uint8 images
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	186 %!testif HAVE_MAGICK
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	187 %! rgb = randi (255, 10, 10, 3, 5, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	188 %! r = write_and_read (".tif", rgb);
18611 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	189 %! assert (r, rgb)
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18610 diff changeset	190
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	191 ## multipage RGB uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	192 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	193 %! rgb = randi (255, 10, 10, 3, 5, "uint8");
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	194 %! alpha = randi (255, 10, 10, 1, 5, "uint8");
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	195 %! [r, ~, a] = write_and_read (".tif", rgb, "Alpha", alpha);
18612 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	196 %! assert (r, rgb)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	197 %! assert (a, alpha)
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18611 diff changeset	198
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	199 %!testif HAVE_MAGICK
20038 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19898 diff changeset	200 %! gray = repmat (uint8 (0:255), 100, 1);
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	201 %! [g] = write_and_read (".jpeg", gray);
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	202 %! assert (g, gray, 2)
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	203
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	204 %!testif HAVE_MAGICK
20038 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19898 diff changeset	205 %! gray = repmat (uint8 (0:255), 100, 1);
19896 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	206 %! [g] = write_and_read (".jpeg", gray, "quality", 100);
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	207 %! assert (g, gray)
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19470 diff changeset	208
20616 5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	209 %!function [compression] = get_bmp_compression (ext, cmap = [], varargin)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	210 %! gray = repmat (uint8 (0:255), 100, 1);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	211 %! filename = [tempname() ext];
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	212 %! unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	213 %! if (isempty (cmap))
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	214 %! imwrite (gray, filename, varargin{1:end});
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	215 %! else
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	216 %! imwrite (gray, cmap, filename, varargin{1:end});
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	217 %! endif
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	218 %! fid = fopen (filename);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	219 %! unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	220 %! compression = fread (fid, 31)(end);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	221 %! unwind_protect_cleanup
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	222 %! fclose (fid);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	223 %! end_unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	224 %! unwind_protect_cleanup
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	225 %! unlink (filename);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	226 %! end_unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	227 %!endfunction
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	228
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	229 ## BMP images must be saved uncompressed by default (bug #45565)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	230 %!testif HAVE_MAGICK
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	231 %! assert (get_bmp_compression ("", [], "BMP"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	232 %! assert (get_bmp_compression ("", [], "bmp"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	233 %! assert (get_bmp_compression (".BMP"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	234 %! assert (get_bmp_compression (".bmp"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	235 %! assert (get_bmp_compression (".bmp", [], "bmp"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	236 %! assert (get_bmp_compression ("", gray (256), "bmp"), 0)
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20368 diff changeset	237 %! assert (get_bmp_compression (".bmp", gray (256), "Compression", "rle"), 1)

Mercurial > hg > octave-nkf

annotate scripts/image/imwrite.m @ 20830:b65888ec820e draft default tip gccjit