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

annotate scripts/image/imwrite.m @ 23573:1b4f4ec53b4a

use new script to tag fixed bugs in tests

author	John W. Eaton <jwe@octave.org>
date	Fri, 09 Jun 2017 17:44:57 -0400
parents	0703d31e1ec0
children	194eb4bd202b

rev	line source
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 22489 diff changeset	1 ## Copyright (C) 2008-2017 John W. Eaton
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 21758 diff changeset	2 ## Copyright (C) 2013-2016 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
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22489 diff changeset	8 ## the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22489 diff changeset	9 ## (at your option) any later version.
7987 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
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22489 diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22489 diff changeset	14 ## GNU General Public License for more details.
7987 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 --
20852 516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20719 diff changeset	21 ## @deftypefn {} {} imwrite (@var{img}, @var{filename})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20719 diff changeset	22 ## @deftypefnx {} {} imwrite (@var{img}, @var{filename}, @var{ext})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20719 diff changeset	23 ## @deftypefnx {} {} imwrite (@var{img}, @var{map}, @var{filename})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20719 diff changeset	24 ## @deftypefnx {} {} 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 ##
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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: 19833 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: 19833 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
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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 ##
20406 5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	49 ## @item Compression
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 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: 20158 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: 20158 diff changeset	52 ## Note that not all compression types are available for all image formats
20719 d903cccb8de8 doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20406 diff changeset	53 ## in which it defaults to your @nospell{Magick} library.
20406 5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 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
18815 19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18552 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
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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: 19833 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
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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: 19833 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: 19833 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
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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: 19833 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: 19833 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: 19833 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: 19833 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
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 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: 19833 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: 19833 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)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	100
16916 59f575e504dc Connect imwrite with imformats. Carnë Draug <carandraug@octave.org> parents: 15714 diff changeset	101 if (nargin < 2)
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	102 print_usage ();
ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	103 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 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 [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	106
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	107 fmt = imformats (ext);
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	108 ## 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	109 ## no fields, so we can't just use `isempty (fmt)'.
18539 7b60d0d9f0f2 imwrite.m: Fix bug with numfields introduction in cset fcd87f68af4f. Rik <rik@octave.org> parents: 18538 diff changeset	110 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	111 if (isempty (ext))
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	112 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	113 filename);
ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	114 endif
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21580 diff changeset	115 warning ("imwrite: unlisted image format %s (see imformats). Trying to save anyway.",
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	116 ext);
17086 3db796f89695 Rename private core_imfnc functions to follow the __fnc__ convention style. Carnë Draug <carandraug@octave.org> parents: 16988 diff changeset	117 __imwrite__ (varargin{:});
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	118 else
16948 ee2166121a28 imwrite: clean up finding of filename and its connection to imformats. Carnë Draug <carandraug@octave.org> parents: 16944 diff changeset	119 fmt.write (varargin{:});
16944 1b3b3ee88284 Add optional extension argument to image IO functions. Carnë Draug <carandraug@octave.org> parents: 16916 diff changeset	120 endif
7987 4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	121
4a423a042971 add imwrite.m John W. Eaton <jwe@octave.org> parents: diff changeset	122 endfunction
10891 ff94219746bd imwrite.m: Allow writing of 1-bit (B&W) images. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	123
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21751 diff changeset	124
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	125 ## Test input validation
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	126 %!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	127 %!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	128 %!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	129 %!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	130 %!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	131 %!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	132 %!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	133 %!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	134 %!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	135
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	136 %!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: 19278 diff changeset	137 %! filename = [tempname() format];
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	138 %! unwind_protect
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	139 %! 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: 18542 diff changeset	140 %! [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: 18542 diff changeset	141 %! unwind_protect_cleanup
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	142 %! unlink (filename);
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	143 %! end_unwind_protect
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	144 %!endfunction
17338 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 17332 diff changeset	145
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	146 ## typical usage with grayscale uint8 images
18542 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	147 %!testif HAVE_MAGICK
21568 3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 20852 diff changeset	148 %! gray = randi (255, 10, 10, 1, "uint8");
3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 20852 diff changeset	149 %! r = write_and_read (".tif", gray);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	150 %! assert (r, gray);
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	151
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	152 ## grayscale uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	153 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	154 %! 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: 18543 diff changeset	155 %! alpha = randi (255, 10, 10, 1, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	156 %! [r, ~, a] = write_and_read (".tif", gray, "Alpha", alpha);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	157 %! assert (r, gray);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	158 %! assert (a, alpha);
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	159
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	160 ## multipage grayscale uint8 images
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	161 %!testif HAVE_MAGICK
21568 3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 20852 diff changeset	162 %! gray = randi (255, 10, 10, 1, 5, "uint8");
3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 20852 diff changeset	163 %! r = write_and_read (".tif", gray);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	164 %! assert (r, gray);
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	165
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	166 ## 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: 18543 diff changeset	167 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	168 %! 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: 18543 diff changeset	169 %! alpha = randi (255, 10, 10, 1, 5, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	170 %! [r, ~, a] = write_and_read (".tif", gray, "Alpha", alpha);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	171 %! assert (r, gray);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	172 %! assert (a, alpha);
18542 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	173
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	174 ## typical usage with RGB uint8 images
18542 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	175 %!testif HAVE_MAGICK
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	176 %! rgb = randi (255, 10, 10, 3, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	177 %! r = write_and_read (".tif", rgb);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	178 %! assert (r, rgb);
18542 30aa4e85f8d5 Fix writing and reading of multipage images. Carnë Draug <carandraug@octave.org> parents: 17855 diff changeset	179
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	180 ## RGB uint8 images with alpha channel
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	181 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	182 %! 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: 18543 diff changeset	183 %! alpha = randi (255, 10, 10, 1, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	184 %! [r, ~, a] = write_and_read (".tif", rgb, "Alpha", alpha);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	185 %! assert (r, rgb);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	186 %! assert (a, alpha);
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	187
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	188 ## multipage RGB uint8 images
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	189 %!testif HAVE_MAGICK
0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	190 %! rgb = randi (255, 10, 10, 3, 5, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	191 %! r = write_and_read (".tif", rgb);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	192 %! assert (r, rgb);
18543 0bfbfb05b158 imwrite.m: simplify test blocks by make use of shared %!function. Carnë Draug <carandraug@octave.org> parents: 18542 diff changeset	193
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	194 ## 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: 18543 diff changeset	195 %!testif HAVE_MAGICK
e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	196 %! 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: 18543 diff changeset	197 %! alpha = randi (255, 10, 10, 1, 5, "uint8");
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	198 %! [r, ~, a] = write_and_read (".tif", rgb, "Alpha", alpha);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	199 %! assert (r, rgb);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	200 %! assert (a, alpha);
18544 e0cc67d5a462 Fix writing of grayscale images when there is an alpha channel. Carnë Draug <carandraug@octave.org> parents: 18543 diff changeset	201
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	202 %!testif HAVE_MAGICK
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	203 %! gray = repmat (uint8 (0:255), 100, 1);
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	204 %! [g] = write_and_read (".jpeg", gray);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	205 %! assert (g, gray, 2);
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	206
a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	207 %!testif HAVE_MAGICK
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	208 %! gray = repmat (uint8 (0:255), 100, 1);
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	209 %! [g] = write_and_read (".jpeg", gray, "quality", 100);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	210 %! assert (g, gray);
19695 a4f6fbd1af77 imwrite: add tests for jpeg writing (bugs #41673, #44118, #42474) Carnë Draug <carandraug@octave.org> parents: 19278 diff changeset	211
20406 5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	212 %!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: 20158 diff changeset	213 %! 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: 20158 diff changeset	214 %! filename = [tempname() ext];
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	215 %! unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	216 %! if (isempty (cmap))
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	217 %! imwrite (gray, filename, varargin{1:end});
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	218 %! else
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	219 %! 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: 20158 diff changeset	220 %! endif
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	221 %! fid = fopen (filename);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	222 %! unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	223 %! compression = fread (fid, 31)(end);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	224 %! unwind_protect_cleanup
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	225 %! fclose (fid);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	226 %! end_unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	227 %! unwind_protect_cleanup
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	228 %! unlink (filename);
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	229 %! end_unwind_protect
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	230 %!endfunction
5b8e4f668c53 Add compression option to imwrite and default to "none" (bug #45565) Carnë Draug <carandraug@octave.org> parents: 20158 diff changeset	231
22489 93ea313301f9 test: Add bug ids (<#####>) to BIST tests. Rik <rik@octave.org> parents: 22323 diff changeset	232 ## BMP images must be saved uncompressed by default
23573 1b4f4ec53b4a use new script to tag fixed bugs in tests John W. Eaton <jwe@octave.org> parents: 23572 diff changeset	233 %!testif HAVE_MAGICK <*45565>
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	234 %! assert (get_bmp_compression ("", [], "BMP"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	235 %! assert (get_bmp_compression ("", [], "bmp"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	236 %! assert (get_bmp_compression (".BMP"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	237 %! assert (get_bmp_compression (".bmp"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	238 %! assert (get_bmp_compression (".bmp", [], "bmp"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	239 %! assert (get_bmp_compression ("", gray (256), "bmp"), 0);
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21568 diff changeset	240 %! assert (get_bmp_compression (".bmp", gray (256), "Compression", "rle"), 1);

Mercurial > octave-libtiff

annotate scripts/image/imwrite.m @ 23573:1b4f4ec53b4a