Diff of the two buildlogs: -- --- b1/build.log 2021-07-06 14:10:24.738302688 +0000 +++ b2/build.log 2021-07-06 14:16:41.624126859 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Tue Jul 6 01:50:50 -12 2021 -I: pbuilder-time-stamp: 1625579450 +I: Current time: Tue Aug 9 10:33:26 +14 2022 +I: pbuilder-time-stamp: 1659990806 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/bullseye-reproducible-base.tgz] I: copying local configuration @@ -17,8 +17,8 @@ I: copying [./octave-image_2.12.0-10.debian.tar.xz] I: Extracting source gpgv: unknown type of key resource 'trustedkeys.kbx' -gpgv: keyblock resource '/tmp/dpkg-verify-sig.K4zH0C3Z/trustedkeys.kbx': General error -gpgv: Signature made Wed Dec 9 23:49:36 2020 -12 +gpgv: keyblock resource '/tmp/dpkg-verify-sig.EGFUGpS_/trustedkeys.kbx': General error +gpgv: Signature made Fri Dec 11 01:49:36 2020 +14 gpgv: using RSA key 53951D95272E0C5B82BE8C4A2CECE9350ECEBE4A gpgv: Can't check signature: No public key dpkg-source: warning: failed to verify signature on ./octave-image_2.12.0-10.dsc @@ -40,137 +40,171 @@ dpkg-source: info: applying relax-unit-test-cp2tform.patch I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/8141/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/D01_modify_environment starting +debug: Running on ionos6-i386. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +Removing 'diversion of /bin/sh to /bin/sh.distrib by dash' +Adding 'diversion of /bin/sh to /bin/sh.distrib by bash' +Removing 'diversion of /usr/share/man/man1/sh.1.gz to /usr/share/man/man1/sh.distrib.1.gz by dash' +Adding 'diversion of /usr/share/man/man1/sh.1.gz to /usr/share/man/man1/sh.distrib.1.gz by bash' +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='i386' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all,-fixfilepath parallel=10' - DISTRIBUTION='' - HOME='/root' - HOST_ARCH='i386' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:hostcomplete:interactive_comments:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="1" [2]="4" [3]="1" [4]="release" [5]="i686-pc-linux-gnu") + BASH_VERSION='5.1.4(1)-release' + BUILDDIR=/build + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=i386 + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all,-fixfilepath parallel=18' + DIRSTACK=() + DISTRIBUTION= + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=i686 + HOST_ARCH=i386 IFS=' ' - INVOCATION_ID='90b78907255141fa9916528c91e5742c' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - LD_LIBRARY_PATH='/usr/lib/libeatmydata' - LD_PRELOAD='libeatmydata.so' - MAIL='/var/mail/root' - OPTIND='1' - PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' - PBCURRENTCOMMANDLINEOPERATION='build' - PBUILDER_OPERATION='build' - PBUILDER_PKGDATADIR='/usr/share/pbuilder' - PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' - PBUILDER_SYSCONFDIR='/etc' - PPID='8141' - PS1='# ' - PS2='> ' + INVOCATION_ID=28e92148e7f8431380e8b44ec8fbd7a7 + LANG=C + LANGUAGE=de_CH:de + LC_ALL=C + LD_LIBRARY_PATH=/usr/lib/libeatmydata + LD_PRELOAD=libeatmydata.so + MACHTYPE=i686-pc-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=17577 PS4='+ ' - PWD='/' - SHELL='/bin/bash' - SHLVL='2' - SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/tmp.pSwbgilQ4v/pbuilderrc_FUdO --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bullseye-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/tmp.pSwbgilQ4v/b1 --logfile b1/build.log octave-image_2.12.0-10.dsc' - SUDO_GID='112' - SUDO_UID='107' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://78.137.99.97:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/tmp.pSwbgilQ4v/pbuilderrc_Lzho --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bullseye-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/tmp.pSwbgilQ4v/b2 --logfile b2/build.log --extrapackages usrmerge octave-image_2.12.0-10.dsc' + SUDO_GID=112 + SUDO_UID=107 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://85.184.249.68:3128 I: uname -a - Linux ionos12-i386 4.19.0-17-686-pae #1 SMP Debian 4.19.194-2 (2021-06-21) i686 GNU/Linux + Linux i-capture-the-hostname 4.19.0-17-amd64 #1 SMP Debian 4.19.194-2 (2021-06-21) x86_64 GNU/Linux I: ls -l /bin - total 5792 - -rwxr-xr-x 1 root root 1367848 Jun 21 14:25 bash - -rwxr-xr-x 3 root root 38280 Jul 20 2020 bunzip2 - -rwxr-xr-x 3 root root 38280 Jul 20 2020 bzcat - lrwxrwxrwx 1 root root 6 Jul 20 2020 bzcmp -> bzdiff - -rwxr-xr-x 1 root root 2225 Jul 20 2020 bzdiff - lrwxrwxrwx 1 root root 6 Jul 20 2020 bzegrep -> bzgrep - -rwxr-xr-x 1 root root 4877 Sep 4 2019 bzexe - lrwxrwxrwx 1 root root 6 Jul 20 2020 bzfgrep -> bzgrep - -rwxr-xr-x 1 root root 3775 Jul 20 2020 bzgrep - -rwxr-xr-x 3 root root 38280 Jul 20 2020 bzip2 - -rwxr-xr-x 1 root root 17768 Jul 20 2020 bzip2recover - lrwxrwxrwx 1 root root 6 Jul 20 2020 bzless -> bzmore - -rwxr-xr-x 1 root root 1297 Jul 20 2020 bzmore - -rwxr-xr-x 1 root root 38824 Sep 22 2020 cat - -rwxr-xr-x 1 root root 71624 Sep 22 2020 chgrp - -rwxr-xr-x 1 root root 67528 Sep 22 2020 chmod - -rwxr-xr-x 1 root root 75752 Sep 22 2020 chown - -rwxr-xr-x 1 root root 157960 Sep 22 2020 cp - -rwxr-xr-x 1 root root 128724 Dec 10 2020 dash - -rwxr-xr-x 1 root root 124904 Sep 22 2020 date - -rwxr-xr-x 1 root root 92172 Sep 22 2020 dd - -rwxr-xr-x 1 root root 100752 Sep 22 2020 df - -rwxr-xr-x 1 root root 153964 Sep 22 2020 dir - -rwxr-xr-x 1 root root 83644 Feb 7 02:38 dmesg - lrwxrwxrwx 1 root root 8 Nov 6 2019 dnsdomainname -> hostname - lrwxrwxrwx 1 root root 8 Nov 6 2019 domainname -> hostname - -rwxr-xr-x 1 root root 34664 Sep 22 2020 echo - -rwxr-xr-x 1 root root 28 Nov 9 2020 egrep - -rwxr-xr-x 1 root root 34664 Sep 22 2020 false - -rwxr-xr-x 1 root root 28 Nov 9 2020 fgrep - -rwxr-xr-x 1 root root 71928 Feb 7 02:38 findmnt - -rwsr-xr-x 1 root root 30112 Feb 26 04:12 fusermount - -rwxr-xr-x 1 root root 210488 Nov 9 2020 grep - -rwxr-xr-x 2 root root 2346 Mar 2 11:30 gunzip - -rwxr-xr-x 1 root root 6376 Mar 2 11:30 gzexe - -rwxr-xr-x 1 root root 100952 Mar 2 11:30 gzip - -rwxr-xr-x 1 root root 21916 Nov 6 2019 hostname - -rwxr-xr-x 1 root root 83980 Sep 22 2020 ln - -rwxr-xr-x 1 root root 55572 Feb 7 2020 login - -rwxr-xr-x 1 root root 153964 Sep 22 2020 ls - -rwxr-xr-x 1 root root 153124 Feb 7 02:38 lsblk - -rwxr-xr-x 1 root root 96328 Sep 22 2020 mkdir - -rwxr-xr-x 1 root root 79912 Sep 22 2020 mknod - -rwxr-xr-x 1 root root 47048 Sep 22 2020 mktemp - -rwxr-xr-x 1 root root 58920 Feb 7 02:38 more - -rwsr-xr-x 1 root root 50720 Feb 7 02:38 mount - -rwxr-xr-x 1 root root 13856 Feb 7 02:38 mountpoint - -rwxr-xr-x 1 root root 157996 Sep 22 2020 mv - lrwxrwxrwx 1 root root 8 Nov 6 2019 nisdomainname -> hostname - lrwxrwxrwx 1 root root 14 Apr 18 03:38 pidof -> /sbin/killall5 - -rwxr-xr-x 1 root root 38824 Sep 22 2020 pwd - lrwxrwxrwx 1 root root 4 Jun 21 14:25 rbash -> bash - -rwxr-xr-x 1 root root 46984 Sep 22 2020 readlink - -rwxr-xr-x 1 root root 75720 Sep 22 2020 rm - -rwxr-xr-x 1 root root 46984 Sep 22 2020 rmdir - -rwxr-xr-x 1 root root 22292 Sep 27 2020 run-parts - -rwxr-xr-x 1 root root 125036 Dec 22 2018 sed - lrwxrwxrwx 1 root root 4 Jul 5 21:26 sh -> dash - -rwxr-xr-x 1 root root 34696 Sep 22 2020 sleep - -rwxr-xr-x 1 root root 83880 Sep 22 2020 stty - -rwsr-xr-x 1 root root 79396 Feb 7 02:38 su - -rwxr-xr-x 1 root root 34696 Sep 22 2020 sync - -rwxr-xr-x 1 root root 602584 Feb 16 21:55 tar - -rwxr-xr-x 1 root root 13860 Sep 27 2020 tempfile - -rwxr-xr-x 1 root root 108520 Sep 22 2020 touch - -rwxr-xr-x 1 root root 34664 Sep 22 2020 true - -rwxr-xr-x 1 root root 17768 Feb 26 04:12 ulockmgr_server - -rwsr-xr-x 1 root root 30236 Feb 7 02:38 umount - -rwxr-xr-x 1 root root 34664 Sep 22 2020 uname - -rwxr-xr-x 2 root root 2346 Mar 2 11:30 uncompress - -rwxr-xr-x 1 root root 153964 Sep 22 2020 vdir - -rwxr-xr-x 1 root root 63024 Feb 7 02:38 wdctl - lrwxrwxrwx 1 root root 8 Nov 6 2019 ypdomainname -> hostname - -rwxr-xr-x 1 root root 1984 Mar 2 11:30 zcat - -rwxr-xr-x 1 root root 1678 Mar 2 11:30 zcmp - -rwxr-xr-x 1 root root 5880 Mar 2 11:30 zdiff - -rwxr-xr-x 1 root root 29 Mar 2 11:30 zegrep - -rwxr-xr-x 1 root root 29 Mar 2 11:30 zfgrep - -rwxr-xr-x 1 root root 2081 Mar 2 11:30 zforce - -rwxr-xr-x 1 root root 7585 Mar 2 11:30 zgrep - -rwxr-xr-x 1 root root 2206 Mar 2 11:30 zless - -rwxr-xr-x 1 root root 1842 Mar 2 11:30 zmore - -rwxr-xr-x 1 root root 4553 Mar 2 11:30 znew -I: user script /srv/workspace/pbuilder/8141/tmp/hooks/D02_print_environment finished + total 5776 + -rwxr-xr-x 1 root root 1367848 Jun 22 2021 bash + -rwxr-xr-x 3 root root 38280 Jul 21 2020 bunzip2 + -rwxr-xr-x 3 root root 38280 Jul 21 2020 bzcat + lrwxrwxrwx 1 root root 6 Jul 21 2020 bzcmp -> bzdiff + -rwxr-xr-x 1 root root 2225 Jul 21 2020 bzdiff + lrwxrwxrwx 1 root root 6 Jul 21 2020 bzegrep -> bzgrep + -rwxr-xr-x 1 root root 4877 Sep 5 2019 bzexe + lrwxrwxrwx 1 root root 6 Jul 21 2020 bzfgrep -> bzgrep + -rwxr-xr-x 1 root root 3775 Jul 21 2020 bzgrep + -rwxr-xr-x 3 root root 38280 Jul 21 2020 bzip2 + -rwxr-xr-x 1 root root 17768 Jul 21 2020 bzip2recover + lrwxrwxrwx 1 root root 6 Jul 21 2020 bzless -> bzmore + -rwxr-xr-x 1 root root 1297 Jul 21 2020 bzmore + -rwxr-xr-x 1 root root 38824 Sep 23 2020 cat + -rwxr-xr-x 1 root root 71624 Sep 23 2020 chgrp + -rwxr-xr-x 1 root root 67528 Sep 23 2020 chmod + -rwxr-xr-x 1 root root 75752 Sep 23 2020 chown + -rwxr-xr-x 1 root root 157960 Sep 23 2020 cp + -rwxr-xr-x 1 root root 128724 Dec 11 2020 dash + -rwxr-xr-x 1 root root 124904 Sep 23 2020 date + -rwxr-xr-x 1 root root 92172 Sep 23 2020 dd + -rwxr-xr-x 1 root root 100752 Sep 23 2020 df + -rwxr-xr-x 1 root root 153964 Sep 23 2020 dir + -rwxr-xr-x 1 root root 83644 Feb 8 2021 dmesg + lrwxrwxrwx 1 root root 8 Nov 8 2019 dnsdomainname -> hostname + lrwxrwxrwx 1 root root 8 Nov 8 2019 domainname -> hostname + -rwxr-xr-x 1 root root 34664 Sep 23 2020 echo + -rwxr-xr-x 1 root root 28 Nov 10 2020 egrep + -rwxr-xr-x 1 root root 34664 Sep 23 2020 false + -rwxr-xr-x 1 root root 28 Nov 10 2020 fgrep + -rwxr-xr-x 1 root root 71928 Feb 8 2021 findmnt + -rwsr-xr-x 1 root root 30112 Feb 27 2021 fusermount + -rwxr-xr-x 1 root root 210488 Nov 10 2020 grep + -rwxr-xr-x 2 root root 2346 Mar 3 2021 gunzip + -rwxr-xr-x 1 root root 6376 Mar 3 2021 gzexe + -rwxr-xr-x 1 root root 100952 Mar 3 2021 gzip + -rwxr-xr-x 1 root root 21916 Nov 8 2019 hostname + -rwxr-xr-x 1 root root 83980 Sep 23 2020 ln + -rwxr-xr-x 1 root root 55572 Feb 8 2020 login + -rwxr-xr-x 1 root root 153964 Sep 23 2020 ls + -rwxr-xr-x 1 root root 153124 Feb 8 2021 lsblk + -rwxr-xr-x 1 root root 96328 Sep 23 2020 mkdir + -rwxr-xr-x 1 root root 79912 Sep 23 2020 mknod + -rwxr-xr-x 1 root root 47048 Sep 23 2020 mktemp + -rwxr-xr-x 1 root root 58920 Feb 8 2021 more + -rwsr-xr-x 1 root root 50720 Feb 8 2021 mount + -rwxr-xr-x 1 root root 13856 Feb 8 2021 mountpoint + -rwxr-xr-x 1 root root 157996 Sep 23 2020 mv + lrwxrwxrwx 1 root root 8 Nov 8 2019 nisdomainname -> hostname + lrwxrwxrwx 1 root root 14 Apr 19 2021 pidof -> /sbin/killall5 + -rwxr-xr-x 1 root root 38824 Sep 23 2020 pwd + lrwxrwxrwx 1 root root 4 Jun 22 2021 rbash -> bash + -rwxr-xr-x 1 root root 46984 Sep 23 2020 readlink + -rwxr-xr-x 1 root root 75720 Sep 23 2020 rm + -rwxr-xr-x 1 root root 46984 Sep 23 2020 rmdir + -rwxr-xr-x 1 root root 22292 Sep 28 2020 run-parts + -rwxr-xr-x 1 root root 125036 Dec 23 2018 sed + lrwxrwxrwx 1 root root 4 Aug 9 10:33 sh -> bash + lrwxrwxrwx 1 root root 4 Aug 8 05:48 sh.distrib -> dash + -rwxr-xr-x 1 root root 34696 Sep 23 2020 sleep + -rwxr-xr-x 1 root root 83880 Sep 23 2020 stty + -rwsr-xr-x 1 root root 79396 Feb 8 2021 su + -rwxr-xr-x 1 root root 34696 Sep 23 2020 sync + -rwxr-xr-x 1 root root 602584 Feb 17 2021 tar + -rwxr-xr-x 1 root root 13860 Sep 28 2020 tempfile + -rwxr-xr-x 1 root root 108520 Sep 23 2020 touch + -rwxr-xr-x 1 root root 34664 Sep 23 2020 true + -rwxr-xr-x 1 root root 17768 Feb 27 2021 ulockmgr_server + -rwsr-xr-x 1 root root 30236 Feb 8 2021 umount + -rwxr-xr-x 1 root root 34664 Sep 23 2020 uname + -rwxr-xr-x 2 root root 2346 Mar 3 2021 uncompress + -rwxr-xr-x 1 root root 153964 Sep 23 2020 vdir + -rwxr-xr-x 1 root root 63024 Feb 8 2021 wdctl + lrwxrwxrwx 1 root root 8 Nov 8 2019 ypdomainname -> hostname + -rwxr-xr-x 1 root root 1984 Mar 3 2021 zcat + -rwxr-xr-x 1 root root 1678 Mar 3 2021 zcmp + -rwxr-xr-x 1 root root 5880 Mar 3 2021 zdiff + -rwxr-xr-x 1 root root 29 Mar 3 2021 zegrep + -rwxr-xr-x 1 root root 29 Mar 3 2021 zfgrep + -rwxr-xr-x 1 root root 2081 Mar 3 2021 zforce + -rwxr-xr-x 1 root root 7585 Mar 3 2021 zgrep + -rwxr-xr-x 1 root root 2206 Mar 3 2021 zless + -rwxr-xr-x 1 root root 1842 Mar 3 2021 zmore + -rwxr-xr-x 1 root root 4553 Mar 3 2021 znew +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -656,7 +690,7 @@ Get: 443 http://deb.debian.org/debian bullseye/main i386 gnuplot-nox i386 5.4.1+dfsg1-1 [865 kB] Get: 444 http://deb.debian.org/debian bullseye/main i386 dh-octave-autopkgtest all 1.0.3 [9376 B] Get: 445 http://deb.debian.org/debian bullseye/main i386 dh-octave all 1.0.3 [21.9 kB] -Fetched 162 MB in 1min 7s (2410 kB/s) +Fetched 162 MB in 2s (86.8 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package bsdextrautils. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19675 files and directories currently installed.) @@ -2482,8 +2516,25 @@ Writing extended state information... Building tag database... -> Finished parsing the build-deps +Reading package lists... +Building dependency tree... +Reading state information... +The following NEW packages will be installed: + usrmerge +0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded. +Need to get 13.0 kB of archives. +After this operation, 43.0 kB of additional disk space will be used. +Get:1 http://deb.debian.org/debian bullseye/main i386 usrmerge all 25 [13.0 kB] +debconf: delaying package configuration, since apt-utils is not installed +Fetched 13.0 kB in 0s (332 kB/s) +Selecting previously unselected package usrmerge. +(Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 35803 files and directories currently installed.) +Preparing to unpack .../archives/usrmerge_25_all.deb ... +Unpacking usrmerge (25) ... +Setting up usrmerge (25) ... +The system has been successfully converted. I: Building the package -I: Running cd /build/octave-image-2.12.0/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b +I: Running cd /build/octave-image-2.12.0/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b dpkg-buildpackage: info: source package octave-image dpkg-buildpackage: info: source version 2.12.0-10 dpkg-buildpackage: info: source distribution unstable @@ -2520,7 +2571,7 @@ pkg at line 568 column 9 /usr/share/dh-octave/install-pkg.m at line 43 column 1 -checking for a sed that does not truncate output... /bin/sed +checking for a sed that does not truncate output... /usr/bin/sed checking for octave... /usr/bin/octave checking for mkoctfile... /usr/bin/mkoctfile --verbose checking whether the C++ compiler works... yes @@ -2544,65 +2595,65 @@ config.status: creating config.h make[1]: Entering directory '/build/octave-image-2.12.0/src' /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __spatial_filtering__.cc +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __spatial_filtering__.cc -o /tmp/oct-eMXh82.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __bilateral__.cc /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __eps__.cc +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __bilateral__.cc -o /tmp/oct-QlPPSs.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __eps__.cc -o /tmp/oct-bBwDmM.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __custom_gaussian_smoothing__.cc +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __custom_gaussian_smoothing__.cc -o /tmp/oct-2I1krG.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __boundary__.cc /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwfill.cc +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __boundary__.cc -o /tmp/oct-EnhQkd.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security rotate_scale.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __custom_gaussian_smoothing__.cc -o /tmp/oct-E1H6JT.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwfill.cc -o /tmp/oct-Muz6zB.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security rotate_scale.cc -o /tmp/oct-duSfo3.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security hough_line.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __spatial_filtering__.cc -o /tmp/oct-YnUs8F.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __eps__.cc -o /tmp/oct-SHXRdN.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __bilateral__.cc -o /tmp/oct-1DYCgL.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security hough_line.cc -o /tmp/oct-bpeyHC.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security graycomatrix.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security __boundary__.cc -o /tmp/oct-RdHcKY.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security hough_line.cc -o /tmp/oct-H1ubVf.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwdist.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwfill.cc -o /tmp/oct-WY7lI1.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security rotate_scale.cc -o /tmp/oct-TmLbi6.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security graycomatrix.cc -o /tmp/oct-e45vUx.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwdist.cc -o /tmp/oct-hmt6r4.o -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __eps__.oct /tmp/oct-SHXRdN.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __boundary__.oct /tmp/oct-RdHcKY.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o hough_line.oct /tmp/oct-H1ubVf.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security graycomatrix.cc -o /tmp/oct-gagvTg.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwdist.cc -o /tmp/oct-5lRN0q.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security intlut.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security intlut.cc -o /tmp/oct-hExMWV.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security intlut.cc -o /tmp/oct-BEtmJ7.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security nonmax_suppress.cc -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security nonmax_suppress.cc -o /tmp/oct-6ORZTc.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security nonmax_suppress.cc -o /tmp/oct-BTgOOB.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -c strel.cc g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security strel.cc -o strel.o -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o graycomatrix.oct /tmp/oct-e45vUx.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o rotate_scale.oct /tmp/oct-TmLbi6.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -c connectivity.cc g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security connectivity.cc -o connectivity.o -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwdist.oct /tmp/oct-hmt6r4.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro cp ntsc2rgb.m.in ntsc2rgb.m cp rgb2ntsc.m.in rgb2ntsc.m -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwfill.oct /tmp/oct-WY7lI1.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __custom_gaussian_smoothing__.oct /tmp/oct-E1H6JT.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o intlut.oct /tmp/oct-hExMWV.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o nonmax_suppress.oct /tmp/oct-6ORZTc.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __bilateral__.oct /tmp/oct-1DYCgL.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o hough_line.oct /tmp/oct-bpeyHC.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __eps__.oct /tmp/oct-bBwDmM.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o graycomatrix.oct /tmp/oct-gagvTg.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o intlut.oct /tmp/oct-BEtmJ7.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o rotate_scale.oct /tmp/oct-duSfo3.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __boundary__.oct /tmp/oct-EnhQkd.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwfill.oct /tmp/oct-Muz6zB.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o nonmax_suppress.oct /tmp/oct-BTgOOB.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security conndef.cc connectivity.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security conndef.cc -o /tmp/oct-Z9qtqR.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwlabeln.cc connectivity.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwlabeln.cc -o /tmp/oct-kxJCeE.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imreconstruct.cc connectivity.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imreconstruct.cc -o /tmp/oct-eIoTFX.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwconncomp.cc connectivity.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security conndef.cc -o /tmp/oct-04zoNQ.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwconncomp.cc -o /tmp/oct-QFJibD.o /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security watershed.cc connectivity.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwlabeln.cc -o /tmp/oct-vRQjeV.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security bwconncomp.cc -o /tmp/oct-GlVlX7.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imreconstruct.cc -o /tmp/oct-YngjY1.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security watershed.cc -o /tmp/oct-Fphv4k.o -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __spatial_filtering__.oct /tmp/oct-YnUs8F.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o conndef.oct connectivity.o /tmp/oct-04zoNQ.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwdist.oct /tmp/oct-5lRN0q.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security watershed.cc -o /tmp/oct-Qc7D7d.o +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __custom_gaussian_smoothing__.oct /tmp/oct-2I1krG.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o conndef.oct connectivity.o /tmp/oct-Z9qtqR.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __bilateral__.oct /tmp/oct-QlPPSs.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro /usr/bin/mkoctfile --verbose -Wall -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imerode.cc strel.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imerode.cc -o /tmp/oct-5LDxr0.o -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwconncomp.oct connectivity.o /tmp/oct-GlVlX7.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwlabeln.oct connectivity.o /tmp/oct-vRQjeV.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o imreconstruct.oct connectivity.o /tmp/oct-YngjY1.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o watershed.oct connectivity.o /tmp/oct-Fphv4k.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro -g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o imerode.oct strel.o /tmp/oct-5LDxr0.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security imerode.cc -o /tmp/oct-tigcvw.o +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwconncomp.oct connectivity.o /tmp/oct-QFJibD.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o bwlabeln.oct connectivity.o /tmp/oct-kxJCeE.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o __spatial_filtering__.oct /tmp/oct-eMXh82.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o imreconstruct.oct connectivity.o /tmp/oct-eIoTFX.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o watershed.oct connectivity.o /tmp/oct-Qc7D7d.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro +g++ -I/usr/include/octave-6.2.0/octave/.. -I/usr/include/octave-6.2.0/octave -pthread -fopenmp -mieee-fp -ffloat-store -g -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -ffloat-store -O2 -fdebug-prefix-map=/build/octave-image-2.12.0=. -fstack-protector-strong -Wformat -Werror=format-security -o imerode.oct strel.o /tmp/oct-tigcvw.o -shared -Wl,-Bsymbolic -Wl,-z,relro -L/usr/lib/i386-linux-gnu -Wl,-z,relro make[1]: Leaving directory '/build/octave-image-2.12.0/src' copyfile /build/octave-image-2.12.0/./src/ntsc2rgb.m /build/octave-image-2.12.0/./src/rgb2ntsc.m/build/octave-image-2.12.0/./inst copyfile /build/octave-image-2.12.0/./src/__bilateral__.oct /build/octave-image-2.12.0/./src/__boundary__.oct /build/octave-image-2.12.0/./src/__custom_gaussian_smoothing__.oct /build/octave-image-2.12.0/./src/__eps__.oct /build/octave-image-2.12.0/./src/__spatial_filtering__.oct /build/octave-image-2.12.0/./src/bwconncomp.oct /build/octave-image-2.12.0/./src/bwdist.oct /build/octave-image-2.12.0/./src/bwfill.oct /build/octave-image-2.12.0/./src/bwlabeln.oct /build/octave-image-2.12.0/./src/conndef.oct /build/octave-image-2.12.0/./src/graycomatrix.oct /build/octave-image-2.12.0/./src/hough_line.oct /build/octave-image-2.12.0/./src/imerode.oct /build/octave-image-2.12.0/./src/imreconstruct.oct /build/octave-image-2.12.0/./src/intlut.oct /build/octave-image-2.12.0/./src/nonmax_suppress.oct /build/octave-image-2.12.0/./src/rotate_scale.oct /build/octave-image-2.12.0/./src/watershed.oct /build/octave-image-2.12.0/./src/__spatial_filtering__.cc-tst /build/octave-image-2.12.0/./src/bwconncomp.cc-tst /build/octave-image-2.12.0/./src/bwdist.cc-tst /build/octave-image-2.12.0/./src/bwfill.cc-tst /build/octave-image-2.12.0/./src/bwlabeln.cc-tst /build/octave-image-2.12.0/./src/conndef.cc-tst /build/octave-image-2.12.0/./src/graycomatrix.cc-tst /build/octave-image-2.12.0/./src/hough_line.cc-tst /build/octave-image-2.12.0/./src/imerode.cc-tst /build/octave-image-2.12.0/./src/imreconstruct.cc-tst /build/octave-image-2.12.0/./src/intlut.cc-tst /build/octave-image-2.12.0/./src/watershed.cc-tst /build/octave-image-2.12.0/./inst/i686-pc-linux-gnu-api-v55 @@ -2611,259 +2662,203 @@ dh_octave_check -O--buildsystem=octave Checking package... Checking m files ... -[inst/imgradient.m] ->>>>> /build/octave-image-2.12.0/inst/imgradient.m -***** test - A = [0 1 0 - 1 1 1 - 0 1 0]; +[inst/impyramid.m] +>>>>> /build/octave-image-2.12.0/inst/impyramid.m +***** xtest + ## bug #51979 (results are not matlab compatible) + in = [116 227 153 69 146 194 59 130 139 106 + 2 47 137 249 90 75 16 24 158 44 + 155 68 46 84 166 156 69 204 32 152 + 71 221 137 230 210 153 192 115 30 118 + 107 143 108 52 51 73 101 21 175 90 + 54 158 143 77 26 168 113 229 165 225 + 9 47 133 135 130 207 236 43 19 73]; - [gMag, gDir] = imgradient (A); - assert (gMag,[sqrt(18) 4 sqrt(18); 4 0 4; sqrt(18),4,sqrt(18)]); - assert (gDir,[-45 -90 -135; -0 -0 -180; 45 90 135]); + reduced = [ + 114 139 131 103 111 + 97 122 141 111 100 + 103 123 112 123 122 + 47 107 134 153 94]; - ## the following just test if passing gx and gy separately gets - ## us the same as the image and method though imgradient - [gxSobel, gySobel] = imgradientxy (A, "Sobel"); - [gxPrewitt, gyPrewitt] = imgradientxy (A, "Prewitt"); - [gxCd, gyCd] = imgradientxy (A, "CentralDifference"); - [gxId, gyId] = imgradientxy (A, "IntermediateDifference"); + expanded = [ + 115 154 185 178 150 122 105 116 138 159 158 117 78 86 112 129 133 120 103 + 69 98 128 141 146 152 152 139 125 127 121 87 55 58 81 113 131 112 84 + 40 54 74 100 131 167 184 157 119 104 92 64 41 44 66 100 121 103 74 + 76 69 65 75 97 130 153 148 131 122 108 80 61 79 103 105 98 97 98 + 120 105 88 77 78 96 121 143 155 154 140 112 98 124 143 109 74 91 123 + 117 129 134 119 107 125 153 173 180 172 156 143 138 146 140 96 60 83 122 + 99 139 170 157 139 156 181 188 180 164 151 154 156 140 112 81 65 84 110 + 101 136 163 153 133 132 138 136 130 122 120 130 133 108 82 86 99 104 104 + 103 126 143 136 116 97 81 73 73 82 94 105 105 87 78 108 138 133 116 + 90 116 139 139 122 96 69 52 53 80 109 114 111 116 128 148 163 164 160 + 66 99 131 140 131 109 83 62 62 102 142 144 138 154 169 164 157 169 184 + 41 68 99 121 130 122 107 92 95 133 173 182 172 156 135 114 105 121 142 + 21 38 64 98 124 131 127 123 129 160 194 212 199 144 82 52 48 65 85]; - assert (imgradient (A), - imgradient (gxSobel, gySobel)); - assert (imgradient (A, "Sobel"), - imgradient (gxSobel, gySobel)); - assert (imgradient (A, "Prewitt"), - imgradient(gxPrewitt, gyPrewitt)); - assert (imgradient (A, "CentralDifference"), - imgradient (gxCd, gyCd)); - assert (imgradient (A, "IntermediateDifference"), - imgradient (gxId, gyId)); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/radon.m] ->>>>> /build/octave-image-2.12.0/inst/radon.m -***** test - A = radon(ones(2,2),30); - assert (A,[0 0 0.608253175473055 2.103325780167649 1.236538105676658 0.051882938682637 0]',1e-10) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/xyz2rgb.m] ->>>>> /build/octave-image-2.12.0/inst/xyz2rgb.m -***** assert (xyz2rgb ([0, 0, 0]), [0 0 0], 1e-3) -***** assert (xyz2rgb ([0.4125, 0.2127, 0.0193]), [1 0 0], 1e-3) -***** assert (xyz2rgb ([0.7700, 0.9278, 0.1385]), [1 1 0], 1e-3) -***** assert (xyz2rgb ([0.3576, 0.7152, 0.1192]), [0 1 0], 1e-3) -***** assert (xyz2rgb ([0.5380, 0.7873, 1.0694]), [0 1 1], 1e-3) -***** assert (xyz2rgb ([0.1804, 0.07217, 0.9502]), [0 0 1], 1e-3) -***** assert (xyz2rgb ([0.5929, 0.28484, 0.9696]), [1 0 1], 1e-3) -***** assert (xyz2rgb ([0.9505, 1.0000, 1.0888]), [1 1 1], 1e-3) -***** assert (xyz2rgb ([0.2034, 0.2140, 0.2330]), [0.5 0.5 0.5], 1e-3) -***** assert (xyz2rgb ([0.2155, 0.1111, 0.0101]), [0.75 0 0], 1e-3) -***** assert (xyz2rgb ([0.0883, 0.0455, 0.0041]), [0.5 0 0], 1e-3) -***** assert (xyz2rgb ([0.0210, 0.0108, 0.0010]), [0.25 0 0], 1e-3) -***** assert (xyz2rgb ([0.5276, 0.3812, 0.2482]), [1 0.5 0.5], 1e-3) -***** assert (xyz2rgb ([1.5 1 1]), [1.5712, 0.7109 0.9717], 1e-3) -***** test - xyz_map = rand (64, 3); - assert (rgb2xyz (xyz2rgb (xyz_map)), xyz_map, 3e-4); -***** test - xyz_img = rand (64, 64, 3); - assert (rgb2xyz (xyz2rgb (xyz_img)), xyz_img, 3e-4); -***** assert (xyz2rgb (sparse ([0 0 0])), [0 0 0], 1e-3) -***** assert (class (xyz2rgb (single([0.5 0.5 0.5]))), 'single') -***** error xyz2rgb () -***** error xyz2rgb (1,2) -***** error xyz2rgb ({1}) -***** error xyz2rgb (ones (2,2)) -***** test - xyz = rand (16, 16, 3, 5); - rgb = zeros (size (xyz)); - for i = 1:5 - rgb(:,:,:,i) = xyz2rgb (xyz(:,:,:,i)); - endfor - assert (xyz2rgb (xyz), rgb) -23 tests, 23 passed, 0 known failure, 0 skipped -[inst/im2bw.m] ->>>>> /build/octave-image-2.12.0/inst/im2bw.m -***** assert(im2bw ([0 0.4 0.5 0.6 1], 0.5), logical([0 0 0 1 1])); # basic usage -***** assert(im2bw (uint8 ([0 100 255]), 0.5), logical([0 0 1])); # with a uint8 input -***** warning bw = im2bw (logical ([0 1 0])); -***** warning bw = im2bw (logical ([0 1 0]), 1); -***** test - warning ("off", "all", "local"); - assert (im2bw (logical ([0 1 0])), logical ([0 1 0])) - assert (im2bw (logical ([0 1 0]), 0), logical ([0 1 0])) - assert (im2bw (logical ([0 1 0]), 1), logical ([0 1 0])) -***** assert (nnz (im2bw (uint8 ([0:255]), 0.9)), 26) -***** test - img = uint8 ([0:255]); - s = 0; - for i=0:.1:1 - s += nnz (im2bw (img, i)); - endfor - assert (s, 1405) -***** assert (nnz (im2bw (int16 ([-128:127]), 0.499)), 194) -***** assert (nnz (im2bw (int16 ([-128:127]), 0.500)), 128) -***** assert (nnz (im2bw (int16 ([-128:127]), 0.501)), 62) -***** test - img = uint16 ([0:intmax("uint16")]); - s = 0; - for i=0:.1:1 - s += nnz (im2bw (img, i)); - endfor - assert (s, 360445) + assert (impyramid (uint8 (in), "reduce"), uint8 (reduced)) + assert (impyramid (uint8 (in), "expand"), uint8 (expanded)) +!!!!! known failure +ASSERT errors for: assert (impyramid (uint8 (in), "reduce"),uint8 (reduced)) + + Location | Observed | Expected | Reason + (2,4) 110 111 Abs err 1 exceeds tol 0 by 1 + (2,5) 99 100 Abs err 1 exceeds tol 0 by 1 + (3,5) 121 122 Abs err 1 exceeds tol 0 by 1 ***** test - img = int16 ([intmin("int16"):intmax("int16")]); - s = 0; - for i=0:.1:1 - s += nnz (im2bw (img, i)); + in = randi ([0 255], [40 39 3 5], "uint8"); + red = impyramid (in, "reduce"); + for p = 1:3 + for n = 1:5 + assert (red(:,:,p,n), impyramid (in(:,:,p,n), "reduce")) + endfor endfor - assert (s, 360445) -***** test - im = [((randn(10)/10)+.3) ((randn(10)/10)+.7)]; - assert (im2bw (im, "Otsu"), im2bw (im, graythresh (im, "Otsu"))) - assert (im2bw (im, "moments"), im2bw (im, graythresh (im, "moments"))) -***** test - im = [((randn(10)/10)+.3) ((randn(10)/10)+.7)]; - im = reshape (im, [10 10 1 2]); - assert (im2bw (im, "Otsu"), im2bw (im, graythresh (im, "Otsu"))) - assert (im2bw (im, "moments"), im2bw (im, graythresh (im, "moments"))) -14 tests, 14 passed, 0 known failure, 0 skipped -[inst/mat2gray.m] ->>>>> /build/octave-image-2.12.0/inst/mat2gray.m -***** assert(mat2gray([1 2 3]), [0 0.5 1]); # standard use -***** assert(mat2gray(repmat ([1 2; 3 3], [1 1 3])), repmat ([0 0.5; 1 1], [1 1 3])); # setting min and max -***** assert(mat2gray([1 2 3], [2 2]), [1 1 1]); # equal min and max -***** assert(mat2gray([-1 0 0.5 3], [2 2]), [0 0 0.5 1]); # equal min and max -***** test - ## SCALE is unset and all values in the input IMAGE are the same: - ## case 1: all values are in the [0 1] range] - assert (mat2gray ([.5 .5; .5 .5]), [.5 .5; .5 .5]) - ## case 2: all values are above the [0 1] range - assert (mat2gray ([3 3; 3 3]), [1 1; 1 1]) - ## case 2: all values are below the [0 1] range - assert (mat2gray ([-3 -3; -3 -3]), [0 0; 0 0]) -***** assert(mat2gray([1 2 3], [3 1]), [1 0.5 0]); # max and min inverted -***** assert (mat2gray ([-3 -2 -1]), [0 0.5 1]) -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/rgb2lab.m] ->>>>> /build/octave-image-2.12.0/inst/rgb2lab.m -***** assert (rgb2lab ([0 0 0]), [0, 0, 0], 1e-2) -***** assert (rgb2lab ([1 0 0]), [53.24, 80.09, 67.20], 1e-2) -***** assert (rgb2lab ([1 1 0]), [97.14, -21.55, 94.48], 1e-2) -***** assert (rgb2lab ([0 1 0]), [87.74, -86.18, 83.18], 1e-2) -***** assert (rgb2lab ([0 1 1]), [91.11, -48.09, -14.13], 1e-2) -***** assert (rgb2lab ([0 0 1]), [32.30, 79.19, -107.86], 1e-2) -***** assert (rgb2lab ([1 0 1]), [60.32, 98.24, -60.83], 1e-2) -***** assert (rgb2lab ([1 1 1]), [100, 0.00, 0.00], 1e-2) -***** assert (rgb2lab ([0.5 0.5 0.5]), [53.39, 0.00, 0.00], 1e-2) -***** assert (rgb2lab ([0.75 0 0]), [39.77, 64.51, 54.13], 1e-2) -***** assert (rgb2lab ([0.5 0 0]), [25.42, 47.91, 37.91], 1e-2) -***** assert (rgb2lab ([0.25 0 0]), [9.66, 29.68, 15.24], 1e-2) -***** assert (rgb2lab ([1 0.5 0.5]), [68.11, 48.39, 22.83], 1e-2) -***** assert (rgb2lab ([1.5 1 1]), [111.47, 43.42, 17.98], 1e-2) -***** test - rgb_map = rand (64, 3); - assert (lab2rgb (rgb2lab (rgb_map)), rgb_map, 2e-5); -***** test - rgb_img = rand (64, 64, 3); - assert (lab2rgb (rgb2lab (rgb_img)), rgb_img, 2e-5); -***** assert (rgb2lab (sparse ([0 0 1])), sparse ([32.30, 79.19, -107.86]), 1e-2) -***** assert (rgb2lab (sparse ([0 1 1])), sparse ([91.11, -48.09, -14.13]), 1e-2) -***** assert (rgb2lab (sparse ([1 1 1])), sparse ([100, 0.00, 0.00]), 1e-2) -***** assert (rgb2lab (uint8([255 255 255])), [100, 0.00, 0.00], 1e-2) -***** assert (class (rgb2lab (single([1 1 1]))), 'single') -***** error rgb2lab () -***** error rgb2lab (1,2) -***** error rgb2lab ({1}) -***** error rgb2lab (ones (2,2)) -***** test - rgb = rand (16, 16, 3, 5); - lab = zeros (size (rgb)); - for i = 1:5 - lab(:,:,:,i) = rgb2lab (rgb(:,:,:,i)); + + exp = impyramid (in, "expand"); + for p = 1:3 + for n = 1:5 + assert (exp(:,:,p,n), impyramid (in(:,:,p,n), "expand")) + endfor endfor - assert (rgb2lab (rgb), lab) -26 tests, 26 passed, 0 known failure, 0 skipped -[inst/imimposemin.m] ->>>>> /build/octave-image-2.12.0/inst/imimposemin.m -***** shared im0, bw0, out0, out0_4 - im0 = uint8 ([5 5 5 5 5; - 5 4 3 4 5; - 5 3 0 3 5; - 5 4 3 4 5; - 5 5 5 5 5]); - bw0 = false (5); - bw0(4, 4) = true; - out0 = im0 + 1; - out0(4, 4) = 0; - out0_4 = out0; - out0_4(3, 3) = 4; -***** error imimposemin () -***** error imimposemin (im0) -***** error imimposemin ("hello", bw0) -***** error imimposemin (i.*im0, bw0) -***** error imimposemin (sparse (im0), bw0) -***** error imimposemin (im0, ones (2)) -***** error imimposemin (im0, 'hello') -***** error imimposemin (im0, i .* double (bw0)) -***** error imimposemin (im0, sparse (bw0)) -***** error imimposemin (im0, bw0, 'hello') -***** error imimposemin (im0, bw0, 3) -***** assert (imimposemin (im0, bw0), out0) -***** assert (imimposemin (im0, bw0, 8), out0) -***** assert (imimposemin (im0, bw0, 4), out0_4) -***** assert (imimposemin (im0, bw0, true (3)), out0) -***** test - out = imimposemin (im0, bw0); - assert (size (out), size (im0)) - assert (class (out), "uint8") -***** test - out = imimposemin (double (im0), bw0); - assert (size (out), size (im0)) - assert (class (out), "double") -***** test - out = imimposemin (single (im0), bw0); - assert (size (out), size (im0)) - assert (class (out), "single") -***** test - out = imimposemin (uint16 (im0), bw0); - assert (size (out), size (im0)) - assert (class (out), "uint16") -***** test - im = cat (3, im0, im0, im0, im0); - bw = cat (3, bw0, bw0, bw0, bw0); - out = imimposemin (im, bw); - assert (size (out), size (im)) -***** test - expected_double = double (im0); - expected_double += 0.005; - expected_double(4, 4) = -inf; - out = imimposemin (double (im0), bw0); - assert (out, expected_double, eps) -***** test - im = uint8 (10 .* ones (10)); - im(6:8, 6:8) = 2; - im(2:4, 2:4) = 7; - im(3, 3) = 5; - im(2, 9) = 9; - im(3, 8) = 9; - im(9, 2) = 9; - im(8, 3) = 9; - bw = false (10); - bw(3, 3) = true; - bw(6:8, 6:8) = true; - expected = uint8 (11 .* ones(10)); - expected(2:4, 2:4) = 8; - expected(3, 3) = 0; - expected(6:8, 6:8) = 0; - expected_double = double (expected); - expected_double -= 0.992; - expected_double (expected_double < 0) = -inf; - out = imimposemin (im, bw); - assert (out, expected, eps) - out = imimposemin (double (im), bw); - assert (out, expected_double, eps) -22 tests, 22 passed, 0 known failure, 0 skipped +***** xtest + ## bug #51979 (results are not matlab compatible) + in = repmat (uint8 (255), [10 10]); + assert (impyramid (in, "reduce"), repmat (uint8 (255), [5 5])) + assert (impyramid (in, "expand"), repmat (uint8 (255), [19 19])) +!!!!! known failure +ASSERT errors for: assert (impyramid (in, "expand"),repmat (uint8 (255), [19, 19])) + + Location | Observed | Expected | Reason + (1,1) 195 255 Abs err 60 exceeds tol 0 by 6e+01 + (2,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (3,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (4,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (5,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (6,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (7,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (8,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (9,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (10,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (11,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (12,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (13,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (14,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (15,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (16,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (17,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (18,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,1) 195 255 Abs err 60 exceeds tol 0 by 6e+01 + (1,2) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,2) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,3) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,3) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,4) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,4) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,5) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,5) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,6) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,6) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,7) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,7) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,8) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,8) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,9) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,9) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,10) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,10) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,11) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,11) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,12) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,12) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,13) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,13) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,14) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,14) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,15) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,15) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,16) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,16) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,17) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,17) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,18) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,18) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (1,19) 195 255 Abs err 60 exceeds tol 0 by 6e+01 + (2,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (3,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (4,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (5,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (6,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (7,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (8,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (9,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (10,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (11,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (12,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (13,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (14,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (15,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (16,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (17,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (18,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 + (19,19) 195 255 Abs err 60 exceeds tol 0 by 6e+01 +***** xtest + ## bug #51979 (results are not matlab compatible) + in = logical ([ + 1 0 1 1 0 0 1 1 0 0 + 1 1 0 0 0 1 0 0 1 0 + 0 1 1 0 1 1 1 1 1 1 + 1 0 1 0 1 0 1 0 1 1 + 1 1 1 0 0 0 1 1 1 1 + 0 0 1 1 0 0 1 0 0 0 + 0 0 1 1 0 1 1 0 1 1 + 1 1 0 0 1 0 0 0 1 0 + 1 1 1 1 1 1 0 1 0 0 + 1 1 0 0 1 0 0 0 1 0]); + + reduced = logical ([ + 1 1 0 1 0 + 1 1 0 1 1 + 1 1 0 1 1 + 0 1 0 0 0 + 1 1 1 0 0]); + + expanded = logical ([ + 1 1 0 0 1 1 1 0 0 0 0 0 1 1 1 0 0 0 0 + 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 1 1 0 0 + 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 1 1 + 0 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 + 0 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 + 1 1 0 1 1 0 0 0 1 0 0 1 1 1 0 1 1 1 1 + 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 + 1 1 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 + 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 + 0 0 0 1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 + 0 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 + 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0 0 1 1 1 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 + 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0 + 1 1 1 1 1 0 1 1 1 1 0 0 0 0 0 0 0 0 0 + 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 0 0 0 + 1 1 1 1 1 0 1 1 1 1 0 0 0 0 0 0 0 0 0 + 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0]); + + assert (impyramid (in, "reduce"), reduced) + assert (impyramid (in, "expand"), expanded) +!!!!! known failure +ASSERT errors for: assert (impyramid (in, "reduce"),reduced) + + Location | Observed | Expected | Reason + (4,1) 1 0 Abs err 1 exceeds tol 0 by 1 + (1,3) 1 0 Abs err 1 exceeds tol 0 by 1 + (2,3) 1 0 Abs err 1 exceeds tol 0 by 1 + (3,3) 1 0 Abs err 1 exceeds tol 0 by 1 + (4,3) 1 0 Abs err 1 exceeds tol 0 by 1 + (4,4) 1 0 Abs err 1 exceeds tol 0 by 1 + (5,4) 1 0 Abs err 1 exceeds tol 0 by 1 + (1,5) 1 0 Abs err 1 exceeds tol 0 by 1 + (4,5) 1 0 Abs err 1 exceeds tol 0 by 1 + (5,5) 1 0 Abs err 1 exceeds tol 0 by 1 +4 tests, 1 passed, 3 known failures, 0 skipped [inst/histeq.m] >>>>> /build/octave-image-2.12.0/inst/histeq.m ***** assert (histeq ([]), []); @@ -3009,1341 +3004,950 @@ (9) 0.81818 0.77778 Abs err 0.040404 exceeds tol 1e-08 by 0.04 (10) 0.90909 0.87302 Abs err 0.036075 exceeds tol 1e-08 by 0.04 22 tests, 7 passed, 15 known failures, 0 skipped -[inst/lab2rgb.m] ->>>>> /build/octave-image-2.12.0/inst/lab2rgb.m -***** assert (lab2rgb ([0 0 0]), [0, 0, 0], 1e-3) -***** assert (lab2rgb ([53.24, 80.09, 67.20]), [1 0 0], 1e-3) -***** assert (lab2rgb ([97.14, -21.55, 94.48]), [1 1 0], 1e-3) -***** assert (lab2rgb ([87.74, -86.18, 83.18]), [0 1 0], 1e-3) -***** assert (lab2rgb ([91.11, -48.09, -14.13]), [0 1 1], 1e-3) -***** assert (lab2rgb ([32.30, 79.19, -107.86]), [0 0 1], 1e-3) -***** assert (lab2rgb ([60.32, 98.24, -60.83]), [1 0 1], 1e-3) -***** assert (lab2rgb ([100, 0.00, 0.00]), [1 1 1], 1e-3) -***** assert (lab2rgb ([53.39, 0.00, 0.00]), [0.5 0.5 0.5], 1e-3) -***** assert (lab2rgb ([39.77, 64.51, 54.13]), [0.75 0 0], 1e-3) -***** assert (lab2rgb ([25.42, 47.91, 37.91]), [0.5 0 0], 1e-3) -***** assert (lab2rgb ([9.66, 29.68, 15.24]), [0.25 0 0], 1e-3) -***** assert (lab2rgb ([68.11, 48.39, 22.83]), [1 0.5 0.5], 1e-3) -***** assert (lab2rgb ([150 130 130]), [2.714, 1.028, 0.492], 1e-3) +[inst/ordfilt2.m] +>>>>> /build/octave-image-2.12.0/inst/ordfilt2.m ***** test - lab_map = rand (64, 3); - lab_map(:,1) = lab_map(:,1) .* 100; - lab_map(:,2) = lab_map(:,2) .* 254 - 127; - lab_map(:,3) = lab_map(:,3) .* 254 - 127; - assert (rgb2lab (lab2rgb (lab_map)), lab_map, 5e-3); + order = 3; + domain = ones (3); + A = zeros (3,3); + B = ones (3,3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3,3); + E(2,2) = 2; + F = 3 .* ones (3,3); + F(2,2) = 1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + A_out = [0 0 0; 0 0 0; 0 0 0]; + B_out = [0 0 0; 0 1 0; 0 0 0]; + C_out = [0 0 0; 0 1 0; 0 0 0]; + D_out = [0 0 0; 0 1 0; 0 0 0]; + E_out = [0 0 0; 0 1 0; 0 0 0]; + F_out = [0 0 0; 0 3 0; 0 0 0]; + G_out = [0 0 0; -1 -1 0; 0 0 0]; + H_out = [0 0 0; 0 1 0; 0 0 0]; + assert (ordfilt2 (A, order, domain), A_out); + assert (ordfilt2 (B, order, domain), B_out); + assert (ordfilt2 (C, order, domain), C_out); + assert (ordfilt2 (D, order, domain), D_out); + assert (ordfilt2 (E, order, domain), E_out); + assert (ordfilt2 (F, order, domain), F_out); + assert (ordfilt2 (G, order, domain), G_out); + assert (ordfilt2 (H, order, domain), H_out); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/isbw.m] +>>>>> /build/octave-image-2.12.0/inst/isbw.m +***** shared img + img = round (rand (10)); +***** assert (isbw (img, "non-logical"), true); +***** assert (isbw (img, "logical"), false); +***** assert (isbw (logical (img), "logical"), true); +***** assert (isbw (logical (img), "non-logical"), true); ***** test - lab_img = rand (64, 64, 3); - lab_img(:,:,1) = lab_img(:,:,1) .* 100; - lab_img(:,:,2) = lab_img(:,:,2) .* 254 - 127; - lab_img(:,:,3) = lab_img(:,:,3) .* 254 - 127; - assert (rgb2lab (lab2rgb (lab_img)), lab_img, 5e-3); -***** assert (lab2rgb (sparse ([0 0 0])), [0 0 0], 1e-3) -***** assert (lab2rgb (sparse ([100, 0.00, 0.00])), [1 1 1], 1e-3) -***** assert (class (lab2rgb (single([50 50 50]))), 'single') -***** error lab2rgb () -***** error lab2rgb (1,2) -***** error lab2rgb ({1}) -***** error lab2rgb (ones (2,2)) + img(1, 1) = 2; + assert (isbw (img, "non-logical"), false); ***** test - lab = rand (16, 16, 3, 5); - lab(:,:,1,:) = lab(:,:,1,:) .* 100; - lab(:,:,2,:) = lab(:,:,2,:) .* 254 - 127; - lab(:,:,3,:) = lab(:,:,3,:) .* 254 - 127; - rgb = zeros (size (lab)); - for i = 1:5 - rgb(:,:,:,i) = lab2rgb (lab(:,:,:,i)); - endfor - assert (lab2rgb (lab), rgb) -24 tests, 24 passed, 0 known failure, 0 skipped -[inst/imresize.m] ->>>>> /build/octave-image-2.12.0/inst/imresize.m + a( 1, 1) = 1; + a(50, 50) = 2; + assert (isbw (a, "non-logical"), false); +***** assert (isbw (rand (5, 5, 1, 4) > 0.5), true) +***** assert (isbw (rand (5, 5, 3, 4) > 0.5), false) +***** assert (isbw (rand (5, 5, 3) > 0.5), false) +***** assert (isbw (rand (5, 5, 1, 3, 4) > 0.5), false) +***** assert (isbw (randi ([0 1], 5, 5, 1, 4), "non-logical"), true) +***** assert (isbw (randi ([0 1], 5, 5, 3, 4), "non-logical"), false) +***** assert (isbw (randi ([0 1], 5, 5, 3), "non-logical"), false) +***** assert (isbw (randi ([0 1], 5, 5, 1, 3, 4), "non-logical"), false) +***** assert (isbw (single ([0 0 1]), "non-logical"), true) +***** assert (isbw ([0 NaN 1], "non-logical"), false) +16 tests, 16 passed, 0 known failure, 0 skipped +[inst/imcrop.m] +>>>>> /build/octave-image-2.12.0/inst/imcrop.m ***** test - in = [116 227 153 69 146 194 59 130 139 106 - 2 47 137 249 90 75 16 24 158 44 - 155 68 46 84 166 156 69 204 32 152 - 71 221 137 230 210 153 192 115 30 118 - 107 143 108 52 51 73 101 21 175 90 - 54 158 143 77 26 168 113 229 165 225 - 9 47 133 135 130 207 236 43 19 73]; - assert (imresize (uint8 (in), 1, "nearest"), uint8 (in)) - assert (imresize (uint8 (in), 1, "bicubic"), uint8 (in)) - - out = [116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 - 116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 - 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 - 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 - 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 - 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 - 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 - 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 - 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 - 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 - 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 - 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 - 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73 - 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73]; - assert (imresize (uint8 (in), 2, "nearest"), uint8 (out)) - assert (imresize (uint8 (in), 2, "neAreST"), uint8 (out)) - assert (imresize (uint8 (in), [14 NaN], "nearest"), uint8 (out)) - assert (imresize (uint8 (in), [NaN 20], "nearest"), uint8 (out)) - - out = [116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 - 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 - 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 - 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 - 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 - 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 - 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73]; - assert (imresize (uint8 (in), [7 20], "nearest"), uint8 (out)) - - assert (imresize (uint8 (in), 1.5, "bicubic"), imresize (uint8 (in), 1.5, "cubic")) - assert (imresize (uint8 (in), [NaN, size(in,2)*1.5], "bicubic"), imresize (uint8 (in), 1.5, "cubic")) - assert (imresize (uint8 (in), [size(in,1)*1.5, NaN], "bicubic"), imresize (uint8 (in), 1.5, "cubic")) - assert (imresize (uint8 (in), 1.5, "linear"), imresize (uint8 (in), 1.5, "LIneAR")) - assert (imresize (uint8 (in), 1.5, "linear"), imresize (uint8 (in), 1.5, "triangle")) - - out = [ 47 249 75 24 44 - 221 230 153 115 118 - 158 77 168 229 225 - 47 135 207 43 73]; - assert (imresize (uint8 (in), 0.5, "nearest"), uint8 (out)) -***** assert (imresize (repmat (5, [3 3]), 2), repmat (5, [6 6]), eps*100) -***** assert (imresize (repmat (5, [3 3 2]), 2), repmat (5, [6 6 2]), eps*100) -***** shared in - in = [116 227 153 69 146 194 59 130 139 106 - 2 47 137 249 90 75 16 24 158 44 - 155 68 46 84 166 156 69 204 32 152 - 71 221 137 230 210 153 192 115 30 118 - 107 143 108 52 51 73 101 21 175 90 - 54 158 143 77 26 168 113 229 165 225 - 9 47 133 135 130 207 236 43 19 73]; -***** xtest - out = [116 185 235 171 96 64 134 189 186 74 90 141 140 124 108 - 44 92 143 149 164 163 119 123 118 44 38 80 151 118 63 - 14 21 47 107 195 228 115 81 70 24 19 56 137 105 49 - 145 98 49 49 71 107 148 159 132 58 124 176 61 85 145 - 118 139 144 92 116 168 201 188 159 140 167 158 27 69 152 - 62 151 218 145 174 219 201 164 146 187 148 84 48 76 115 - 102 132 151 119 90 72 72 72 83 114 60 31 144 130 81 - 82 121 154 133 87 41 19 67 116 95 108 140 183 180 164 - 40 96 152 149 117 74 34 108 179 131 175 215 153 177 219 - 11 33 73 127 137 125 113 158 212 229 148 55 35 63 96 - 4 17 53 121 141 138 133 171 220 253 141 16 7 36 67]; - assert (imresize (uint8 (in), 1.5, "bicubic"), uint8 (out)) -!!!!! known failure -ASSERT errors for: assert (imresize (uint8 (in), 1.5, "bicubic"),uint8 (out)) - - Location | Observed | Expected | Reason - (2,1) 18 44 Abs err 26 exceeds tol 0 by 3e+01 - (3,1) 18 14 Abs err 4 exceeds tol 0 by 4 - (4,1) 139 145 Abs err 6 exceeds tol 0 by 6 - (5,1) 125 118 Abs err 7 exceeds tol 0 by 7 - (6,1) 71 62 Abs err 9 exceeds tol 0 by 9 - (7,1) 94 102 Abs err 8 exceeds tol 0 by 8 - (8,1) 103 82 Abs err 21 exceeds tol 0 by 2e+01 - (9,1) 66 40 Abs err 26 exceeds tol 0 by 3e+01 - (10,1) 35 11 Abs err 24 exceeds tol 0 by 2e+01 - (11,1) 9 4 Abs err 5 exceeds tol 0 by 5 - (1,2) 211 185 Abs err 26 exceeds tol 0 by 3e+01 - (2,2) 65 92 Abs err 27 exceeds tol 0 by 3e+01 - (3,2) 32 21 Abs err 11 exceeds tol 0 by 1e+01 - (4,2) 78 98 Abs err 20 exceeds tol 0 by 2e+01 - (5,2) 132 139 Abs err 7 exceeds tol 0 by 7 - (6,2) 199 151 Abs err 48 exceeds tol 0 by 5e+01 - (7,2) 160 132 Abs err 28 exceeds tol 0 by 3e+01 - (8,2) 139 121 Abs err 18 exceeds tol 0 by 2e+01 - (9,2) 142 96 Abs err 46 exceeds tol 0 by 5e+01 - (10,2) 116 33 Abs err 83 exceeds tol 0 by 8e+01 - (11,2) 29 17 Abs err 12 exceeds tol 0 by 1e+01 - (1,3) 217 235 Abs err 18 exceeds tol 0 by 2e+01 - (2,3) 99 143 Abs err 44 exceeds tol 0 by 4e+01 - (3,3) 65 47 Abs err 18 exceeds tol 0 by 2e+01 - (4,3) 56 49 Abs err 7 exceeds tol 0 by 7 - (5,3) 114 144 Abs err 30 exceeds tol 0 by 3e+01 - (6,3) 204 218 Abs err 14 exceeds tol 0 by 1e+01 - (7,3) 162 151 Abs err 11 exceeds tol 0 by 1e+01 - (8,3) 140 154 Abs err 14 exceeds tol 0 by 1e+01 - (9,3) 155 152 Abs err 3 exceeds tol 0 by 3 - (10,3) 140 73 Abs err 67 exceeds tol 0 by 7e+01 - (11,3) 72 53 Abs err 19 exceeds tol 0 by 2e+01 - (1,4) 159 171 Abs err 12 exceeds tol 0 by 1e+01 - (2,4) 142 149 Abs err 7 exceeds tol 0 by 7 - (3,4) 118 107 Abs err 11 exceeds tol 0 by 1e+01 - (4,4) 54 49 Abs err 5 exceeds tol 0 by 5 - (5,4) 79 92 Abs err 13 exceeds tol 0 by 1e+01 - (6,4) 138 145 Abs err 7 exceeds tol 0 by 7 - (7,4) 121 119 Abs err 2 exceeds tol 0 by 2 - (8,4) 115 133 Abs err 18 exceeds tol 0 by 2e+01 - (9,4) 141 149 Abs err 8 exceeds tol 0 by 8 - (10,4) 144 127 Abs err 17 exceeds tol 0 by 2e+01 - (11,4) 132 121 Abs err 11 exceeds tol 0 by 1e+01 - (1,5) 94 96 Abs err 2 exceeds tol 0 by 2 - (2,5) 198 164 Abs err 34 exceeds tol 0 by 3e+01 - (3,5) 198 195 Abs err 3 exceeds tol 0 by 3 - (4,5) 77 71 Abs err 6 exceeds tol 0 by 6 - (5,5) 108 116 Abs err 8 exceeds tol 0 by 8 - (6,5) 193 174 Abs err 19 exceeds tol 0 by 2e+01 - (7,5) 113 90 Abs err 23 exceeds tol 0 by 2e+01 - (8,5) 73 87 Abs err 14 exceeds tol 0 by 1e+01 - (9,5) 102 117 Abs err 15 exceeds tol 0 by 2e+01 - (10,5) 118 137 Abs err 19 exceeds tol 0 by 2e+01 - (11,5) 135 141 Abs err 6 exceeds tol 0 by 6 - (1,6) 76 64 Abs err 12 exceeds tol 0 by 1e+01 - (2,6) 206 163 Abs err 43 exceeds tol 0 by 4e+01 - (3,6) 217 228 Abs err 11 exceeds tol 0 by 1e+01 - (4,6) 113 107 Abs err 6 exceeds tol 0 by 6 - (5,6) 147 168 Abs err 21 exceeds tol 0 by 2e+01 - (6,6) 229 219 Abs err 10 exceeds tol 0 by 1e+01 - (7,6) 115 72 Abs err 43 exceeds tol 0 by 4e+01 - (8,6) 51 41 Abs err 10 exceeds tol 0 by 1e+01 - (9,6) 58 74 Abs err 16 exceeds tol 0 by 2e+01 - (10,6) 83 125 Abs err 42 exceeds tol 0 by 4e+01 - (11,6) 134 138 Abs err 4 exceeds tol 0 by 4 - (1,7) 136 134 Abs err 2 exceeds tol 0 by 2 - (2,7) 106 119 Abs err 13 exceeds tol 0 by 1e+01 - (3,7) 106 115 Abs err 9 exceeds tol 0 by 9 - (4,7) 149 148 Abs err 1 exceeds tol 0 by 1 - (5,7) 188 201 Abs err 13 exceeds tol 0 by 1e+01 - (6,7) 214 201 Abs err 13 exceeds tol 0 by 1e+01 - (7,7) 114 72 Abs err 42 exceeds tol 0 by 4e+01 - (8,7) 43 19 Abs err 24 exceeds tol 0 by 2e+01 - (9,7) 29 34 Abs err 5 exceeds tol 0 by 5 - (10,7) 48 113 Abs err 65 exceeds tol 0 by 6e+01 - (11,7) 130 133 Abs err 3 exceeds tol 0 by 3 - (1,8) 177 189 Abs err 12 exceeds tol 0 by 1e+01 - (2,8) 98 123 Abs err 25 exceeds tol 0 by 2e+01 - (3,8) 90 81 Abs err 9 exceeds tol 0 by 9 - (4,8) 151 159 Abs err 8 exceeds tol 0 by 8 - (5,8) 173 188 Abs err 15 exceeds tol 0 by 2e+01 - (6,8) 178 164 Abs err 14 exceeds tol 0 by 1e+01 - (7,8) 103 72 Abs err 31 exceeds tol 0 by 3e+01 - (8,8) 59 67 Abs err 8 exceeds tol 0 by 8 - (9,8) 89 108 Abs err 19 exceeds tol 0 by 2e+01 - (10,8) 116 158 Abs err 42 exceeds tol 0 by 4e+01 - (11,8) 163 171 Abs err 8 exceeds tol 0 by 8 - (1,9) 187 186 Abs err 1 exceeds tol 0 by 1 - (2,9) 90 118 Abs err 28 exceeds tol 0 by 3e+01 - (3,9) 77 70 Abs err 7 exceeds tol 0 by 7 - (4,9) 140 132 Abs err 8 exceeds tol 0 by 8 - (5,9) 152 159 Abs err 7 exceeds tol 0 by 7 - (6,9) 155 146 Abs err 9 exceeds tol 0 by 9 - (7,9) 104 83 Abs err 21 exceeds tol 0 by 2e+01 - (8,9) 85 116 Abs err 31 exceeds tol 0 by 3e+01 - (9,9) 149 179 Abs err 30 exceeds tol 0 by 3e+01 - (10,9) 187 212 Abs err 25 exceeds tol 0 by 2e+01 - (11,9) 213 220 Abs err 7 exceeds tol 0 by 7 - (1,10) 75 74 Abs err 1 exceeds tol 0 by 1 - (2,10) 30 44 Abs err 14 exceeds tol 0 by 1e+01 - (3,10) 26 24 Abs err 2 exceeds tol 0 by 2 - (4,10) 64 58 Abs err 6 exceeds tol 0 by 6 - (5,10) 126 140 Abs err 14 exceeds tol 0 by 1e+01 - (7,10) 130 114 Abs err 16 exceeds tol 0 by 2e+01 - (8,10) 100 95 Abs err 5 exceeds tol 0 by 5 - (9,10) 114 131 Abs err 17 exceeds tol 0 by 2e+01 - (10,10) 148 229 Abs err 81 exceeds tol 0 by 8e+01 - (11,10) 234 253 Abs err 19 exceeds tol 0 by 2e+01 - (1,11) 85 90 Abs err 5 exceeds tol 0 by 5 - (2,11) 27 38 Abs err 11 exceeds tol 0 by 1e+01 - (3,11) 27 19 Abs err 8 exceeds tol 0 by 8 - (4,11) 105 124 Abs err 19 exceeds tol 0 by 2e+01 - (5,11) 149 167 Abs err 18 exceeds tol 0 by 2e+01 - (6,11) 170 148 Abs err 22 exceeds tol 0 by 2e+01 - (7,11) 101 60 Abs err 41 exceeds tol 0 by 4e+01 - (8,11) 78 108 Abs err 30 exceeds tol 0 by 3e+01 - (9,11) 148 175 Abs err 27 exceeds tol 0 by 3e+01 - (10,11) 166 148 Abs err 18 exceeds tol 0 by 2e+01 - (11,11) 165 141 Abs err 24 exceeds tol 0 by 2e+01 - (1,12) 131 141 Abs err 10 exceeds tol 0 by 1e+01 - (2,12) 40 80 Abs err 40 exceeds tol 0 by 4e+01 - (3,12) 45 56 Abs err 11 exceeds tol 0 by 1e+01 - (4,12) 183 176 Abs err 7 exceeds tol 0 by 7 - (5,12) 177 158 Abs err 19 exceeds tol 0 by 2e+01 - (6,12) 109 84 Abs err 25 exceeds tol 0 by 2e+01 - (7,12) 45 31 Abs err 14 exceeds tol 0 by 1e+01 - (8,12) 45 140 Abs err 95 exceeds tol 0 by 1e+02 - (9,12) 207 215 Abs err 8 exceeds tol 0 by 8 - (10,12) 198 55 Abs err 143 exceeds tol 0 by 1e+02 - (11,12) 40 16 Abs err 24 exceeds tol 0 by 2e+01 - (1,13) 138 140 Abs err 2 exceeds tol 0 by 2 - (2,13) 134 151 Abs err 17 exceeds tol 0 by 2e+01 - (3,13) 126 137 Abs err 11 exceeds tol 0 by 1e+01 - (4,13) 74 61 Abs err 13 exceeds tol 0 by 1e+01 - (5,13) 59 27 Abs err 32 exceeds tol 0 by 3e+01 - (6,13) 42 48 Abs err 6 exceeds tol 0 by 6 - (7,13) 107 144 Abs err 37 exceeds tol 0 by 4e+01 - (8,13) 148 183 Abs err 35 exceeds tol 0 by 4e+01 - (9,13) 176 153 Abs err 23 exceeds tol 0 by 2e+01 - (10,13) 144 35 Abs err 109 exceeds tol 0 by 1e+02 - (11,13) 21 7 Abs err 14 exceeds tol 0 by 1e+01 - (1,14) 134 124 Abs err 10 exceeds tol 0 by 1e+01 - (2,14) 144 118 Abs err 26 exceeds tol 0 by 3e+01 - (3,14) 134 105 Abs err 29 exceeds tol 0 by 3e+01 - (4,14) 56 85 Abs err 29 exceeds tol 0 by 3e+01 - (5,14) 43 69 Abs err 26 exceeds tol 0 by 3e+01 - (6,14) 41 76 Abs err 35 exceeds tol 0 by 4e+01 - (7,14) 123 130 Abs err 7 exceeds tol 0 by 7 - (8,14) 168 180 Abs err 12 exceeds tol 0 by 1e+01 - (9,14) 174 177 Abs err 3 exceeds tol 0 by 3 - (10,14) 141 63 Abs err 78 exceeds tol 0 by 8e+01 - (11,14) 27 36 Abs err 9 exceeds tol 0 by 9 - (1,15) 106 108 Abs err 2 exceeds tol 0 by 2 - (2,15) 52 63 Abs err 11 exceeds tol 0 by 1e+01 - (3,15) 55 49 Abs err 6 exceeds tol 0 by 6 - (4,15) 141 145 Abs err 4 exceeds tol 0 by 4 - (5,15) 143 152 Abs err 9 exceeds tol 0 by 9 - (6,15) 118 115 Abs err 3 exceeds tol 0 by 3 - (7,15) 97 81 Abs err 16 exceeds tol 0 by 2e+01 - (8,15) 104 164 Abs err 60 exceeds tol 0 by 6e+01 - (9,15) 211 219 Abs err 8 exceeds tol 0 by 8 - (10,15) 200 96 Abs err 104 exceeds tol 0 by 1e+02 - (11,15) 73 67 Abs err 6 exceeds tol 0 by 6 -***** xtest - out = [116 172 215 165 111 82 133 170 171 81 95 132 138 123 106 - 59 98 138 144 152 152 125 127 119 54 58 89 137 112 75 - 27 39 62 110 172 202 123 96 78 36 40 68 123 100 62 - 129 97 64 62 87 119 146 148 128 74 117 154 73 94 134 - 113 129 136 101 125 162 183 172 151 135 146 139 53 83 135 - 77 143 195 145 166 197 186 162 146 171 138 92 62 84 113 - 101 129 149 120 98 81 78 82 91 111 77 56 132 123 95 - 81 116 147 130 96 61 43 80 119 109 116 132 162 164 158 - 46 93 139 141 114 80 50 109 168 141 166 189 151 171 200 - 16 41 77 123 130 123 115 157 204 214 145 69 48 71 98 - 9 28 61 119 134 134 131 169 212 231 140 39 23 46 73]; - assert (imresize (uint8 (in), 1.5, "bilinear"), uint8 (out)) -!!!!! known failure -ASSERT errors for: assert (imresize (uint8 (in), 1.5, "bilinear"),uint8 (out)) - - Location | Observed | Expected | Reason - (2,1) 48 59 Abs err 11 exceeds tol 0 by 1e+01 - (3,1) 33 27 Abs err 6 exceeds tol 0 by 6 - (4,1) 124 129 Abs err 5 exceeds tol 0 by 5 - (5,1) 121 113 Abs err 8 exceeds tol 0 by 8 - (6,1) 71 77 Abs err 6 exceeds tol 0 by 6 - (7,1) 93 101 Abs err 8 exceeds tol 0 by 8 - (8,1) 96 81 Abs err 15 exceeds tol 0 by 2e+01 - (9,1) 65 46 Abs err 19 exceeds tol 0 by 2e+01 - (10,1) 36 16 Abs err 20 exceeds tol 0 by 2e+01 - (1,2) 187 172 Abs err 15 exceeds tol 0 by 2e+01 - (2,2) 93 98 Abs err 5 exceeds tol 0 by 5 - (3,2) 45 39 Abs err 6 exceeds tol 0 by 6 - (4,2) 85 97 Abs err 12 exceeds tol 0 by 1e+01 - (5,2) 126 129 Abs err 3 exceeds tol 0 by 3 - (6,2) 167 143 Abs err 24 exceeds tol 0 by 2e+01 - (7,2) 145 129 Abs err 16 exceeds tol 0 by 2e+01 - (8,2) 128 116 Abs err 12 exceeds tol 0 by 1e+01 - (9,2) 123 93 Abs err 30 exceeds tol 0 by 3e+01 - (10,2) 86 41 Abs err 45 exceeds tol 0 by 4e+01 - (11,2) 33 28 Abs err 5 exceeds tol 0 by 5 - (1,3) 206 215 Abs err 9 exceeds tol 0 by 9 - (2,3) 126 138 Abs err 12 exceeds tol 0 by 1e+01 - (3,3) 71 62 Abs err 9 exceeds tol 0 by 9 - (5,3) 116 136 Abs err 20 exceeds tol 0 by 2e+01 - (6,3) 197 195 Abs err 2 exceeds tol 0 by 2 - (7,3) 159 149 Abs err 10 exceeds tol 0 by 1e+01 - (8,3) 137 147 Abs err 10 exceeds tol 0 by 1e+01 - (9,3) 150 139 Abs err 11 exceeds tol 0 by 1e+01 - (10,3) 121 77 Abs err 44 exceeds tol 0 by 4e+01 - (11,3) 72 61 Abs err 11 exceeds tol 0 by 1e+01 - (1,4) 158 165 Abs err 7 exceeds tol 0 by 7 - (2,4) 142 144 Abs err 2 exceeds tol 0 by 2 - (3,4) 114 110 Abs err 4 exceeds tol 0 by 4 - (4,4) 64 62 Abs err 2 exceeds tol 0 by 2 - (5,4) 86 101 Abs err 15 exceeds tol 0 by 2e+01 - (6,4) 143 145 Abs err 2 exceeds tol 0 by 2 - (7,4) 124 120 Abs err 4 exceeds tol 0 by 4 - (8,4) 117 130 Abs err 13 exceeds tol 0 by 1e+01 - (9,4) 137 141 Abs err 4 exceeds tol 0 by 4 - (10,4) 137 123 Abs err 14 exceeds tol 0 by 1e+01 - (11,4) 127 119 Abs err 8 exceeds tol 0 by 8 - (1,5) 105 111 Abs err 6 exceeds tol 0 by 6 - (2,5) 163 152 Abs err 11 exceeds tol 0 by 1e+01 - (3,5) 174 172 Abs err 2 exceeds tol 0 by 2 - (4,5) 94 87 Abs err 7 exceeds tol 0 by 7 - (5,5) 117 125 Abs err 8 exceeds tol 0 by 8 - (6,5) 190 166 Abs err 24 exceeds tol 0 by 2e+01 - (7,5) 122 98 Abs err 24 exceeds tol 0 by 2e+01 - (8,5) 82 96 Abs err 14 exceeds tol 0 by 1e+01 - (9,5) 99 114 Abs err 15 exceeds tol 0 by 2e+01 - (10,5) 117 130 Abs err 13 exceeds tol 0 by 1e+01 - (1,6) 86 82 Abs err 4 exceeds tol 0 by 4 - (2,6) 163 152 Abs err 11 exceeds tol 0 by 1e+01 - (3,6) 192 202 Abs err 10 exceeds tol 0 by 1e+01 - (4,6) 124 119 Abs err 5 exceeds tol 0 by 5 - (5,6) 151 162 Abs err 11 exceeds tol 0 by 1e+01 - (6,6) 226 197 Abs err 29 exceeds tol 0 by 3e+01 - (7,6) 121 81 Abs err 40 exceeds tol 0 by 4e+01 - (8,6) 55 61 Abs err 6 exceeds tol 0 by 6 - (9,6) 63 80 Abs err 17 exceeds tol 0 by 2e+01 - (10,6) 93 123 Abs err 30 exceeds tol 0 by 3e+01 - (1,7) 135 133 Abs err 2 exceeds tol 0 by 2 - (2,7) 122 125 Abs err 3 exceeds tol 0 by 3 - (3,7) 121 123 Abs err 2 exceeds tol 0 by 2 - (5,7) 178 183 Abs err 5 exceeds tol 0 by 5 - (6,7) 213 186 Abs err 27 exceeds tol 0 by 3e+01 - (7,7) 116 78 Abs err 38 exceeds tol 0 by 4e+01 - (8,7) 48 43 Abs err 5 exceeds tol 0 by 5 - (9,7) 37 50 Abs err 13 exceeds tol 0 by 1e+01 - (10,7) 72 115 Abs err 43 exceeds tol 0 by 4e+01 - (2,8) 117 127 Abs err 10 exceeds tol 0 by 1e+01 - (3,8) 98 96 Abs err 2 exceeds tol 0 by 2 - (4,8) 145 148 Abs err 3 exceeds tol 0 by 3 - (5,8) 169 172 Abs err 3 exceeds tol 0 by 3 - (6,8) 182 162 Abs err 20 exceeds tol 0 by 2e+01 - (7,8) 110 82 Abs err 28 exceeds tol 0 by 3e+01 - (8,8) 69 80 Abs err 11 exceeds tol 0 by 1e+01 - (9,8) 90 109 Abs err 19 exceeds tol 0 by 2e+01 - (10,8) 126 157 Abs err 31 exceeds tol 0 by 3e+01 - (1,9) 175 171 Abs err 4 exceeds tol 0 by 4 - (2,9) 110 119 Abs err 9 exceeds tol 0 by 9 - (3,9) 82 78 Abs err 4 exceeds tol 0 by 4 - (5,9) 150 151 Abs err 1 exceeds tol 0 by 1 - (6,9) 159 146 Abs err 13 exceeds tol 0 by 1e+01 - (7,9) 110 91 Abs err 19 exceeds tol 0 by 2e+01 - (8,9) 94 119 Abs err 25 exceeds tol 0 by 2e+01 - (9,9) 144 168 Abs err 24 exceeds tol 0 by 2e+01 - (10,9) 181 204 Abs err 23 exceeds tol 0 by 2e+01 - (11,9) 211 212 Abs err 1 exceeds tol 0 by 1 - (1,10) 88 81 Abs err 7 exceeds tol 0 by 7 - (2,10) 52 54 Abs err 2 exceeds tol 0 by 2 - (3,10) 40 36 Abs err 4 exceeds tol 0 by 4 - (4,10) 76 74 Abs err 2 exceeds tol 0 by 2 - (5,10) 126 135 Abs err 9 exceeds tol 0 by 9 - (6,10) 184 171 Abs err 13 exceeds tol 0 by 1e+01 - (7,10) 130 111 Abs err 19 exceeds tol 0 by 2e+01 - (8,10) 101 109 Abs err 8 exceeds tol 0 by 8 - (9,10) 119 141 Abs err 22 exceeds tol 0 by 2e+01 - (10,10) 167 214 Abs err 47 exceeds tol 0 by 5e+01 - (11,10) 230 231 Abs err 1 exceeds tol 0 by 1 - (1,11) 89 95 Abs err 6 exceeds tol 0 by 6 - (2,11) 47 58 Abs err 11 exceeds tol 0 by 1e+01 - (3,11) 41 40 Abs err 1 exceeds tol 0 by 1 - (4,11) 105 117 Abs err 12 exceeds tol 0 by 1e+01 - (5,11) 140 146 Abs err 6 exceeds tol 0 by 6 - (6,11) 159 138 Abs err 21 exceeds tol 0 by 2e+01 - (7,11) 104 77 Abs err 27 exceeds tol 0 by 3e+01 - (8,11) 86 116 Abs err 30 exceeds tol 0 by 3e+01 - (9,11) 144 166 Abs err 22 exceeds tol 0 by 2e+01 - (10,11) 159 145 Abs err 14 exceeds tol 0 by 1e+01 - (11,11) 153 140 Abs err 13 exceeds tol 0 by 1e+01 - (1,12) 131 132 Abs err 1 exceeds tol 0 by 1 - (2,12) 72 89 Abs err 17 exceeds tol 0 by 2e+01 - (3,12) 65 68 Abs err 3 exceeds tol 0 by 3 - (4,12) 160 154 Abs err 6 exceeds tol 0 by 6 - (5,12) 159 139 Abs err 20 exceeds tol 0 by 2e+01 - (6,12) 109 92 Abs err 17 exceeds tol 0 by 2e+01 - (7,12) 63 56 Abs err 7 exceeds tol 0 by 7 - (8,12) 70 132 Abs err 62 exceeds tol 0 by 6e+01 - (9,12) 186 189 Abs err 3 exceeds tol 0 by 3 - (10,12) 151 69 Abs err 82 exceeds tol 0 by 8e+01 - (11,12) 41 39 Abs err 2 exceeds tol 0 by 2 - (1,13) 136 138 Abs err 2 exceeds tol 0 by 2 - (2,13) 126 137 Abs err 11 exceeds tol 0 by 1e+01 - (3,13) 112 123 Abs err 11 exceeds tol 0 by 1e+01 - (4,13) 89 73 Abs err 16 exceeds tol 0 by 2e+01 - (5,13) 70 53 Abs err 17 exceeds tol 0 by 2e+01 - (6,13) 54 62 Abs err 8 exceeds tol 0 by 8 - (7,13) 100 132 Abs err 32 exceeds tol 0 by 3e+01 - (8,13) 141 162 Abs err 21 exceeds tol 0 by 2e+01 - (9,13) 173 151 Abs err 22 exceeds tol 0 by 2e+01 - (10,13) 120 48 Abs err 72 exceeds tol 0 by 7e+01 - (11,13) 26 23 Abs err 3 exceeds tol 0 by 3 - (1,14) 127 123 Abs err 4 exceeds tol 0 by 4 - (2,14) 121 112 Abs err 9 exceeds tol 0 by 9 - (3,14) 109 100 Abs err 9 exceeds tol 0 by 9 - (4,14) 83 94 Abs err 11 exceeds tol 0 by 1e+01 - (5,14) 69 83 Abs err 14 exceeds tol 0 by 1e+01 - (6,14) 61 84 Abs err 23 exceeds tol 0 by 2e+01 - (7,14) 111 123 Abs err 12 exceeds tol 0 by 1e+01 - (8,14) 153 164 Abs err 11 exceeds tol 0 by 1e+01 - (9,14) 178 171 Abs err 7 exceeds tol 0 by 7 - (10,14) 127 71 Abs err 56 exceeds tol 0 by 6e+01 - (11,14) 38 46 Abs err 8 exceeds tol 0 by 8 - (2,15) 69 75 Abs err 6 exceeds tol 0 by 6 - (3,15) 66 62 Abs err 4 exceeds tol 0 by 4 - (4,15) 130 134 Abs err 4 exceeds tol 0 by 4 - (5,15) 138 135 Abs err 3 exceeds tol 0 by 3 - (6,15) 118 113 Abs err 5 exceeds tol 0 by 5 - (7,15) 101 95 Abs err 6 exceeds tol 0 by 6 - (8,15) 117 158 Abs err 41 exceeds tol 0 by 4e+01 - (9,15) 198 200 Abs err 2 exceeds tol 0 by 2 - (10,15) 164 98 Abs err 66 exceeds tol 0 by 7e+01 -***** xtest - out = [108 136 125 89 107 - 111 132 143 114 99 - 106 110 106 127 136 - 47 121 163 138 68]; - assert (imresize (uint8 (in), 0.5, "bilinear"), uint8 (out)) -!!!!! known failure -ASSERT errors for: assert (imresize (uint8 (in), 0.5, "bilinear"),uint8 (out)) - - Location | Observed | Expected | Reason - (1,1) 116 108 Abs err 8 exceeds tol 0 by 8 - (2,1) 155 111 Abs err 44 exceeds tol 0 by 4e+01 - (3,1) 107 106 Abs err 1 exceeds tol 0 by 1 - (4,1) 9 47 Abs err 38 exceeds tol 0 by 4e+01 - (1,2) 132 136 Abs err 4 exceeds tol 0 by 4 - (2,2) 56 132 Abs err 76 exceeds tol 0 by 8e+01 - (3,2) 94 110 Abs err 16 exceeds tol 0 by 2e+01 - (4,2) 134 121 Abs err 13 exceeds tol 0 by 1e+01 - (1,3) 170 125 Abs err 45 exceeds tol 0 by 4e+01 - (2,3) 161 143 Abs err 18 exceeds tol 0 by 2e+01 - (3,3) 62 106 Abs err 44 exceeds tol 0 by 4e+01 - (4,3) 169 163 Abs err 6 exceeds tol 0 by 6 - (1,4) 112 89 Abs err 23 exceeds tol 0 by 2e+01 - (2,4) 170 114 Abs err 56 exceeds tol 0 by 6e+01 - (3,4) 41 127 Abs err 86 exceeds tol 0 by 9e+01 - (4,4) 91 138 Abs err 47 exceeds tol 0 by 5e+01 - (1,5) 106 107 Abs err 1 exceeds tol 0 by 1 - (2,5) 152 99 Abs err 53 exceeds tol 0 by 5e+01 - (3,5) 90 136 Abs err 46 exceeds tol 0 by 5e+01 - (4,5) 73 68 Abs err 5 exceeds tol 0 by 5 + a = randi (255, [100 100]); + rect = [20 30 3 5]; + assert (nthargout ([1 2], @imcrop, a, rect), {a(30:35, 20:23) rect}); + assert (nthargout (2, @imcrop, a, rect), rect); + assert (nthargout ([3 4], 4, @imcrop, a, rect), {a(30:35, 20:23) rect}); +***** test + rgb = randi (255, [100 100 3]); + rect = [20 30 3 5]; + assert (nthargout ([1 2], @imcrop, rgb, rect), {rgb(30:35, 20:23,:) rect}); + assert (nthargout (2, @imcrop, rgb, rect), rect); + assert (nthargout ([3 4], 4, @imcrop, rgb, rect), {rgb(30:35, 20:23,:) rect}); +***** test + a = randi (255, [100 100]); + rect = [20 30 3 5]; + cmap = jet (255); + assert (nthargout ([1 2], @imcrop, a, cmap, rect), {a(30:35, 20:23) rect}); + assert (nthargout (2, @imcrop, a, cmap, rect), rect); + assert (nthargout ([3 4], 4, @imcrop, a, cmap, rect), {a(30:35, 20:23) rect}); +***** test + a = rand (100) > 0.5; + rect = [20 30 3 5]; + assert (nthargout ([1 2], @imcrop, a, rect), {a(30:35, 20:23) rect}); + assert (nthargout (2, @imcrop, a, rect), rect); + assert (nthargout ([3 4], 4, @imcrop, a, rect), {a(30:35, 20:23) rect}); +***** assert (imcrop (0, [0.5 0.5 0.9 0.9]), 0); +***** assert (imcrop (zeros (5), [1 1 1 1]), zeros (2)); +***** test + im = magic (5); + assert (imcrop (im, [1 1 5 5]), im) + assert (imcrop (im, [0 0 5 5]), im) + assert (imcrop (im, [1 1 2 5]), im(:,1:3)) + assert (imcrop (im, [1 -3 2 5]), im(1:2,1:3)) + assert (imcrop (im, [5 -3 2 5]), im(1:2,5)) +***** test + im = [1:7] .* [1; 2; 3; 4; 5]; + assert (imcrop (im, [1 1 5 5]), im(:,1:6)) + assert (imcrop (im, [0 0 5 5]), im(:,1:5)) + assert (imcrop (im, [1 1 2 5]), im(:,1:3)) + assert (imcrop (im, [1 -3 2 7]), im(1:4,1:3)) + assert (imcrop (im, [7 -3 2 7]), im(1:4,7)) +***** test + ## Matlab returns [] (size 0x0) for this cases, while we return + ## [] (size 2x0). We are not compatible by design. If it ever + ## becomes an issue to anyone we can review this decision. + assert (imcrop (magic (5), [6 -3 2 5]), zeros (2, 0)) +9 tests, 9 passed, 0 known failure, 0 skipped +[inst/radon.m] +>>>>> /build/octave-image-2.12.0/inst/radon.m +***** test + A = radon(ones(2,2),30); + assert (A,[0 0 0.608253175473055 2.103325780167649 1.236538105676658 0.051882938682637 0]',1e-10) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imattributes.m] +>>>>> /build/octave-image-2.12.0/inst/imattributes.m +***** shared x, map, img, rgb, bw + [x, map] = imread ("default.img"); + rgb = ind2rgb (x, map); + img = ind2gray (x, map); + bw = im2bw (img); +***** test + h = imshow (img); + a = imattributes (h); + assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); + assert (a.Class, "uint8"); + assert (a.("Image type"), "intensity"); + assert (a.("Minimum intensity"), uint8 (28)); + assert (a.("Maximum intensity"), uint8 (250)); ***** xtest - out = [103 141 124 78 110 - 111 134 153 114 91 - 115 108 93 128 146 - 38 124 175 143 54]; - assert (imresize (uint8 (in), 0.5, "bicubic"), uint8 (out)) + h = imshow (rgb); + a = imattributes (h); + assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); + assert (a.Class, "uint8"); + assert (a.("Image type"), "truecolor"); + assert (isfield (a, "Minimum intensity"), false); + assert (isfield (a, "Maximum intensity"), false); !!!!! known failure -ASSERT errors for: assert (imresize (uint8 (in), 0.5, "bicubic"),uint8 (out)) +ASSERT errors for: assert (a.Class,"uint8") Location | Observed | Expected | Reason - (1,1) 116 103 Abs err 13 exceeds tol 0 by 1e+01 - (2,1) 155 111 Abs err 44 exceeds tol 0 by 4e+01 - (3,1) 107 115 Abs err 8 exceeds tol 0 by 8 - (4,1) 9 38 Abs err 29 exceeds tol 0 by 3e+01 - (1,2) 129 141 Abs err 12 exceeds tol 0 by 1e+01 - (2,2) 50 134 Abs err 84 exceeds tol 0 by 8e+01 - (3,2) 93 108 Abs err 15 exceeds tol 0 by 2e+01 - (4,2) 134 124 Abs err 10 exceeds tol 0 by 1e+01 - (1,3) 177 124 Abs err 53 exceeds tol 0 by 5e+01 - (2,3) 163 153 Abs err 10 exceeds tol 0 by 1e+01 - (3,3) 59 93 Abs err 34 exceeds tol 0 by 3e+01 - (4,3) 163 175 Abs err 12 exceeds tol 0 by 1e+01 - (1,4) 117 78 Abs err 39 exceeds tol 0 by 4e+01 - (2,4) 183 114 Abs err 69 exceeds tol 0 by 7e+01 - (3,4) 34 128 Abs err 94 exceeds tol 0 by 9e+01 - (4,4) 79 143 Abs err 64 exceeds tol 0 by 6e+01 - (1,5) 106 110 Abs err 4 exceeds tol 0 by 4 - (2,5) 152 91 Abs err 61 exceeds tol 0 by 6e+01 - (3,5) 90 146 Abs err 56 exceeds tol 0 by 6e+01 - (4,5) 73 54 Abs err 19 exceeds tol 0 by 2e+01 -***** xtest - ## bug #55202 - assert (imresize (zeros (1, 20), [1 30], "nearest"), zeros (1, 30)) -!!!!! known failure -Y(2): out of bound 1 (dimensions are 1x1) -***** test - ## a test for bug #55780 - a = zeros (7, "uint8"); - a (4,4) = 255; - c = [ 4 13 24 31 31 24 13 4; - 13 44 79 103 103 79 44 13; - 24 79 140 182 182 140 79 24; - 31 103 182 238 238 182 103 31; - 31 103 182 238 238 182 103 31; - 24 79 140 182 182 140 79 24; - 13 44 79 103 103 79 44 13; - 4 13 24 31 31 24 13 4]; - b = imresize (a, 4, "bicubic"); - assert (b(11:18,11:18), c, eps) -9 tests, 4 passed, 5 known failures, 0 skipped -[inst/isgray.m] ->>>>> /build/octave-image-2.12.0/inst/isgray.m -***** assert (isgray ([0 0 1; 1 0 1]), true) -***** assert (isgray (zeros (3)), true) -***** assert (isgray (ones (3)), true) -***** test - a = rand (10); - assert (isgray (a), true); - a(5, 5) = 2; - assert (isgray (a), false); + [] double uint8 Strings don't match ***** test - a = uint8 (randi (255, 10)); - assert (isgray (a), true); - a = int8 (a); - assert (isgray (a), false); + h = imshow (bw); + a = imattributes (h); + assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); + assert (a.Class, "logical"); + assert (a.("Image type"), "binary"); + assert (isfield (a, "Minimum intensity"), false); + assert (isfield (a, "Maximum intensity"), false); ***** test - a = rand (10); - a(50) = NaN; - assert (isgray (a), true); -***** assert (isgray (rand (5, 5, 1, 4)), true); -***** assert (isgray (rand (5, 5, 3, 4)), false); -***** assert (isgray (rand (5, 5, 3)), false); -***** assert (isgray (rand (5, 5, 1, 3, 4)), false); -***** assert (isgray (rand (5, "single")), true) -***** assert (isgray ([.1 .2 .3; .4 NaN .6; .7 .8 .9]), true) -***** assert (isgray ([.1 .2 .3; NA NaN .6; .7 .8 .9]), true) -***** assert (isgray ([.1 .2 .3; NA .5 .6; .7 .8 .9]), true) -***** assert (isgray (NaN (5)), false) -***** assert (isgray (NA (5)), false) -16 tests, 16 passed, 0 known failure, 0 skipped -[inst/imadjust.m] ->>>>> /build/octave-image-2.12.0/inst/imadjust.m -***** error imadjust ("bad argument"); -***** error imadjust ([1:100], "bad argument", [], 1); -***** error <2 row column per plane> imadjust ([1:100], [0 1 1], [], 1); -***** error <2 row column per plane> imadjust ([1:100], [], [0 1 1], 1); -***** error imadjust ([1:100], [], [], [0; 1]); -***** error imadjust (rand (5, 5, 3), [], [], [0 1]); -***** error imadjust ([1:100], [0; 1], [], -1); -***** error imadjust ([1:100], [0; 5], []); -***** error imadjust ([1:100], [-2; 1], []); -***** error imadjust ([1:100], [], [0; 4]); -***** error imadjust ([1:100], [], [-2; 1]); -***** error imadjust (rand (5) > .5); + h = imshow (x, map); + a = imattributes (h); + assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); + assert (a.Class, "uint8"); + assert (a.("Image type"), "indexed"); + assert (a.("Minimum intensity"), uint8 (0)); + assert (a.("Maximum intensity"), uint8 (55)); ***** test - im = [0.01:0.01:1]; - assert (imadjust (im), [0 linspace(0, 1, 98) 1], eps) - assert (imadjust (im), imadjust (im, stretchlim (im, 0.01), [0; 1], 1)) - assert (imadjust (im, []), imadjust (im, [0; 1], [0; 1], 1)) - assert (imadjust (im, [], []), imadjust (im, [0; 1], [0; 1], 1)) - assert (imadjust (im, [], [.25 .75]), imadjust (im, [0; 1], [.25; .75], 1)) - assert (imadjust (im, [.25; .75], []), imadjust (im, [.25; .75], [0; 1], 1)) -***** assert (imadjust (linspace (0, 1), [], [.25 .75]), linspace (.25, .75, 100), eps) -***** assert (imadjust (linspace (0, 1, 100),[1/99; 98/99]), - [0 linspace(0, 1, 98) 1], eps) -***** shared cm - cm = [[0:8]' [1:9]' [2:10]'] / 10; -***** assert (imadjust (cm, [0; 1], [0.5; 1]), (cm /2) + .5) -***** assert (imadjust (cm, [0 1], [0.5 1]), (cm /2) + .5) -***** assert (imadjust (cm, [0; 1], [.1 .2 .3; .7 .8 .9]), - (cm*.6) .+ [.1 .2 .3], eps) -***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0; 1]), - [[0 0 linspace(0, 1, 6) 1]' ... - [0 0 0 linspace(0, 1, 5) 1]' ... - [0 0 0 0 linspace(0, 1, 4) 1]'], eps) -***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0 .1 .2; .8 .9 1]), - [[0 0 linspace(0, .8, 6) .8]' ... - [.1 .1 .1 linspace(.1, .9, 5) .9]' ... - [.2 .2 .2 .2 linspace(.2, 1, 4) 1]'], eps) -***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0 .1 .2; .8 .9 1], [0.5 1 2]), - [[0 0 0 (((([.3 .4 .5 .6]-.2)/.5).^.5)*.8) .8 .8]' ... - [.1 .1 .1 linspace(.1, .9, 5) .9]' ... - [.2 .2 .2 .2 .2 ((((([.7 .8]-.6)/.3).^2).*.8)+.2) 1 1]'], eps*10) + h = imshow (img); + a1 = imattributes (); + a2 = imattributes (h); + assert (a1, a2); +5 tests, 4 passed, 1 known failure, 0 skipped +[inst/im2bw.m] +>>>>> /build/octave-image-2.12.0/inst/im2bw.m +***** assert(im2bw ([0 0.4 0.5 0.6 1], 0.5), logical([0 0 0 1 1])); # basic usage +***** assert(im2bw (uint8 ([0 100 255]), 0.5), logical([0 0 1])); # with a uint8 input +***** warning bw = im2bw (logical ([0 1 0])); +***** warning bw = im2bw (logical ([0 1 0]), 1); ***** test - im = [-0.4:.1:0.8 - 0.0:.1:1.2 - 0.1:.1:1.3 - -0.4:.2:2.0]; - - ## just clipping - assert (imadjust (im, [0; 1], [0; 1]), - [0 0 0 0 (0:.1:.8) - (0:.1:1) 1 1 - (.1:.1:1) 1 1 1 - 0 0 (0:.2:1) 1 1 1 1 1], eps) - - ## clipping and invert - assert (imadjust (im, [0; 1], [1; 0]), - [1 1 1 1 (1:-.1:.2) - (1:-.1:0) 0 0 - (.9:-.1:0) 0 0 0 - 1 1 (1:-.2:0) 0 0 0 0 0], eps) - - ## rescale - assert (imadjust (im, [.2; .7], [.1; .9]), - [1 1 1 1 1 1 1 2.6 4.2 5.8 7.4 9 9 - 1 1 1 2.6 4.2 5.8 7.4 9 9 9 9 9 9 - 1 1 2.6 4.2 5.8 7.4 9 9 9 9 9 9 9 - 1 1 1 1 4.2 7.4 9 9 9 9 9 9 9]/10, eps) - - ## rescale and invert - assert (imadjust (im, [.2; .7], [.9; .1]), - [9 9 9 9 9 9 9 7.4 5.8 4.2 2.6 1 1 - 9 9 9 7.4 5.8 4.2 2.6 1 1 1 1 1 1 - 9 9 7.4 5.8 4.2 2.6 1 1 1 1 1 1 1 - 9 9 9 9 5.8 2.6 1 1 1 1 1 1 1]/10, eps) -***** assert (imadjust (linspace (0, 1), [], [], 2), linspace (0, 1) .^ 2) -***** shared oRGB - oRGB = zeros (10, 1, 3); - oRGB(:,:,1) = [0 linspace(0,1,6) 1 1 1]'; - oRGB(:,:,2) = [0 0 linspace(0,1,6) 1 1]'; - oRGB(:,:,3) = [0 0 0 linspace(0,1,6) 1]'; -***** assert (imadjust (oRGB, [0; 1], [0; 1]), oRGB) -***** assert (imadjust (oRGB, [.2; .8], [0; 1]), - reshape ([[0 0 0 1/3 2/3 1 1 1 1 1]' - [0 0 0 0 1/3 2/3 1 1 1 1]' - [0 0 0 0 0 1/3 2/3 1 1 1]'], [10 1 3]), eps) -***** assert (imadjust (oRGB, [.2; .8], [.1; .9]), - reshape ([[.1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9 .9 .9]' - [.1 .1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9 .9]' - [.1 .1 .1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9]'], - [10 1 3]), eps) -***** assert (imadjust (oRGB, [.2; .8], [.2; .8]), - reshape ([[2 2 2 4 6 8 8 8 8 8]' - [2 2 2 2 4 6 8 8 8 8]' - [2 2 2 2 2 4 6 8 8 8]']/10, [10 1 3]), eps) -***** assert (imadjust (oRGB, [0; 1], [.1 .2 .3; .9 .8 .7]), - reshape ([[1 1 2.6 4.2 5.8 7.4 9 9 9 9]' - [2 2 2 3.2 4.4 5.6 6.8 8 8 8]' - [3 3 3 3 3.8 4.6 5.4 6.2 7 7]']/10, [10 1 3]), eps) -***** assert (imadjust (oRGB, [.1 .2 .3; .9 .8 .7], [0; 1]), - reshape ([[0 0 .125 .375 .625 .875 1 1 1 1]' - [0 0 0 0 1/3 2/3 1 1 1 1]' - [0 0 0 0 0 .25 .75 1 1 1]'], [10 1 3]), eps*10) -***** assert (imadjust (oRGB, [.1 .2 .3; .9 .8 .7], [.2 0 .4; .5 1 .7 ]), - reshape ([[.2 .2 .2375 .3125 .3875 .4625 .5 .5 .5 .5]' - [0 0 0 0 1/3 2/3 1 1 1 1]' - [.4 .4 .4 .4 .4 .475 .625 .7 .7 .7]'], [10 1 3]), eps) + warning ("off", "all", "local"); + assert (im2bw (logical ([0 1 0])), logical ([0 1 0])) + assert (im2bw (logical ([0 1 0]), 0), logical ([0 1 0])) + assert (im2bw (logical ([0 1 0]), 1), logical ([0 1 0])) +***** assert (nnz (im2bw (uint8 ([0:255]), 0.9)), 26) ***** test - img = rand (4, 4, 2, 3, 4); - adj = zeros (4, 4, 2, 3, 4); - for p = 1:2 - for q = 1:3 - for r = 1:4 - adj(:,:,p,q,r) = imadjust (img(:,:,p,q,r)); - endfor - endfor + img = uint8 ([0:255]); + s = 0; + for i=0:.1:1 + s += nnz (im2bw (img, i)); endfor - assert (imadjust (img), adj) + assert (s, 1405) +***** assert (nnz (im2bw (int16 ([-128:127]), 0.499)), 194) +***** assert (nnz (im2bw (int16 ([-128:127]), 0.500)), 128) +***** assert (nnz (im2bw (int16 ([-128:127]), 0.501)), 62) ***** test - img = rand (4, 4, 2, 3, 2); - adj = zeros (4, 4, 2, 3, 2); - in = reshape ([ 3 5 7 9 11 13 15 17 19 21 23 25; - 97 95 93 91 89 87 85 83 81 79 77 75] / 100, [2 2 3 2]); - out = reshape ([ 5 7 9 11 14 15 17 19 21 23 25 27; - 95 93 91 89 87 85 83 81 79 77 75 73] / 100, [2 2 3 2]); - gamma = reshape (0.6:.1:1.7, [1 2 3 2]); - for p = 1:2 - for q = 1:3 - for r = 1:2 - adj(:,:,p,q,r) = imadjust (img(:,:,p,q,r), in(:,p,q,r), - out(:,p,q,r), gamma(1,p,q,r)); - endfor - endfor + img = uint16 ([0:intmax("uint16")]); + s = 0; + for i=0:.1:1 + s += nnz (im2bw (img, i)); endfor - assert (imadjust (img, in, out, gamma), adj) + assert (s, 360445) ***** test - in = int16 (1:6); - assert (imadjust (in), int16 ([-32768 -19661 -6554 6553 19660 32767])) - assert (imadjust (in, []), in) + img = int16 ([intmin("int16"):intmax("int16")]); + s = 0; + for i=0:.1:1 + s += nnz (im2bw (img, i)); + endfor + assert (s, 360445) ***** test - in = uint8([ - 35 1 6 26 19 24 - 3 32 7 21 23 25 - 31 9 2 22 27 20 - 8 28 33 17 10 15 - 30 5 34 12 14 16 - 4 36 29 13 18 11]); - out = uint8([ - 12 0 0 1 0 0 - 0 8 0 0 0 0 - 7 0 0 0 2 0 - 0 3 9 0 0 0 - 6 0 11 0 0 0 - 0 13 4 0 0 0]); - assert (imadjust (in, [.1 .9], [0 1]), out); + im = [((randn(10)/10)+.3) ((randn(10)/10)+.7)]; + assert (im2bw (im, "Otsu"), im2bw (im, graythresh (im, "Otsu"))) + assert (im2bw (im, "moments"), im2bw (im, graythresh (im, "moments"))) ***** test - in = uint8([ - 140 4 24 104 76 96 - 12 128 28 84 92 100 - 124 36 8 88 108 80 - 32 112 132 68 40 60 - 120 20 136 48 56 64 - 16 144 116 52 72 44]); - out = uint8([ - 143 0 0 98 63 88 - 0 128 3 73 83 93 - 123 13 0 78 103 68 - 8 108 133 53 18 43 - 118 0 138 28 38 48 - 0 148 113 33 58 23]); - assert (imadjust (in, [.1 .9], [0 1]), out); -***** xtest - in_u8 = randi ([0 255], 5, 5, 2, 3, "uint8"); - in_u16 = randi ([0 65535], 5, 5, 2, 3, "uint16"); - in_i16 = randi ([-32768 32767], 5, 5, 2, 3, "int16"); - in_u8_d = im2double (in_u8); - in_u16_d = im2double (in_u16); - in_i16_d = im2double (in_i16); - - ## default values - assert (imadjust (in_u8), im2uint8 (imadjust (in_u8_d))) - assert (imadjust (in_u16), im2uint16 (imadjust (in_u16_d))) - assert (imadjust (in_i16), im2int16 (imadjust (in_i16_d))) + im = [((randn(10)/10)+.3) ((randn(10)/10)+.7)]; + im = reshape (im, [10 10 1 2]); + assert (im2bw (im, "Otsu"), im2bw (im, graythresh (im, "Otsu"))) + assert (im2bw (im, "moments"), im2bw (im, graythresh (im, "moments"))) +14 tests, 14 passed, 0 known failure, 0 skipped +[inst/medfilt2.m] +>>>>> /build/octave-image-2.12.0/inst/medfilt2.m +***** shared b, f + b = [ 0 1 2 3 + 1 8 12 12 + 4 20 24 21 + 7 22 25 18]; + f = [ 0 1 2 0 + 1 4 12 3 + 4 12 20 12 + 0 7 20 0]; +***** assert (medfilt2 (b), f); - ## single adjustment for all planes - args = {[.3; .7], [.1; .9], [1.5]}; - assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) - assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) - assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) + f = [ 0 1 2 3 + 1 8 12 12 + 4 20 24 18 + 4 20 24 18]; +***** assert (medfilt2 (b, true (3, 1)), f); +***** assert (medfilt2 (b, [3 1]), f); - ## single adjustment for all planes (mixed with some complement) - args = {reshape([.2 .3 .25 .1 0 .1; .9 .7 .85 .9 1 .8], [2 2 3]), - reshape([.1 .2 .05 .9 1 .3; .9 .85 .7 .1 0 .9], [2 2 3]), - reshape([1 .75 1 1.2 1.5 2], [1 2 3])}; - assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) - assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) - assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) + f = [ 1 8 10 10 + 1 8 12 12 + 4 20 24 18 + 7 20 24 18]; +***** assert (medfilt2 (b, [3 1], 10), f); +***** assert (medfilt2 (b, 10, [3 1]), f); - ## test use of [] as limit and negative - args = {[], [.95; 0], 1.25}; - assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) - assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) - assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) -36 tests, 36 passed, 0 known failure, 0 skipped -[inst/mean2.m] ->>>>> /build/octave-image-2.12.0/inst/mean2.m + f = [ 0.5 4.5 7.0 7.5 + 2.5 14.0 18.0 15.0 + 2.5 14.0 18.0 15.0 + 2.0 10.0 12.0 9.0]; +***** assert (medfilt2 (b, true (4, 1)), f); +***** assert (medfilt2 (b, [4 1]), f); ***** test - ## This throws a division by zero warning which Matlab does not, but - ## that's because Matlab does not throw such warnings in the first - ## place. Octave does, so we do not turn the warning off. - warning ("off", "Octave:divide-by-zero", "local"); - assert (mean2 ([]), NaN) -***** assert (mean2 (logical ([1 1; 0 0])), 0.5) -***** assert (mean2 (ones (3, 3, 3)), 1) -***** assert (mean2 (i), i) -***** assert (mean2 ([1 i]), [0.5+0.5i]) -***** assert (mean2 (speye (3)), sparse (1/3)) -6 tests, 6 passed, 0 known failure, 0 skipped -[inst/bwmorph.m] ->>>>> /build/octave-image-2.12.0/inst/bwmorph.m + A = zeros (3, 3); + B = ones (3, 3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3, 3); + E(2,2) = 2; + F = 3 .* ones (3, 3); + F(2,2) = 1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + A_out = [0 0 0; 0 0 0; 0 0 0]; + B_out = [0 1 0; 1 1 1; 0 1 0]; + C_out = [0 1 0; 1 2 1; 0 2 0]; + D_out = [0 1 0; 1 2 2; 0 1 0]; + E_out = [0 1 0; 1 1 1; 0 1 0]; + F_out = [0 3 0; 3 3 3; 0 3 0]; + G_out = [0 0 0; 0 2 2; 0 0 0]; + H_out = [0 1 0; 1 1 0; 0 0 0]; + assert (medfilt2 (A), A_out); + assert (medfilt2 (B), B_out); + assert (medfilt2 (C), C_out); + assert (medfilt2 (D), D_out); + assert (medfilt2 (E), E_out); + assert (medfilt2 (F), F_out); + assert (medfilt2 (G), G_out); + assert (medfilt2 (H), H_out); +8 tests, 8 passed, 0 known failure, 0 skipped +[inst/qtgetblk.m] +>>>>> /build/octave-image-2.12.0/inst/qtgetblk.m ***** demo - bwmorph (true (11), "shrink", Inf) - # Should return 0 matrix with 1 pixel set to 1 at (6,6) + [vals,r,c]=qtgetblk(eye(4),qtdecomp(eye(4)),2) + % Returns 2 blocks, at [1,3] and [3,1] (2*2 zeros blocks) +***** shared A,S + A=[ 1, 4, 2, 5,54,55,61,62; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 23,42,42,42,99,99,99,99; + 27,42,42,42,99,99,99,99; + 23,22,26,25,99,99,99,99; + 22,22,24,22,99,99,99,99]; + S=qtdecomp(A,10); ***** test - slBW = logical ([ 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 - 0 0 1 1 0 0 0 - 0 0 1 1 0 0 0 - 0 0 1 1 1 0 0 - 0 0 1 1 1 0 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 0 0 0 0 0 0]); - - rslBW = logical ([ 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 - 0 0 1 1 0 0 0 - 0 0 1 1 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 1 0 0 0 - 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0]); - assert (bwmorph (slBW, "skel-lantuejoul", 1), [rslBW(1:5,:); false(7, 7)]); - assert (bwmorph (slBW, "skel-lantuejoul", 2), [rslBW(1:8,:); false(4, 7)]); - assert (bwmorph (slBW, "skel-lantuejoul", 3), rslBW); - assert (bwmorph (slBW, "skel-lantuejoul", Inf), rslBW); + [va]=qtgetblk(A,S,8); + [vb,r,c]=qtgetblk(A,S,8); + [vc,i]=qtgetblk(A,S,8); + assert(va, vb); + assert(va, vc); + assert(i,[]); + assert(r,[]); + assert(c,[]); + R=[]; + assert(va,R); ***** test - bw = [ - 0 1 1 1 1 1 - 0 1 1 1 1 1 - 0 1 1 1 1 1 - 1 1 1 1 1 1 - 1 1 1 1 1 1 - 1 1 1 1 1 1 - 1 1 1 1 1 0 - 1 1 1 1 1 0 - 1 1 1 1 1 0]; - - final = logical ([ - 0 1 0 0 0 1 - 0 0 1 0 1 0 - 0 0 0 1 0 0 - 0 0 0 1 0 0 - 0 0 1 1 0 0 - 0 0 1 0 0 0 - 0 0 1 0 0 0 - 0 1 0 1 0 0 - 1 0 0 0 1 0]); - assert (bwmorph (bw, "skel", Inf), final) - assert (bwmorph (bw, "skel", 3), final) -***** error bwmorph ("not a matrix", "dilate") -***** assert (bwmorph (magic (10), "dilate"), imdilate (logical (magic (10)), ones (3))); + [va]=qtgetblk(A,S,4); + [vb,r,c]=qtgetblk(A,S,4); + [vc,i]=qtgetblk(A,S,4); + assert(va, vb); + assert(va, vc); + assert(i, find(full(S)==4)); + assert(r,[1;5]); + assert(c,[1;5]); + R=zeros(4,4,2); + R(:,:,1)=A(1:4,1:4); + R(:,:,2)=A(5:8,5:8); + assert(va,R); ***** test - in = logical ([1 1 0 0 1 0 1 0 0 0 1 1 1 0 1 1 0 1 0 0 - 1 1 1 0 1 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 - 0 1 1 1 0 1 1 0 0 0 1 1 0 0 1 1 0 0 1 0 - 0 0 0 0 0 1 1 1 1 0 0 1 1 1 1 1 1 0 0 1 - 0 1 0 0 1 1 0 1 1 0 0 0 0 0 1 1 0 0 1 0 - 0 0 1 1 1 1 1 0 0 1 0 1 1 1 0 0 1 0 0 1 - 0 1 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 1 0 0 - 1 0 1 1 1 0 1 1 0 1 0 0 1 1 1 0 0 1 0 0 - 1 0 1 1 1 0 1 0 0 1 0 0 1 1 0 0 1 1 1 0 - 1 0 1 1 1 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0 - 1 1 1 1 1 1 0 1 0 1 0 0 0 0 0 0 1 0 1 1 - 0 1 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 1 0 0 - 0 0 1 1 0 1 1 1 1 0 0 1 0 0 0 0 1 0 1 1 - 0 0 1 1 0 0 1 1 1 0 0 0 1 1 1 1 0 0 0 0 - 0 0 1 0 0 0 0 0 0 1 0 0 1 1 1 1 0 0 0 0 - 0 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 0 0 - 0 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 1 1 - 1 0 0 1 0 1 1 0 1 0 0 0 0 0 0 1 0 1 1 1 - 0 0 1 1 0 1 1 1 1 0 0 0 0 1 1 0 1 1 1 1 - 0 1 1 0 0 1 0 0 1 1 0 0 1 0 0 1 0 0 0 1]); - se = strel ("arbitrary", ones (3)); - - assert (bwmorph (in, "dilate"), imdilate (in, se)); - assert (bwmorph (in, "dilate", 3), imdilate (imdilate (imdilate (in, se), se), se)); - assert (bwmorph (in, "bothat"), imbothat (in, se)); - assert (bwmorph (in, "tophat"), imtophat (in, se)); - assert (bwmorph (in, "open"), imopen (in, se)); - assert (bwmorph (in, "close"), imclose (in, se)); -***** assert (bwmorph ([1 0 0; 1 0 1; 0 0 1], "bridge"), logical ([1 1 0; 1 1 1; 0 1 1])); -***** assert (bwmorph ([0 0 0; 1 0 1; 0 0 1], "clean"), logical ([0 0 0; 0 0 1; 0 0 1])); -***** assert (bwmorph ([0 0 0; 0 1 0; 0 0 0], "clean"), false (3)); -***** assert (bwmorph ([0 1 0; 1 0 0; 0 0 0], "diag"), logical ([1 1 0; 1 1 0; 0 0 0])); + [va]=qtgetblk(A,S,2); + [vb,r,c]=qtgetblk(A,S,2); + [vc,i]=qtgetblk(A,S,2); + assert(va, vb); + assert(va, vc); + assert(i, find(full(S)==2)); + assert(r,[7;5;7;1;3;1;3]); + assert(c,[1;3;3;5;5;7;7]); + R=zeros(2,2,7); + R(:,:,1)=A(7:8,1:2); + R(:,:,2)=A(5:6,3:4); + R(:,:,3)=A(7:8,3:4); + R(:,:,4)=A(1:2,5:6); + R(:,:,5)=A(3:4,5:6); + R(:,:,6)=A(1:2,7:8); + R(:,:,7)=A(3:4,7:8); + assert(va,R); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/imnoise.m] +>>>>> /build/octave-image-2.12.0/inst/imnoise.m +***** assert(var(imnoise(ones(10)/2,'gaussian')(:)),0.01,0.005) # probabilistic +***** assert(length(find(imnoise(ones(10)/2,'salt & pepper')~=0.5)),5,10) # probabilistic +***** assert(var(imnoise(ones(10)/2,'speckle')(:)),0.01,0.005) # probabilistic ***** test - in = logical ([0 1 0 1 0 - 1 1 1 0 1 - 1 0 0 1 0 - 1 1 1 0 1 - 1 1 1 1 1]); - out = logical ([0 1 0 1 0 - 1 1 1 1 1 - 1 0 0 1 0 - 1 1 1 1 1 - 1 1 1 1 1]); - assert (bwmorph (in, "fill"), out); -***** assert (bwmorph ([1 1 1; 0 1 0; 1 1 1], "hbreak"), logical ([1 1 1; 0 0 0; 1 1 1])); + A = imnoise (.5 * ones (100), 'poisson'); + assert (class (A), 'double') ***** test - in = logical ([0 1 0 0 0 - 1 0 0 1 0 - 1 0 1 0 0 - 1 1 1 1 1 - 1 1 1 1 1]); - - out = logical ([0 1 0 0 0 - 1 0 0 1 0 - 1 0 1 0 0 - 1 1 0 1 1 - 1 1 1 1 1]); - assert (bwmorph (in, "remove"), out); - - out = logical ([0 1 0 0 0 - 1 0 0 1 0 - 1 0 1 0 0 - 1 1 0 1 1 - 1 1 1 1 1]); - assert (bwmorph (in, "remove", Inf), out); -***** xtest - ## tests for spur are failing (matlab incompatible) - in = logical ([0 1 0 0 0 - 1 0 0 1 0 - 1 0 1 0 0 - 1 1 1 1 1 - 1 1 1 1 1]); - - out = logical ([0 1 0 0 0 - 1 0 0 0 0 - 1 0 1 0 0 - 1 1 1 1 1 - 1 1 1 1 1]); - assert (bwmorph (in, "spur"), out); - - out = logical ([0 1 0 0 0 - 1 0 0 0 0 - 1 0 0 0 0 - 1 1 1 1 1 - 1 1 1 1 1]); - assert (bwmorph (in, "spur", Inf), out); -!!!!! known failure -ASSERT errors for: assert (bwmorph (in, "spur"),out) - - Location | Observed | Expected | Reason - (1,2) 0 1 Abs err 1 exceeds tol 0 by 1 + A = imnoise (.5 * ones (100, 'single'), 'poisson'); + assert (class (A), 'single') ***** test - bw = false (3, 3); - bw(3, 1) = true; - out = bwmorph (bw, "thicken", 0); - assert (out, bw) + A = imnoise (128 * ones (100, 'uint8'), 'poisson'); + assert (class (A), 'uint8') ***** test - bw = false (8, 7); - bw(8, 1) = true; - expected = logical ([ - 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 - 1 1 0 0 0 0 0 - 1 1 1 0 0 0 0 - 1 1 1 1 0 0 0 - 1 1 1 1 1 0 0 - 1 1 1 1 1 1 0 - 1 1 1 1 1 1 1]); - out = bwmorph (bw, "thicken", 6); - assert (out, expected) + A = imnoise (256 * ones (100, 'uint16'), 'poisson'); + assert (class (A), 'uint16') +***** demo + A = imnoise (2^7 * ones (100, 'uint8'), 'poisson'); + subplot (2, 2, 1) + imshow (A) + title ('uint8 image with poisson noise') + A = imnoise (2^15 * ones (100, 'uint16'), 'poisson'); + subplot (2, 2, 2) + imshow (A) + title ('uint16 image with poisson noise') + A = imnoise (.5 * ones (100), 'poisson'); + subplot (2, 2, 3) + imshow (A) + title ('double image with poisson noise') + A = imnoise (.5 * ones (100, 'single'), 'poisson'); + subplot (2, 2, 4) + imshow (A) + title ('single image with poisson noise') +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/checkerboard.m] +>>>>> /build/octave-image-2.12.0/inst/checkerboard.m +***** demo + ## Simplest case, default checkerboard size: + ## 8 by 8 checkerboard, with squares 10 pixel wide + board = checkerboard (); + imshow (board) +***** demo + ## Simplest case, default checkerboard size: + ## 8 by 16 checkerboard, with squares 5 pixel wide + board = checkerboard (5, 4, 8); + imshow (board) +***** assert (checkerboard (0), zeros (0, 0)) +***** assert (checkerboard (0, 3), zeros (0, 0)) +***** assert (checkerboard (0, 2, 4), zeros (0, 0)) +***** assert (checkerboard (0, 2, 4, 3), zeros (0, 0, 0)) +***** assert (checkerboard (0, 2, 4, 3, 2), zeros (0, 0, 0, 0)) +***** assert (checkerboard (1, 4, 2, 3, 0), zeros (8, 4, 6, 0)) +***** assert (checkerboard (1, 4, 0, 3, 2), zeros (8, 0, 6, 4)) +***** assert (checkerboard (2, 4, 0, 3, 2), zeros (16, 0, 12, 8)) ***** test - bw = false (8, 7); - bw(2, 4) = true; - expected = logical ([ - 0 0 1 1 1 0 0 - 0 1 1 1 1 1 0 - 0 0 1 1 1 0 0 - 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0]); - out = bwmorph (bw, "thicken", 2); - assert (out, expected) + out = zeros (80); + i1 = ((1:20:80) .+ (0:9)')(:); + i2 = ((11:20:80) .+ (0:9)')(:); + out(i1, i2) = 1; + out(i2, i1) = 1; + i1r = ((41:20:80) .+ (0:9)')(:); + i2r = ((51:20:80) .+ (0:9)')(:); + out(i2, i1r) = 0.7; + out(i1, i2r) = 0.7; + assert (checkerboard (), out) + assert (checkerboard (10, 4, 4), out) + assert (checkerboard (10, [4 4]), out) + assert (checkerboard (10, [4; 4]), out) ***** test - bw = false (8, 7); - bw (6, 3) = true ; - expected1 = logical ([ - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 1 0 0 0 0 - 0 1 1 1 0 0 0 - 0 0 1 0 0 0 0 - 0 0 0 0 0 0 0]); - expected3 = logical ([ - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 1 0 0 0 0 - 0 1 1 1 0 0 0 - 1 1 1 1 1 0 0 - 1 1 1 1 1 1 0 - 1 1 1 1 1 0 0 - 0 1 1 1 0 0 0]); - out1 = bwmorph (bw, "thicken", 1); - out3 = bwmorph (bw, "thicken", 3); - assert (out1, expected1) - assert (out3, expected3) + out = zeros (8); + out(2:2:8, 1:2:8) = 1; + out(1:2:8, 2:2:8) = 1; + out(1:2:8, 6:2:8) = 0.7; + out(2:2:8, 5:2:8) = 0.7; + assert (checkerboard (1), out) + assert (checkerboard (1, 4), out) + assert (checkerboard (1, 4, 4), out) + assert (checkerboard (1, [4 4]), out) ***** test - bw = false (10, 10); - bw(2, 3) = true; - bw(7, 7) = true; - out_inf = bwmorph (bw, "thicken", Inf); - assert (out_inf(1, 9), false) + out = zeros (10); + out(2:2:10, 1:2:10) = 1; + out(1:2:10, 2:2:10) = 1; + out(1:2:10, 6:2:10) = 0.7; + out(2:2:10, 7:2:10) = 0.7; + assert (checkerboard (1, 5), out) + assert (checkerboard (1, 5, 5), out) + assert (checkerboard (1, [5 5]), out) ***** test - bw = false (3, 3); - bw(3, 1) = true; - out = bwmorph (bw, "thicken", 4); - assert (out, true (3, 3)) -***** xtest - ## bug #44396 - in = [ - 0 0 0 1 0 - 1 1 1 1 0 - 0 0 1 1 0 - 0 0 1 1 0 - 0 0 0 1 0]; - out = [ - 0 0 0 0 0 - 0 1 1 0 0 - 0 0 0 1 0 - 0 0 0 0 0 - 0 0 0 0 0]; - assert (bwmorph (in, "shrink"), logical (out)); -!!!!! known failure -ASSERT errors for: assert (bwmorph (in, "shrink"),logical (out)) - - Location | Observed | Expected | Reason - (2,4) 1 0 Abs err 1 exceeds tol 0 by 1 - (3,4) 0 1 Abs err 1 exceeds tol 0 by 1 - (4,4) 1 0 Abs err 1 exceeds tol 0 by 1 - (5,4) 1 0 Abs err 1 exceeds tol 0 by 1 + out = zeros (20); + out([1:4:20 2:4:20], [3:4:20 4:4:20]) = 1; + out([3:4:20 4:4:20], [1:4:20 2:4:20]) = 1; + out([1:4:20 2:4:20], [11:4:20 12:4:20]) = 0.7; + out([3:4:20 4:4:20], [13:4:20 14:4:20]) = 0.7; + assert (checkerboard (2, 5), out) + assert (checkerboard (2, 5, 5), out) + assert (checkerboard (2, [5 5]), out) ***** test - H = false (7,7); - H(2:3,2:3) = 1; - H(5:6,5:6) = 1; - T = logical([0 0 0 0 0 0 0; - 0 0 0 0 0 0 0; - 0 1 0 0 0 0 0; - 0 0 0 0 0 0 0; - 0 0 0 0 0 0 0; - 0 0 0 0 1 0 0; - 0 0 0 0 0 0 0]); - out = bwmorph (H, "thin", 1); - assert (T, out) + out = zeros (4, 4, 4); + out([1 3], 1, [1 3]) = 1; + out([2 4], 2, [1 3]) = 1; + out([1 3], 2, [2 4]) = 1; + out([2 4], 1, [2 4]) = 1; + out([1 3], 3, [1 3]) = 0.7; + out([2 4], 4, [1 3]) = 0.7; + out([1 3], 4, [2 4]) = 0.7; + out([2 4], 3, [2 4]) = 0.7; + assert (checkerboard (1, [2 2 2]), out) + assert (checkerboard (1, 2, 2, 2), out) +***** test + out = zeros (8, 8, 8); + out([1 2 5 6], [1 2], [1 2 5 6]) = 1; + out([3 4 7 8], [3 4], [1 2 5 6]) = 1; + out([1 2 5 6], [3 4], [3 4 7 8]) = 1; + out([3 4 7 8], [1 2], [3 4 7 8]) = 1; + out([1 2 5 6], [5 6], [1 2 5 6]) = 0.7; + out([3 4 7 8], [7 8], [1 2 5 6]) = 0.7; + out([1 2 5 6], [7 8], [3 4 7 8]) = 0.7; + out([3 4 7 8], [5 6], [3 4 7 8]) = 0.7; + assert (checkerboard (2, [2 2 2]), out) + assert (checkerboard (2, 2, 2, 2), out) +14 tests, 14 passed, 0 known failure, 0 skipped +[inst/ordfiltn.m] +>>>>> /build/octave-image-2.12.0/inst/ordfiltn.m +***** shared b, f, s + b = [ 0 1 2 3 + 1 8 12 12 + 4 20 24 21 + 7 22 25 18]; - H(4:6,4:6) = 1; - T = logical([0 0 0 0 0 0 0; - 0 0 0 0 0 0 0; - 0 1 1 0 0 0 0; - 0 0 0 1 0 0 0; - 0 0 0 0 1 0 0; - 0 0 0 0 0 0 0; - 0 0 0 0 0 0 0]); - out = bwmorph (H, "thin", 1); - assert (T, out) + f = [ 8 12 12 12 + 20 24 24 24 + 22 25 25 25 + 22 25 25 25]; +***** assert (ordfiltn (b, 9, true (3)), f); - H3 = [0 0 0 0 0 0; - 0 1 1 1 0 0; - 0 1 1 1 0 0; - 0 0 0 1 0 1; - 0 0 0 0 1 1; - 0 0 0 1 1 1]; - out3 = bwmorph (H3, "thin", 1); - expected3 = logical( - [0 0 0 0 0 0; - 0 0 0 0 0 0; - 0 1 1 0 0 0; - 0 0 0 1 0 1; - 0 0 0 0 1 0; - 0 0 0 1 1 0]); - assert (out3, expected3) + f = [ 1 8 12 12 + 8 20 21 21 + 20 24 24 24 + 20 24 24 24]; +***** assert (ordfiltn (b, 8, true (3)), f); - out33 = bwmorph (H3, "thin", 2); - expected33 = logical( - [0 0 0 0 0 0; - 0 0 0 0 0 0; - 0 1 1 0 0 0; - 0 0 0 1 0 1; - 0 0 0 0 1 0; - 0 0 0 1 0 0]); - assert (out33, expected33) + f = [ 1 2 8 12 + 4 12 20 21 + 8 22 22 21 + 20 24 24 24]; +***** assert (ordfiltn (b, 7, true (3), "symmetric"), f); - out333 = bwmorph (H3, "thin", inf); - assert (out333, expected33) + f = [ 1 8 12 12 + 4 20 24 21 + 7 22 25 21 + 7 22 25 21]; +***** assert (ordfiltn (b, 3, true (3, 1)), f); + + f = [ 1 8 12 12 + 4 20 24 18 + 4 20 24 18 + 4 20 24 18]; +***** assert (ordfiltn (b, 3, true (4, 1)), f); + + f = [ 4 20 24 21 + 7 22 25 21 + 7 22 25 21 + 7 22 25 21]; +***** assert (ordfiltn (b, 4, true (4, 1)), f); + + s = [0 0 1 + 0 0 1 + 0 0 1]; + f = [ 2 8 12 12 + 9 20 22 21 + 21 25 24 24 + 21 25 24 24]; +***** assert (ordfiltn (b, 8, true (3), s), f); + + b(:,:,2) = b(:,:,1) - 1; + b(:,:,3) = b(:,:,2) - 1; + f(:,:,1) = [ 1 8 11 11 + 8 20 21 21 + 20 24 24 24 + 20 24 24 24]; + f(:,:,2) = [ 6 10 11 11 + 18 22 22 22 + 20 24 24 24 + 20 24 24 24]; + f(:,:,3) = [ 0 7 10 10 + 7 19 20 20 + 19 23 23 23 + 19 23 23 23]; +***** assert (ordfiltn (b, 25, true (3, 3, 3)), f); +8 tests, 8 passed, 0 known failure, 0 skipped +[inst/imsmooth.m] +>>>>> /build/octave-image-2.12.0/inst/imsmooth.m ***** test - in = logical ([ - 1 0 0 0 - 0 1 0 0 - 0 0 1 0 - 0 0 0 0]); - out = logical ([ - 1 0 0 0 - 0 0 0 0 - 0 0 1 0 - 0 0 0 0]); - assert (bwmorph (in, "endpoints"), out); + ## checking Bilateral Filter - A = logical ([0 0 0 0 0; 0 0 1 0 0; 0 1 1 1 0; 0 0 1 0 0; 0 0 0 0 0]); - B = logical ([0 0 0 0 0; 0 0 1 0 0; 0 1 0 1 0; 0 0 1 0 0; 0 0 0 0 0]); - assert (bwmorph (A, "endpoints"), B); + ## constant image remain the same after Bilateral Filter + A = uint8(255*ones(128,128)); + B = uint8(imsmooth(A, 'Bilateral', 2, 10)); + assert (A,B); - A = logical ([0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 1 1 - 0 0 1 1 1 1 0 0 - 0 0 0 1 1 0 0 0 - 0 0 1 1 1 1 0 0 - 0 1 0 0 0 0 1 0 - 1 0 0 0 0 0 0 1]); - B = logical ([0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 1 - 0 0 0 0 0 0 0 0 - 0 0 0 1 1 0 0 0 - 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 1]); - assert (bwmorph (A, "endpoints"), B); + ## Bilateral Filter does not smear outlayers + A = zeros(256,256); + A(128,128) = 256; + ## bilateral filter does not smear outlayers + B = imsmooth(A, 'Bilateral', 2, 10); + assert (A,B,1.e-140); - A = logical([0 0 0 0 0; 0 1 1 1 0; 0 1 1 1 0; 0 1 1 1 0; 0 0 0 0 0]); - B = logical([0 0 0 0 0; 0 1 1 1 0; 0 1 0 1 0; 0 1 1 1 0; 0 0 0 0 0]); - assert (bwmorph (A, "endpoints"), B); - assert (bwmorph (B, "endpoints"), zeros (5, "logical")); + ## When sigma_r is large the filter behaves almost + ## like the isotropic Gaussian filter - A = logical([0,0,0,0,0,0,0,0,0,0,0,0,0,0 - 0,0,1,1,1,1,1,1,1,1,1,1,0,0 - 0,0,0,0,0,0,0,0,0,0,0,0,0,0]); - B = logical([0,0,0,0,0,0,0,0,0,0,0,0,0,0 - 0,0,1,0,0,0,0,0,0,0,0,1,0,0 - 0,0,0,0,0,0,0,0,0,0,0,0,0,0]); - C = logical([1,0,0,0,0,0,0,0,0,0,0,0,0,1 - 1,1,0,0,0,0,0,0,0,0,0,0,1,1 - 1,0,0,0,0,0,0,0,0,0,0,0,0,1]); - assert (bwmorph (!A, "endpoints"), C); -22 tests, 20 passed, 2 known failures, 0 skipped -[inst/bestblk.m] ->>>>> /build/octave-image-2.12.0/inst/bestblk.m + A0 = fspecial ('gaussian',100,100); + A = uint8(A0/max(max(A0))*255); + B1 = imsmooth(A, 'Bilateral', 2, 100); + B2 = imsmooth(A, 'Gaussian', 2); + assert (B1,B2); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imtransform.m] +>>>>> /build/octave-image-2.12.0/inst/imtransform.m ***** demo - siz = bestblk ([200; 10], 50); - disp (siz) -***** error bestblk ("string") -***** error bestblk ([100 200], "string") -***** error <2 elements> bestblk ([100], 5) -***** assert (bestblk ([ 10 12], 2), [ 2 2]); -***** assert (bestblk ([ 10 12], 3), [ 2 3]); -***** assert (bestblk ([300 100], 150), [150 100]); -***** assert (bestblk ([256 128], 17), [ 16 16]); -***** assert (bestblk ([ 17 17], 3), [ 3 3]); -***** assert (bestblk ([230 470]), bestblk ([230 470], 100)) -***** assert (bestblk ([10 12 10], 3), [2 3 2]); -***** assert (bestblk ([ 9 12 9], 3), [3 3 3]); -***** assert (bestblk ([10 12 10 11], 5), [5 4 5 4]); -12 tests, 12 passed, 0 known failure, 0 skipped -[inst/bwunpack.m] ->>>>> /build/octave-image-2.12.0/inst/bwunpack.m -***** error id=Octave:invalid-fun-call bwunpack () -***** error bwunpack (uint8 (1)) -***** error bwunpack (uint32 (1), -1) -***** error bwunpack (uint32 (1), 4.2) -***** xtest - ## bug #55521 - assert (bwunpack (uint32 (2.^[0:31])), logical (eye (32))) -***** xtest - ## bug #55521 - assert (bwunpack (uint32 (repmat (7, [1 3 3 3])), 3), true (3, 3, 3, 3)) -***** assert (bwunpack (uint32 (zeros (0, 0))), false (0, 0)) -***** assert (bwunpack (uint32 (zeros (0, 0)), 0), false (0, 0)) -***** assert (bwunpack (uint32 (zeros (0, 5)), 0), false (0, 5)) -***** assert (bwunpack (uint32 (zeros (0, 5, 7)), 0), false (0, 5, 7)) -***** assert (bwunpack (uint32 (zeros (1, 0))), false (32, 0)) -***** assert (bwunpack (uint32 (zeros (2, 0, 7))), false (64, 0, 7)) -***** assert (bwunpack (uint32 (zeros (2, 0, 7))), false (64, 0, 7)) -***** assert (bwunpack (uint32 (zeros (2, 0, 7)), 60), false (60, 0, 7)) -***** error - bwunpack (uint32 (1), 1042) -15 tests, 15 passed, 0 known failure, 0 skipped -[inst/@strel/strel.m] ->>>>> /build/octave-image-2.12.0/inst/@strel/strel.m -***** test - shape = logical ([0 0 0 1]); - assert (getnhood (strel (shape)), shape); - assert (getnhood (strel ("arbitrary", shape)), shape); + ## Various linear transforms + figure (); + im = [checkerboard(20, 2, 4); checkerboard(40, 1, 2)]; + %input space corners + incp = [1 1; 160 1; 160 160; 1 160]; + udata = [min(incp(:,1)) max(incp(:,1))]; + vdata = [min(incp(:,2)) max(incp(:,2))]; + subplot (2,3,1); + imshow (im) + hold on + plot (incp(:,1), incp(:,2), 'ob') + axis on + xlabel ('Original') + + % Translation and scaling + outcp = incp * 2; + outcp(:,1) += 200; + outcp(:,2) += 500; + T = maketform ('affine', incp(1:3,:), outcp(1:3,:)); + subplot (2,3,2); + [im2 xdata ydata] = imtransform (im, T, 'udata', udata, + 'vdata', vdata, 'fillvalues', 1); + imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + axis on, hold on, xlabel ('Translation / Scaling'); + plot (outcp(:,1), outcp(:,2), 'or') + + % Shear + outcp = [1 1; 160 1; 140 160; -19 160]; % affine only needs 3 control points + T = maketform ('affine', incp(1:3,:), outcp(1:3,:)); + subplot (2,3,3); + [im2 xdata ydata] = imtransform (im, T, 'udata', udata, + 'vdata', vdata, 'fillvalues', 1); + imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + axis on, hold on, xlabel ('Shear'); + plot (outcp(:,1), outcp(:,2), 'or') + + % Rotation + theta = pi/4; + T = maketform ('affine', [cos(theta) -sin(theta); ... + sin(theta) cos(theta); 0 0]); + outcp = tformfwd (T, incp); + subplot (2,3,4); + [im2 xdata ydata] = imtransform (im, T, 'udata', udata, + 'vdata', vdata, 'fillvalues', 1 ); + imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + axis on, hold on, xlabel ('Rotation'); + plot (outcp(:,1), outcp(:,2), 'or') - height = [0 0 0 3]; - assert (getnhood (strel ("arbitrary", shape, height)), shape); - assert (getheight (strel ("arbitrary", shape, height)), height); + % Reflection around x axis + outcp = incp; + outcp(:,2) *= -1; + T = cp2tform (incp, outcp, 'similarity'); + subplot (2,3,5); + [im2 xdata ydata] = imtransform (im, T, 'udata', udata, + 'vdata', vdata, 'fillvalues', 1 ); + imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + axis on, hold on, xlabel ('Reflection'); + plot (outcp(:,1), outcp(:,2), 'or') + + % Projection + outcp = [1 1; 160 -40; 220 220; 12 140]; + T = maketform ('projective', incp, outcp); + subplot (2,3,6); + [im2 xdata ydata] = imtransform (im, T, 'udata', udata, + 'vdata', vdata, 'fillvalues', 1 ); + imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + axis on, hold on, xlabel ('Projection'); + plot (outcp(:,1), outcp(:,2), 'or') +***** demo + ## Streched image + rad = 2; % minimum value: 4/pi + [uu vv] = meshgrid ((-2:2)/rad, (-2:2)/rad); + rescfactor = sin ((uu.^2 + vv.^2).^.5); + inpts = [(reshape (uu, numel (uu), 1)), (reshape (vv, numel (uu), 1))]; + xx = rescfactor .* sign(uu); + yy = rescfactor .* sign(vv); + outpts = [reshape(xx, numel (xx), 1) reshape(yy, numel (yy), 1)]; + + T = cp2tform (inpts, outpts, "polynomial", 4); + figure; + subplot (1,2,1) + im = zeros (800, 800, 3); + im(:,:,1) = checkerboard (100) > 0.2; + im(:,:,3) = checkerboard (100) < 0.2; + [im2 xdata ydata] = imtransform (im, T, 'udata', [-2 2], + 'vdata', [-2 2], 'fillvalues', + [0 1 0]); + imh = imshow (im2); + set (imh, 'xdata', xdata, 'ydata', ydata) + set (gca, 'xlim', xdata, 'ylim', ydata) + [im cmap] = imread ('default.img'); + subplot (1,2,2) + [im2 xdata ydata] = imtransform (im, T, 'udata', [-1 1], + 'vdata', [-1 1], 'fillvalues', + round (length (cmap) / 2)); + imh = imshow (im2, cmap); ***** test - shape = logical ([0 0 1]); - height = [-2 1 3]; ## this works for matlab compatibility - assert (getnhood (strel ("arbitrary", shape, height)), shape); - assert (getheight (strel ("arbitrary", shape, height)), height); + im = checkerboard (); + incp = [0 0; 0 1; 1 1]; + scl = 10; + outcp = scl * incp; + T = maketform ('affine', incp, outcp); + [im2 xdata ydata] = imtransform (im, T, 'udata', [0 1], + 'vdata', [0 1], 'size', [500 500]); + assert (xdata, scl * ([0 1])) + assert (ydata, scl * ([0 1])) + assert (size (im2), [500 500]) ***** test - shape = logical ([0 0 0 1 0 0 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 1 1 1 1 1 1 1 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 0 0 1 0 0 0]); - height = [ 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 - 0.00000 0.33333 0.66667 0.74536 0.66667 0.33333 0.00000 - 0.00000 0.66667 0.88192 0.94281 0.88192 0.66667 0.00000 - 0.00000 0.74536 0.94281 1.00000 0.94281 0.74536 0.00000 - 0.00000 0.66667 0.88192 0.94281 0.88192 0.66667 0.00000 - 0.00000 0.33333 0.66667 0.74536 0.66667 0.33333 0.00000 - 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; - assert (getnhood (strel ("ball", 3, 1)), shape); - assert (getheight (strel ("ball", 3, 1)), height, 0.0001); + im = checkerboard (); + incp = [0 0; 0 1; 1 1]; + scl = 10; + outcp = scl * incp; + xyscale = scl; + T = maketform ('affine', incp, outcp); + [im2 xdata ydata] = imtransform (im, T, 'xyscale', xyscale); + assert (size (im2), size (im), 1) ***** test - shape = logical ([0 0 0 1 0 0 0 - 0 0 1 1 1 0 0 - 0 1 1 1 1 1 0 - 1 1 1 1 1 1 1 - 0 1 1 1 1 1 0 - 0 0 1 1 1 0 0 - 0 0 0 1 0 0 0]); - assert (getnhood (strel ("diamond", 3)), shape); + im = checkerboard (100, 10, 4); + theta = 2 * pi; + T = maketform ("affine", [cos(theta) -sin(theta); ... + sin(theta) cos(theta); 0 0]); + im2 = imtransform (im, T, "nearest", "xdata", [1 800], "ydata", [1 2000]); + im = im(2:end-1, 2:end-1); %avoid boundaries + im2 = im2(2:end-1, 2:end-1); + assert (im, im2) ***** test - shape = logical ([0 0 0 1 0 0 0 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 1 1 1 1 1 1 1 - 0 1 1 1 1 1 0 - 0 1 1 1 1 1 0 - 0 0 0 1 0 0 0]); - assert (getnhood (strel ("disk", 3, 0)), shape); + im = checkerboard (20, 10, 4); + theta = pi/6; + T = maketform ('affine', [cos(theta) -sin(theta); ... + sin(theta) cos(theta); 0 0]); + [im2, xdata] = imtransform (im, T); + nu = columns(im); + nv = rows(im); + nx = xdata(2); + diag = sqrt (nu^2 + nv^2); + ang = atan (nv / nu); + assert (nx, diag * abs (cos (theta - ang)), + diag * 1 / size (im2, 2)) ***** test - shape = logical ([1 1 1]); - assert (getnhood (strel ("line", 3.9, 20.17)), shape); - shape = logical ([0 0 1 - 0 1 0 - 1 0 0]); - assert (getnhood (strel ("line", 3.9, 20.18)), shape); - shape = logical ([1 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 0 0 0 1 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 0 0 0 1 0 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 - 0 0 0 0 0 0 0 0 1]); - assert (getnhood (strel ("line", 14, 130)), shape); + im = rand (2); + tmat = [eye(2); 0 0]; + T = maketform ("affine", tmat); + im2 = imtransform (im, T, "xdata", [1 3]); + assert (im2(:,3), zeros (2,1)) ***** test - se = strel ("octagon", 0); - seq = getsequence (se); - assert (getnhood (se), true (1)); - assert (getnhood (seq(1)), true (1)); - - se = strel ("octagon", 3); - seq = getsequence (se); - shape = logical ([0 0 1 1 1 0 0 - 0 1 1 1 1 1 0 - 1 1 1 1 1 1 1 - 1 1 1 1 1 1 1 - 1 1 1 1 1 1 1 - 0 1 1 1 1 1 0 - 0 0 1 1 1 0 0]); - assert (getnhood (se), shape); - assert (size (seq), [4 1]); - - templ1 = logical ([0 0 0; 1 1 1; 0 0 0]); - templ2 = logical ([0 1 0; 0 1 0; 0 1 0]); - templ3 = logical ([1 0 0; 0 1 0; 0 0 1]); - templ4 = logical ([0 0 1; 0 1 0; 1 0 0]); - assert ({getnhood(seq(1)) getnhood(seq(2)) getnhood(seq(3)) getnhood(seq(4))}, - {templ1 templ2 templ3 templ4}); + im = rand (2); + tmat = [eye(2); 0 0]; + T = maketform ('affine', tmat); + im2 = imtransform (im, T, "xdata", [1 3]); + assert (size (im2), [2 3]) +***** test + im = rand (2); + tmat = [eye(2); 0 0]; + T = maketform ('affine', tmat); + im2 = imtransform (im, T, "xyscale", [0.5 0.5]); + assert (size (im2), [3 3]) +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/imcomplement.m] +>>>>> /build/octave-image-2.12.0/inst/imcomplement.m +***** assert (imcomplement (10), -9); +***** assert (imcomplement (single (10)), single (-9)); +***** assert (imcomplement (0.2), 0.8); +***** assert (imcomplement (uint8 (0)), uint8 (255)); +***** assert (imcomplement (uint8 (1)), uint8 (254)); +***** assert (imcomplement (uint16 (0)), uint16 (65535)); +***** assert (imcomplement (uint16 (1)), uint16 (65534)); +***** assert (imcomplement (int8 (-128)), int8 ( 127)); +***** assert (imcomplement (int8 ( 127)), int8 (-128)); +***** assert (imcomplement (int16 (-1)), int16 ( 0)); +***** assert (imcomplement (int16 ( 0)), int16 (-1)); +***** assert (imcomplement (int16 ( 1)), int16 (-2)); +***** assert (imcomplement ([true false true]), [false true false]) +***** error imcomplement ("not an image") +14 tests, 14 passed, 0 known failure, 0 skipped +[inst/im2uint8.m] +>>>>> /build/octave-image-2.12.0/inst/im2uint8.m +***** assert (im2uint8 (uint8 ([1 2 3])), uint8 ([1 2 3])); +***** assert (im2uint8 (uint16 ([0 65535])), uint8 ([0 255])); +***** assert (im2uint8 ([0 0.5 1]), uint8 ([0 128 255])); +***** assert (im2uint8 ([1 2]), uint8 ([255 255])); +***** assert (im2uint8 ([-1 0 0.5 1 2]), uint8 ([0 0 128 255 255])); +***** assert (im2uint8 (int16 ([-32768 0 32768])), uint8 ([0 128 255])); +***** assert (im2uint8 ([false true]), uint8 ([0 255])); +***** assert (im2uint8 ([true false]), uint8 ([255 0])); +***** assert (im2uint8 ([1 256], "indexed"), uint8 ([0 255])); +***** assert (im2uint8 ([3 25], "indexed"), uint8 ([2 24])); +***** assert (im2uint8 (uint16 ([3 25]), "indexed"), uint8 ([3 25])); +***** error im2uint8 ([0 1 2], "indexed"); +***** error im2uint8 (int16 ([17 8]), "indexed"); +***** error im2uint8 (int16 ([-7 8]), "indexed"); +***** error im2uint8 ([false true], "indexed"); +***** error im2uint8 (uint16 (256), "indexed"); +***** error im2uint8 (257, "indexed"); +***** assert (im2uint8 ((1:255) ./ 256), uint8 ([1:128 128:254])) +***** assert (im2uint8 ((0:255) ./ 256), uint8 ([0:128 128:254])) +19 tests, 19 passed, 0 known failure, 0 skipped +[inst/fftconvn.m] +>>>>> /build/octave-image-2.12.0/inst/fftconvn.m +***** function test_shapes (a, b, precision) + shapes = {"valid", "same", "full"}; + for i = 1:3 + shape = shapes{i}; + assert (fftconvn (a, b, shape), convn (a, b, shape), precision); + endfor + assert (fftconvn (a, b), fftconvn (a, b, "full")); +***** endfunction +***** test test_shapes (randi (255, 100), randi (255, 10), 0.1) +***** test test_shapes (randi (255, 100, 100), randi (255, 10, 10), 0.1) +***** test test_shapes (randi (255, 100, 100, 100), randi (255, 10, 10, 10), 0.1) +***** test test_shapes (randi (255, 100, 50, 20), randi (255, 10, 7), 0.1) +***** test test_shapes (randi (255, 100, 50, 20), randi (255, 10), 0.1) +***** test + for s = [55 56 57 58] + test_shapes (randi (255, 200, 200), randi (255, s, s), 0.1) + endfor +***** test + for s = [203 204 205 206] + test_shapes (randi (255, s, s), randi (255, 52, 52), 0.1) + endfor +***** test test_shapes (randi (255, 100, 100, "uint8"), randi (255, 10, 10, "uint8"), 0.1) +***** test test_shapes (randi (255, 100, 100, "uint8"), randi (255, 10, 10), 0.1) +***** test test_shapes (randi (255, 100, 100, "single"), randi (255, 10, 10, "single"), 0.9) +***** test test_shapes (randi (255, 100, 100, "single"), randi (255, 10, 10), 0.9) +11 tests, 11 passed, 0 known failure, 0 skipped +[inst/ntsc2rgb.m] +>>>>> /build/octave-image-2.12.0/inst/ntsc2rgb.m +***** shared trans + trans = [ 1.0, 1.0, 1.0; + 0.95617, -0.27269, -1.10374; + 0.62143, -0.64681, 1.70062 ]; +***** assert (ntsc2rgb ([.299 .596 .211]), [1 0 0], 1e-5) +***** assert (ntsc2rgb ([.587 -.274 -.523]), [0 1 0], 1e-5) +***** assert (ntsc2rgb ([.114 -.322 .312]), [0 0 1], 1e-5) +***** test + rgb_map = rand (64, 3); + assert (ntsc2rgb (rgb2ntsc (rgb_map)), rgb_map, 1e-3); +***** test + rgb_img = rand (64, 64, 3); + assert (ntsc2rgb (rgb2ntsc (rgb_img)), rgb_img, 1e-3); +***** assert (ntsc2rgb ([1.5 0 0]), [1 1 1]) +***** test + ntsc = [0.4229 0.0336 0.7184]; + rgb = ntsc * trans; # [0.9014 -0.0509 1.6075] + rgb(1) /= rgb(3); # scaled based on the maximum + rgb(2) = 0; # cut to 0 + rgb(3) = 1; # cut to 1 + assert (ntsc2rgb (ntsc), rgb); +***** test + ntsc = [0.8229 0.3336 0.7184]; + rgb = ntsc * trans; # [1.58831 0.26726 1.67642] + rgb /= rgb(3); + assert (ntsc2rgb (ntsc), rgb); +***** test + ntsc = [0.4229 0.0336 0.7184 + 0.8229 0.3336 0.7184]; + rgb = ntsc * trans; # [0.9014 -0.0509 1.6075; 1.58831 0.26726 1.67642] + rgb(1,1) /= rgb(1,3); + rgb(1,2) = 0; + rgb(1,3) = 1; + rgb(2,:) /= rgb(2,3); + assert (ntsc2rgb (ntsc), rgb); +***** error ntsc2rgb () +***** error ntsc2rgb (1,2) +***** error ntsc2rgb (uint8 (1)) +***** error ntsc2rgb (ones (2,2)) +***** error ntsc2rgb (ones ([10 10 3], "uint8")) +***** error ntsc2rgb (ones ([10 10 3], "uint16")) +***** error ntsc2rgb (ones ([10 10 3], "int16")) +***** test + yiq = rand (16, 16, 3, 5); + rgb = zeros (size (yiq)); + for i = 1:5 + rgb(:,:,:,i) = ntsc2rgb (yiq(:,:,:,i)); + endfor + assert (ntsc2rgb (yiq), rgb); +***** test + rgb = ntsc2rgb (rand (10, 10, 3)); + assert (class (rgb), "double"); + assert (size (rgb), [10 10 3]); +***** test + rgb = ntsc2rgb (rand (10, 10, 3, "single")); + assert (class (rgb), "single"); + assert (size (rgb), [10 10 3]); +***** test + ntsc = (rand (10, 10, 3) * 3 ) - 0.5; # values outside range [0 1] + rgb = ntsc2rgb (ntsc); + assert (class (rgb), "double"); + assert (size (rgb), [10 10 3]); +***** test + ntsc = (rand (10, 10, 3, "single") * 3 ) - 0.5; # values outside range [0 1] + rgb = ntsc2rgb (ntsc); + assert (class (rgb), "single"); + assert (size (rgb), [10 10 3]); +***** test + ntsc_double = reshape ([.299 .587 .114 0 .596 -.274 -.322 0 .211 -.523 .312 0], + [2 2 3]); + expected = reshape ([1 0 0 0 0 1 0 0 0 0 1 0], [2 2 3]); - seq = getsequence (strel ("octagon", 21)); - assert (size (seq), [28 1]); - assert (arrayfun (@(x) getnhood (seq(x)), 1:4:25, "UniformOutput", false), - repmat ({templ1}, 1, 7)); - assert (arrayfun (@(x) getnhood (seq(x)), 2:4:26, "UniformOutput", false), - repmat ({templ2}, 1, 7)); - assert (arrayfun (@(x) getnhood (seq(x)), 3:4:27, "UniformOutput", false), - repmat ({templ3}, 1, 7)); - assert (arrayfun (@(x) getnhood (seq(x)), 4:4:28, "UniformOutput", false), - repmat ({templ4}, 1, 7)); + assert (ntsc2rgb (ntsc_double), expected, 1e-5); + assert (ntsc2rgb (single (ntsc_double)), single (expected), 1e-5); +22 tests, 22 passed, 0 known failure, 0 skipped +[inst/poly2mask.m] +>>>>> /build/octave-image-2.12.0/inst/poly2mask.m +***** demo + s = [0:pi/4:2*pi]; + x = cos (s) * 90 + 101; + y = sin (s) * 90 + 101; + bw = poly2mask(x, y, 200, 200); + imshow (bw); +***** demo + s = [0:2*pi/5:pi*4]; + s = s ([1, 3, 5, 2, 4, 6]); + x = cos (s) * 90 + 101; + y = sin (s) * 90 + 101; + bw = poly2mask (x, y, 200, 200); + imshow (bw); +***** # Convex polygons +***** shared xs, ys, Rs, xt, yt, Rt + xs=[3,3,10,10]; + ys=[4,12,12,4]; + Rs=zeros(16,14); + Rs(5:12,4:10)=1; + Rs=logical(Rs); + xt=[1,4,7]; + yt=[1,4,1]; + Rt=[0,0,0,0,0,0,0; + 0,0,1,1,1,1,0; + 0,0,0,1,1,0,0; + 0,0,0,1,0,0,0; + 0,0,0,0,0,0,0]; + Rt=logical(Rt); +***** assert(poly2mask(xs,ys,16,14),Rs); # rectangle +***** assert(poly2mask(xs,ys,8,7),Rs(1:8,1:7)); # clipped +***** assert(poly2mask(xs-7,ys-8,8,7),Rs(9:16,8:14)); # more clipping +***** assert(poly2mask(xt,yt,5,7),Rt); # triangle +***** assert(poly2mask(xt,yt,3,3),Rt(1:3,1:3)); # clipped +***** # Concave polygons ***** test - shape = logical ([1 1 0]'); - assert (getnhood (strel ("pair", [-1 0])), shape); - shape = logical ([1 0 0 0 0 0 0 - 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0]); - assert (getnhood (strel ("pair", [-1 -3])), shape); - shape = logical ([0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0 - 0 0 0 0 0 0 1]); - assert (getnhood (strel ("pair", [2 3])), shape); + x=[3,3,5,5,8,8,10,10]; + y=[4,12,12,8,8,11,11,4]; + R=zeros(16,14); + R(5:12,4:5)=1; + R(5:8,6:8)=1; + R(5:11,9:10)=1; + R=logical(R); + assert(poly2mask(x,y,16,14), R); +***** # Complex polygons ***** test - assert (getnhood (strel ("rectangle", [10 5])), true (10, 5)); - assert (getnhood (strel ("square", 5)), true (5)); -***** shared se, seq - se = strel ("square", 5); - seq = getsequence (se); - assert (class (se(1)), "strel") - assert (class (se(1,1)),"strel") - assert (class (seq), "strel") - assert (class (seq(1)), "strel") - assert (class (seq(2)), "strel") - assert (numel (se), 1) - assert (numel (seq), 2) - assert (getnhood (seq(1)), true (5, 1)) - assert (getnhood (seq(2)), true (1, 5)) - assert (size (se), [1 1]) - assert (size (seq), [2 1]) - assert (isscalar (se), true) - assert (isscalar (seq), false) -***** error se(2); -***** error seq(3); + x=[1,5,1,5]; + y=[1,1,4,4]; + R=[0,0,0,0,0,0; + 0,0,1,1,0,0; + 0,0,1,1,0,0; + 0,1,1,1,1,0; + 0,0,0,0,0,0]; + R=logical(R); + assert(poly2mask(x,y,5,6), R); +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/imcast.m] +>>>>> /build/octave-image-2.12.0/inst/imcast.m ***** test - se = strel ("arbitrary", [1 0 0; 1 1 0; 0 1 0], [2 0 0; 3 1 0; 0 3 0]); - ref = reflect (se); - assert (getnhood (ref), logical([0 1 0; 0 1 1; 0 0 1])); - assert (getheight (ref), [0 3 0; 0 1 3; 0 0 2]); -***** error strel() -***** error strel("nonmethodthing", 2) -***** error strel("arbitrary", "stuff") -***** error strel("arbitrary", [0 0 1], [2 0 1; 4 5 1]) -***** error strel("arbitrary", [0 0 1], "stuff") -***** error strel("ball", -3, 1) -***** error strel("diamond", -3) -***** error strel("disk", -3) -***** error strel("line", 0, 45) -***** error strel("octagon", 3.5) -***** error strel("octagon", 4) -***** error strel("octagon", -1) -***** error strel("pair", [45 67 90]) -***** error strel("rectangle", 2) -***** error strel("rectangle", [2 -5]) -***** error strel("square", [34 1-2]) -28 tests, 28 passed, 0 known failure, 0 skipped + im = randi ([0 255], 40, "uint8"); + assert (imcast (im, "uint8"), im2uint8 (im)) + assert (imcast (im, "uint16"), im2uint16 (im)) + assert (imcast (im, "single"), im2single (im)) + assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) + assert (imcast (im, "uint16", "indexed"), im2uint16 (im, "indexed")) + assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) +***** test + im = randi ([1 256], 40, "double"); + assert (imcast (im, "uint8"), im2uint8 (im)) + assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) + assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) +***** test + im = randi ([0 65535], 40, "uint16"); + assert (imcast (im, "uint8"), im2uint8 (im)) + assert (imcast (im, "single"), im2single (im)) + assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) +***** test + im = randi ([1 255], 40, "double"); + assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) + assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) +***** test + im = rand (40); + assert (imcast (im, "uint8"), im2uint8 (im)) +***** error imcast (randi (127, 40, "int8"), "uint8") +***** error imcast (randi (255, 40, "uint8"), "uint32") +***** error imcast (randi (255, 40, "uint8"), "not a class") +***** error imcast (randi ([0 65535], 40, "uint16"), "uint8", "indexed") +***** assert (imcast ([0 1 .2; 2 -0 Inf], "logical"), logical ([0 1 1; 1 0 1])) +10 tests, 10 passed, 0 known failure, 0 skipped [inst/bwperim.m] >>>>> /build/octave-image-2.12.0/inst/bwperim.m ***** test @@ -4530,6 +4134,96 @@ conn_3d(2, 2, :) = true; assert (bwperim (true (1, 1, 6), conn_3d), perim_3d) 9 tests, 9 passed, 0 known failure, 0 skipped +[inst/applylut.m] +>>>>> /build/octave-image-2.12.0/inst/applylut.m +***** demo + lut = makelut (inline ('sum (x (:)) >= 3', 'x'), 3); + S = applylut (eye (5), lut); + disp (S) + ## Everything should be 0 despite a diagonal which doesn't reach borders. +***** assert (prod (applylut (eye (3), makelut (@(x) x(1) == 1, 2)) == eye (3)), [1 1 1]); +***** assert (prod (applylut (eye (3), makelut (@(x) x(2,2) == 1, 3)) == eye (3)), [1 1 1]); +***** assert (prod (applylut (eye (3), makelut (@(x) x(3,3) == 1, 3)) == + applylut (eye (3), makelut (@(x) x(2,2) == 1, 2))), + [1 1 1]); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/otf2psf.m] +>>>>> /build/octave-image-2.12.0/inst/otf2psf.m +***** function otf = rand_otf (varargin) + otf = complex (rand (varargin{:}), rand (varargin{:})); +***** endfunction +***** test + otf = rand_otf (6, 1); + assert (otf2psf (otf), circshift (ifft (otf), 3), eps); +***** test + otf = rand_otf (6, 6); + assert (otf2psf (otf), circshift (ifft2 (otf), [3 3]), eps); +***** test + otf = rand_otf (6, 6, 6); + assert (otf2psf (otf), circshift (ifftn (otf), [3 3 3]), eps); +***** test + otf = rand_otf (7, 1); + assert (otf2psf (otf), circshift (ifft (otf), 3), eps); +***** test + otf = rand_otf (7, 7); + assert (otf2psf (otf), circshift (ifft2 (otf), [3 3]), eps); +***** test + otf = rand_otf (6, 7, 8); + assert (otf2psf (otf), circshift (ifftn (otf), [3 3 4]), eps); +***** test + otf = rand_otf (7, 1); + ppsf = circshift (ifft (otf), 3); + assert (otf2psf (otf, 6), ppsf(1:6), eps); + assert (otf2psf (otf, [6 1]), ppsf(1:6), eps); +***** test + otf = rand_otf (7, 7); + ppsf = circshift (ifft2 (otf), [3 3]); + assert (otf2psf (otf, [6 1]), ppsf(1:6,4), eps); +***** test + otf = rand_otf (6, 7); + ppsf = circshift (ifft2 (otf), [3 3]); + assert (otf2psf (otf, [6 6]), ppsf(:,1:6), eps); +***** error otf2psf ("not a otf") +***** error otf2psf (rand_otf (16), 18) +***** error otf2psf (rand_otf (16), [14 18]) +***** error otf2psf (rand_otf (16), [18 18]) +***** error otf2psf (rand_otf (16, 1), 18) +***** test + psf = fspecial ("gaussian", 16); + otf = psf2otf (psf); + assert (otf2psf (otf), psf, eps); +***** xtest + psf = rand (16); + otf = psf2otf (psf); + assert (otf2psf (otf), psf, 4*eps); +***** test + psf = rand (8); + otf = psf2otf (psf, [16 16]); + assert (otf2psf (otf, [8 8]), psf, 2*eps); +17 tests, 17 passed, 0 known failure, 0 skipped +[inst/bwunpack.m] +>>>>> /build/octave-image-2.12.0/inst/bwunpack.m +***** error id=Octave:invalid-fun-call bwunpack () +***** error bwunpack (uint8 (1)) +***** error bwunpack (uint32 (1), -1) +***** error bwunpack (uint32 (1), 4.2) +***** xtest + ## bug #55521 + assert (bwunpack (uint32 (2.^[0:31])), logical (eye (32))) +***** xtest + ## bug #55521 + assert (bwunpack (uint32 (repmat (7, [1 3 3 3])), 3), true (3, 3, 3, 3)) +***** assert (bwunpack (uint32 (zeros (0, 0))), false (0, 0)) +***** assert (bwunpack (uint32 (zeros (0, 0)), 0), false (0, 0)) +***** assert (bwunpack (uint32 (zeros (0, 5)), 0), false (0, 5)) +***** assert (bwunpack (uint32 (zeros (0, 5, 7)), 0), false (0, 5, 7)) +***** assert (bwunpack (uint32 (zeros (1, 0))), false (32, 0)) +***** assert (bwunpack (uint32 (zeros (2, 0, 7))), false (64, 0, 7)) +***** assert (bwunpack (uint32 (zeros (2, 0, 7))), false (64, 0, 7)) +***** assert (bwunpack (uint32 (zeros (2, 0, 7)), 60), false (60, 0, 7)) +***** error + bwunpack (uint32 (1), 1042) +15 tests, 15 passed, 0 known failure, 0 skipped [inst/imgradientxy.m] >>>>> /build/octave-image-2.12.0/inst/imgradientxy.m ***** test @@ -4602,48 +4296,156 @@ -1 0 -1 0 -1 0]); 1 test, 1 passed, 0 known failure, 0 skipped -[inst/immultiply.m] ->>>>> /build/octave-image-2.12.0/inst/immultiply.m -***** assert (immultiply (uint8 ([255 50]), uint16 ([300 50])), uint8 ([255 255])); # default to first class and truncate -***** assert (immultiply (uint8 ([250 50]), uint16 ([ 3 4]), "uint32"), uint32 ([750 200])); # defining output class works (not in matlab?) -***** assert (immultiply (uint8 ([255 50]), 4), uint8 ([255 200])); # works multiplying by a scalar -***** assert (immultiply (logical ([ 1 0]), uint16 ([300 50])), uint16 ([300 0])); # output class defaults to whatever input is not logical -***** assert (immultiply (logical ([ 1 0]), logical ([ 1 1])), double ([ 1 0])); # tested on matlab for compatibility -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/qtsetblk.m] ->>>>> /build/octave-image-2.12.0/inst/qtsetblk.m -***** demo - J=qtsetblk(eye(4),qtdecomp(eye(4)),2,ones(2,2,2)) - % Sets upper-right and lower-left blocks of 2*2 zeros to ones -***** shared A, S - A=[ 1, 4, 2, 5,54,55,61,62; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 23,42,42,42,99,99,99,99; - 27,42,42,42,99,99,99,99; - 23,22,26,25,99,99,99,99; - 22,22,24,22,99,99,99,99]; - S = qtdecomp (A, 10); +[inst/rgb2ycbcr.m] +>>>>> /build/octave-image-2.12.0/inst/rgb2ycbcr.m ***** test - R=A; - vals=zeros(4,4,2); - vals(:,:,1)=reshape([1:16],4,4); - vals(:,:,2)=reshape([21:36],4,4); - R(1:4,1:4)=reshape([1:16],4,4); - R(5:8,5:8)=reshape([21:36],4,4); - assert(qtsetblk(A,S,4,vals),R); + in(:,:,1) = magic (5); + in(:,:,2) = magic (5); + in(:,:,3) = magic (5); + out(:,:,1) = [31 37 17 23 29 + 36 20 22 28 30 + 19 21 27 33 35 + 25 26 32 34 19 + 25 31 37 18 24]; + out(:,:,2) = 128; + out(:,:,3) = 128; + assert (rgb2ycbcr (uint8 (in)), uint8 (out)); +***** shared cbcr + cbcr = 0.5019607843137255; + out(1:10, 1) = linspace (16/255, 235/255, 10); + out(:, [2 3]) = cbcr; + assert (rgb2ycbcr (gray (10)), out, 0.00001); +***** assert (rgb2ycbcr ([1 1 1]), [0.92157 cbcr cbcr], 0.0001); +***** assert (class (rgb2ycbcr (single (rand (5, 5, 3)))), "single") +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/houghlines.m] +>>>>> /build/octave-image-2.12.0/inst/houghlines.m +***** shared BW0, theta0, rho0, peaks0_1, peaks0_2, lines0_1, lines0_2, BW1, theta1, rho1, peaks1, lines1 + BW0 = logical([0 0 0 0 1; 0 0 0 1 0; 1 0 1 0 0; 0 1 0 0 0; 1 1 1 1 1]); + theta0 = [-90:89]; + rho0 = [-7:7]; + peaks0_1 = [11 130]; + peaks0_2 = [11 130; 4 1]; + lines0_1 = struct ("point1", {[1,5]}, "point2", {[5,1]}, "theta", {39}, "rho", {3}); + lines0_2 = struct ("point1", {[1,5], [1,5]}, "point2", {[5,1],[5,5]}, "theta", {39,-90}, "rho", {3, -4}); + BW1 = diag(ones(50,1)); + theta1 = [-90:89]; + rho1 = -70:70; + peaks1 = [71 46]; + lines1 = struct ("point1", {[1 1]}, "point2", {[50 50]}, "theta", {-45}, "rho", {0}); +***** error houghlines () +***** error houghlines (BW1) +***** error houghlines (BW1, theta1) +***** error houghlines (BW1, theta1, rho1) +***** assert (houghlines (BW1, theta1, rho1, peaks1), lines1) +***** error (houghlines (BW1, theta1, rho1, peaks1, [1 2 3])) +***** assert (houghlines (BW1, theta1, rho1, peaks1, "FillGap", 5), lines1) +***** assert (houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2), lines1) +***** assert (houghlines (BW1, theta1, rho1, peaks1, "FillGap", 5, "MinLength", 2), lines1) +***** assert (houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, "FillGap", 5), lines1) +***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, [1 2 3]) +***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, "FillGap", 5, [1 2 3]) +***** assert (houghlines (double (BW1), theta1, rho1, peaks1), lines1) +***** error houghlines (ones(5, 5, 5), theta1, rho1, peaks1) +***** error houghlines ("nonsense", theta1, rho1, peaks1) +***** error houghlines (BW1, ones(5), rho1, peaks1) +***** error houghlines (BW1, "nonsense", rho1, peaks1) +***** error houghlines (BW1, theta1, ones(5), peaks1) +***** error houghlines (BW1, theta1, "nonsense", peaks1) +***** error houghlines (BW1, theta1, rho1, ones(5)) +***** error houghlines (BW1, theta1, rho1, ones(2,2,2)) +***** error houghlines (BW1, theta1, rho1, "nonsense") +***** error houghlines (BW1, theta1, rho1, peaks1, "nonsense", 5) +***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", -5) +***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", [3 4]) +***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", "nonsense") +***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", -5) +***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", [3 4]) +***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", "nonsense") ***** test - R=A; - R(1:4,5:8)=1; - R(7:8,1:4)=1; - R(5:6,3:4)=1; - assert(qtsetblk(A,S,2,ones(2,2,7)),R); + out = houghlines(BW0, theta0, rho0, peaks0_2, "MinLength", 1); + assert (out, lines0_2) # includes class = struct, size = [1,2] +***** test # for empty output + n = 100; + BW = false (n); + a = 50; % line starts at left side at row a + b = 3; % slope of line is 1:b + for column = 1:n + if (rem (column, b) == 0) + row = a - column/b; + BW(row, column) = true; + BW(row, column+1) = true; + end + end + theta = [-90: 89]; + rho = [-141:141]; + peaks = [188, 163]; + out = houghlines(BW, theta, rho, peaks, 'FillGap', 1, 'MinLength', 5); + assert (out, struct([])) ***** test - R=A; - R(5:6,1:2)=10; - assert(qtsetblk(A,S,1,ones(1,1,4)*10),R); -3 tests, 3 passed, 0 known failure, 0 skipped + out0_1 = houghlines(BW0, theta0, rho0, peaks0_1, 'MinLength', 1); + out0_2 = houghlines(BW0, theta0, rho0, peaks0_2, 'MinLength', 1); + assert (out0_1, lines0_1); + assert (out0_2, lines0_2); +***** test + out = houghlines(BW1, theta1, rho1, peaks1); + assert (out, lines1); +***** test + n = 100; + BW = false (n); + a = 50; % line starts at left side at row a + b = 3; % slope of line is 1:b + for column = 1:n + if (rem (column, b) == 0) + row = a - column/b; + BW(row, column) = true; + BW(row, column+1) = true; + end + end + theta = [-90:89]; + rho = [-141:141]; + peaks = [188, 163]; + lines_1 = struct ("point1", {[99 17]}, "point2", {[3 49]}, "theta", {72}, "rho", {46}); + out_1 = houghlines(BW, theta, rho, peaks); + out_n = houghlines(BW, theta, rho, peaks, 'FillGap', 1, 'MinLength', 1); + assert (out_1, lines_1) + assert (size (out_n), [1, 29]) +***** demo + I = checkerboard (30, 1, 1); + I = imnoise(I, "salt & pepper", 0.2); + figure, imshow (I); + title ("noisy image with some lines"); + BW = edge (I, "canny"); + figure, imshow(BW); + title ("edge image"); + [H, theta, rho] = hough (BW); + figure, imshow (mat2gray (H), [], "XData", theta, "YData", rho); + title ("Hough transform of edge image \n 2 peaks marked"); + axis on; xlabel("theta [degrees]"); ylabel("rho [pixels]"); + peaks = houghpeaks (H, 2); + peaks_rho = rho(peaks(:,1)); + peaks_theta = theta(peaks(:,2)); + hold on; plot (peaks_theta, peaks_rho, "sr"); hold off; + lines = houghlines (BW, theta, rho, peaks); + figure, imshow (I), hold on; + for n = 1:length (lines) + points = [lines(n).point1; lines(n).point2]; + plot (points(:,1), points(:,2), "r"); + endfor + title ("the two strongest lines (edges) in the image"), hold off; +34 tests, 34 passed, 0 known failure, 0 skipped +[inst/getrangefromclass.m] +>>>>> /build/octave-image-2.12.0/inst/getrangefromclass.m +***** shared img + img = ones (5); +***** assert (getrangefromclass (double (img)), [0 1]); # double returns [0 1] +***** assert (getrangefromclass (single (img)), [0 1]); # single returns [0 1] +***** assert (getrangefromclass (logical (img)), [0 1]); # logical returns [0 1] +***** assert (getrangefromclass (int8 (img)), [-128 127]); # checks int +***** assert (getrangefromclass (uint8 (img)), [0 255]); # checks unit +***** fail ("getrangefromclass ('string')"); # fails with strings +***** fail ("getrangefromclass ({3, 4})"); # fails with cells +7 tests, 7 passed, 0 known failure, 0 skipped [inst/edge.m] >>>>> /build/octave-image-2.12.0/inst/edge.m ***** test @@ -4972,6 +4774,673 @@ (1) 0.261 0.35 Abs err 0.089001 exceeds tol 0 by 0.09 (2) 0.6525 0.875 Abs err 0.2225 exceeds tol 0 by 0.2 24 tests, 22 passed, 2 known failures, 0 skipped +[inst/im2uint16.m] +>>>>> /build/octave-image-2.12.0/inst/im2uint16.m +***** assert (im2uint16 (uint16 ([1 2 3])), uint16 ([1 2 3])); +***** assert (im2uint16 (uint8 ([0 127 128 255])), uint16 ([0 32639 32896 65535])); +***** assert (im2uint16 ([0 0.5 1]), uint16 ([0 32768 65535])); +***** assert (im2uint16 ([0 1/65535 1.4/65535 1.5/65535 1]), uint16 ([0 1 1 2 65535])); +***** assert (im2uint16 ([1 2]), uint16 ([65535 65535])); +***** assert (im2uint16 ([-1 0 0.5 1]), uint16 ([0 0 32768 65535])); +***** assert (im2uint16 (int16 ([-32768 -1 0 32768])), uint16 ([0 32767 32768 65535])); +***** assert (im2uint16 ([false true]), uint16 ([0 65535])); +***** assert (im2uint16 ([true false]), uint16 ([65535 0])); +***** assert (im2uint16 (uint8 ([3 25]), "indexed"), uint16 ([3 25])); +***** assert (im2uint16 ([1 3 25], "indexed"), uint16 ([0 2 24])); +***** error im2uint16 ([0 1 2], "indexed"); +***** error im2uint16 (int16 ([17 8]), "indexed"); +***** error im2uint16 (int16 ([-7 8]), "indexed"); +***** error im2uint16 ([false true], "indexed"); +***** error im2uint16 (65537, "indexed"); +16 tests, 16 passed, 0 known failure, 0 skipped +[inst/imrotate.m] +>>>>> /build/octave-image-2.12.0/inst/imrotate.m +***** test + ## Verify minimal loss across six rotations that add up to 360 +/- 1 deg.: + methods = { "nearest", "bilinear", "bicubic", "Fourier" }; + angles = [ 59 60 61 ]; + tolerances = [ 7.4 8.5 8.6 # nearest + 3.5 3.1 3.5 # bilinear + 2.7 2.0 2.7 # bicubic + 2.7 1.6 2.8 ]/8; # Fourier + + # This is peaks(50) without the dependency on the plot package + x = y = linspace(-3,3,50); + [X,Y] = meshgrid(x,y); + x = 3*(1-X).^2.*exp(-X.^2 - (Y+1).^2) ... + - 10*(X/5 - X.^3 - Y.^5).*exp(-X.^2-Y.^2) ... + - 1/3*exp(-(X+1).^2 - Y.^2); + + x -= min(x(:)); # Fourier does not handle neg. values well + x = x./max(x(:)); + for m = 1:(length(methods)) + y = x; + for i = 1:5 + y = imrotate(y, 60, methods{m}, "crop", 0); + end + for a = 1:(length(angles)) + assert(norm((x - imrotate(y, angles(a), methods{m}, "crop", 0)) + (10:40, 10:40)) < tolerances(m,a)); + endfor + endfor +***** xtest + ## Verify exactness of near-90 and 90-degree rotations: + X = rand(99); + for angle = [90 180 270] + for da = [-0.1 0.1] + Y = imrotate(X, angle + da , "nearest", :, 0); + Z = imrotate(Y, -(angle + da), "nearest", :, 0); + assert(norm(X - Z) == 0); # exact zero-sum rotation + assert(norm(Y - imrotate(X, angle, "nearest", :, 0)) == 0); # near zero-sum + endfor + endfor +!!!!! known failure +assert (norm (X - Z) == 0) failed +***** test + ## Verify preserved pixel density: + methods = { "nearest", "bilinear", "bicubic", "Fourier" }; + ## This test does not seem to do justice to the Fourier method...: + tolerances = [ 4 2.2 2.0 209 ]; + range = 3:9:100; + for m = 1:(length(methods)) + t = []; + for n = range + t(end + 1) = sum(imrotate(eye(n), 20, methods{m}, :, 0)(:)); + endfor + assert(t, range, tolerances(m)); + endfor +***** test + a = reshape (1:18, [2 3 3]); + + a90(:,:,1) = [5 6; 3 4; 1 2]; + a90(:,:,2) = a90(:,:,1) + 6; + a90(:,:,3) = a90(:,:,2) + 6; + + a180(:,:,1) = [6 4 2; 5 3 1]; + a180(:,:,2) = a180(:,:,1) + 6; + a180(:,:,3) = a180(:,:,2) + 6; + + am90(:,:,1) = [2 1; 4 3; 6 5]; + am90(:,:,2) = am90(:,:,1) + 6; + am90(:,:,3) = am90(:,:,2) + 6; + + assert (imrotate (a, 0), a); + assert (imrotate (a, 90), a90); + assert (imrotate (a, -90), am90); + assert (imrotate (a, 180), a180); + assert (imrotate (a, -180), a180); + assert (imrotate (a, 270), am90); + assert (imrotate (a, -270), a90); + assert (imrotate (a, 360), a); +***** test + # bug #53309 + in = ones (2, 4); + out = [0 1 1 0; 0 1 1 0]; + assert (imrotate (in, 90, "nearest", "crop"), out) + assert (imrotate (repmat (in, [1 1 3]), 90, "nearest", "crop"), + repmat (out, [1 1 3])) +***** test + ## bug #53309 + rgbs = { + rand(5, 4, 3), # normal path, does interpolation + rand(4, 4, 3), # rows and columns, same number, simple rotdim + rand(4, 6, 3), # rows and columns differents, but of length even + }; + for rgb_i = 1:numel(rgbs) + rgb = rgbs{rgb_i}; + rot = imrotate (rgb, 90, "nearest", "crop"); + for i = 1:3 + assert (rot(:,:,i), imrotate (rgb(:,:,i), 90, "nearest", "crop")) + endfor + ## same check but with an integer class + rgb = im2uint8 (rgb); + rot = imrotate (rgb, 90, "nearest", "crop"); + assert (class (rgb), class (rot)) + for i = 1:3 + assert (rot(:,:,i), imrotate (rgb(:,:,i), 90, "nearest", "crop")) + endfor + endfor +6 tests, 5 passed, 1 known failure, 0 skipped +[inst/bwmorph.m] +>>>>> /build/octave-image-2.12.0/inst/bwmorph.m +***** demo + bwmorph (true (11), "shrink", Inf) + # Should return 0 matrix with 1 pixel set to 1 at (6,6) +***** test + slBW = logical ([ 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 + 0 0 1 1 0 0 0 + 0 0 1 1 0 0 0 + 0 0 1 1 1 0 0 + 0 0 1 1 1 0 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 0 0 0 0 0 0]); + + rslBW = logical ([ 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 + 0 0 1 1 0 0 0 + 0 0 1 1 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 1 0 0 0 + 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0]); + assert (bwmorph (slBW, "skel-lantuejoul", 1), [rslBW(1:5,:); false(7, 7)]); + assert (bwmorph (slBW, "skel-lantuejoul", 2), [rslBW(1:8,:); false(4, 7)]); + assert (bwmorph (slBW, "skel-lantuejoul", 3), rslBW); + assert (bwmorph (slBW, "skel-lantuejoul", Inf), rslBW); +***** test + bw = [ + 0 1 1 1 1 1 + 0 1 1 1 1 1 + 0 1 1 1 1 1 + 1 1 1 1 1 1 + 1 1 1 1 1 1 + 1 1 1 1 1 1 + 1 1 1 1 1 0 + 1 1 1 1 1 0 + 1 1 1 1 1 0]; + + final = logical ([ + 0 1 0 0 0 1 + 0 0 1 0 1 0 + 0 0 0 1 0 0 + 0 0 0 1 0 0 + 0 0 1 1 0 0 + 0 0 1 0 0 0 + 0 0 1 0 0 0 + 0 1 0 1 0 0 + 1 0 0 0 1 0]); + assert (bwmorph (bw, "skel", Inf), final) + assert (bwmorph (bw, "skel", 3), final) +***** error bwmorph ("not a matrix", "dilate") +***** assert (bwmorph (magic (10), "dilate"), imdilate (logical (magic (10)), ones (3))); +***** test + in = logical ([1 1 0 0 1 0 1 0 0 0 1 1 1 0 1 1 0 1 0 0 + 1 1 1 0 1 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 + 0 1 1 1 0 1 1 0 0 0 1 1 0 0 1 1 0 0 1 0 + 0 0 0 0 0 1 1 1 1 0 0 1 1 1 1 1 1 0 0 1 + 0 1 0 0 1 1 0 1 1 0 0 0 0 0 1 1 0 0 1 0 + 0 0 1 1 1 1 1 0 0 1 0 1 1 1 0 0 1 0 0 1 + 0 1 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 1 0 0 + 1 0 1 1 1 0 1 1 0 1 0 0 1 1 1 0 0 1 0 0 + 1 0 1 1 1 0 1 0 0 1 0 0 1 1 0 0 1 1 1 0 + 1 0 1 1 1 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0 + 1 1 1 1 1 1 0 1 0 1 0 0 0 0 0 0 1 0 1 1 + 0 1 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 1 0 0 + 0 0 1 1 0 1 1 1 1 0 0 1 0 0 0 0 1 0 1 1 + 0 0 1 1 0 0 1 1 1 0 0 0 1 1 1 1 0 0 0 0 + 0 0 1 0 0 0 0 0 0 1 0 0 1 1 1 1 0 0 0 0 + 0 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 0 0 + 0 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 1 1 + 1 0 0 1 0 1 1 0 1 0 0 0 0 0 0 1 0 1 1 1 + 0 0 1 1 0 1 1 1 1 0 0 0 0 1 1 0 1 1 1 1 + 0 1 1 0 0 1 0 0 1 1 0 0 1 0 0 1 0 0 0 1]); + se = strel ("arbitrary", ones (3)); + + assert (bwmorph (in, "dilate"), imdilate (in, se)); + assert (bwmorph (in, "dilate", 3), imdilate (imdilate (imdilate (in, se), se), se)); + assert (bwmorph (in, "bothat"), imbothat (in, se)); + assert (bwmorph (in, "tophat"), imtophat (in, se)); + assert (bwmorph (in, "open"), imopen (in, se)); + assert (bwmorph (in, "close"), imclose (in, se)); +***** assert (bwmorph ([1 0 0; 1 0 1; 0 0 1], "bridge"), logical ([1 1 0; 1 1 1; 0 1 1])); +***** assert (bwmorph ([0 0 0; 1 0 1; 0 0 1], "clean"), logical ([0 0 0; 0 0 1; 0 0 1])); +***** assert (bwmorph ([0 0 0; 0 1 0; 0 0 0], "clean"), false (3)); +***** assert (bwmorph ([0 1 0; 1 0 0; 0 0 0], "diag"), logical ([1 1 0; 1 1 0; 0 0 0])); +***** test + in = logical ([0 1 0 1 0 + 1 1 1 0 1 + 1 0 0 1 0 + 1 1 1 0 1 + 1 1 1 1 1]); + out = logical ([0 1 0 1 0 + 1 1 1 1 1 + 1 0 0 1 0 + 1 1 1 1 1 + 1 1 1 1 1]); + assert (bwmorph (in, "fill"), out); +***** assert (bwmorph ([1 1 1; 0 1 0; 1 1 1], "hbreak"), logical ([1 1 1; 0 0 0; 1 1 1])); +***** test + in = logical ([0 1 0 0 0 + 1 0 0 1 0 + 1 0 1 0 0 + 1 1 1 1 1 + 1 1 1 1 1]); + + out = logical ([0 1 0 0 0 + 1 0 0 1 0 + 1 0 1 0 0 + 1 1 0 1 1 + 1 1 1 1 1]); + assert (bwmorph (in, "remove"), out); + + out = logical ([0 1 0 0 0 + 1 0 0 1 0 + 1 0 1 0 0 + 1 1 0 1 1 + 1 1 1 1 1]); + assert (bwmorph (in, "remove", Inf), out); +***** xtest + ## tests for spur are failing (matlab incompatible) + in = logical ([0 1 0 0 0 + 1 0 0 1 0 + 1 0 1 0 0 + 1 1 1 1 1 + 1 1 1 1 1]); + + out = logical ([0 1 0 0 0 + 1 0 0 0 0 + 1 0 1 0 0 + 1 1 1 1 1 + 1 1 1 1 1]); + assert (bwmorph (in, "spur"), out); + + out = logical ([0 1 0 0 0 + 1 0 0 0 0 + 1 0 0 0 0 + 1 1 1 1 1 + 1 1 1 1 1]); + assert (bwmorph (in, "spur", Inf), out); +!!!!! known failure +ASSERT errors for: assert (bwmorph (in, "spur"),out) + + Location | Observed | Expected | Reason + (1,2) 0 1 Abs err 1 exceeds tol 0 by 1 +***** test + bw = false (3, 3); + bw(3, 1) = true; + out = bwmorph (bw, "thicken", 0); + assert (out, bw) +***** test + bw = false (8, 7); + bw(8, 1) = true; + expected = logical ([ + 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 + 1 1 0 0 0 0 0 + 1 1 1 0 0 0 0 + 1 1 1 1 0 0 0 + 1 1 1 1 1 0 0 + 1 1 1 1 1 1 0 + 1 1 1 1 1 1 1]); + out = bwmorph (bw, "thicken", 6); + assert (out, expected) +***** test + bw = false (8, 7); + bw(2, 4) = true; + expected = logical ([ + 0 0 1 1 1 0 0 + 0 1 1 1 1 1 0 + 0 0 1 1 1 0 0 + 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0]); + out = bwmorph (bw, "thicken", 2); + assert (out, expected) +***** test + bw = false (8, 7); + bw (6, 3) = true ; + expected1 = logical ([ + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 1 0 0 0 0 + 0 1 1 1 0 0 0 + 0 0 1 0 0 0 0 + 0 0 0 0 0 0 0]); + expected3 = logical ([ + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 1 0 0 0 0 + 0 1 1 1 0 0 0 + 1 1 1 1 1 0 0 + 1 1 1 1 1 1 0 + 1 1 1 1 1 0 0 + 0 1 1 1 0 0 0]); + out1 = bwmorph (bw, "thicken", 1); + out3 = bwmorph (bw, "thicken", 3); + assert (out1, expected1) + assert (out3, expected3) +***** test + bw = false (10, 10); + bw(2, 3) = true; + bw(7, 7) = true; + out_inf = bwmorph (bw, "thicken", Inf); + assert (out_inf(1, 9), false) +***** test + bw = false (3, 3); + bw(3, 1) = true; + out = bwmorph (bw, "thicken", 4); + assert (out, true (3, 3)) +***** xtest + ## bug #44396 + in = [ + 0 0 0 1 0 + 1 1 1 1 0 + 0 0 1 1 0 + 0 0 1 1 0 + 0 0 0 1 0]; + out = [ + 0 0 0 0 0 + 0 1 1 0 0 + 0 0 0 1 0 + 0 0 0 0 0 + 0 0 0 0 0]; + assert (bwmorph (in, "shrink"), logical (out)); +!!!!! known failure +ASSERT errors for: assert (bwmorph (in, "shrink"),logical (out)) + + Location | Observed | Expected | Reason + (2,4) 1 0 Abs err 1 exceeds tol 0 by 1 + (3,4) 0 1 Abs err 1 exceeds tol 0 by 1 + (4,4) 1 0 Abs err 1 exceeds tol 0 by 1 + (5,4) 1 0 Abs err 1 exceeds tol 0 by 1 +***** test + H = false (7,7); + H(2:3,2:3) = 1; + H(5:6,5:6) = 1; + T = logical([0 0 0 0 0 0 0; + 0 0 0 0 0 0 0; + 0 1 0 0 0 0 0; + 0 0 0 0 0 0 0; + 0 0 0 0 0 0 0; + 0 0 0 0 1 0 0; + 0 0 0 0 0 0 0]); + out = bwmorph (H, "thin", 1); + assert (T, out) + + H(4:6,4:6) = 1; + T = logical([0 0 0 0 0 0 0; + 0 0 0 0 0 0 0; + 0 1 1 0 0 0 0; + 0 0 0 1 0 0 0; + 0 0 0 0 1 0 0; + 0 0 0 0 0 0 0; + 0 0 0 0 0 0 0]); + out = bwmorph (H, "thin", 1); + assert (T, out) + + H3 = [0 0 0 0 0 0; + 0 1 1 1 0 0; + 0 1 1 1 0 0; + 0 0 0 1 0 1; + 0 0 0 0 1 1; + 0 0 0 1 1 1]; + out3 = bwmorph (H3, "thin", 1); + expected3 = logical( + [0 0 0 0 0 0; + 0 0 0 0 0 0; + 0 1 1 0 0 0; + 0 0 0 1 0 1; + 0 0 0 0 1 0; + 0 0 0 1 1 0]); + assert (out3, expected3) + + out33 = bwmorph (H3, "thin", 2); + expected33 = logical( + [0 0 0 0 0 0; + 0 0 0 0 0 0; + 0 1 1 0 0 0; + 0 0 0 1 0 1; + 0 0 0 0 1 0; + 0 0 0 1 0 0]); + assert (out33, expected33) + + out333 = bwmorph (H3, "thin", inf); + assert (out333, expected33) +***** test + in = logical ([ + 1 0 0 0 + 0 1 0 0 + 0 0 1 0 + 0 0 0 0]); + out = logical ([ + 1 0 0 0 + 0 0 0 0 + 0 0 1 0 + 0 0 0 0]); + assert (bwmorph (in, "endpoints"), out); + + A = logical ([0 0 0 0 0; 0 0 1 0 0; 0 1 1 1 0; 0 0 1 0 0; 0 0 0 0 0]); + B = logical ([0 0 0 0 0; 0 0 1 0 0; 0 1 0 1 0; 0 0 1 0 0; 0 0 0 0 0]); + assert (bwmorph (A, "endpoints"), B); + + A = logical ([0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 1 1 + 0 0 1 1 1 1 0 0 + 0 0 0 1 1 0 0 0 + 0 0 1 1 1 1 0 0 + 0 1 0 0 0 0 1 0 + 1 0 0 0 0 0 0 1]); + B = logical ([0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 1 + 0 0 0 0 0 0 0 0 + 0 0 0 1 1 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 1]); + assert (bwmorph (A, "endpoints"), B); + + A = logical([0 0 0 0 0; 0 1 1 1 0; 0 1 1 1 0; 0 1 1 1 0; 0 0 0 0 0]); + B = logical([0 0 0 0 0; 0 1 1 1 0; 0 1 0 1 0; 0 1 1 1 0; 0 0 0 0 0]); + assert (bwmorph (A, "endpoints"), B); + assert (bwmorph (B, "endpoints"), zeros (5, "logical")); + + A = logical([0,0,0,0,0,0,0,0,0,0,0,0,0,0 + 0,0,1,1,1,1,1,1,1,1,1,1,0,0 + 0,0,0,0,0,0,0,0,0,0,0,0,0,0]); + B = logical([0,0,0,0,0,0,0,0,0,0,0,0,0,0 + 0,0,1,0,0,0,0,0,0,0,0,1,0,0 + 0,0,0,0,0,0,0,0,0,0,0,0,0,0]); + C = logical([1,0,0,0,0,0,0,0,0,0,0,0,0,1 + 1,1,0,0,0,0,0,0,0,0,0,0,1,1 + 1,0,0,0,0,0,0,0,0,0,0,0,0,1]); + assert (bwmorph (!A, "endpoints"), C); +22 tests, 20 passed, 2 known failures, 0 skipped +[inst/bwareafilt.m] +>>>>> /build/octave-image-2.12.0/inst/bwareafilt.m +***** shared a2d, a3d + a2d = [1 0 0 0 0 0 1 0 0 1 + 1 0 0 1 0 1 0 1 0 1 + 1 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 1 1 1 0 0 0 0 + 1 1 0 1 0 0 0 1 0 0 + 1 1 0 0 0 0 1 0 1 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 1 1 0 0 1]; + + a3d = a2d; + a3d(:,:,2) = [ + 0 0 0 0 0 0 0 0 0 0 + 1 0 0 1 1 0 0 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 1 1 0 0 0 0 + 1 1 0 1 0 0 0 0 0 0 + 1 0 0 0 0 0 1 0 0 0 + 0 1 0 0 0 0 0 0 0 1 + 1 1 0 0 0 0 1 0 0 0]; + + a3d(:,:,3) = [ + 1 0 0 0 0 0 0 0 0 0 + 0 1 0 1 1 0 0 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 1 + 1 1 0 0 0 0 0 0 0 0]; +***** test + f2d = [0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 1 1 1 0 0 0 0 + 1 1 0 1 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a2d, 2), logical (f2d)); + assert (bwareafilt (a2d, 2, 8), logical (f2d)); + assert (bwareafilt (a2d, 2, 4), logical (f2d)); +***** test + f2d = [1 0 0 0 0 0 1 0 0 0 + 1 0 0 0 0 1 0 1 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 1 1 1 0 0 0 0 + 1 1 0 1 0 0 0 1 0 0 + 1 1 0 0 0 0 1 0 1 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a2d, 5), logical (f2d)); + assert (bwareafilt (a2d, 5, 8), logical (f2d)); +***** test + f2d = [0 0 0 0 0 0 1 0 0 1 + 0 0 0 1 0 1 0 1 0 1 + 0 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 1 0 1 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 1 1 0 0 1]; + assert (bwareafilt (a2d, 11, "smallest", 4), logical (f2d)); +***** test + f2d = [1 0 0 0 0 0 1 0 0 0 + 1 0 0 0 0 1 0 1 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 1 0 0 0 1 0 0 + 0 0 0 0 0 0 1 0 1 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a2d, [3 5]), logical (f2d)); + assert (bwareafilt (a2d, [3 5], 8), logical (f2d)); +***** test + f2d = [1 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a2d, [3 4], 4), logical (f2d)); + assert (bwareafilt (a2d, [3 4], [0 1 0; 1 1 1; 0 1 0]), logical (f2d)); +***** test + f2d = [1 0 0 0 0 0 1 0 0 1 + 1 0 0 1 0 1 0 1 0 1 + 1 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 1 0 0 0 1 0 0 + 0 0 0 0 0 0 1 0 1 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 1 1 0 0 0]; + assert (bwareafilt (a2d, [2 4]), logical (f2d)); + assert (bwareafilt (a2d, [2 4], 8), logical (f2d)); + assert (bwareafilt (a2d, [2 4], ones (3)), logical (f2d)); +***** test + f3d = [0 0 0 0 0 0 1 0 0 0 + 0 0 0 1 0 1 0 1 0 0 + 0 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + + f3d(:,:,2) = [ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 0 0 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + + f3d(:,:,3) = [ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 0 0 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a3d, 2), logical (f3d)); + assert (bwareafilt (a3d, 2, 26), logical (f3d)); + assert (bwareafilt (a3d, 2, ones (3, 3, 3)), logical (f3d)); +***** test + f3d = [0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 1 1 1 0 0 0 0 + 1 1 0 1 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + + f3d(:,:,2) = [ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 1 1 0 0 0 0 + 1 1 0 1 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + + f3d(:,:,3) = [ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 0 0]; + assert (bwareafilt (a3d, 2, 6), logical (f3d)); + assert (bwareafilt (a3d, 2, conndef (3, "minimal")), logical (f3d)); +8 tests, 8 passed, 0 known failure, 0 skipped [inst/deconvwnr.m] >>>>> /build/octave-image-2.12.0/inst/deconvwnr.m ***** shared im0, psf0, im0_out, psf1, im2, out2_0, out2_1, im3 @@ -5196,304 +5665,52 @@ title ({"restored image after Wiener deconvolution", "with known PSF and estimated NSR"}); 27 tests, 27 passed, 0 known failure, 0 skipped -[inst/imquantize.m] ->>>>> /build/octave-image-2.12.0/inst/imquantize.m -***** error - imquantize (rand (5), [3 4 2 5]) -***** error - imquantize (rand (5), [1 2 3], "foo") -***** error - imquantize (rand (5), [1 2 3 4], 1:6) -***** error - imquantize (rand (5), [1 2 3 4], 1:2) -***** test - img = [-inf 0 10000000; -100000 -3 1/1000000; 5 5 10]; - [q, q_idx] = imquantize (img, 5); - assert (q, [1 1 2; 1 1 1; 1 1 2]) - assert (q_idx, q) -***** test - img = [1:10; 11:20; 21:30; 31:40; 41:50; 51:60; 61:70]; - - expected_q = [ - 0 0 0 0 0 1 1 1 1 1 - 1 1 1 1 1 5 5 5 5 5 - 5 5 5 5 5 10 10 10 10 10 - 20 20 20 20 20 20 20 20 20 20 - 30 30 30 30 30 30 30 30 30 30 - 30 30 30 30 30 30 30 30 30 30 - 15 15 15 15 15 15 15 15 15 15]; - - expected_q_idx = [ - 1 1 1 1 1 2 2 2 2 2 - 2 2 2 2 2 3 3 3 3 3 - 3 3 3 3 3 4 4 4 4 4 - 5 5 5 5 5 5 5 5 5 5 - 6 6 6 6 6 6 6 6 6 6 - 6 6 6 6 6 6 6 6 6 6 - 7 7 7 7 7 7 7 7 7 7]; - - [q, q_idx] = imquantize (img, [5 15 25 30 40 60], [0 1 5 10 20 30 15]); - assert (q, expected_q) - assert (q_idx, expected_q_idx) - - [q, q_idx] = imquantize (single (img), [5 15 25 30 40 60], - [0 1 5 10 20 30 15]); - assert (q, expected_q) - assert (q_idx, expected_q_idx) - - [q, q_idx] = imquantize (uint8 (img), [5 15 25 30 40 60], - [0 1 5 10 20 30 15]); - assert (q, expected_q) - assert (q_idx, expected_q_idx) - - [q, q_idx] = imquantize (uint8 (img), uint8 ([5 15 25 30 40 60]), - [0 1 5 10 20 30 15]); - assert (q, expected_q) - assert (q_idx, expected_q_idx) - - [q, q_idx] = imquantize (uint8 (img), uint8 ([5 15 25 30 40 60]), - uint8 ([0 1 5 10 20 30 15])); - assert (q, uint8 (expected_q)) - assert (q_idx, expected_q_idx) +[inst/lab2rgb.m] +>>>>> /build/octave-image-2.12.0/inst/lab2rgb.m +***** assert (lab2rgb ([0 0 0]), [0, 0, 0], 1e-3) +***** assert (lab2rgb ([53.24, 80.09, 67.20]), [1 0 0], 1e-3) +***** assert (lab2rgb ([97.14, -21.55, 94.48]), [1 1 0], 1e-3) +***** assert (lab2rgb ([87.74, -86.18, 83.18]), [0 1 0], 1e-3) +***** assert (lab2rgb ([91.11, -48.09, -14.13]), [0 1 1], 1e-3) +***** assert (lab2rgb ([32.30, 79.19, -107.86]), [0 0 1], 1e-3) +***** assert (lab2rgb ([60.32, 98.24, -60.83]), [1 0 1], 1e-3) +***** assert (lab2rgb ([100, 0.00, 0.00]), [1 1 1], 1e-3) +***** assert (lab2rgb ([53.39, 0.00, 0.00]), [0.5 0.5 0.5], 1e-3) +***** assert (lab2rgb ([39.77, 64.51, 54.13]), [0.75 0 0], 1e-3) +***** assert (lab2rgb ([25.42, 47.91, 37.91]), [0.5 0 0], 1e-3) +***** assert (lab2rgb ([9.66, 29.68, 15.24]), [0.25 0 0], 1e-3) +***** assert (lab2rgb ([68.11, 48.39, 22.83]), [1 0.5 0.5], 1e-3) +***** assert (lab2rgb ([150 130 130]), [2.714, 1.028, 0.492], 1e-3) ***** test - img = randi ([0 255], 10, "uint8"); - [q, q_idx] = imquantize (img, [50 100 150 200]); - assert (class (q), "double") - assert (class (q_idx), "double") - - [q, q_idx] = imquantize (img, [50 100 150 200], uint16 ([5 7 8 9 2])); - assert (class (q), "uint16") - assert (class (q_idx), "double") - - [q, q_idx] = imquantize (img, [50 100 150 200], uint8 ([5 7 8 9 2])); - assert (class (q), "uint8") - assert (class (q_idx), "double") + lab_map = rand (64, 3); + lab_map(:,1) = lab_map(:,1) .* 100; + lab_map(:,2) = lab_map(:,2) .* 254 - 127; + lab_map(:,3) = lab_map(:,3) .* 254 - 127; + assert (rgb2lab (lab2rgb (lab_map)), lab_map, 5e-3); ***** test - img = [1:10; 11:20; 21:30; 31:40; 41:50; 51:60; 61:70].'; - r_idx = reshape (randperm (numel (img)), size (img)); - - [quant, quant_idx] = imquantize (img, [5 15 25 30 40 60]); - [quant_r, quant_r_idx] = imquantize (img(r_idx), [5 15 25 30 40 60]); - - assert (imquantize (img(r_idx), [5 15 25 30 40 60]), quant(r_idx)) - assert (quant_r, quant_r_idx) -8 tests, 8 passed, 0 known failure, 0 skipped -[inst/impyramid.m] ->>>>> /build/octave-image-2.12.0/inst/impyramid.m -***** xtest - ## bug #51979 (results are not matlab compatible) - in = [116 227 153 69 146 194 59 130 139 106 - 2 47 137 249 90 75 16 24 158 44 - 155 68 46 84 166 156 69 204 32 152 - 71 221 137 230 210 153 192 115 30 118 - 107 143 108 52 51 73 101 21 175 90 - 54 158 143 77 26 168 113 229 165 225 - 9 47 133 135 130 207 236 43 19 73]; - - reduced = [ - 114 139 131 103 111 - 97 122 141 111 100 - 103 123 112 123 122 - 47 107 134 153 94]; - - expanded = [ - 115 154 185 178 150 122 105 116 138 159 158 117 78 86 112 129 133 120 103 - 69 98 128 141 146 152 152 139 125 127 121 87 55 58 81 113 131 112 84 - 40 54 74 100 131 167 184 157 119 104 92 64 41 44 66 100 121 103 74 - 76 69 65 75 97 130 153 148 131 122 108 80 61 79 103 105 98 97 98 - 120 105 88 77 78 96 121 143 155 154 140 112 98 124 143 109 74 91 123 - 117 129 134 119 107 125 153 173 180 172 156 143 138 146 140 96 60 83 122 - 99 139 170 157 139 156 181 188 180 164 151 154 156 140 112 81 65 84 110 - 101 136 163 153 133 132 138 136 130 122 120 130 133 108 82 86 99 104 104 - 103 126 143 136 116 97 81 73 73 82 94 105 105 87 78 108 138 133 116 - 90 116 139 139 122 96 69 52 53 80 109 114 111 116 128 148 163 164 160 - 66 99 131 140 131 109 83 62 62 102 142 144 138 154 169 164 157 169 184 - 41 68 99 121 130 122 107 92 95 133 173 182 172 156 135 114 105 121 142 - 21 38 64 98 124 131 127 123 129 160 194 212 199 144 82 52 48 65 85]; - - assert (impyramid (uint8 (in), "reduce"), uint8 (reduced)) - assert (impyramid (uint8 (in), "expand"), uint8 (expanded)) -!!!!! known failure -ASSERT errors for: assert (impyramid (uint8 (in), "reduce"),uint8 (reduced)) - - Location | Observed | Expected | Reason - (2,4) 110 111 Abs err 1 exceeds tol 0 by 1 - (2,5) 99 100 Abs err 1 exceeds tol 0 by 1 - (3,5) 121 122 Abs err 1 exceeds tol 0 by 1 + lab_img = rand (64, 64, 3); + lab_img(:,:,1) = lab_img(:,:,1) .* 100; + lab_img(:,:,2) = lab_img(:,:,2) .* 254 - 127; + lab_img(:,:,3) = lab_img(:,:,3) .* 254 - 127; + assert (rgb2lab (lab2rgb (lab_img)), lab_img, 5e-3); +***** assert (lab2rgb (sparse ([0 0 0])), [0 0 0], 1e-3) +***** assert (lab2rgb (sparse ([100, 0.00, 0.00])), [1 1 1], 1e-3) +***** assert (class (lab2rgb (single([50 50 50]))), 'single') +***** error lab2rgb () +***** error lab2rgb (1,2) +***** error lab2rgb ({1}) +***** error lab2rgb (ones (2,2)) ***** test - in = randi ([0 255], [40 39 3 5], "uint8"); - red = impyramid (in, "reduce"); - for p = 1:3 - for n = 1:5 - assert (red(:,:,p,n), impyramid (in(:,:,p,n), "reduce")) - endfor - endfor - - exp = impyramid (in, "expand"); - for p = 1:3 - for n = 1:5 - assert (exp(:,:,p,n), impyramid (in(:,:,p,n), "expand")) - endfor + lab = rand (16, 16, 3, 5); + lab(:,:,1,:) = lab(:,:,1,:) .* 100; + lab(:,:,2,:) = lab(:,:,2,:) .* 254 - 127; + lab(:,:,3,:) = lab(:,:,3,:) .* 254 - 127; + rgb = zeros (size (lab)); + for i = 1:5 + rgb(:,:,:,i) = lab2rgb (lab(:,:,:,i)); endfor -***** xtest - ## bug #51979 (results are not matlab compatible) - in = repmat (uint8 (255), [10 10]); - assert (impyramid (in, "reduce"), repmat (uint8 (255), [5 5])) - assert (impyramid (in, "expand"), repmat (uint8 (255), [19 19])) -!!!!! known failure -ASSERT errors for: assert (impyramid (in, "expand"),repmat (uint8 (255), [19, 19])) - - Location | Observed | Expected | Reason - (1,1) 195 255 Abs err 60 exceeds tol 0 by 6e+01 - (2,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (3,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (4,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (5,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (6,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (7,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (8,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (9,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (10,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (11,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (12,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (13,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (14,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (15,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (16,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (17,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (18,1) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,1) 195 255 Abs err 60 exceeds tol 0 by 6e+01 - (1,2) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,2) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,3) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,3) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,4) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,4) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,5) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,5) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,6) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,6) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,7) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,7) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,8) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,8) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,9) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,9) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,10) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,10) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,11) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,11) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,12) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,12) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,13) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,13) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,14) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,14) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,15) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,15) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,16) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,16) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,17) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,17) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,18) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,18) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (1,19) 195 255 Abs err 60 exceeds tol 0 by 6e+01 - (2,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (3,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (4,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (5,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (6,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (7,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (8,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (9,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (10,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (11,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (12,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (13,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (14,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (15,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (16,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (17,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (18,19) 223 255 Abs err 32 exceeds tol 0 by 3e+01 - (19,19) 195 255 Abs err 60 exceeds tol 0 by 6e+01 -***** xtest - ## bug #51979 (results are not matlab compatible) - in = logical ([ - 1 0 1 1 0 0 1 1 0 0 - 1 1 0 0 0 1 0 0 1 0 - 0 1 1 0 1 1 1 1 1 1 - 1 0 1 0 1 0 1 0 1 1 - 1 1 1 0 0 0 1 1 1 1 - 0 0 1 1 0 0 1 0 0 0 - 0 0 1 1 0 1 1 0 1 1 - 1 1 0 0 1 0 0 0 1 0 - 1 1 1 1 1 1 0 1 0 0 - 1 1 0 0 1 0 0 0 1 0]); - - reduced = logical ([ - 1 1 0 1 0 - 1 1 0 1 1 - 1 1 0 1 1 - 0 1 0 0 0 - 1 1 1 0 0]); - - expanded = logical ([ - 1 1 0 0 1 1 1 0 0 0 0 0 1 1 1 0 0 0 0 - 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 1 1 0 0 - 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 1 1 - 0 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 - 0 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 - 1 1 0 1 1 0 0 0 1 0 0 1 1 1 0 1 1 1 1 - 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 - 1 1 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 - 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 - 0 0 0 1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 - 0 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 - 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0 0 1 1 1 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 - 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0 - 1 1 1 1 1 0 1 1 1 1 0 0 0 0 0 0 0 0 0 - 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 0 0 0 - 1 1 1 1 1 0 1 1 1 1 0 0 0 0 0 0 0 0 0 - 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0]); - - assert (impyramid (in, "reduce"), reduced) - assert (impyramid (in, "expand"), expanded) -!!!!! known failure -ASSERT errors for: assert (impyramid (in, "reduce"),reduced) - - Location | Observed | Expected | Reason - (4,1) 1 0 Abs err 1 exceeds tol 0 by 1 - (1,3) 1 0 Abs err 1 exceeds tol 0 by 1 - (2,3) 1 0 Abs err 1 exceeds tol 0 by 1 - (3,3) 1 0 Abs err 1 exceeds tol 0 by 1 - (4,3) 1 0 Abs err 1 exceeds tol 0 by 1 - (4,4) 1 0 Abs err 1 exceeds tol 0 by 1 - (5,4) 1 0 Abs err 1 exceeds tol 0 by 1 - (1,5) 1 0 Abs err 1 exceeds tol 0 by 1 - (4,5) 1 0 Abs err 1 exceeds tol 0 by 1 - (5,5) 1 0 Abs err 1 exceeds tol 0 by 1 -4 tests, 1 passed, 3 known failures, 0 skipped -[inst/imgetfile.m] ->>>>> /build/octave-image-2.12.0/inst/imgetfile.m -***** assert (1) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/im2single.m] ->>>>> /build/octave-image-2.12.0/inst/im2single.m -***** assert (im2single (single ([1 2 3])), single ([1 2 3])); -***** assert (im2single ([1 2 3]), single ([1 2 3])); -***** assert (im2single (uint8 ([0 127 128 255])), single ([0 127/255 128/255 1])); -***** assert (im2single (uint16 ([0 127 128 65535])), single ([0 127/65535 128/65535 1])); -***** assert (im2single (int16 ([-32768 -32767 -32766 32767])), single ([0 1/65535 2/65535 1])); -***** assert (im2single (uint8 ([0 1 255]), "indexed"), single ([1 2 256])); -***** assert (im2single (uint16 ([0 1 2557]), "indexed"), single ([1 2 2558])); -***** assert (im2single ([3 25], "indexed"), single ([3 25])); -***** error im2single ([0 1 2], "indexed"); -***** error im2single (int16 ([17 8]), "indexed"); -***** error im2single (int16 ([-7 8]), "indexed"); -***** error im2single ([false true], "indexed"); -12 tests, 12 passed, 0 known failure, 0 skipped + assert (lab2rgb (lab), rgb) +24 tests, 24 passed, 0 known failure, 0 skipped [inst/hough.m] >>>>> /build/octave-image-2.12.0/inst/hough.m ***** shared BW0, BW1, BW2, BWx, BWy @@ -5668,973 +5885,127 @@ xlabel ("angle \\theta [degrees]"); ylabel ("distance \\rho to origin [pixels]"); 18 tests, 18 passed, 0 known failure, 0 skipped -[inst/houghlines.m] ->>>>> /build/octave-image-2.12.0/inst/houghlines.m -***** shared BW0, theta0, rho0, peaks0_1, peaks0_2, lines0_1, lines0_2, BW1, theta1, rho1, peaks1, lines1 - BW0 = logical([0 0 0 0 1; 0 0 0 1 0; 1 0 1 0 0; 0 1 0 0 0; 1 1 1 1 1]); - theta0 = [-90:89]; - rho0 = [-7:7]; - peaks0_1 = [11 130]; - peaks0_2 = [11 130; 4 1]; - lines0_1 = struct ("point1", {[1,5]}, "point2", {[5,1]}, "theta", {39}, "rho", {3}); - lines0_2 = struct ("point1", {[1,5], [1,5]}, "point2", {[5,1],[5,5]}, "theta", {39,-90}, "rho", {3, -4}); - BW1 = diag(ones(50,1)); - theta1 = [-90:89]; - rho1 = -70:70; - peaks1 = [71 46]; - lines1 = struct ("point1", {[1 1]}, "point2", {[50 50]}, "theta", {-45}, "rho", {0}); -***** error houghlines () -***** error houghlines (BW1) -***** error houghlines (BW1, theta1) -***** error houghlines (BW1, theta1, rho1) -***** assert (houghlines (BW1, theta1, rho1, peaks1), lines1) -***** error (houghlines (BW1, theta1, rho1, peaks1, [1 2 3])) -***** assert (houghlines (BW1, theta1, rho1, peaks1, "FillGap", 5), lines1) -***** assert (houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2), lines1) -***** assert (houghlines (BW1, theta1, rho1, peaks1, "FillGap", 5, "MinLength", 2), lines1) -***** assert (houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, "FillGap", 5), lines1) -***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, [1 2 3]) -***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", 2, "FillGap", 5, [1 2 3]) -***** assert (houghlines (double (BW1), theta1, rho1, peaks1), lines1) -***** error houghlines (ones(5, 5, 5), theta1, rho1, peaks1) -***** error houghlines ("nonsense", theta1, rho1, peaks1) -***** error houghlines (BW1, ones(5), rho1, peaks1) -***** error houghlines (BW1, "nonsense", rho1, peaks1) -***** error houghlines (BW1, theta1, ones(5), peaks1) -***** error houghlines (BW1, theta1, "nonsense", peaks1) -***** error houghlines (BW1, theta1, rho1, ones(5)) -***** error houghlines (BW1, theta1, rho1, ones(2,2,2)) -***** error houghlines (BW1, theta1, rho1, "nonsense") -***** error houghlines (BW1, theta1, rho1, peaks1, "nonsense", 5) -***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", -5) -***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", [3 4]) -***** error houghlines (BW1, theta1, rho1, peaks1, "MinLength", "nonsense") -***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", -5) -***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", [3 4]) -***** error houghlines (BW1, theta1, rho1, peaks1, "FillGap", "nonsense") +[inst/imhist.m] +>>>>> /build/octave-image-2.12.0/inst/imhist.m +***** shared nn, bb, enn, ebb + [nn, bb] = imhist(logical([0 1 0 0 1])); +***** assert({nn, bb}, {[3 2]', [0 1]'}) + [nn, bb] = imhist([0 0.2 0.4 0.9 1], 5); +***** assert({nn, bb}, {[1 1 1 0 2]', [0 0.25 0.5 0.75 1]'}) + [nn, bb] = imhist([-2 0 0.2 0.4 0.9 1 5], 5); +***** assert({nn, bb}, {[2 1 1 0 3]', [0 0.25 0.5 0.75 1]'}) + [nn, bb] = imhist(uint8([0 32 255]), 256); + enn = zeros(256, 1); enn([1, 33, 256]) = 1; + ebb = 0:255; +***** assert({nn, bb}, {enn, ebb'}) + [nn, bb] = imhist(int8([-50 0 100]), 31); + enn = zeros(31, 1); enn([10, 16, 28]) = 1; + ebb = -128:8.5:127; +***** assert({nn, bb}, {enn, ebb'}) +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/regionprops.m] +>>>>> /build/octave-image-2.12.0/inst/regionprops.m +***** shared bw2d, gray2d, bw2d_over_bb, bw2d_insides + bw2d = logical ([ + 0 1 0 1 1 0 + 0 1 1 0 1 1 + 0 1 0 0 0 0 + 0 0 0 1 1 1 + 0 0 1 1 0 1]); + + gray2d = [ + 2 4 0 7 5 2 + 3 0 4 9 3 7 + 0 5 3 4 8 1 + 9 2 0 5 8 6 + 8 9 7 2 2 5]; + + ## For testing overlapping bounding boxes + bw2d_over_bb = logical ([ + 0 1 1 1 0 1 1 + 1 1 0 0 0 0 1 + 1 0 0 1 1 0 1 + 1 0 0 1 1 0 0 + 0 0 0 1 1 1 1]); + + ## For testing when there's regions inside regions + bw2d_insides = logical ([ + 0 0 0 0 0 0 0 0 + 0 1 1 1 1 1 1 0 + 0 1 0 0 0 0 1 0 + 0 1 0 1 1 0 1 0 + 0 1 0 1 1 0 1 0 + 0 1 0 0 0 0 1 0 + 0 1 1 1 1 1 1 0 + 0 0 0 0 0 0 0 0]); +***** function c = get_2d_centroid_for (idx) + subs = ind2sub ([5 6], idx); + m = false ([5 6]); + m(idx) = true; + y = sum ((1:5)' .* sum (m, 2) /sum (m(:))); + x = sum ((1:6) .* sum (m, 1) /sum (m(:))); + c = [x y]; +***** endfunction +***** assert (regionprops (bw2d, "Area"), struct ("Area", {8; 6})) +***** assert (regionprops (double (bw2d), "Area"), struct ("Area", {14})) +***** assert (regionprops (bwlabel (bw2d, 4), "Area"), struct ("Area", {4; 6; 4})) +***** assert (regionprops (bw2d, "PixelIdxList"), + struct ("PixelIdxList", {[6; 7; 12; 8; 16; 21; 22; 27] + [15; 19; 20; 24; 29; 30]})) +***** assert (regionprops (bwlabel (bw2d, 4), "PixelIdxList"), + struct ("PixelIdxList", {[6; 7; 8; 12] + [15; 19; 20; 24; 29; 30] + [16; 21; 22; 27]})) +***** assert (regionprops (bw2d, "PixelList"), + struct ("PixelList", {[2 1; 2 2; 3 2; 2 3; 4 1; 5 1; 5 2; 6 2] + [3 5; 4 4; 4 5; 5 4; 6 4; 6 5]})) +***** assert (regionprops (bwlabel (bw2d, 4), "PixelList"), + struct ("PixelList", {[2 1; 2 2; 2 3; 3 2] + [3 5; 4 4; 4 5; 5 4; 6 4; 6 5] + [4 1; 5 1; 5 2; 6 2]})) +***** assert (regionprops (bw2d, gray2d, "PixelValues"), + struct ("PixelValues", {[4; 0; 4; 5; 7; 5; 3; 7] + [7; 5; 2; 8; 6; 5]})) +***** assert (regionprops (bw2d, gray2d, "MaxIntensity"), + struct ("MaxIntensity", {7; 8})) +***** assert (regionprops (bw2d, gray2d, "MinIntensity"), + struct ("MinIntensity", {0; 2})) +***** assert (regionprops (bw2d, "BoundingBox"), + struct ("BoundingBox", {[1.5 0.5 5 3]; [2.5 3.5 4 2]})) +***** assert (regionprops (bw2d, "Centroid"), + struct ("Centroid", {get_2d_centroid_for([6 7 8 12 16 21 22 27]) + get_2d_centroid_for([15 19 20 24 29 30])}), + 5 * eps) ***** test - out = houghlines(BW0, theta0, rho0, peaks0_2, "MinLength", 1); - assert (out, lines0_2) # includes class = struct, size = [1,2] -***** test # for empty output - n = 100; - BW = false (n); - a = 50; % line starts at left side at row a - b = 3; % slope of line is 1:b - for column = 1:n - if (rem (column, b) == 0) - row = a - column/b; - BW(row, column) = true; - BW(row, column+1) = true; - end - end - theta = [-90: 89]; - rho = [-141:141]; - peaks = [188, 163]; - out = houghlines(BW, theta, rho, peaks, 'FillGap', 1, 'MinLength', 5); - assert (out, struct([])) + props = struct ("Area", {8; 6}, + "Centroid", {get_2d_centroid_for([6 7 8 12 16 21 22 27]) + get_2d_centroid_for([15 19 20 24 29 30])}, + "BoundingBox", {[1.5 0.5 5 3]; [2.5 3.5 4 2]}); + assert (regionprops (bw2d, "basic"), props, 5 * eps) + assert (regionprops (bwconncomp (bw2d, 8), "basic"), props, 5 * eps) + assert (regionprops (bwlabeln (bw2d, 8), "basic"), props, 5 * eps) ***** test - out0_1 = houghlines(BW0, theta0, rho0, peaks0_1, 'MinLength', 1); - out0_2 = houghlines(BW0, theta0, rho0, peaks0_2, 'MinLength', 1); - assert (out0_1, lines0_1); - assert (out0_2, lines0_2); + props = struct ("Area", {4; 6; 4}, + "Centroid", {get_2d_centroid_for([6 7 8 12]) + get_2d_centroid_for([15 19 20 24 29 30]) + get_2d_centroid_for([16 21 22 27])}, + "BoundingBox", {[1.5 0.5 2 3]; [2.5 3.5 4 2]; [3.5 0.5 3 2]}); + assert (regionprops (bwconncomp (bw2d, 4), "basic"), props, 5 * eps) + assert (regionprops (bwlabeln (bw2d, 4), "basic"), props, 5 * eps) +***** assert (regionprops (double (bw2d), "basic"), + struct ("Area", 14, + "Centroid", get_2d_centroid_for (find (bw2d)), + "BoundingBox", [1.5 0.5 5 5]), eps*1000) +***** assert (regionprops ([0 0 1], "Centroid").Centroid, [3 1]) +***** assert (regionprops ([0 0 1; 0 0 0], "Centroid").Centroid, [3 1]) +***** assert (regionprops ([0 1 1], "Centroid").Centroid, [2.5 1]) +***** assert (regionprops ([0 1 1; 0 0 0], "Centroid").Centroid, [2.5 1]) ***** test - out = houghlines(BW1, theta1, rho1, peaks1); - assert (out, lines1); -***** test - n = 100; - BW = false (n); - a = 50; % line starts at left side at row a - b = 3; % slope of line is 1:b - for column = 1:n - if (rem (column, b) == 0) - row = a - column/b; - BW(row, column) = true; - BW(row, column+1) = true; - end - end - theta = [-90:89]; - rho = [-141:141]; - peaks = [188, 163]; - lines_1 = struct ("point1", {[99 17]}, "point2", {[3 49]}, "theta", {72}, "rho", {46}); - out_1 = houghlines(BW, theta, rho, peaks); - out_n = houghlines(BW, theta, rho, peaks, 'FillGap', 1, 'MinLength', 1); - assert (out_1, lines_1) - assert (size (out_n), [1, 29]) -***** demo - I = checkerboard (30, 1, 1); - I = imnoise(I, "salt & pepper", 0.2); - figure, imshow (I); - title ("noisy image with some lines"); - BW = edge (I, "canny"); - figure, imshow(BW); - title ("edge image"); - [H, theta, rho] = hough (BW); - figure, imshow (mat2gray (H), [], "XData", theta, "YData", rho); - title ("Hough transform of edge image \n 2 peaks marked"); - axis on; xlabel("theta [degrees]"); ylabel("rho [pixels]"); - peaks = houghpeaks (H, 2); - peaks_rho = rho(peaks(:,1)); - peaks_theta = theta(peaks(:,2)); - hold on; plot (peaks_theta, peaks_rho, "sr"); hold off; - lines = houghlines (BW, theta, rho, peaks); - figure, imshow (I), hold on; - for n = 1:length (lines) - points = [lines(n).point1; lines(n).point2]; - plot (points(:,1), points(:,2), "r"); - endfor - title ("the two strongest lines (edges) in the image"), hold off; -34 tests, 34 passed, 0 known failure, 0 skipped -[inst/medfilt2.m] ->>>>> /build/octave-image-2.12.0/inst/medfilt2.m -***** shared b, f - b = [ 0 1 2 3 - 1 8 12 12 - 4 20 24 21 - 7 22 25 18]; - f = [ 0 1 2 0 - 1 4 12 3 - 4 12 20 12 - 0 7 20 0]; -***** assert (medfilt2 (b), f); - - f = [ 0 1 2 3 - 1 8 12 12 - 4 20 24 18 - 4 20 24 18]; -***** assert (medfilt2 (b, true (3, 1)), f); -***** assert (medfilt2 (b, [3 1]), f); - - f = [ 1 8 10 10 - 1 8 12 12 - 4 20 24 18 - 7 20 24 18]; -***** assert (medfilt2 (b, [3 1], 10), f); -***** assert (medfilt2 (b, 10, [3 1]), f); - - f = [ 0.5 4.5 7.0 7.5 - 2.5 14.0 18.0 15.0 - 2.5 14.0 18.0 15.0 - 2.0 10.0 12.0 9.0]; -***** assert (medfilt2 (b, true (4, 1)), f); -***** assert (medfilt2 (b, [4 1]), f); -***** test - A = zeros (3, 3); - B = ones (3, 3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3, 3); - E(2,2) = 2; - F = 3 .* ones (3, 3); - F(2,2) = 1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - A_out = [0 0 0; 0 0 0; 0 0 0]; - B_out = [0 1 0; 1 1 1; 0 1 0]; - C_out = [0 1 0; 1 2 1; 0 2 0]; - D_out = [0 1 0; 1 2 2; 0 1 0]; - E_out = [0 1 0; 1 1 1; 0 1 0]; - F_out = [0 3 0; 3 3 3; 0 3 0]; - G_out = [0 0 0; 0 2 2; 0 0 0]; - H_out = [0 1 0; 1 1 0; 0 0 0]; - assert (medfilt2 (A), A_out); - assert (medfilt2 (B), B_out); - assert (medfilt2 (C), C_out); - assert (medfilt2 (D), D_out); - assert (medfilt2 (E), E_out); - assert (medfilt2 (F), F_out); - assert (medfilt2 (G), G_out); - assert (medfilt2 (H), H_out); -8 tests, 8 passed, 0 known failure, 0 skipped -[inst/iptnum2ordinal.m] ->>>>> /build/octave-image-2.12.0/inst/iptnum2ordinal.m -***** assert (strcmp (iptnum2ordinal (1), 'first')); # simple works -***** assert (strcmp (iptnum2ordinal (21), '21st')); # after 20, goes stupid -***** assert (strcmp (iptnum2ordinal (100), '100th')); # use th correctly -***** fail ("iptnum2ordinal (inf)"); # must be real -***** fail ("iptnum2ordinal (0)"); # must be positive -***** fail ("iptnum2ordinal (-1)"); # must be positive -***** fail ("iptnum2ordinal (3.4)"); # must be integer -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/normxcorr2.m] ->>>>> /build/octave-image-2.12.0/inst/normxcorr2.m -***** function offsets = get_max_offsets (c) - l = find (c == max (c(:))); - offsets = nthargout (1:ndims (c), @ind2sub, size (c), l); -***** endfunction -***** test - row_shift = 18; - col_shift = 20; - a = randi (255, 30, 30); - b = a(row_shift-10:row_shift, col_shift-7:col_shift); - c = normxcorr2 (b, a); - ## should return exact coordinates - assert (get_max_offsets (c), {row_shift col_shift}); - - ## Even with some small noise, should return exact coordinates - b = imnoise (b, "gaussian"); - c = normxcorr2 (b, a); - assert (get_max_offsets (c), {row_shift col_shift}); -***** xtest - a = rand (10, 10); - c = normxcorr2 (a(5:7, 6:9), a); - assert (c(7, 9), 1, eps*100); -***** test - a = 10 * randn (100, 100); - auto = normxcorr2 (a, a); - add_in = normxcorr2 (a, -a); - assert (auto, -add_in); -***** test - a = 10 * randn (50, 50); - b = 10 * randn (100, 100); - do - scale = 100 * rand (); - until (scale != 0) - - assert (max ((normxcorr2 (scale*a,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); - assert (max ((normxcorr2 (a,scale*b) .- normxcorr2 (a,b))(:)), 0, 1e-10); - - a_shift1 = a .+ scale * ones (size (a)); - b_shift1 = b .+ scale * ones (size (b)); - a_shift2 = a .- scale * ones (size (a)); - b_shift2 = b .- scale * ones (size (b)); - assert (max ((normxcorr2 (a_shift1,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); - assert (max ((normxcorr2 (a,b_shift1) .- normxcorr2 (a,b))(:)), 0, 1e-10); - assert (max ((normxcorr2 (a_shift2,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); - assert (max ((normxcorr2 (a,b_shift2) .- normxcorr2 (a,b))(:)), 0, 1e-10); -***** test - a = randi (100, 15, 15, 15); - c = normxcorr2 (a(5:10, 2:6, 3:7), a); - assert (get_max_offsets (c), {10 6 7}); - - a = randi (100, 15, 15, 15); - c = normxcorr2 (a(5:10, 2:6, 1:1), a); - assert (get_max_offsets (c), {10 6 1}); -***** warning normxcorr2 (rand (20), rand (5)); -***** error normxcorr2 (rand (5)); -***** error normxcorr2 (rand (5), rand (20), 2); -***** test - a = [ 252 168 50 1 59; - 114 0 0 0 0] ./ 255; - b = [ 1 171 255 255 255 255 240 71 131 254 255 255 255; - 0 109 254 255 255 233 59 0 131 254 255 255 255; - 76 13 195 253 194 34 0 19 217 255 255 255 255; - 110 0 0 0 0 0 3 181 255 255 255 255 255; - 153 0 0 0 0 2 154 254 255 255 255 255 255]./255; - c = normxcorr2 (a, b); - assert (max (imag (c(:))), 0); -***** test - img = [1 1 1 0]; - t = [1 1 0]; - c = normxcorr2 (t, img); - assert (c(3), 0) -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/applylut.m] ->>>>> /build/octave-image-2.12.0/inst/applylut.m -***** demo - lut = makelut (inline ('sum (x (:)) >= 3', 'x'), 3); - S = applylut (eye (5), lut); - disp (S) - ## Everything should be 0 despite a diagonal which doesn't reach borders. -***** assert (prod (applylut (eye (3), makelut (@(x) x(1) == 1, 2)) == eye (3)), [1 1 1]); -***** assert (prod (applylut (eye (3), makelut (@(x) x(2,2) == 1, 3)) == eye (3)), [1 1 1]); -***** assert (prod (applylut (eye (3), makelut (@(x) x(3,3) == 1, 3)) == - applylut (eye (3), makelut (@(x) x(2,2) == 1, 2))), - [1 1 1]); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/fftconv2.m] ->>>>> /build/octave-image-2.12.0/inst/fftconv2.m -***** xtest - a = repmat (1:10, 5); - b = repmat (10:-1:3, 7); - assert (fftconv2 (a, b), conv2 (a, b), 1.8e4*eps) - assert (fftconv2 (b, a), conv2 (b, a), 1.8e4*eps) - assert (fftconv2 (a, b, "full"), conv2 (a, b, "full"), 1.8e4*eps) - assert (fftconv2 (b, a, "full"), conv2 (b, a, "full"), 1.8e4*eps) - assert (fftconv2 (a, b, "same"), conv2 (a, b, "same"), 1.8e4*eps) - assert (fftconv2 (b, a, "same"), conv2 (b, a, "same"), 1.8e4*eps) - assert (isempty (fftconv2 (a, b, "valid"))); - assert (fftconv2 (b, a, "valid"), conv2 (b, a, "valid"), 1e4*eps) -***** test - x = 1:4; - y = 4:-1:1; - a = repmat(1:10, 5); - assert (fftconv2 (x, y, a), conv2 (x, y, a), 1e4*eps) - assert (fftconv2 (x, y, a, "full"), conv2 (x, y, a, "full"), 1e4*eps) - assert (fftconv2 (x, y, a, "same"), conv2 (x, y, a, "same"), 1e4*eps) - assert (fftconv2 (x, y, a, "valid"), conv2 (x, y, a, "valid"), 1e4*eps) -***** demo - ## Draw a cross - z = zeros (101, 101); - z(50, :) = 1; - z(:, 50) = 1; - subplot (1, 3, 1) - imshow (z); - title ("Original thin cross") - - ## Draw a sinc blob - b = getheight (strel ("ball", 10, 1)); - subplot (1, 3, 2) - imshow (b); - title ("Sync blob") - - ## Convolve the cross with the blob - fc = real (fftconv2 (z, b, "same")); - subplot (1, 3, 3) - imshow (fc, [min(fc(:)) max(fc(:))]) - title ("Convolution in the frequency domain") -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/poly2mask.m] ->>>>> /build/octave-image-2.12.0/inst/poly2mask.m -***** demo - s = [0:pi/4:2*pi]; - x = cos (s) * 90 + 101; - y = sin (s) * 90 + 101; - bw = poly2mask(x, y, 200, 200); - imshow (bw); -***** demo - s = [0:2*pi/5:pi*4]; - s = s ([1, 3, 5, 2, 4, 6]); - x = cos (s) * 90 + 101; - y = sin (s) * 90 + 101; - bw = poly2mask (x, y, 200, 200); - imshow (bw); -***** # Convex polygons -***** shared xs, ys, Rs, xt, yt, Rt - xs=[3,3,10,10]; - ys=[4,12,12,4]; - Rs=zeros(16,14); - Rs(5:12,4:10)=1; - Rs=logical(Rs); - xt=[1,4,7]; - yt=[1,4,1]; - Rt=[0,0,0,0,0,0,0; - 0,0,1,1,1,1,0; - 0,0,0,1,1,0,0; - 0,0,0,1,0,0,0; - 0,0,0,0,0,0,0]; - Rt=logical(Rt); -***** assert(poly2mask(xs,ys,16,14),Rs); # rectangle -***** assert(poly2mask(xs,ys,8,7),Rs(1:8,1:7)); # clipped -***** assert(poly2mask(xs-7,ys-8,8,7),Rs(9:16,8:14)); # more clipping -***** assert(poly2mask(xt,yt,5,7),Rt); # triangle -***** assert(poly2mask(xt,yt,3,3),Rt(1:3,1:3)); # clipped -***** # Concave polygons -***** test - x=[3,3,5,5,8,8,10,10]; - y=[4,12,12,8,8,11,11,4]; - R=zeros(16,14); - R(5:12,4:5)=1; - R(5:8,6:8)=1; - R(5:11,9:10)=1; - R=logical(R); - assert(poly2mask(x,y,16,14), R); -***** # Complex polygons -***** test - x=[1,5,1,5]; - y=[1,1,4,4]; - R=[0,0,0,0,0,0; - 0,0,1,1,0,0; - 0,0,1,1,0,0; - 0,1,1,1,1,0; - 0,0,0,0,0,0]; - R=logical(R); - assert(poly2mask(x,y,5,6), R); -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/imsubtract.m] ->>>>> /build/octave-image-2.12.0/inst/imsubtract.m -***** assert (imsubtract (uint8 ([23 250]), uint8 ([24 50])), uint8 ([ 0 200])); # default to first class and truncate -***** assert (imsubtract (uint8 ([23 250]), 10), uint8 ([13 240])); # works subtracting a scalar -***** assert (imsubtract (uint8 ([23 250]), uint8 ([24 50]), "uint16"), uint16 ([ 0 200])); # defining output class works (not in matlab) -***** assert (imsubtract (logical ([ 1 0]), logical ([ 1 1])), double ([ 0 -1])); # return double for two logical images -***** assert (imsubtract (logical ([ 1 0]), logical ([ 1 1]), "logical"), logical ([ 0 0])); # this is matlab incompatible on purpose -***** error imsubtract (uint8 ([23 250]), uint16 ([23 250])); -***** warning imsubtract (uint8 ([23 250]), uint8 ([24 255]), "int8"); -***** test - warning ("off", "all"); - assert (imsubtract (uint8 ([23 250]), uint8 ([24 255]), "int8"), - int8 ([-1 0])) -8 tests, 8 passed, 0 known failure, 0 skipped -[inst/label2rgb.m] ->>>>> /build/octave-image-2.12.0/inst/label2rgb.m -***** function map = test_colormap () - map = [0 0 0; 0.5 0.5 0.5; 0.125 0.125 0.125]; -***** endfunction -***** shared in, out, cmap - in = [ 0 1 1 0 2 2 0 3 3 - 0 1 1 0 2 2 0 3 3]; - - out = [255 0 0 255 128 128 255 32 32 - 255 0 0 255 128 128 255 32 32]; - out(:,:,2) = out(:,:,3) = out(:,:,1); - out = uint8(out); - - cmap = [0 0 0; 0.5 0.5 0.5; 0.125 0.125 0.125]; -***** assert (label2rgb (in, cmap), out); -***** assert (label2rgb (uint8 (in), cmap), out); -***** assert (label2rgb (in, "test_colormap"), out); -***** assert (label2rgb (in, @test_colormap), out); - - out(find (in == 0)) = 0; -***** assert (label2rgb (in, cmap, "cyan"), out); -***** assert (label2rgb (in, cmap, [0 1 1]), out); - - in(1) = 10; -***** error label2rgb (in, cmap); -***** error label2rgb (in, cmap, 89); -***** error label2rgb (in, cmap, "g", "wrong"); -9 tests, 9 passed, 0 known failure, 0 skipped -[inst/imrotate.m] ->>>>> /build/octave-image-2.12.0/inst/imrotate.m -***** test - ## Verify minimal loss across six rotations that add up to 360 +/- 1 deg.: - methods = { "nearest", "bilinear", "bicubic", "Fourier" }; - angles = [ 59 60 61 ]; - tolerances = [ 7.4 8.5 8.6 # nearest - 3.5 3.1 3.5 # bilinear - 2.7 2.0 2.7 # bicubic - 2.7 1.6 2.8 ]/8; # Fourier - - # This is peaks(50) without the dependency on the plot package - x = y = linspace(-3,3,50); - [X,Y] = meshgrid(x,y); - x = 3*(1-X).^2.*exp(-X.^2 - (Y+1).^2) ... - - 10*(X/5 - X.^3 - Y.^5).*exp(-X.^2-Y.^2) ... - - 1/3*exp(-(X+1).^2 - Y.^2); - - x -= min(x(:)); # Fourier does not handle neg. values well - x = x./max(x(:)); - for m = 1:(length(methods)) - y = x; - for i = 1:5 - y = imrotate(y, 60, methods{m}, "crop", 0); - end - for a = 1:(length(angles)) - assert(norm((x - imrotate(y, angles(a), methods{m}, "crop", 0)) - (10:40, 10:40)) < tolerances(m,a)); - endfor - endfor -***** xtest - ## Verify exactness of near-90 and 90-degree rotations: - X = rand(99); - for angle = [90 180 270] - for da = [-0.1 0.1] - Y = imrotate(X, angle + da , "nearest", :, 0); - Z = imrotate(Y, -(angle + da), "nearest", :, 0); - assert(norm(X - Z) == 0); # exact zero-sum rotation - assert(norm(Y - imrotate(X, angle, "nearest", :, 0)) == 0); # near zero-sum - endfor - endfor -!!!!! known failure -assert (norm (X - Z) == 0) failed -***** test - ## Verify preserved pixel density: - methods = { "nearest", "bilinear", "bicubic", "Fourier" }; - ## This test does not seem to do justice to the Fourier method...: - tolerances = [ 4 2.2 2.0 209 ]; - range = 3:9:100; - for m = 1:(length(methods)) - t = []; - for n = range - t(end + 1) = sum(imrotate(eye(n), 20, methods{m}, :, 0)(:)); - endfor - assert(t, range, tolerances(m)); - endfor -***** test - a = reshape (1:18, [2 3 3]); - - a90(:,:,1) = [5 6; 3 4; 1 2]; - a90(:,:,2) = a90(:,:,1) + 6; - a90(:,:,3) = a90(:,:,2) + 6; - - a180(:,:,1) = [6 4 2; 5 3 1]; - a180(:,:,2) = a180(:,:,1) + 6; - a180(:,:,3) = a180(:,:,2) + 6; - - am90(:,:,1) = [2 1; 4 3; 6 5]; - am90(:,:,2) = am90(:,:,1) + 6; - am90(:,:,3) = am90(:,:,2) + 6; - - assert (imrotate (a, 0), a); - assert (imrotate (a, 90), a90); - assert (imrotate (a, -90), am90); - assert (imrotate (a, 180), a180); - assert (imrotate (a, -180), a180); - assert (imrotate (a, 270), am90); - assert (imrotate (a, -270), a90); - assert (imrotate (a, 360), a); -***** test - # bug #53309 - in = ones (2, 4); - out = [0 1 1 0; 0 1 1 0]; - assert (imrotate (in, 90, "nearest", "crop"), out) - assert (imrotate (repmat (in, [1 1 3]), 90, "nearest", "crop"), - repmat (out, [1 1 3])) -***** test - ## bug #53309 - rgbs = { - rand(5, 4, 3), # normal path, does interpolation - rand(4, 4, 3), # rows and columns, same number, simple rotdim - rand(4, 6, 3), # rows and columns differents, but of length even - }; - for rgb_i = 1:numel(rgbs) - rgb = rgbs{rgb_i}; - rot = imrotate (rgb, 90, "nearest", "crop"); - for i = 1:3 - assert (rot(:,:,i), imrotate (rgb(:,:,i), 90, "nearest", "crop")) - endfor - ## same check but with an integer class - rgb = im2uint8 (rgb); - rot = imrotate (rgb, 90, "nearest", "crop"); - assert (class (rgb), class (rot)) - for i = 1:3 - assert (rot(:,:,i), imrotate (rgb(:,:,i), 90, "nearest", "crop")) - endfor - endfor -6 tests, 5 passed, 1 known failure, 0 skipped -[inst/imfilter.m] ->>>>> /build/octave-image-2.12.0/inst/imfilter.m -***** test - img = [ - 8 2 6 7 4 3 7 8 4 1 - 9 9 1 1 4 7 3 3 8 1 - 2 9 8 3 7 6 5 8 6 5 - 9 5 9 1 8 2 7 3 5 8 - 6 8 7 1 2 2 9 9 9 9 - 1 2 7 8 5 5 9 4 3 2 - 3 4 7 7 5 9 5 2 7 6 - 5 9 4 3 6 4 2 3 7 5 - 9 8 6 9 7 6 2 6 4 1 - 9 9 2 1 7 3 3 5 6 4]; - - expected_corr = [ - 46 53 30 34 44 42 40 51 42 19 - 48 66 57 42 46 50 59 58 49 34 - 48 67 55 54 44 58 50 50 64 39 - 44 77 52 43 28 55 57 75 70 50 - 29 51 65 51 42 50 60 62 55 42 - 23 44 58 59 63 59 55 57 50 36 - 36 50 52 56 56 47 48 45 47 39 - 51 64 70 62 56 50 40 38 41 31 - 58 72 50 49 58 45 41 42 49 28 - 27 37 27 21 19 26 16 23 24 17]; - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2]), expected_corr) - - ## test order of options (and matching with defaults) - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], 0), expected_corr) - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "corr"), expected_corr) - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "corr", 0), expected_corr) - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], 0, "corr"), expected_corr) - - expected_conv = [ - 21 31 23 22 21 28 29 26 22 6 - 47 55 43 43 51 44 49 64 44 24 - 56 69 53 34 47 50 57 48 52 37 - 38 70 60 56 41 57 54 61 66 44 - 46 67 53 48 32 54 59 65 63 46 - 28 56 63 50 36 54 58 66 63 47 - 20 43 55 62 67 57 52 53 44 28 - 42 51 54 61 57 53 44 46 48 39 - 53 70 63 50 57 42 38 38 43 33 - 53 62 50 54 52 44 38 40 40 20]; - assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "conv"), expected_conv) - - ## alternative class - assert (imfilter (single (img), [0 1 0; 2 1 1; 1 2 2]), - single (expected_corr)) - assert (imfilter (int8 (img), [0 1 0; 2 1 1; 1 2 2]), - int8 (expected_corr)) - assert (imfilter (uint8 (img), [0 1 0; 2 1 1; 1 2 2]), - uint8 (expected_corr)) - - assert (imfilter (single (img), [0 1 0; 2 1 1; 1 2 2], "conv"), - single (expected_conv)) - assert (imfilter (int8 (img), [0 1 0; 2 1 1; 1 2 2], "conv"), - int8 (expected_conv)) - assert (imfilter (uint8 (img), [0 1 0; 2 1 1; 1 2 2], "conv"), - uint8 (expected_conv)) - -***** test - I = zeros (6); - I(2:3,2:3) = 1; - F = zeros (4); - F(2,2:3) = 1; - result = [0 0 0 0 0 0 - 1 2 1 0 0 0 - 1 2 1 0 0 0 - 0 0 0 0 0 0 - 0 0 0 0 0 0 - 0 0 0 0 0 0]; - assert (imfilter (I, F), result) -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/fftconvn.m] ->>>>> /build/octave-image-2.12.0/inst/fftconvn.m -***** function test_shapes (a, b, precision) - shapes = {"valid", "same", "full"}; - for i = 1:3 - shape = shapes{i}; - assert (fftconvn (a, b, shape), convn (a, b, shape), precision); - endfor - assert (fftconvn (a, b), fftconvn (a, b, "full")); -***** endfunction -***** test test_shapes (randi (255, 100), randi (255, 10), 0.1) -***** test test_shapes (randi (255, 100, 100), randi (255, 10, 10), 0.1) -***** test test_shapes (randi (255, 100, 100, 100), randi (255, 10, 10, 10), 0.1) -***** test test_shapes (randi (255, 100, 50, 20), randi (255, 10, 7), 0.1) -***** test test_shapes (randi (255, 100, 50, 20), randi (255, 10), 0.1) -***** test - for s = [55 56 57 58] - test_shapes (randi (255, 200, 200), randi (255, s, s), 0.1) - endfor -***** test - for s = [203 204 205 206] - test_shapes (randi (255, s, s), randi (255, 52, 52), 0.1) - endfor -***** test test_shapes (randi (255, 100, 100, "uint8"), randi (255, 10, 10, "uint8"), 0.1) -***** test test_shapes (randi (255, 100, 100, "uint8"), randi (255, 10, 10), 0.1) -***** test test_shapes (randi (255, 100, 100, "single"), randi (255, 10, 10, "single"), 0.9) -***** test test_shapes (randi (255, 100, 100, "single"), randi (255, 10, 10), 0.9) -11 tests, 11 passed, 0 known failure, 0 skipped -[inst/ordfilt2.m] ->>>>> /build/octave-image-2.12.0/inst/ordfilt2.m -***** test - order = 3; - domain = ones (3); - A = zeros (3,3); - B = ones (3,3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3,3); - E(2,2) = 2; - F = 3 .* ones (3,3); - F(2,2) = 1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - A_out = [0 0 0; 0 0 0; 0 0 0]; - B_out = [0 0 0; 0 1 0; 0 0 0]; - C_out = [0 0 0; 0 1 0; 0 0 0]; - D_out = [0 0 0; 0 1 0; 0 0 0]; - E_out = [0 0 0; 0 1 0; 0 0 0]; - F_out = [0 0 0; 0 3 0; 0 0 0]; - G_out = [0 0 0; -1 -1 0; 0 0 0]; - H_out = [0 0 0; 0 1 0; 0 0 0]; - assert (ordfilt2 (A, order, domain), A_out); - assert (ordfilt2 (B, order, domain), B_out); - assert (ordfilt2 (C, order, domain), C_out); - assert (ordfilt2 (D, order, domain), D_out); - assert (ordfilt2 (E, order, domain), E_out); - assert (ordfilt2 (F, order, domain), F_out); - assert (ordfilt2 (G, order, domain), G_out); - assert (ordfilt2 (H, order, domain), H_out); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/ntsc2rgb.m] ->>>>> /build/octave-image-2.12.0/inst/ntsc2rgb.m -***** shared trans - trans = [ 1.0, 1.0, 1.0; - 0.95617, -0.27269, -1.10374; - 0.62143, -0.64681, 1.70062 ]; -***** assert (ntsc2rgb ([.299 .596 .211]), [1 0 0], 1e-5) -***** assert (ntsc2rgb ([.587 -.274 -.523]), [0 1 0], 1e-5) -***** assert (ntsc2rgb ([.114 -.322 .312]), [0 0 1], 1e-5) -***** test - rgb_map = rand (64, 3); - assert (ntsc2rgb (rgb2ntsc (rgb_map)), rgb_map, 1e-3); -***** test - rgb_img = rand (64, 64, 3); - assert (ntsc2rgb (rgb2ntsc (rgb_img)), rgb_img, 1e-3); -***** assert (ntsc2rgb ([1.5 0 0]), [1 1 1]) -***** test - ntsc = [0.4229 0.0336 0.7184]; - rgb = ntsc * trans; # [0.9014 -0.0509 1.6075] - rgb(1) /= rgb(3); # scaled based on the maximum - rgb(2) = 0; # cut to 0 - rgb(3) = 1; # cut to 1 - assert (ntsc2rgb (ntsc), rgb); -***** test - ntsc = [0.8229 0.3336 0.7184]; - rgb = ntsc * trans; # [1.58831 0.26726 1.67642] - rgb /= rgb(3); - assert (ntsc2rgb (ntsc), rgb); -***** test - ntsc = [0.4229 0.0336 0.7184 - 0.8229 0.3336 0.7184]; - rgb = ntsc * trans; # [0.9014 -0.0509 1.6075; 1.58831 0.26726 1.67642] - rgb(1,1) /= rgb(1,3); - rgb(1,2) = 0; - rgb(1,3) = 1; - rgb(2,:) /= rgb(2,3); - assert (ntsc2rgb (ntsc), rgb); -***** error ntsc2rgb () -***** error ntsc2rgb (1,2) -***** error ntsc2rgb (uint8 (1)) -***** error ntsc2rgb (ones (2,2)) -***** error ntsc2rgb (ones ([10 10 3], "uint8")) -***** error ntsc2rgb (ones ([10 10 3], "uint16")) -***** error ntsc2rgb (ones ([10 10 3], "int16")) -***** test - yiq = rand (16, 16, 3, 5); - rgb = zeros (size (yiq)); - for i = 1:5 - rgb(:,:,:,i) = ntsc2rgb (yiq(:,:,:,i)); - endfor - assert (ntsc2rgb (yiq), rgb); -***** test - rgb = ntsc2rgb (rand (10, 10, 3)); - assert (class (rgb), "double"); - assert (size (rgb), [10 10 3]); -***** test - rgb = ntsc2rgb (rand (10, 10, 3, "single")); - assert (class (rgb), "single"); - assert (size (rgb), [10 10 3]); -***** test - ntsc = (rand (10, 10, 3) * 3 ) - 0.5; # values outside range [0 1] - rgb = ntsc2rgb (ntsc); - assert (class (rgb), "double"); - assert (size (rgb), [10 10 3]); -***** test - ntsc = (rand (10, 10, 3, "single") * 3 ) - 0.5; # values outside range [0 1] - rgb = ntsc2rgb (ntsc); - assert (class (rgb), "single"); - assert (size (rgb), [10 10 3]); -***** test - ntsc_double = reshape ([.299 .587 .114 0 .596 -.274 -.322 0 .211 -.523 .312 0], - [2 2 3]); - expected = reshape ([1 0 0 0 0 1 0 0 0 0 1 0], [2 2 3]); - - assert (ntsc2rgb (ntsc_double), expected, 1e-5); - assert (ntsc2rgb (single (ntsc_double)), single (expected), 1e-5); -22 tests, 22 passed, 0 known failure, 0 skipped -[inst/cp2tform.m] ->>>>> /build/octave-image-2.12.0/inst/cp2tform.m -***** function [crw, cap] = coords (npt = 1000, scale = 2, dtheta = pi/3, - dx = 2, dy = -6, sig2noise = 1e32) - theta = (rand(npt, 1)*2-1)*2*pi; - R = rand(npt,1); - y = R.*sin(theta); - x = R.*cos(theta); - crw = [y x]; - - thetap = theta + dtheta; - Rap = R * scale; - - yap = Rap.*sin(thetap); - yap = yap + dy; - yap = yap + rand (size (yap)) * norm (yap) / sig2noise; - - xap = Rap.*cos(thetap); - xap = xap + dx; - xap = xap + rand (size (xap)) * norm (xap) / sig2noise; - cap = [yap xap]; -***** endfunction -***** test - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'projective'; - T = cp2tform (crw, cap, ttype); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) -***** test - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'affine'; - T = cp2tform (crw, cap, ttype); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) -***** xtest - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'nonreflective similarity'; - T = cp2tform (crw, cap, ttype); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) -***** test - npt = 100000; - [crw, cap] = coords (npt); - cap(:,2) *= -1; % reflection around y axis - ttype = 'similarity'; - T = cp2tform (crw, cap, ttype); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < 3*eps, "norm = %3.2e ( > 3*eps)", finalerr) -***** xtest - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'polynomial'; - ord = 2; - T = cp2tform (crw, cap, ttype, ord); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < eps, "norm = %3.2e ( > eps)", finalerr) -***** xtest - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'polynomial'; - ord = 3; - T = cp2tform (crw, cap, ttype, ord); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < eps, "norm = %3.2e ( > eps)", finalerr) -***** xtest - npt = 100000; - [crw, cap] = coords (npt); - ttype = 'polynomial'; - ord = 4; - T = cp2tform (crw, cap, ttype, ord); - crw2 = tforminv (T, cap); - finalerr = norm (crw - crw2)/npt; - assert (finalerr < 6*eps, "norm = %3.2e ( > 6*eps)", finalerr) -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/lab2xyz.m] ->>>>> /build/octave-image-2.12.0/inst/lab2xyz.m -***** assert (lab2xyz ([0, 0, 0]), [0 0 0], 1e-3) -***** assert (lab2xyz ([53.24, 80.09, 67.20]), [0.4125, 0.2127, 0.0193], 1e-3) -***** assert (lab2xyz ([97.14, -21.55, 94.48]), [0.7700, 0.9278, 0.1385], 1e-3) -***** assert (lab2xyz ([87.74, -86.18, 83.18]), [0.3576, 0.7152, 0.1192], 1e-3) -***** assert (lab2xyz ([91.11, -48.09, -14.13]), [0.5380, 0.7873, 1.0694], 1e-3) -***** assert (lab2xyz ([32.30, 79.19, -107.86]), [0.1804, 0.07217, 0.9502], 1e-3) -***** assert (lab2xyz ([60.32, 98.24, -60.83]), [0.5929, 0.28484, 0.9696], 1e-3) -***** assert (lab2xyz ([100, 0.00, 0.00]), [0.9505, 1.0000, 1.0888], 1e-3) -***** assert (lab2xyz ([53.39, 0.00, 0.00]), [0.2034, 0.2140, 0.2330], 1e-3) -***** assert (lab2xyz ([39.77, 64.51, 54.13]), [0.2155, 0.1111, 0.0101], 1e-3) -***** assert (lab2xyz ([25.42, 47.91, 37.91]), [0.0883, 0.0455, 0.0041], 1e-3) -***** assert (lab2xyz ([9.66, 29.68, 15.24]), [0.02094, 0.0108, 0.00098], 1e-3) -***** assert (lab2xyz ([68.11, 48.39, 22.83]), [0.5276, 0.3812, 0.2482], 1e-3) -***** assert (lab2xyz ([150 130 130]), [4.596, 2.931, 0.519], 1e-3) -***** test - lab_map = rand (64, 3); - lab_map(:,1) = lab_map(:,1) .* 100; - lab_map(:,2) = lab_map(:,2) .* 254 - 127; - lab_map(:,3) = lab_map(:,3) .* 254 - 127; - assert (xyz2lab (lab2xyz (lab_map)), lab_map, 1e-5); -***** test - lab_img = rand (64, 64, 3); - lab_img(:,:,1) = lab_img(:,:,1) .* 100; - lab_img(:,:,2) = lab_img(:,:,2) .* 254 - 127; - lab_img(:,:,3) = lab_img(:,:,3) .* 254 - 127; - assert (xyz2lab (lab2xyz (lab_img)), lab_img, 1e-5); -***** assert (lab2xyz (sparse ([0 0 0])), [0 0 0], 1e-3) -***** assert (lab2xyz (sparse ([100, 0.00, 0.00])), [0.9505, 1.0000, 1.0888], 1e-3) -***** assert (class (lab2xyz (single([50 50 50]))), 'single') -***** error lab2xyz () -***** error lab2xyz (1,2) -***** error lab2xyz ({1}) -***** error lab2xyz (ones (2,2)) -***** test - lab = rand (16, 16, 3, 5); - lab(:,:,1,:) = lab(:,:,1,:) .* 100; - lab(:,:,2,:) = lab(:,:,2,:) .* 254 - 127; - lab(:,:,3,:) = lab(:,:,3,:) .* 254 - 127; - xyz = zeros (size (lab)); - for i = 1:5 - xyz(:,:,:,i) = lab2xyz (lab(:,:,:,i)); - endfor - assert (lab2xyz (lab), xyz) -24 tests, 24 passed, 0 known failure, 0 skipped -[inst/regionprops.m] ->>>>> /build/octave-image-2.12.0/inst/regionprops.m -***** shared bw2d, gray2d, bw2d_over_bb, bw2d_insides - bw2d = logical ([ - 0 1 0 1 1 0 - 0 1 1 0 1 1 - 0 1 0 0 0 0 - 0 0 0 1 1 1 - 0 0 1 1 0 1]); - - gray2d = [ - 2 4 0 7 5 2 - 3 0 4 9 3 7 - 0 5 3 4 8 1 - 9 2 0 5 8 6 - 8 9 7 2 2 5]; - - ## For testing overlapping bounding boxes - bw2d_over_bb = logical ([ - 0 1 1 1 0 1 1 - 1 1 0 0 0 0 1 - 1 0 0 1 1 0 1 - 1 0 0 1 1 0 0 - 0 0 0 1 1 1 1]); - - ## For testing when there's regions inside regions - bw2d_insides = logical ([ - 0 0 0 0 0 0 0 0 - 0 1 1 1 1 1 1 0 - 0 1 0 0 0 0 1 0 - 0 1 0 1 1 0 1 0 - 0 1 0 1 1 0 1 0 - 0 1 0 0 0 0 1 0 - 0 1 1 1 1 1 1 0 - 0 0 0 0 0 0 0 0]); -***** function c = get_2d_centroid_for (idx) - subs = ind2sub ([5 6], idx); - m = false ([5 6]); - m(idx) = true; - y = sum ((1:5)' .* sum (m, 2) /sum (m(:))); - x = sum ((1:6) .* sum (m, 1) /sum (m(:))); - c = [x y]; -***** endfunction -***** assert (regionprops (bw2d, "Area"), struct ("Area", {8; 6})) -***** assert (regionprops (double (bw2d), "Area"), struct ("Area", {14})) -***** assert (regionprops (bwlabel (bw2d, 4), "Area"), struct ("Area", {4; 6; 4})) -***** assert (regionprops (bw2d, "PixelIdxList"), - struct ("PixelIdxList", {[6; 7; 12; 8; 16; 21; 22; 27] - [15; 19; 20; 24; 29; 30]})) -***** assert (regionprops (bwlabel (bw2d, 4), "PixelIdxList"), - struct ("PixelIdxList", {[6; 7; 8; 12] - [15; 19; 20; 24; 29; 30] - [16; 21; 22; 27]})) -***** assert (regionprops (bw2d, "PixelList"), - struct ("PixelList", {[2 1; 2 2; 3 2; 2 3; 4 1; 5 1; 5 2; 6 2] - [3 5; 4 4; 4 5; 5 4; 6 4; 6 5]})) -***** assert (regionprops (bwlabel (bw2d, 4), "PixelList"), - struct ("PixelList", {[2 1; 2 2; 2 3; 3 2] - [3 5; 4 4; 4 5; 5 4; 6 4; 6 5] - [4 1; 5 1; 5 2; 6 2]})) -***** assert (regionprops (bw2d, gray2d, "PixelValues"), - struct ("PixelValues", {[4; 0; 4; 5; 7; 5; 3; 7] - [7; 5; 2; 8; 6; 5]})) -***** assert (regionprops (bw2d, gray2d, "MaxIntensity"), - struct ("MaxIntensity", {7; 8})) -***** assert (regionprops (bw2d, gray2d, "MinIntensity"), - struct ("MinIntensity", {0; 2})) -***** assert (regionprops (bw2d, "BoundingBox"), - struct ("BoundingBox", {[1.5 0.5 5 3]; [2.5 3.5 4 2]})) -***** assert (regionprops (bw2d, "Centroid"), - struct ("Centroid", {get_2d_centroid_for([6 7 8 12 16 21 22 27]) - get_2d_centroid_for([15 19 20 24 29 30])}), - 5 * eps) -***** test - props = struct ("Area", {8; 6}, - "Centroid", {get_2d_centroid_for([6 7 8 12 16 21 22 27]) - get_2d_centroid_for([15 19 20 24 29 30])}, - "BoundingBox", {[1.5 0.5 5 3]; [2.5 3.5 4 2]}); - assert (regionprops (bw2d, "basic"), props, 5 * eps) - assert (regionprops (bwconncomp (bw2d, 8), "basic"), props, 5 * eps) - assert (regionprops (bwlabeln (bw2d, 8), "basic"), props, 5 * eps) -***** test - props = struct ("Area", {4; 6; 4}, - "Centroid", {get_2d_centroid_for([6 7 8 12]) - get_2d_centroid_for([15 19 20 24 29 30]) - get_2d_centroid_for([16 21 22 27])}, - "BoundingBox", {[1.5 0.5 2 3]; [2.5 3.5 4 2]; [3.5 0.5 3 2]}); - assert (regionprops (bwconncomp (bw2d, 4), "basic"), props, 5 * eps) - assert (regionprops (bwlabeln (bw2d, 4), "basic"), props, 5 * eps) -***** assert (regionprops (double (bw2d), "basic"), - struct ("Area", 14, - "Centroid", get_2d_centroid_for (find (bw2d)), - "BoundingBox", [1.5 0.5 5 5]), eps*1000) -***** assert (regionprops ([0 0 1], "Centroid").Centroid, [3 1]) -***** assert (regionprops ([0 0 1; 0 0 0], "Centroid").Centroid, [3 1]) -***** assert (regionprops ([0 1 1], "Centroid").Centroid, [2.5 1]) -***** assert (regionprops ([0 1 1; 0 0 0], "Centroid").Centroid, [2.5 1]) -***** test - a = zeros (2, 3, 3); - a(:, :, 1) = [0 1 0; 0 0 0]; - a(:, :, 3) = a(:, :, 1); - c = regionprops (a, "centroid"); - assert (c.Centroid, [2 1 2]) + a = zeros (2, 3, 3); + a(:, :, 1) = [0 1 0; 0 0 0]; + a(:, :, 3) = a(:, :, 1); + c = regionprops (a, "centroid"); + assert (c.Centroid, [2 1 2]) ***** test d1=2; d2=4; d3=6; a = ones (d1, d2, d3); @@ -7345,599 +6716,196 @@ props=regionprops (I, "Perimeter"); assert ([props.Perimeter], [7.013]) 86 tests, 85 passed, 1 known failure, 0 skipped -[inst/houghpeaks.m] ->>>>> /build/octave-image-2.12.0/inst/houghpeaks.m -***** shared im1 - im1 = magic (5); -***** error houghpeaks () -***** error houghpeaks (1, 2, 3, 4, 5, 6, 7) -***** assert (houghpeaks (im1)) -***** assert (houghpeaks (im1, 2)) -***** assert (houghpeaks (im1, "Threshold", 10)) -***** assert (houghpeaks (im1, 2, "Threshold", 10)) -***** assert (houghpeaks (im1, "NHoodSize", [3 3])) -***** assert (houghpeaks (im1, 2, "NHoodSize", [3 3])) -***** assert (houghpeaks (im1, "Threshold", 10, "NHoodSize", [3 3])) -***** assert (houghpeaks (im1, "NHoodSize", [3 3], "Threshold", 10)) -***** assert (houghpeaks (im1, 2, "Threshold", 10, "NHoodSize", [3 3])) -***** assert (houghpeaks (im1, 2, "NHoodSize", [3 3], "Threshold", 10)) -***** error houghpeaks (ones (5, 5, 5)) -***** error houghpeaks ("hello") -***** error houghpeaks (im1, 1.5) -***** error houghpeaks (im1, -2) -***** error houghpeaks (im1, [1 1]) -***** error houghpeaks (im1, "Threshold", "hello") -***** error houghpeaks (im1, "Threshold", -2) -***** error houghpeaks (im1, "Threshold", [1 1]) -***** error houghpeaks (im1, "NHoodSize", [3 3 3]) -***** error houghpeaks (im1, "NHoodSize", "hello") -***** error houghpeaks (im1, "NHoodSize", [-3 -3]) -***** error houghpeaks (im1, "NHoodSize", [4 4]) -***** test - out = houghpeaks (im1); - assert (size (out), [1 2]) - assert (class (out), "double") -***** test - out = houghpeaks (im1, 3); - assert (size (out), [3 2]) -***** test - expected = [5 3; 1 2; 3 5; 1 5]; - assert (houghpeaks (im1, 4), expected) # this checks for undocumented nhood >=3 - assert (houghpeaks (im1, 4, "nhoodsize", [3,3]), expected) - assert (houghpeaks (im1, 4, "threshold", 10), expected) - assert (houghpeaks (im1, 4, "threshold", 24), expected(1:2,:)) -***** test - im2 = magic (7); - expected_a = [7 4; 1 3; 3 1; 5 6]; - expected_b = [7 4; 1 3; 4 7; 1 7]; - assert (houghpeaks (im2, 4), expected_a) - assert (houghpeaks (im2, 4, "nhoodsize", [5,5]), expected_b) - assert (houghpeaks (im2, 4, "threshold", 24), expected_a) - assert (houghpeaks (im2, 4, "threshold", 47), expected_a(1:2,:)) -***** test - im3 = magic (99); - expected_a = [99 50; 1 49; 3 47; 5 45; 7 43; 9 41; 11 39]; - expected_b = [99 50; 1 49; 7 43; 13 37; 19 31; 25 25; 31 19]; - expected_c = [99 50; 1 49; 2 48; 3 47; 4 46; 5 45; 6 44]; - assert (houghpeaks (im3, 7), expected_a) - assert (houghpeaks (im3, 7, "nhoodsize", [11 11]), expected_b) - assert (houghpeaks (im3, 7, "nhoodsize", [11 1]), expected_c) - assert (houghpeaks (im3, 7, "nhoodsize", [11 1]), expected_c) -***** test - im4 = double (im2uint16 (peaks ())); - expected_a = [37 15; 39 15; 41 15; 15 16; 17 16]; - expected_b = [37 15; 15 16; 26 21; 37 26; 20 32]; - expected_c = [37 15; 15 16; 35 16; 15 17; 35 17]; - expected_d = [37 15; 38 15; 39 15; 40 15; 41 15]; - assert (houghpeaks (im4, 5), expected_a) - assert (houghpeaks (im4, 5, "nhoodsize", [21 21]), expected_b) - assert (houghpeaks (im4, 5, "nhoodsize", [21 1]), expected_c) - assert (houghpeaks (im4, 5, "nhoodsize", [1 21]), expected_d) -***** test # tests use of anti-symmetry in H - im5 = zeros (6,4); im5(2,1) = 1; im5(5,4) = 2; - expected = [5 4; 2 1]; - assert (houghpeaks (im5, 2, "nhoodsize", [1 1]), expected); - assert (houghpeaks (im5, 2, "nhoodsize", [3 3]), expected(1,:)); -***** test #test use of anti-symmetry in the other direction - im6 = magic (100); - expected_a = [1 1; 100 99; 1 4; 100 95; 1 8; 100 91; 1 12]; - expected_b = [1 1; 100 95; 1 8; 100 87; 1 16; 100 79; 1 24]; - expected_c = [1 1; 100 99; 100 98; 1 4; 1 5; 100 95; 100 94]; - expected_d = expected_b; - assert (houghpeaks (im6, 7), expected_a) - assert (houghpeaks (im6, 7, "nhoodsize", [11 11]), expected_b) - assert (houghpeaks (im6, 7, "nhoodsize", [11 1]), expected_c) - assert (houghpeaks (im6, 7, "nhoodsize", [1 11]), expected_d) -***** test # test undocumented Matlab default value for nhoodsize - im = zeros (723, 180); - im(585,136) = 8; - im(593,135) = 7; - im(310,46) = 6; - expected = [585, 136; 310, 46]; - assert (houghpeaks (im, 2), expected) -***** test - I = max (0, phantom ()); - H = hough (I); - P0 = [585, 136; 310, 46; 595, 136; 522, 104; 373, 46]; - assert (houghpeaks (H, 5), P0) -***** demo - I = checkerboard (30, 1, 1); - I = imnoise(I, "salt & pepper", 0.2); - figure, imshow (I); - title ("noisy image with some lines"); - BW = edge (I, "canny"); - figure, imshow(BW); - title ("edge image"); - [H, theta, rho] = hough (BW); - figure, imshow (mat2gray (H), [],"XData",theta,"YData",rho); - title ("Hough transform of edge image \n 2 peaks marked"); - axis on; xlabel("theta [degrees]"); ylabel("rho [pixels]"); - peaks = houghpeaks (H, 2); - peaks_rho = rho(peaks(:,1)) - peaks_theta = theta(peaks(:,2)) - hold on; - plot(peaks_theta,peaks_rho,"sr"); - hold off; -34 tests, 34 passed, 0 known failure, 0 skipped -[inst/viscircles.m] ->>>>> /build/octave-image-2.12.0/inst/viscircles.m -***** demo - centers = randi ([0 100], 5, 2); - radii = randi ([10 100], 5, 1); - axis equal - viscircles (centers, radii, - "Color", "magenta", - "LineStyle", ":", - "LineWidth", 5); - title ("5 random circles"); - #---------------------------------------------- - # the figure window shows 5 circles with random - # radii and positions -***** test # old undocumented property - h = viscircles ([0 0], 1, "EdgeColor", "black"); - assert (get (get (h, "children")(1), "color"), [0 0 0]) -***** test # old undocumented property - h = viscircles ([0 0], 1, "DrawBackgroundCircle", false); - assert (numel (get (h, "children")), 1) -***** error ... - viscircles ([0 0], 1, "Color", "magenta", "EdgeColor", "black") -***** test - centers = randi ([0 100], 5, 2); - radii = randi ([0 100], 5, 1); - h = viscircles (centers, radii); - close; -***** test - centers = randi ([0 100], 5, 2); - radii = randi ([0 100], 5, 1); - figure (); - h = viscircles (gca (), centers, radii); - close; -***** test - centers = randi ([0 100], 5, 2); - radii = randi ([0 100], 5, 1); - h = viscircles (centers, radii, "Color", "magenta", - "LineStyle", ":", "LineWidth", 5); - close; -***** test - centers = randi ([0 100],5,2); - radii = randi ([0 100],5,1); - figure (); - h = viscircles (centers, radii, "Color", "magenta", - "LineStyle", ":", "LineWidth", 5); - close; -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/xyz2lab.m] ->>>>> /build/octave-image-2.12.0/inst/xyz2lab.m -***** assert (xyz2lab ([0, 0, 0]), [0 0 0], 5e-2) -***** assert (xyz2lab ([0.4125, 0.2127, 0.0193]), [53.24, 80.09, 67.20], 5e-2) -***** assert (xyz2lab ([0.7700, 0.9278, 0.1385]), [97.14, -21.55, 94.48], 5e-2) -***** assert (xyz2lab ([0.3576, 0.7152, 0.1192]), [87.74, -86.18, 83.18], 5e-2) -***** assert (xyz2lab ([0.5380, 0.7873, 1.0694]), [91.11, -48.09, -14.13], 5e-2) -***** assert (xyz2lab ([0.1804, 0.07217, 0.9502]), [32.30, 79.19, -107.86], 5e-2) -***** assert (xyz2lab ([0.5929, 0.28484, 0.9696]), [60.32, 98.24, -60.83], 5e-2) -***** assert (xyz2lab ([0.9505, 1.0000, 1.0888]), [100, 0.00, 0.00], 5e-2) -***** assert (xyz2lab ([0.2034, 0.2140, 0.2330]), [53.39, 0.00, 0.00], 5e-2) -***** assert (xyz2lab ([0.2155, 0.1111, 0.0101]), [39.77, 64.51, 54.13], 5e-2) -***** assert (xyz2lab ([0.0883, 0.0455, 0.0041]), [25.42, 47.91, 37.91], 5e-2) -***** assert (xyz2lab ([0.02094, 0.0108, 0.00098]), [9.66, 29.68, 15.24], 5e-2) -***** assert (xyz2lab ([0.5276, 0.3812, 0.2482]), [68.11, 48.39, 22.83], 5e-2) -***** assert (xyz2lab ([1.5 1 1]), [100, 82.15, 5.60], 5e-2) - xyz_map = rand (64, 3); - assert (lab2xyz (xyz2lab (xyz_map)), xyz_map, 1e-5); -***** test - xyz_img = rand (64, 64, 3); - assert (lab2xyz (xyz2lab (xyz_img)), xyz_img, 1e-5); -***** assert (xyz2lab (sparse ([0 0 0])), [0 0 0], 5e-2) -***** assert (class (xyz2lab (single([0.5 0.5 0.5]))), 'single') -***** error xyz2lab () -***** error xyz2lab (1,2) -***** error xyz2lab ({1}) -***** error xyz2lab (ones (2,2)) -***** test - xyz = rand (16, 16, 3, 5); - lab = zeros (size (xyz)); - for i = 1:5 - lab(:,:,:,i) = xyz2lab (xyz(:,:,:,i)); - endfor - assert (xyz2lab (xyz), lab) -22 tests, 22 passed, 0 known failure, 0 skipped -[inst/imsmooth.m] ->>>>> /build/octave-image-2.12.0/inst/imsmooth.m +[inst/lab2single.m] +>>>>> /build/octave-image-2.12.0/inst/lab2single.m ***** test - ## checking Bilateral Filter + l_max_f = 100 + (25500 / 65280); + ab_max_f = 127 + (255 / 256); + cm = [ + -Inf + Inf + NaN + l_max_f + ab_max_f + -200 + -129 + -128 + -128+(255/65280)*(0.499) + -128+(255/65280)*(0.500) + -128+(255/65280)*(0.501) + -127 + -1 + 0 + (100/65280)*(0.499999) + (100/65280)*(0.51) + (100/65280)*(0.500001) + 1 + 99 + 100 + 101 + 126 + 127 + 128 + 254 + 255 + 256 + 257]; + cm = repmat (single (cm), [1 3]); + im2d = reshape (cm, [7 4 3]); + imnd = permute (im2d, [1 4 3 2]); - ## constant image remain the same after Bilateral Filter - A = uint8(255*ones(128,128)); - B = uint8(imsmooth(A, 'Bilateral', 2, 10)); - assert (A,B); + cm_uint8 = uint8 ([ + 0 0 0 + 255 255 255 + 255 255 255 + 255 228 228 + 255 255 255 + 0 0 0 + 0 0 0 + 0 0 0 + 0 0 0 + 0 0 0 + 0 0 0 + 0 1 1 + 0 127 127 + 0 128 128 + 0 128 128 + 0 128 128 + 0 128 128 + 3 129 129 + 252 227 227 + 255 228 228 + 255 229 229 + 255 254 254 + 255 255 255 + 255 255 255 + 255 255 255 + 255 255 255 + 255 255 255 + 255 255 255]); - ## Bilateral Filter does not smear outlayers - A = zeros(256,256); - A(128,128) = 256; - ## bilateral filter does not smear outlayers - B = imsmooth(A, 'Bilateral', 2, 10); - assert (A,B,1.e-140); + assert (lab2uint8 (cm), cm_uint8) + im2d_uint8 = reshape (cm_uint8, [7 4 3]); + assert (lab2uint8 (im2d), im2d_uint8) + assert (lab2uint8 (imnd), permute (im2d_uint8, [1 4 3 2])) - ## When sigma_r is large the filter behaves almost - ## like the isotropic Gaussian filter + cm_uint16 = uint16 ([ + 0 0 0 + 65535 65535 65535 + 65535 65535 65535 + 65535 58468 58468 + 65535 65535 65535 + 0 0 0 + 0 0 0 + 0 0 0 + 0 0 0 + 0 1 1 + 0 1 1 + 0 256 256 + 0 32512 32512 + 0 32768 32768 + 0 32768 32768 + 1 32768 32768 + 1 32768 32768 + 653 33024 33024 + 64627 58112 58112 + 65280 58368 58368 + 65535 58624 58624 + 65535 65024 65024 + 65535 65280 65280 + 65535 65535 65535 + 65535 65535 65535 + 65535 65535 65535 + 65535 65535 65535 + 65535 65535 65535]); - A0 = fspecial ('gaussian',100,100); - A = uint8(A0/max(max(A0))*255); - B1 = imsmooth(A, 'Bilateral', 2, 100); - B2 = imsmooth(A, 'Gaussian', 2); - assert (B1,B2); + assert (lab2uint16 (cm), cm_uint16) + im2d_uint16 = reshape (cm_uint16, [7 4 3]); + assert (lab2uint16 (im2d), im2d_uint16) + assert (lab2uint16 (imnd), permute (im2d_uint16, [1 4 3 2])) + + assert (lab2double (cm), double (cm)) + assert (lab2double (im2d), double (im2d)) + assert (lab2double (imnd), double (imnd)) 1 test, 1 passed, 0 known failure, 0 skipped -[inst/integralImage3.m] ->>>>> /build/octave-image-2.12.0/inst/integralImage3.m -***** test - assert (integralImage3 (zeros (4)), zeros (5, 5, 2)); -***** test - J_res = zeros (2, 2, 2); - J_res(2, 2, 2) = 10; - assert (integralImage3 (10), J_res); -***** test - J = integralImage3 (10); - assert (class (J), "double"); - J = integralImage3 (uint8 (10)); - assert (class (J), "double"); -***** test - I = [1, 2; 3, 4]; - J = integralImage3 (I); - J_res = zeros (3, 3, 2); - J_res(2:3, 2:3, 2) = [1 3; 4 10]; - assert (J, J_res) -***** test - I1 = [1, 2; 3, 4]; - I2 = [5, 6; 7, 8]; - I3 = [9, 10; 11, 12]; - I = cat (3, I1, I2, I3); - J = integralImage3 (I); - J2 = [0 0 0; 0 1 3; 0 4 10]; - J3 = [0 0 0; 0 6 14; 0 16 36]; - J4 = [0 0 0; 0 15 33; 0 36 78]; - J_res = cat (3, zeros (3), J2, J3, J4); - assert (J, J_res) -***** test - I = magic (5); - J = integralImage3 (I); - J_res = zeros (6, 6, 2); - J_res(:, :, 2) = [0 0 0 0 0 0; - 0 17 41 42 50 65; - 0 40 69 77 99 130; - 0 44 79 100 142 195; - 0 54 101 141 204 260; - 0 65 130 195 260 325]; - assert (J, J_res) -***** # test of 3d input image: +[inst/isind.m] +>>>>> /build/octave-image-2.12.0/inst/isind.m +***** assert (isind ([]), false); +***** assert (isind (1:10), true); +***** assert (isind (0:10), false); +***** assert (isind (1), true); +***** assert (isind (0), false); +***** assert (isind ([1.3 2.4]), false); +***** assert (isind ([1 2; 3 4]), true); +***** assert (isind (randi (100, 10, 10, 1, 4)), true); +***** assert (isind (randi (100, 10, 10, 3, 4)), false); +***** assert (isind (randi (100, 10, 10, 1, 4, 2)), false); +10 tests, 10 passed, 0 known failure, 0 skipped +[inst/rgb2ntsc.m] +>>>>> /build/octave-image-2.12.0/inst/rgb2ntsc.m +***** assert (rgb2ntsc ([1 0 0]), [.299 .596 .211]) +***** assert (rgb2ntsc ([0 1 0]), [.587 -.274 -.523]) +***** assert (rgb2ntsc ([0 0 1]), [.114 -.322 .312]) ***** test - K = magic (8); - K = reshape (K, [4 4 4]); - L = integralImage3 (K); - L1_ML = zeros (5); - L2_ML = [0 0 0 0 0; - 0 64 96 98 132; - 0 73 146 203 260; - 0 90 212 316 388; - 0 130 260 390 520]; - L3_ML = [0 0 0 0 0; - 0 67 134 197 260; - 0 130 260 390 520; - 0 193 386 583 780; - 0 260 520 780 1040]; - L4_ML = [0 0 0 0 0; - 0 127 222 291 392; - 0 203 406 593 780; - 0 287 606 903 1168; - 0 390 780 1170 1560]; - L5_ML = [0 0 0 0 0; - 0 134 268 394 520; - 0 260 520 780 1040; - 0 386 772 1166 1560; - 0 520 1040 1560 2080]; - L_ML = cat (3, L1_ML, L2_ML, L3_ML, L4_ML, L5_ML); - assert (L, L_ML) -***** # test of 2d input image: + rgb_map = rand (64, 3); + assert (ntsc2rgb (rgb2ntsc (rgb_map)), rgb_map, 1e-3); ***** test - X = ones (3); - Y = integralImage3 (X); - Y_ML = zeros (4, 4, 2); - Y_ML(:, :, 2) = [0 0 0 0; 0 1 2 3; 0 2 4 6; 0 3 6 9]; - assert(Y, Y_ML); -***** error - integralImage3 (); -***** error - integralImage3 (zeros (3), zeros (3)); -***** error - integralImage3 ("abcd"); -***** error - integralImage3 (1+i); -***** error - integralImage3 (reshape (1:81, 3, 3, 3, 3)); -13 tests, 13 passed, 0 known failure, 0 skipped -[inst/imhist.m] ->>>>> /build/octave-image-2.12.0/inst/imhist.m -***** shared nn, bb, enn, ebb - [nn, bb] = imhist(logical([0 1 0 0 1])); -***** assert({nn, bb}, {[3 2]', [0 1]'}) - [nn, bb] = imhist([0 0.2 0.4 0.9 1], 5); -***** assert({nn, bb}, {[1 1 1 0 2]', [0 0.25 0.5 0.75 1]'}) - [nn, bb] = imhist([-2 0 0.2 0.4 0.9 1 5], 5); -***** assert({nn, bb}, {[2 1 1 0 3]', [0 0.25 0.5 0.75 1]'}) - [nn, bb] = imhist(uint8([0 32 255]), 256); - enn = zeros(256, 1); enn([1, 33, 256]) = 1; - ebb = 0:255; -***** assert({nn, bb}, {enn, ebb'}) - [nn, bb] = imhist(int8([-50 0 100]), 31); - enn = zeros(31, 1); enn([10, 16, 28]) = 1; - ebb = -128:8.5:127; -***** assert({nn, bb}, {enn, ebb'}) -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/wiener2.m] ->>>>> /build/octave-image-2.12.0/inst/wiener2.m -***** shared im0, im0_out, im0_n - im0 = ones (5, 5); - im0_out = ones (5, 5); - im0_out(1:4:5, 1:4:5) = 0.67111; - im0_out(1:4:5, 2:4) = 0.78074; - im0_out(2:4, 1:4:5) = 0.78074; - im0_n = 0.1462; -***** error wiener2 () -***** assert (wiener2 (im0)) -***** assert (wiener2 (im0, [2, 3])) -***** assert (wiener2 (im0, 0.5)) -***** assert (wiener2 (im0, [2, 3], 0.5)) -***** error wiener2 (im0, [2, 3], 0.5, 2) + rgb_img = rand (64, 64, 3); + assert (ntsc2rgb (rgb2ntsc (rgb_img)), rgb_img, 1e-3); + assert (rgb2ntsc ([1.5 1 1]), [1.149 0.298 0.105], 1e-3); +***** error rgb2ntsc () +***** error rgb2ntsc (1,2) +***** error rgb2ntsc ({1}) +***** error rgb2ntsc (ones (2,2)) ***** test - [im_out, noise_out] = wiener2 (im0); - assert (size (im_out), size (im0)) - assert (class (noise_out), "double") - assert (numel (noise_out), 1) -***** assert (wiener2 (im0), im0_out, 1e-5) -***** assert (wiener2 (single (im0)), single (im0_out), 1e-5) -***** assert (class (wiener2 (single (im0))), "single") -***** assert (wiener2 (im2uint8 (im0)), im2uint8 (im0_out)) -***** assert (class (wiener2 (im2uint8 (im0))), "uint8") -***** assert (wiener2 (im2uint16 (im0)), im2uint16 (im0_out), 1) -***** assert (class (wiener2 (im2uint16 (im0))), "uint16") -***** assert (wiener2 (im2int16 (im0)), im2int16 (im0_out), 1) -***** assert (class (wiener2 (im2int16 (im0))), "int16") + rgb = rand (16, 16, 3, 5); + yiq = zeros (size (rgb)); + for i = 1:5 + yiq(:,:,:,i) = rgb2ntsc (rgb(:,:,:,i)); + endfor + assert (rgb2ntsc (rgb), yiq); ***** test - im_out = wiener2 (im0); - assert (im_out, im0_out, 1e-4) - [out, n] = wiener2 (im0); - assert (out, im0_out, 1e-4) - assert (n, im0_n, 1e-4) + ntsc = rgb2ntsc (rand (10, 10, 3)); + assert (class (ntsc), "double"); + assert (size (ntsc), [10 10 3]); ***** test - im1 = zeros (5, 5); - im1(2:4, 2:4) = 1; - im1_out = [ - 0.1111 0.2222 0.2726 0.2222 0.1111; - 0.2222 0.5911 0.7274 0.5911 0.2222; - 0.2726 0.7274 1.0000 0.7274 0.2726; - 0.2222 0.5911 0.7274 0.5911 0.2222; - 0.1111 0.2222 0.2726 0.2222 0.1111]; - im1_n = 0.1817; - im1_out_55 = [ - 0.1600 0.2400 0.2400 0.2400 0.1600; - 0.2400 0.4667 0.4667 0.4667 0.2400; - 0.2400 0.4667 0.4667 0.4667 0.2400; - 0.2400 0.4667 0.4667 0.4667 0.2400; - 0.1600 0.2400 0.2400 0.2400 0.1600]; - im1_n_55 = 0.1920; - im1_out_05 = [ - 0.1111 0.2222 0.3333 0.2222 0.1111; - 0.2222 0.4444 0.6667 0.4444 0.2222; - 0.3333 0.6667 1.0000 0.6667 0.3333; - 0.2222 0.4444 0.6667 0.4444 0.2222; - 0.1111 0.2222 0.3333 0.2222 0.1111]; - im1_out_55_05 = [ - 0.1600 0.2400 0.2400 0.2400 0.1600; - 0.2400 0.3600 0.3600 0.3600 0.2400; - 0.2400 0.3600 0.3600 0.3600 0.2400; - 0.2400 0.3600 0.3600 0.3600 0.2400; - 0.1600 0.2400 0.2400 0.2400 0.1600]; - im1_out_35 = [ - 0.1333 0.2000 0.2000 0.2000 0.1333; - 0.2642 0.5156 0.5156 0.5156 0.2642; - 0.3230 0.6770 0.6770 0.6770 0.3230; - 0.2642 0.5156 0.5156 0.5156 0.2642; - 0.1333 0.2000 0.2000 0.2000 0.1333]; - im1_out_51 = [ - 0 0.2400 0.2400 0.2400 0 - 0 0.7600 0.7600 0.7600 0 - 0 0.7600 0.7600 0.7600 0 - 0 0.7600 0.7600 0.7600 0 - 0 0.2400 0.2400 0.2400 0]; - assert (wiener2 (im1), im1_out, 1e-4) - [out, n] = wiener2 (im1); - assert (out, im1_out, 1e-4) - assert (n, im1_n, 1e-4) - assert (wiener2 (im1, [5, 5]), im1_out_55, 1e-4) - [out, n] = wiener2 (im1, [5, 5]); - assert (out, im1_out_55, 1e-4) - assert (n, im1_n_55, 1e-4) - assert (wiener2 (im1, 0.5), im1_out_05, 1e-4) - assert (wiener2 (im1, [5, 5], 0.5), im1_out_55_05, 1e-4) - assert (wiener2 (im1, [3, 5]), im1_out_35, 1e-4) - assert (wiener2 (im1, [5, 1]), im1_out_51, 1e-4) + ntsc = rgb2ntsc (rand (10, 10, 3, "single")); + assert (class (ntsc), "single"); + assert (size (ntsc), [10 10 3]); ***** test - ## Tests for even-sized neighbourhood - im1 = zeros (5, 5); - im1(2:4, 2:4) = 1; - - im1_out_23 = [ - 0.1667 0.2233 0.2978 0.2233 0.1667 - 0.2233 0.7767 1.0000 0.7767 0.2233 - 0.2233 0.7767 1.0000 0.7767 0.2233 - 0.1667 0.5533 0.7022 0.5533 0.1667 - 0 0 0 0 0]; - - im1_out_43 = [ - 0.1667 0.2813 0.3750 0.2813 0.1667 - 0.2500 0.6250 0.7500 0.6250 0.2500 - 0.2500 0.6250 0.7500 0.6250 0.2500 - 0.1667 0.4375 0.6250 0.4375 0.1667 - 0.0833 0.1667 0.2500 0.1667 0.0833]; - - im1_out_44 = [ - 0.2500 0.3018 0.3018 0.2500 0.1250 - 0.3018 0.6647 0.6647 0.4971 0.1875 - 0.3018 0.6647 0.6647 0.4971 0.1875 - 0.2500 0.4971 0.4971 0.2500 0.1250 - 0.1250 0.1875 0.1875 0.1250 0.0625]; - - assert (wiener2 (im1, [2, 3]), im1_out_23, 1e-4) - assert (wiener2 (im1, [4, 3]), im1_out_43, 1e-4) - assert (wiener2 (im1, [4, 4]), im1_out_44, 1e-4) + rgb = (rand (10, 10, 3) * 3 ) - 0.5; # values outside range [0 1] + ntsc = rgb2ntsc (rgb); + assert (class (ntsc), "double"); + assert (size (ntsc), [10 10 3]); ***** test - im2 = zeros (5, 5); - im2(2:4, 2:4) = 70; - im2(3, 3) = 90; - im2 = uint8 (im2); - im2_out = uint8 ([ - 8 16 20 16 8 ; - 16 46 54 46 16; - 20 54 72 54 20; - 16 46 54 46 16; - 8 16 20 16 8 ]); - im2_n = 0.0146; - im2_out_55 = uint8 ([ - 12 18 18 18 12; - 18 32 32 32 18; - 18 32 35 32 18; - 18 32 32 32 18; - 12 18 18 18 12]); - im2_n_55 = 0.0160; - im2_out_03 = uint8 ([ - 8 16 23 16 8 ; - 16 33 49 33 16; - 23 49 72 49 23; - 16 33 49 33 16; - 8 16 23 16 8 ]); - im2_n_03 = 0.3000; - [out, n] = wiener2 (im2); - assert (out, im2_out) - assert (n, im2_n, 1e-4) - [out, n] = wiener2 (im2, [5, 5]); - assert (out, im2_out_55) - assert (n, im2_n_55, 1e-4) - [out, n] = wiener2 (im2, 0.3); - assert (out, im2_out_03) - assert (n, im2_n_03, 1e-4) + rgb = (rand (10, 10, 3, "single") * 3 ) - 0.5; # values outside range [0 1] + ntsc = rgb2ntsc (rgb); + assert (class (ntsc), "single"); + assert (size (ntsc), [10 10 3]); ***** test - im3 = zeros (5, 5); - im3(2:4, 2:4) = 70; - im3(3, 3) = 20; - im3 = uint8 (im3); - im3_out = uint8 ([ - 8 16 19 16 8 ; - 16 32 47 32 16; - 19 47 64 47 19; - 16 32 47 32 16; - 8 16 19 16 8 ]); - im3_n = 0.0134; - [out, n] = wiener2 (im3); - assert (out, im3_out) - assert (n, im3_n, 1e-4) + ntsc = rgb2ntsc (randi ([0 255], 10, 10, 3, "uint8")); + assert (class (ntsc), "double"); + assert (size (ntsc), [10 10 3]); ***** test - im4 = 50 .* ones (5, 5); - im4(:, 1) = 200; - im4(:, 2) = 100; - im4 = uint8 (im4); - im4_out = uint8 ([ - 148 90 44 33 22; - 161 111 67 50 33; - 161 111 67 50 33; - 161 111 67 50 33; - 148 90 44 33 22]); - im4_n = 0.0398; - [out, n] = wiener2 (im4); - assert (out, im4_out) - assert (n, im4_n, 1e-4) + ntsc = rgb2ntsc (randi ([0 65535], 10, 10, 3, "uint16")); + assert (class (ntsc), "double"); + assert (size (ntsc), [10 10 3]); ***** test - im5 = zeros (100, 100); - im5(30, 30) = 1; - im5_out_center = [ - 0 0 0 0 0 0 0; - 0 0 0 0 0 0 0; - 0 0 0.0001 0.0001 0.0001 0 0; - 0 0 0.0001 0.9992 0.0001 0 0; - 0 0 0.0001 0.0001 0.0001 0 0; - 0 0 0 0 0 0 0; - 0 0 0 0 0 0 0]; - im5_n = 8.8889e-5; - [out, n] = wiener2 (im5); - out_center = out(27:33, 27:33); - assert (out_center, im5_out_center, 1e-4) - assert (n, im5_n, 1e-4) + ntsc = rgb2ntsc (randi ([-128 127], 10, 10, 3, "int8")); + assert (class (ntsc), "double"); + assert (size (ntsc), [10 10 3]); ***** test - im = zeros (100, 10, 10); - im(5, 5, 5) = 1; - - [out, n] = wiener2 (im, [3 3]); - expected_out = im; - expected_out(4:6,4:6,5) = [ - 0.0001 0.0001 0.0001 - 0.0001 0.9992 0.0001 - 0.0001 0.0001 0.0001]; - assert (out, expected_out, eps) - - [out, n] = wiener2 (im, [3 3 3]); - expected_out = im; - expected_out(4:6,4:6,4:6) = 0.0001; - expected_out(5,5,5) = 0.9974; - assert (out, expected_out, eps) - - ## Default in ND, use nhood 3 even for singleton dimensions. - assert (wiener2 (im), wiener2 (im, [3 3 3])) - - im = reshape (im, [100 10 1 10]); - expected_out = im; - expected_out(4:6,4:6,1,4:6) = 0.0001/3; - expected_out(5,5,1,5) = 1-(80*(0.0001/3)); - assert (wiener2 (im), wiener2 (im, [3 3 3 3])) - assert (wiener2 (im), expected_out, eps) + rgb_double = reshape ([1 0 0 0 0 1 0 0 0 0 1 0], [2 2 3]); + rgb_uint8 = reshape (uint8 ([255 0 0 0 0 255 0 0 0 0 255 0]), + [2 2 3]); + rgb_int16 = int16 (double (rgb_double * uint16 (65535)) -32768); + expected = reshape ([.299 .587 .114 0 .596 -.274 -.322 0 .211 -.523 .312 0], + [2 2 3]); - expected_out = im; - expected_out(4:6,4:6,1,4:6) = 0.0001; - expected_out(5,5,1,5) = 0.9974; - assert (wiener2 (im, [3 3 1 3]), expected_out, eps) -***** test - expected = [0.2222 0.3926 0.3926 0.3926 0.2222]; - assert (wiener2 (ones (1, 5)), expected, .0001) -***** assert (wiener2 ([]), []) -***** assert (wiener2 (logical ([0 0; 1 1])), true (2, 2)) -***** demo - I = phantom (); - J = imnoise (I, "gaussian", 0, 0.02); - figure, imshow (J); - title ("Image with added Gaussian noise"); - K = wiener2 (J, [5 5]); - figure, imshow (K); - title ("Image with noise reduced by wiener2 filtering"); -27 tests, 27 passed, 0 known failure, 0 skipped -[inst/rgb2ycbcr.m] ->>>>> /build/octave-image-2.12.0/inst/rgb2ycbcr.m -***** test - in(:,:,1) = magic (5); - in(:,:,2) = magic (5); - in(:,:,3) = magic (5); - out(:,:,1) = [31 37 17 23 29 - 36 20 22 28 30 - 19 21 27 33 35 - 25 26 32 34 19 - 25 31 37 18 24]; - out(:,:,2) = 128; - out(:,:,3) = 128; - assert (rgb2ycbcr (uint8 (in)), uint8 (out)); -***** shared cbcr - cbcr = 0.5019607843137255; - out(1:10, 1) = linspace (16/255, 235/255, 10); - out(:, [2 3]) = cbcr; - assert (rgb2ycbcr (gray (10)), out, 0.00001); -***** assert (rgb2ycbcr ([1 1 1]), [0.92157 cbcr cbcr], 0.0001); -***** assert (class (rgb2ycbcr (single (rand (5, 5, 3)))), "single") -3 tests, 3 passed, 0 known failure, 0 skipped + assert (rgb2ntsc (rgb_double), expected); + assert (rgb2ntsc (rgb_uint8), expected); + assert (rgb2ntsc (single (rgb_double)), single (expected)); +18 tests, 18 passed, 0 known failure, 0 skipped [inst/lab2uint8.m] >>>>> /build/octave-image-2.12.0/inst/lab2uint8.m ***** test @@ -7976,192 +6944,1435 @@ assert (lab2single (im2d_uint8), single (im2d)) assert (lab2single (imnd_uint8), single (imnd)) 1 test, 1 passed, 0 known failure, 0 skipped -[inst/imattributes.m] ->>>>> /build/octave-image-2.12.0/inst/imattributes.m -***** shared x, map, img, rgb, bw - [x, map] = imread ("default.img"); - rgb = ind2rgb (x, map); - img = ind2gray (x, map); - bw = im2bw (img); +[inst/imsharpen.m] +>>>>> /build/octave-image-2.12.0/inst/imsharpen.m ***** test - h = imshow (img); - a = imattributes (h); - assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); - assert (a.Class, "uint8"); - assert (a.("Image type"), "intensity"); - assert (a.("Minimum intensity"), uint8 (28)); - assert (a.("Maximum intensity"), uint8 (250)); + A = zeros (7, 7); + A(4,4) = 1; + B = [ + 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 + 0.00000 -0.00238 -0.01064 -0.01755 -0.01064 -0.00238 0.00000 + 0.00000 -0.01064 -0.04771 -0.07866 -0.04771 -0.01064 0.00000 + 0.00000 -0.01755 -0.07866 1.67032 -0.07866 -0.01755 0.00000 + 0.00000 -0.01064 -0.04771 -0.07866 -0.04771 -0.01064 0.00000 + 0.00000 -0.00238 -0.01064 -0.01755 -0.01064 -0.00238 0.00000 + 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; + assert (imsharpen (A), B, 5e-6) +***** test + A = zeros (7, 7); + A(4,4) = 1; + B = [ + -0.0035147 -0.0065663 -0.0095539 -0.0108259 -0.0095539 -0.0065663 -0.0035147 + -0.0065663 -0.0122674 -0.0178490 -0.0202255 -0.0178490 -0.0122674 -0.0065663 + -0.0095539 -0.0178490 -0.0259701 -0.0294280 -0.0259701 -0.0178490 -0.0095539 + -0.0108259 -0.0202255 -0.0294280 1.7666538 -0.0294280 -0.0202255 -0.0108259 + -0.0095539 -0.0178490 -0.0259701 -0.0294280 -0.0259701 -0.0178490 -0.0095539 + -0.0065663 -0.0122674 -0.0178490 -0.0202255 -0.0178490 -0.0122674 -0.0065663 + -0.0035147 -0.0065663 -0.0095539 -0.0108259 -0.0095539 -0.0065663 -0.0035147]; + assert (imsharpen (A, "radius", 2), B, 5e-8) +***** test + A = zeros (7, 7); + A(4,4) = 1; + assert (imsharpen (A, "radius", 0.01), A) +***** test + A = zeros (7, 7); + A(4,4) = 1; + B = A; + B(3:5,3:5) = -0.000000000011110; + B(3:5,4) = -0.000002981278097; + B(4,3:5) = -0.000002981278097; + B(4,4) = 1.000011925156828; + assert (imsharpen (A, "radius", 0.2), B, eps*10) +***** test + A = zeros (7, 7); + A(4,4) = 1; + B = [ + 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 + 0.00000 -0.00297 -0.01331 -0.02194 -0.01331 -0.00297 0.00000 + 0.00000 -0.01331 -0.05963 -0.09832 -0.05963 -0.01331 0.00000 + 0.00000 -0.02194 -0.09832 1.83790 -0.09832 -0.02194 0.00000 + 0.00000 -0.01331 -0.05963 -0.09832 -0.05963 -0.01331 0.00000 + 0.00000 -0.00297 -0.01331 -0.02194 -0.01331 -0.00297 0.00000 + 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; + assert (imsharpen (A, "amount", 1), B, 5e-6) +***** test + A = zeros (7, 7); + A(4,4) = 1; + B = zeros (7, 7); + B(4,4) = 1.670317742690299; + B(4,3) = -0.078656265079077; + B(3,4) = -0.078656265079077; + B(4,5) = -0.078656265079077; + B(5,4) = -0.078656265079077; + assert (imsharpen (A, "Threshold", 0.117341762), B, eps*10) +***** test + A = zeros (7, 7); + A(4,4) = 1; + B = zeros (7, 7); + B(4,4) = 1.670317742690299; + assert (imsharpen (A, "Threshold", 0.117341763), B, eps*10) +***** test + A = zeros (7, 7, "uint8"); + A(3:5,3:5) = 150; + B = zeros (7, 7, "uint8"); + B(3:5,3:5) = 211; + B(4,3:5) = 195; + B(3:5,4) = 195; + B(4,4) = 175; + assert (imsharpen (A), B) +***** test + A = zeros (7, 7, "uint8"); + A(3:5,3:5) = 100; + B = zeros (7, 7, "uint8"); + B(3:5,3:5) = 173; + assert (imsharpen (A, "radius", 4), B) +***** test + A = zeros (7, 7, 3, "uint8"); + A(4,4,:) = 255; + assert (imsharpen (A), A) ***** xtest - h = imshow (rgb); - a = imattributes (h); - assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); - assert (a.Class, "uint8"); - assert (a.("Image type"), "truecolor"); - assert (isfield (a, "Minimum intensity"), false); - assert (isfield (a, "Maximum intensity"), false); + A = zeros(7,7,3, "uint8"); + A(4,4,1) = 255; + B = A; + B(4,4,2) = 146; # Octave result is 145; + B(4,4,3) = 100; # Octave result is 99; + assert (imsharpen (A), B) !!!!! known failure -ASSERT errors for: assert (a.Class,"uint8") +ASSERT errors for: assert (imsharpen (A),B) Location | Observed | Expected | Reason - [] double uint8 Strings don't match + (4,4,2) 145 146 Abs err 1 exceeds tol 0 by 1 + (4,4,3) 99 100 Abs err 1 exceeds tol 0 by 1 +***** xtest + A = zeros (7, 7, 3, "uint8"); + A(3:5,3:5,1) = 100; + A(3:5,3:5,2) = 150; + B = A; + B(3:5,3:5,1) = 164; + B(3:5,4,1) = 146; # Octave result is 147 + B(4,3:5,1) = 146; # Octave result is 145 + B(4,4,1) = 125; # Octave result is 126 + B(3:5,3:5,2) = 213; + B(3:5,4,2) = 195; # Octave result is 196 + B(4,3:5,2) = 195; # Octave result is 196 + B(4,4,2) = 175; + B(3:5,3:5,3) = 79; + B(3:5,4,3) = 62; + B(4,3:5,3) = 62; + B(4,4,3) = 40; # Octave result is 39 + assert (imsharpen (A), B) +!!!!! known failure +ASSERT errors for: assert (imsharpen (A),B) + + Location | Observed | Expected | Reason + (4,3,1) 147 146 Abs err 1 exceeds tol 0 by 1 + (3,4,1) 147 146 Abs err 1 exceeds tol 0 by 1 + (4,4,1) 126 125 Abs err 1 exceeds tol 0 by 1 + (5,4,1) 147 146 Abs err 1 exceeds tol 0 by 1 + (4,5,1) 147 146 Abs err 1 exceeds tol 0 by 1 + (4,3,2) 196 195 Abs err 1 exceeds tol 0 by 1 + (3,4,2) 196 195 Abs err 1 exceeds tol 0 by 1 + (5,4,2) 196 195 Abs err 1 exceeds tol 0 by 1 + (4,5,2) 196 195 Abs err 1 exceeds tol 0 by 1 + (4,4,3) 39 40 Abs err 1 exceeds tol 0 by 1 +***** error imsharpen () +***** error imsharpen (ones (3, 3), "Radius") +***** error imsharpen (ones (3, 3), "Radius", 0) +***** error imsharpen (ones (3, 3), "Amount", -1) +***** error imsharpen (ones (3, 3), "Threshold", 1.5) +***** error imsharpen (ones (3, 3), "Threshold", -1) +***** error imsharpen (ones (3, 3), "foo") +***** error imsharpen ("foo") +20 tests, 18 passed, 2 known failures, 0 skipped +[inst/im2int16.m] +>>>>> /build/octave-image-2.12.0/inst/im2int16.m +***** assert (im2int16 (int16 ([-2 2 3])), int16 ([-2 2 3])); +***** assert (im2int16 (uint16 ([0 65535])), int16 ([-32768 32767])); +***** assert (im2int16 ([false true]), int16 ([-32768 32767])); +***** assert (im2int16 ([true false]), int16 ([32767 -32768])); +***** assert (im2int16 (uint8 ([0 127 128 255])), int16 ([-32768 -129 128 32767])); +***** assert (im2int16 ([0 1.4/65535 1.5/65535 2/65535 1]), int16 ([-32768 -32767 -32766 -32766 32767])); +***** assert (im2int16 ([0 0.5 1]), int16 ([-32768 0 32767])); +***** assert (im2int16 ([-1 0 1 2]), int16 ([-32768 -32768 32767 32767])); +***** error im2int16 ([1 2], "indexed"); +9 tests, 9 passed, 0 known failure, 0 skipped +[inst/imregionalmin.m] +>>>>> /build/octave-image-2.12.0/inst/imregionalmin.m ***** test - h = imshow (bw); - a = imattributes (h); - assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); - assert (a.Class, "logical"); - assert (a.("Image type"), "binary"); - assert (isfield (a, "Minimum intensity"), false); - assert (isfield (a, "Maximum intensity"), false); + a = [ + 7 3 9 3 10 3 + 4 2 3 10 1 3 + 1 4 6 9 4 10 + 8 7 9 3 4 8 + 5 9 3 3 8 9 + 3 6 9 4 1 10]; + + a4 = logical ([ + 0 0 0 1 0 0 + 0 1 0 0 1 0 + 1 0 0 0 0 0 + 0 0 0 1 0 0 + 0 0 1 1 0 0 + 1 0 0 0 1 0]); + assert (imregionalmin (a, 4), a4) + assert (imregionalmin (uint8 (a), 4), a4) + assert (imregionalmin (int8 (a), 4), a4) + + a8 = logical ([ + 0 0 0 0 0 0 + 0 0 0 0 1 0 + 1 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 0 + 1 0 0 0 1 0]); + assert (imregionalmin (a), a8) + assert (imregionalmin (a, 8), a8) + assert (imregionalmin (uint8 (a), 8), a8) + assert (imregionalmin (int8 (a), 8), a8) ***** test - h = imshow (x, map); - a = imattributes (h); - assert ([a.("Height (rows)") a.("Width (columns)")], [53 40]); - assert (a.Class, "uint8"); - assert (a.("Image type"), "indexed"); - assert (a.("Minimum intensity"), uint8 (0)); - assert (a.("Maximum intensity"), uint8 (55)); + a = [ + 4 8 5 -1 8 7 + -1 4 0 7 1 1 + 6 1 2 6 7 0 + 6 1 5 -2 5 9 + 1 4 -1 0 0 2 + 4 6 1 0 7 1]; + + a4 = logical ([ + 0 0 0 1 0 0 + 1 0 1 0 0 0 + 0 1 0 0 0 1 + 0 1 0 1 0 0 + 1 0 1 0 0 0 + 0 0 0 0 0 1]); + assert (imregionalmin (a, 4), a4) + assert (imregionalmin (int8 (a), 4), a4) + + a8 = logical ([ + 0 0 0 1 0 0 + 1 0 0 0 0 0 + 0 0 0 0 0 1 + 0 0 0 1 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 0]); + assert (imregionalmin (a), a8) + assert (imregionalmin (a, 8), a8) + assert (imregionalmin (int8 (a), 8), a8) ***** test - h = imshow (img); - a1 = imattributes (); - a2 = imattributes (h); - assert (a1, a2); -5 tests, 4 passed, 1 known failure, 0 skipped -[inst/imbothat.m] ->>>>> /build/octave-image-2.12.0/inst/imbothat.m -***** assert (imbothat (ones (3), [1 1; 0 1]), zeros (3)); -***** assert (imbothat (true (3), [1 1; 0 1]), false (3)); -***** shared in, out, se - in = [ 0 0 0 1 1 1 0 0 1 1 - 0 1 0 1 1 1 0 0 0 1 - 1 1 1 1 1 0 0 0 0 0 - 0 1 1 1 1 0 0 0 0 0 - 0 0 0 1 0 0 0 0 1 0 - 0 0 0 0 0 0 0 1 1 1 - 0 0 0 0 1 0 1 0 1 0 - 0 0 0 1 1 1 1 1 0 0 - 0 0 0 0 1 1 1 0 0 0 - 0 0 0 1 1 1 0 0 0 0]; + ## test float input images + im0 = peaks (); + im1 = im0 ./ 100; + max_pos_expected = [1; 49; 664; 1286; 1302; 2401]; + max0 = imregionalmin (im0); + max0_pos = find (max0); + max1 = imregionalmin (im1); + assert (max1, max0) + assert (max0_pos, max_pos_expected) +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/label2rgb.m] +>>>>> /build/octave-image-2.12.0/inst/label2rgb.m +***** function map = test_colormap () + map = [0 0 0; 0.5 0.5 0.5; 0.125 0.125 0.125]; +***** endfunction +***** shared in, out, cmap + in = [ 0 1 1 0 2 2 0 3 3 + 0 1 1 0 2 2 0 3 3]; - out = [ 1 1 1 0 0 0 1 1 0 0 - 1 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 1 - 1 0 0 0 0 0 0 0 0 1 - 0 0 0 0 1 0 0 0 0 1 - 0 0 0 1 1 1 1 0 0 0 - 0 0 0 1 0 1 0 1 0 1 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 1 0 0 0]; -***** assert (imbothat (logical (in), ones (3)), logical (out)); + out = [255 0 0 255 128 128 255 32 32 + 255 0 0 255 128 128 255 32 32]; + out(:,:,2) = out(:,:,3) = out(:,:,1); + out = uint8(out); - out = [ 7 0 15 8 1 6 0 13 6 24 - 0 8 9 2 0 0 16 7 0 23 - 89 7 0 41 39 7 12 7 0 23 - 8 1 69 40 58 1 6 2 0 43 - 7 0 63 59 52 0 0 0 14 32 - 62 55 6 7 0 7 0 23 16 1 - 56 74 0 2 0 0 16 14 7 0 - 0 73 69 0 0 19 15 8 1 0 - 8 6 0 0 6 13 9 2 0 6 - 7 0 0 19 0 14 7 0 23 0]; -***** assert (imbothat (magic (10), ones (3)), out); -***** assert (imbothat (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); + cmap = [0 0 0; 0.5 0.5 0.5; 0.125 0.125 0.125]; +***** assert (label2rgb (in, cmap), out); +***** assert (label2rgb (uint8 (in), cmap), out); +***** assert (label2rgb (in, "test_colormap"), out); +***** assert (label2rgb (in, @test_colormap), out); - ## using a se that will be decomposed in 2 pieces - out =[ 7 0 87 66 59 7 0 19 12 30 - 0 13 81 60 58 1 19 13 6 29 - 89 12 0 54 52 20 18 7 0 23 - 8 6 69 53 71 14 12 2 0 43 - 7 0 63 73 66 14 7 0 23 41 - 76 69 14 7 0 30 23 46 39 7 - 70 88 9 2 0 24 42 40 33 6 - 14 87 80 0 0 43 41 34 27 0 - 84 82 0 0 19 37 35 28 26 19 - 89 82 0 20 13 36 29 22 45 13]; -***** assert (imbothat (magic (10), ones(5)), out); + out(find (in == 0)) = 0; +***** assert (label2rgb (in, cmap, "cyan"), out); +***** assert (label2rgb (in, cmap, [0 1 1]), out); - ## using a weird non-symmetric and even-size se - out =[ 0 0 15 8 1 3 0 7 0 18 - 0 8 53 59 0 0 14 13 0 17 - 84 0 0 40 38 6 13 6 0 23 - 2 0 42 47 58 0 6 0 0 41 - 0 0 62 59 52 0 0 0 16 35 - 6 58 13 6 0 3 19 19 35 1 - 0 18 0 0 0 0 15 13 6 0 - 0 17 69 0 0 17 17 8 0 0 - 8 67 0 0 0 15 9 2 0 6 - 7 0 0 17 10 42 7 0 19 0]; -***** assert (imbothat (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); + in(1) = 10; +***** error label2rgb (in, cmap); +***** error label2rgb (in, cmap, 89); +***** error label2rgb (in, cmap, "g", "wrong"); +9 tests, 9 passed, 0 known failure, 0 skipped +[inst/cp2tform.m] +>>>>> /build/octave-image-2.12.0/inst/cp2tform.m +***** function [crw, cap] = coords (npt = 1000, scale = 2, dtheta = pi/3, + dx = 2, dy = -6, sig2noise = 1e32) + theta = (rand(npt, 1)*2-1)*2*pi; + R = rand(npt,1); + y = R.*sin(theta); + x = R.*cos(theta); + crw = [y x]; - ## N dimensional and weird se - in = reshape (magic(16), [4 8 4 2]); - se = ones (3, 3, 3); - se(:,:,1) = [1 0 1; 0 1 1; 0 0 0]; - se(:,:,3) = [1 0 1; 0 1 1; 0 0 1]; - out = zeros (size (in)); - out(:,:,1,1) = [ - 0 17 81 145 237 146 64 0 - 205 128 64 0 0 37 83 147 - 175 111 47 0 0 64 117 181 - 0 64 128 209 173 109 45 0]; - out(:,:,2,1) = [ - 235 142 78 18 0 23 69 133 - 0 35 103 163 215 128 46 0 - 0 64 128 195 183 123 48 0 - 153 93 43 0 14 78 146 215]; - out(:,:,3,1) = [ - 0 25 89 153 229 142 64 0 - 201 128 64 0 0 41 91 155 - 167 103 57 0 0 64 125 189 - 0 64 146 217 165 101 37 0]; - out(:,:,4,1) = [ - 227 142 78 14 0 31 77 141 - 0 43 107 171 211 128 46 0 - 0 64 128 203 179 115 48 0 - 149 99 35 0 18 82 146 223]; - out(:,:,1,2) = [ - 0 33 97 161 221 146 64 0 - 189 125 61 0 0 53 99 163 - 159 95 31 0 0 64 128 197 - 0 64 128 225 157 93 29 0]; - out(:,:,2,2) = [ - 219 142 78 18 0 39 85 149 - 0 51 119 179 199 128 46 0 - 0 64 128 211 167 107 43 0 - 137 77 27 0 14 78 146 231]; - out(:,:,3,2) = [ - 0 41 105 169 213 142 64 0 - 185 121 64 0 0 57 107 171 - 151 87 41 0 0 64 128 205 - 0 64 146 233 149 85 21 0]; - out(:,:,4,2) = [ - 211 142 78 14 0 47 93 157 - 0 59 123 187 195 128 46 0 - 0 64 128 219 163 99 35 0 - 133 83 19 0 18 82 146 239]; -***** assert (imbothat (in, se), out); -8 tests, 8 passed, 0 known failure, 0 skipped -[inst/@imref3d/worldToIntrinsic.m] ->>>>> /build/octave-image-2.12.0/inst/@imref3d/worldToIntrinsic.m -***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d) -***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d, 1, 2) -***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d, 1, 2, 3, 4) -***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1j, 2, 3) -***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1, 2j, 3) -***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1, 2, 3j) -***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, [1, 2], 3, 4) -***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, 1, [2, 3], 4) -***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, 1, 2, [3, 4]) -***** test - r = imref3d ([128, 128, 27], 2, 2, 4); - xW = [108, 108, 108.2, 2]; - yW = [92, 92, 92, -1]; - zW = [52, 55, 52, 0.33]; - [xI, yI, zI] = worldToIntrinsic (r, xW, yW, zW); - assert (xI, [54, 54, 54.1, 1], 1e-6) - assert (yI, [46, 46, 46, -0.5], 1e-6) - assert (zI, [13, 13.75, 13, 0.0825], 1e-6) + thetap = theta + dtheta; + Rap = R * scale; + + yap = Rap.*sin(thetap); + yap = yap + dy; + yap = yap + rand (size (yap)) * norm (yap) / sig2noise; + + xap = Rap.*cos(thetap); + xap = xap + dx; + xap = xap + rand (size (xap)) * norm (xap) / sig2noise; + cap = [yap xap]; +***** endfunction +***** test + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'projective'; + T = cp2tform (crw, cap, ttype); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) +***** test + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'affine'; + T = cp2tform (crw, cap, ttype); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) +***** xtest + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'nonreflective similarity'; + T = cp2tform (crw, cap, ttype); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < 2*eps, "norm = %3.2e ( > 2*eps)", finalerr) +***** test + npt = 100000; + [crw, cap] = coords (npt); + cap(:,2) *= -1; % reflection around y axis + ttype = 'similarity'; + T = cp2tform (crw, cap, ttype); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < 3*eps, "norm = %3.2e ( > 3*eps)", finalerr) +***** xtest + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'polynomial'; + ord = 2; + T = cp2tform (crw, cap, ttype, ord); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < eps, "norm = %3.2e ( > eps)", finalerr) +***** xtest + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'polynomial'; + ord = 3; + T = cp2tform (crw, cap, ttype, ord); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < eps, "norm = %3.2e ( > eps)", finalerr) +***** xtest + npt = 100000; + [crw, cap] = coords (npt); + ttype = 'polynomial'; + ord = 4; + T = cp2tform (crw, cap, ttype, ord); + crw2 = tforminv (T, cap); + finalerr = norm (crw - crw2)/npt; + assert (finalerr < 6*eps, "norm = %3.2e ( > 6*eps)", finalerr) +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/immultiply.m] +>>>>> /build/octave-image-2.12.0/inst/immultiply.m +***** assert (immultiply (uint8 ([255 50]), uint16 ([300 50])), uint8 ([255 255])); # default to first class and truncate +***** assert (immultiply (uint8 ([250 50]), uint16 ([ 3 4]), "uint32"), uint32 ([750 200])); # defining output class works (not in matlab?) +***** assert (immultiply (uint8 ([255 50]), 4), uint8 ([255 200])); # works multiplying by a scalar +***** assert (immultiply (logical ([ 1 0]), uint16 ([300 50])), uint16 ([300 0])); # output class defaults to whatever input is not logical +***** assert (immultiply (logical ([ 1 0]), logical ([ 1 1])), double ([ 1 0])); # tested on matlab for compatibility +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/bwpack.m] +>>>>> /build/octave-image-2.12.0/inst/bwpack.m +***** error id=Octave:invalid-fun-call bwpack () +***** error id=Octave:invalid-input-arg bwpack ("text") +***** xtest + ## bug #55521 + assert (bwpack (eye (5)), uint32 ([1 2 4 8 16])) +***** xtest + ## bug #55521 + assert (bwpack (repmat (eye (4), 15, 1)), + uint32 ([286331153 572662306 1145324612 2290649224 + 17895697 35791394 71582788 143165576])) +***** xtest + ## bug #55521 + assert (bwpack (ones (3, 3, 3, 3)), repmat (uint32 (7), 1, 3, 3, 3)) +***** assert (bwpack (false (0, 10)), uint32 (zeros (0, 10))) +***** assert (bwpack (false (0, 0)), uint32 (zeros (0, 0))) +***** assert (bwpack (false (32, 0)), uint32 (zeros (1, 0))) +***** assert (bwpack (false (33, 0)), uint32 (zeros (2, 0))) +***** assert (bwpack (false (0, 10, 3)), uint32 (zeros (0, 10, 3))) +***** assert (bwpack (false (33, 0, 3)), uint32 (zeros (2, 0, 3))) +***** assert (bwpack (i), bwpack (logical (i))) +12 tests, 12 passed, 0 known failure, 0 skipped +[inst/qtsetblk.m] +>>>>> /build/octave-image-2.12.0/inst/qtsetblk.m +***** demo + J=qtsetblk(eye(4),qtdecomp(eye(4)),2,ones(2,2,2)) + % Sets upper-right and lower-left blocks of 2*2 zeros to ones +***** shared A, S + A=[ 1, 4, 2, 5,54,55,61,62; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 23,42,42,42,99,99,99,99; + 27,42,42,42,99,99,99,99; + 23,22,26,25,99,99,99,99; + 22,22,24,22,99,99,99,99]; + S = qtdecomp (A, 10); +***** test + R=A; + vals=zeros(4,4,2); + vals(:,:,1)=reshape([1:16],4,4); + vals(:,:,2)=reshape([21:36],4,4); + R(1:4,1:4)=reshape([1:16],4,4); + R(5:8,5:8)=reshape([21:36],4,4); + assert(qtsetblk(A,S,4,vals),R); +***** test + R=A; + R(1:4,5:8)=1; + R(7:8,1:4)=1; + R(5:6,3:4)=1; + assert(qtsetblk(A,S,2,ones(2,2,7)),R); +***** test + R=A; + R(5:6,1:2)=10; + assert(qtsetblk(A,S,1,ones(1,1,4)*10),R); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/im2col.m] +>>>>> /build/octave-image-2.12.0/inst/im2col.m +***** demo + ## Divide A using distinct blocks and then reverse the operation + A = [ 1:10 + 11:20 + 21:30 + 31:40]; + B = im2col (A, [2 5], "distinct") + C = col2im (B, [2 5], [4 10], "distinct") +***** test + a = rand (10); + assert (im2col (a, [5 5]), im2col (a, [5 5], "sliding")) +***** test + a = rand (10); + assert (im2col (a, [5 5]), im2col (a, "indexed", [5 5])) +***** error im2col (rand (20), [2 5], 10) +***** error im2col (rand (20), [2 5], "wrong_block_type") +***** error im2col (rand (10), [5 5], "sliding", 5) +***** error im2col (rand (10), "indexed", [5 5], "sliding", 5) +***** shared B, A, Bs, As, Ap, Bp0, Bp1, Bp0_3s + v = [1:10]'; + r = reshape (v, 2, 5); + B = [v v+20 v+40 v+10 v+30 v+50]; + A = [r r+10; r+20 r+30; r+40 r+50]; + As = [ 1 2 3 4 5 + 6 7 8 9 10 + 11 12 13 14 15]; + b1 = As(1:2, 1:4)(:); + b2 = As(2:3, 1:4)(:); + b3 = As(1:2, 2:5)(:); + b4 = As(2:3, 2:5)(:); + Bs = [b1, b2, b3, b4]; + Ap = A(:, 1:9); + Bp1 = Bp0 = B; + Bp0(9:10, 4:6) = 0; + Bp1(9:10, 4:6) = 1; + Bp0_3s = Bp0; + Bp0_3s(11:30, :) = 0; +***** assert (im2col (A, [2 5], "distinct"), B); +***** assert (im2col (Ap, [2 5], "distinct"), Bp0); +***** assert (im2col (Ap, [2 5 3], "distinct"), Bp0_3s); +***** assert (im2col (Ap, "indexed", [2 5], "distinct"), Bp1); +***** assert (im2col (uint8 (Ap), "indexed", [2 5], "distinct"), uint8 (Bp0)); +***** assert (im2col (uint16 (Ap), "indexed", [2 5], "distinct"), uint16 (Bp0)); +***** assert (im2col (int16 (Ap), "indexed", [2 5], "distinct"), int16 (Bp1)); +***** assert (im2col (uint32 (Ap), "indexed", [2 5], "distinct"), uint32 (Bp1)); +***** assert (im2col (uint8 (A), [2 5], "distinct"), uint8 (B)); +***** assert (im2col (single (A), [2 5], "distinct"), single (B)); +***** assert (im2col (logical (A), [2 5], "distinct"), logical (B)); +***** assert (im2col (uint8 (As), [2 4], "sliding"), uint8 (Bs)); +***** assert (im2col (single (As), [2 4], "sliding"), single (Bs)); +***** assert (im2col (logical (As), [2 4], "sliding"), logical (Bs)); +***** assert (im2col (As, [2 4], "sliding"), Bs); +***** assert (im2col (As, [3 5], "sliding"), As(:)); +***** test + A = randi (9, 10, 9, 5); +***** assert (convn (A, ones (3, 3, 3), "valid"), + reshape (sum (im2col (A, [3 3 3])), [8 7 3])); + + A = randi (9, 10, 9, 5, 7); +***** assert (convn (A, ones (3, 3, 3), "valid"), + reshape (sum (im2col (A, [3 3 3])), [8 7 3 7])); +***** assert (convn (A, ones (3, 4, 3), "valid"), + reshape (sum (im2col (A, [3 4 3])), [8 6 3 7])); +***** assert (convn (A, ones (3, 5, 3, 2), "valid"), + reshape (sum (im2col (A, [3 5 3 2])), [8 5 3 6])); +***** assert (im2col (1:8, [2 1]), zeros (2, 0)) +28 tests, 28 passed, 0 known failure, 0 skipped +[inst/fspecial.m] +>>>>> /build/octave-image-2.12.0/inst/fspecial.m +***** test + for i = 1:9 + n = 2^i; + assert (sum (fspecial ("disk", n)(:)), 1, eps*n*n); + endfor +***** test + for r = [3 5 9 17] + f = fspecial ("disk", r); + [X, Y] = meshgrid (-r:r, -r:r); + rhi = (abs (X) + 0.5).^2 + (abs (Y) + 0.5).^2; + rlo = (abs (X) - 0.5).^2 + (abs (Y) - 0.5).^2; + fhi = (rhi <= (r^2)); + flo = (rlo >= (r^2)); + for i = 1:(2*r+1) + for j = 1:(2*r+1) + if (fhi(i,j)) + assert (f(i,j), 1/(pi*r^2), eps); + endif + if (flo(i,j)) + assert (f(i,j), 0); + endif + endfor + endfor + endfor +***** error + fspecial ("gaussian", 0) +***** error + fspecial ("gaussian", 3.9) +***** assert (fspecial ("gaussian"), fspecial ("gaussian", 3, 0.5)) +***** assert (fspecial ("gaussian"), fspecial ("gaussian", [3 3], 0.5)) +***** test + c = ([-1:1].^2) .+ ([-1:1]'.^2); + gauss = exp (- (c ./ (2 * (0.5 .^ 2)))); + f = gauss / sum (gauss(:)); + assert (fspecial ("gaussian"), f) + + expected = [ + 0.01134373655849507 0.08381950580221061 0.01134373655849507 + 0.08381950580221061 0.61934703055717721 0.08381950580221061 + 0.01134373655849507 0.08381950580221061 0.01134373655849507]; + assert (f, expected, eps) +***** function f = f_gaussian_2d (hsize, sigma) + c = ([(-hsize(1)):(hsize(1))]'.^2) .+ ([(-hsize(2)):(hsize(2))].^2); + gauss = exp (- (c ./ (2 * (sigma .^ 2)))); + f = gauss ./ sum (gauss(:)); +***** endfunction +***** test + f = fspecial ("gaussian"); + assert (f, f_gaussian_2d ([1 1], .5)) + expected = [ + 0.01134373655849507 0.08381950580221061 0.01134373655849507 + 0.08381950580221061 0.61934703055717721 0.08381950580221061 + 0.01134373655849507 0.08381950580221061 0.01134373655849507]; + assert (f, expected, eps) +***** test + f = fspecial ("gaussian", 7, 2); + assert (f, f_gaussian_2d ([3 3], 2)) + expected = [ + 0.00492233115934352 + 0.00919612528958620 + 0.01338028334410124 + 0.01516184737296414 + 0.01338028334410124 + 0.00919612528958620 + 0.00492233115934352 + 0.00919612528958620 + 0.01718062389630964 + 0.02499766026691484 + 0.02832606006174462 + 0.02499766026691484 + 0.01718062389630964 + 0.00919612528958620 + 0.01338028334410124 + 0.02499766026691484 + 0.03637138107390363 + 0.04121417419979795 + 0.03637138107390363 + 0.02499766026691484 + 0.01338028334410124 + 0.01516184737296414 + 0.02832606006174462 + 0.04121417419979795 + 0.04670177773892775]; + expected = reshape ([expected; expected((end-1):-1:1)], [7 7]); + assert (f, expected, eps) +***** test + f = fspecial ("gaussian", [7 5], 2); + assert (f, f_gaussian_2d ([3 2], 2)) + expected = [ + 0.01069713252648568 + 0.01998487459872362 + 0.02907782096336423 + 0.03294948784319031 + 0.02907782096336423 + 0.01998487459872362 + 0.01069713252648568 + 0.01556423598706978 + 0.02907782096336423 + 0.04230797985750011 + 0.04794122192790870 + 0.04230797985750011 + 0.02907782096336423 + 0.01556423598706978 + 0.01763658993191515 + 0.03294948784319031 + 0.04794122192790870 + 0.05432452146574315]; + expected = reshape ([expected; expected((end-1):-1:1)], [7 5]); + assert (f, expected, eps) +***** test + f = fspecial ("gaussian", [4 2], 2); + expected = [0.10945587477855045 0.14054412522144952]; + expected = expected([1 1; 2 2; 2 2; 1 1]); + assert (f, expected, eps) +***** test + expected =[0.04792235409415088 0.06153352068439959 0.07901060453704994]; + expected = expected([1 2 2 1; 2 3 3 2; 2 3 3 2; 1 2 2 1]); + assert (fspecial ("gaussian", 4, 2), expected) +***** function f = f_gaussian_3d (lengths, sigma) + [x, y, z] = ndgrid (-lengths(1):lengths(1), -lengths(2):lengths(2), + -lengths(3):lengths(3)); + sig_22 = 2 * (sigma.^2); + f = exp (-((x.^2)/sig_22 + (y.^2)/sig_22 + (z.^2)/sig_22)); + f = f / sum (f(:)); +***** endfunction +***** test + obs = fspecial ("gaussian", [5 5 5]); + assert (obs, f_gaussian_3d ([2 2 2], .5)) + + u_values = [ + 0.00000000001837155 + 0.00000000741161178 + 0.00000005476481523 + 0.00000299005759843 + 0.00002209370333384 + 0.00016325161336690 + 0.00120627532940896 + 0.00891323607975882 + 0.06586040141635063 + 0.48664620076350640]; + expected = zeros (5, 5, 5); + expected([1 5 21 25 101 105 121 125]) = u_values(1); + expected([2 4 6 10 16 20 22 24 26 30 46 50 76 80 96 100 102 104 106 110 116 120 122 124]) = u_values(2); + expected([3 11 15 23 51 55 71 75 103 111 115 123]) = u_values(3); + expected([7 9 17 19 27 29 31 35 41 45 47 49 77 79 81 85 91 95 97 99 107 109 117 119]) = u_values(4); + expected([8 12 14 18 28 36 40 48 52 54 56 60 66 70 72 74 78 86 90 98 108 112 114 118]) = u_values(5); + expected([13 53 61 65 73 113]) = u_values(6); + expected([32 34 42 44 82 84 92 94]) = u_values(7); + expected([33 37 39 43 57 59 67 69 83 87 89 93]) = u_values(8); + expected([38 58 62 64 68 88]) = u_values(9); + expected([63]) = u_values(10); + assert (obs, expected, 4 * eps) +***** test + obs = fspecial ("gaussian", [5 5 5], 1); + assert (obs, f_gaussian_3d ([2 2 2], 1)) + + u_values = [ + 0.00016177781678373 + 0.00072503787330278 + 0.00119538536377748 + 0.00324939431236223 + 0.00535734551968363 + 0.00883276951279243 + 0.01456277497493249 + 0.02400995686159072 + 0.03958572658629712 + 0.06526582943894763]; + expected = zeros (5, 5, 5); + expected([1 5 21 25 101 105 121 125]) = u_values(1); + expected([2 4 6 10 16 20 22 24 26 30 46 50 76 80 96 100 102 104 106 110 116 120 122 124]) = u_values(2); + expected([3 11 15 23 51 55 71 75 103 111 115 123]) = u_values(3); + expected([7 9 17 19 27 29 31 35 41 45 47 49 77 79 81 85 91 95 97 99 107 109 117 119]) = u_values(4); + expected([8 12 14 18 28 36 40 48 52 54 56 60 66 70 72 74 78 86 90 98 108 112 114 118]) = u_values(5); + expected([13 53 61 65 73 113]) = u_values(6); + expected([32 34 42 44 82 84 92 94]) = u_values(7); + expected([33 37 39 43 57 59 67 69 83 87 89 93]) = u_values(8); + expected([38 58 62 64 68 88]) = u_values(9); + expected([63]) = u_values(10); + assert (obs, expected, eps) +***** test + obs = fspecial ("gaussian", [3 4 1 5], 3); + assert (find (obs == max (obs(:))), [29; 32]) + assert (size (obs), [3 4 1 5]) + assert (obs(:)(1:30), obs(:)(end:-1:31)) +***** test + f = repmat (1/9, [3 3]); + assert (fspecial ("average", [3 3]), f) + + ## Test default + assert (fspecial ("average"), fspecial ("average", [3 3])) + assert (fspecial ("average"), fspecial ("average", [3])) + + f = repmat (1/21, [3 7]); + assert (fspecial ("average", [3 7]), f) + + f = repmat (1/40, [4 5 1 2]); + assert (fspecial ("average", [4 5 1 2]), f) + ## Behave even if it's a column vector + assert (fspecial ("average", [4 5 1 2]'), f) +16 tests, 16 passed, 0 known failure, 0 skipped +[inst/ycbcr2rgb.m] +>>>>> /build/octave-image-2.12.0/inst/ycbcr2rgb.m +***** assert (ycbcr2rgb (rgb2ycbcr (jet (10))), jet (10), 0.00001); +***** assert (class (ycbcr2rgb (single (rand (5, 5, 3)))), "single") +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/isrgb.m] +>>>>> /build/octave-image-2.12.0/inst/isrgb.m +***** assert (isrgb ("this is not a RGB image"), false); +***** assert (isrgb (rand (5, 5)), false); +***** assert (isrgb (rand (5, 5, 1, 5)), false); +***** assert (isrgb (rand (5, 5, 3, 5)), true); +***** assert (isrgb (rand (5, 5, 3)), true); +***** assert (isrgb (ones (5, 5, 3)), true); +***** assert (isrgb (ones (5, 5, 3) + eps), false); +***** assert (isrgb (zeros (5, 5, 3) - eps), false); +***** assert (isrgb (rand (5, 5, 3) > 0.5), false); +***** assert (isrgb (randi ([-100 100], 5, 5, 3, "int16")), true) 10 tests, 10 passed, 0 known failure, 0 skipped +[inst/roicolor.m] +>>>>> /build/octave-image-2.12.0/inst/roicolor.m +***** demo + roicolor([1:10],2,4); + % Returns '1' where input values are between 2 and 4 (both included). +***** assert(roicolor([1:10],2,4),logical([0,1,1,1,zeros(1,6)])); +***** assert(roicolor([1,2;3,4],3,3),logical([0,0;1,0])); +***** assert(roicolor([1,2;3,4],[1,4]),logical([1,0;0,1])); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/edgetaper.m] +>>>>> /build/octave-image-2.12.0/inst/edgetaper.m +***** assert (class (edgetaper (rand (100), rand (16))), "double") +***** assert (class (edgetaper (randi (255, 100, "uint8"), rand (16))), "uint8") +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/imresize.m] +>>>>> /build/octave-image-2.12.0/inst/imresize.m +***** test + in = [116 227 153 69 146 194 59 130 139 106 + 2 47 137 249 90 75 16 24 158 44 + 155 68 46 84 166 156 69 204 32 152 + 71 221 137 230 210 153 192 115 30 118 + 107 143 108 52 51 73 101 21 175 90 + 54 158 143 77 26 168 113 229 165 225 + 9 47 133 135 130 207 236 43 19 73]; + assert (imresize (uint8 (in), 1, "nearest"), uint8 (in)) + assert (imresize (uint8 (in), 1, "bicubic"), uint8 (in)) + + out = [116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 + 116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 + 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 + 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 + 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 + 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 + 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 + 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 + 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 + 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 + 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 + 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 + 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73 + 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73]; + assert (imresize (uint8 (in), 2, "nearest"), uint8 (out)) + assert (imresize (uint8 (in), 2, "neAreST"), uint8 (out)) + assert (imresize (uint8 (in), [14 NaN], "nearest"), uint8 (out)) + assert (imresize (uint8 (in), [NaN 20], "nearest"), uint8 (out)) + + out = [116 116 227 227 153 153 69 69 146 146 194 194 59 59 130 130 139 139 106 106 + 2 2 47 47 137 137 249 249 90 90 75 75 16 16 24 24 158 158 44 44 + 155 155 68 68 46 46 84 84 166 166 156 156 69 69 204 204 32 32 152 152 + 71 71 221 221 137 137 230 230 210 210 153 153 192 192 115 115 30 30 118 118 + 107 107 143 143 108 108 52 52 51 51 73 73 101 101 21 21 175 175 90 90 + 54 54 158 158 143 143 77 77 26 26 168 168 113 113 229 229 165 165 225 225 + 9 9 47 47 133 133 135 135 130 130 207 207 236 236 43 43 19 19 73 73]; + assert (imresize (uint8 (in), [7 20], "nearest"), uint8 (out)) + + assert (imresize (uint8 (in), 1.5, "bicubic"), imresize (uint8 (in), 1.5, "cubic")) + assert (imresize (uint8 (in), [NaN, size(in,2)*1.5], "bicubic"), imresize (uint8 (in), 1.5, "cubic")) + assert (imresize (uint8 (in), [size(in,1)*1.5, NaN], "bicubic"), imresize (uint8 (in), 1.5, "cubic")) + assert (imresize (uint8 (in), 1.5, "linear"), imresize (uint8 (in), 1.5, "LIneAR")) + assert (imresize (uint8 (in), 1.5, "linear"), imresize (uint8 (in), 1.5, "triangle")) + + out = [ 47 249 75 24 44 + 221 230 153 115 118 + 158 77 168 229 225 + 47 135 207 43 73]; + assert (imresize (uint8 (in), 0.5, "nearest"), uint8 (out)) +***** assert (imresize (repmat (5, [3 3]), 2), repmat (5, [6 6]), eps*100) +***** assert (imresize (repmat (5, [3 3 2]), 2), repmat (5, [6 6 2]), eps*100) +***** shared in + in = [116 227 153 69 146 194 59 130 139 106 + 2 47 137 249 90 75 16 24 158 44 + 155 68 46 84 166 156 69 204 32 152 + 71 221 137 230 210 153 192 115 30 118 + 107 143 108 52 51 73 101 21 175 90 + 54 158 143 77 26 168 113 229 165 225 + 9 47 133 135 130 207 236 43 19 73]; +***** xtest + out = [116 185 235 171 96 64 134 189 186 74 90 141 140 124 108 + 44 92 143 149 164 163 119 123 118 44 38 80 151 118 63 + 14 21 47 107 195 228 115 81 70 24 19 56 137 105 49 + 145 98 49 49 71 107 148 159 132 58 124 176 61 85 145 + 118 139 144 92 116 168 201 188 159 140 167 158 27 69 152 + 62 151 218 145 174 219 201 164 146 187 148 84 48 76 115 + 102 132 151 119 90 72 72 72 83 114 60 31 144 130 81 + 82 121 154 133 87 41 19 67 116 95 108 140 183 180 164 + 40 96 152 149 117 74 34 108 179 131 175 215 153 177 219 + 11 33 73 127 137 125 113 158 212 229 148 55 35 63 96 + 4 17 53 121 141 138 133 171 220 253 141 16 7 36 67]; + assert (imresize (uint8 (in), 1.5, "bicubic"), uint8 (out)) +!!!!! known failure +ASSERT errors for: assert (imresize (uint8 (in), 1.5, "bicubic"),uint8 (out)) + + Location | Observed | Expected | Reason + (2,1) 18 44 Abs err 26 exceeds tol 0 by 3e+01 + (3,1) 18 14 Abs err 4 exceeds tol 0 by 4 + (4,1) 139 145 Abs err 6 exceeds tol 0 by 6 + (5,1) 125 118 Abs err 7 exceeds tol 0 by 7 + (6,1) 71 62 Abs err 9 exceeds tol 0 by 9 + (7,1) 94 102 Abs err 8 exceeds tol 0 by 8 + (8,1) 103 82 Abs err 21 exceeds tol 0 by 2e+01 + (9,1) 66 40 Abs err 26 exceeds tol 0 by 3e+01 + (10,1) 35 11 Abs err 24 exceeds tol 0 by 2e+01 + (11,1) 9 4 Abs err 5 exceeds tol 0 by 5 + (1,2) 211 185 Abs err 26 exceeds tol 0 by 3e+01 + (2,2) 65 92 Abs err 27 exceeds tol 0 by 3e+01 + (3,2) 32 21 Abs err 11 exceeds tol 0 by 1e+01 + (4,2) 78 98 Abs err 20 exceeds tol 0 by 2e+01 + (5,2) 132 139 Abs err 7 exceeds tol 0 by 7 + (6,2) 199 151 Abs err 48 exceeds tol 0 by 5e+01 + (7,2) 160 132 Abs err 28 exceeds tol 0 by 3e+01 + (8,2) 139 121 Abs err 18 exceeds tol 0 by 2e+01 + (9,2) 142 96 Abs err 46 exceeds tol 0 by 5e+01 + (10,2) 116 33 Abs err 83 exceeds tol 0 by 8e+01 + (11,2) 29 17 Abs err 12 exceeds tol 0 by 1e+01 + (1,3) 217 235 Abs err 18 exceeds tol 0 by 2e+01 + (2,3) 99 143 Abs err 44 exceeds tol 0 by 4e+01 + (3,3) 65 47 Abs err 18 exceeds tol 0 by 2e+01 + (4,3) 56 49 Abs err 7 exceeds tol 0 by 7 + (5,3) 114 144 Abs err 30 exceeds tol 0 by 3e+01 + (6,3) 204 218 Abs err 14 exceeds tol 0 by 1e+01 + (7,3) 162 151 Abs err 11 exceeds tol 0 by 1e+01 + (8,3) 140 154 Abs err 14 exceeds tol 0 by 1e+01 + (9,3) 155 152 Abs err 3 exceeds tol 0 by 3 + (10,3) 140 73 Abs err 67 exceeds tol 0 by 7e+01 + (11,3) 72 53 Abs err 19 exceeds tol 0 by 2e+01 + (1,4) 159 171 Abs err 12 exceeds tol 0 by 1e+01 + (2,4) 142 149 Abs err 7 exceeds tol 0 by 7 + (3,4) 118 107 Abs err 11 exceeds tol 0 by 1e+01 + (4,4) 54 49 Abs err 5 exceeds tol 0 by 5 + (5,4) 79 92 Abs err 13 exceeds tol 0 by 1e+01 + (6,4) 138 145 Abs err 7 exceeds tol 0 by 7 + (7,4) 121 119 Abs err 2 exceeds tol 0 by 2 + (8,4) 115 133 Abs err 18 exceeds tol 0 by 2e+01 + (9,4) 141 149 Abs err 8 exceeds tol 0 by 8 + (10,4) 144 127 Abs err 17 exceeds tol 0 by 2e+01 + (11,4) 132 121 Abs err 11 exceeds tol 0 by 1e+01 + (1,5) 94 96 Abs err 2 exceeds tol 0 by 2 + (2,5) 198 164 Abs err 34 exceeds tol 0 by 3e+01 + (3,5) 198 195 Abs err 3 exceeds tol 0 by 3 + (4,5) 77 71 Abs err 6 exceeds tol 0 by 6 + (5,5) 108 116 Abs err 8 exceeds tol 0 by 8 + (6,5) 193 174 Abs err 19 exceeds tol 0 by 2e+01 + (7,5) 113 90 Abs err 23 exceeds tol 0 by 2e+01 + (8,5) 73 87 Abs err 14 exceeds tol 0 by 1e+01 + (9,5) 102 117 Abs err 15 exceeds tol 0 by 2e+01 + (10,5) 118 137 Abs err 19 exceeds tol 0 by 2e+01 + (11,5) 135 141 Abs err 6 exceeds tol 0 by 6 + (1,6) 76 64 Abs err 12 exceeds tol 0 by 1e+01 + (2,6) 206 163 Abs err 43 exceeds tol 0 by 4e+01 + (3,6) 217 228 Abs err 11 exceeds tol 0 by 1e+01 + (4,6) 113 107 Abs err 6 exceeds tol 0 by 6 + (5,6) 147 168 Abs err 21 exceeds tol 0 by 2e+01 + (6,6) 229 219 Abs err 10 exceeds tol 0 by 1e+01 + (7,6) 115 72 Abs err 43 exceeds tol 0 by 4e+01 + (8,6) 51 41 Abs err 10 exceeds tol 0 by 1e+01 + (9,6) 58 74 Abs err 16 exceeds tol 0 by 2e+01 + (10,6) 83 125 Abs err 42 exceeds tol 0 by 4e+01 + (11,6) 134 138 Abs err 4 exceeds tol 0 by 4 + (1,7) 136 134 Abs err 2 exceeds tol 0 by 2 + (2,7) 106 119 Abs err 13 exceeds tol 0 by 1e+01 + (3,7) 106 115 Abs err 9 exceeds tol 0 by 9 + (4,7) 149 148 Abs err 1 exceeds tol 0 by 1 + (5,7) 188 201 Abs err 13 exceeds tol 0 by 1e+01 + (6,7) 214 201 Abs err 13 exceeds tol 0 by 1e+01 + (7,7) 114 72 Abs err 42 exceeds tol 0 by 4e+01 + (8,7) 43 19 Abs err 24 exceeds tol 0 by 2e+01 + (9,7) 29 34 Abs err 5 exceeds tol 0 by 5 + (10,7) 48 113 Abs err 65 exceeds tol 0 by 6e+01 + (11,7) 130 133 Abs err 3 exceeds tol 0 by 3 + (1,8) 177 189 Abs err 12 exceeds tol 0 by 1e+01 + (2,8) 98 123 Abs err 25 exceeds tol 0 by 2e+01 + (3,8) 90 81 Abs err 9 exceeds tol 0 by 9 + (4,8) 151 159 Abs err 8 exceeds tol 0 by 8 + (5,8) 173 188 Abs err 15 exceeds tol 0 by 2e+01 + (6,8) 178 164 Abs err 14 exceeds tol 0 by 1e+01 + (7,8) 103 72 Abs err 31 exceeds tol 0 by 3e+01 + (8,8) 59 67 Abs err 8 exceeds tol 0 by 8 + (9,8) 89 108 Abs err 19 exceeds tol 0 by 2e+01 + (10,8) 116 158 Abs err 42 exceeds tol 0 by 4e+01 + (11,8) 163 171 Abs err 8 exceeds tol 0 by 8 + (1,9) 187 186 Abs err 1 exceeds tol 0 by 1 + (2,9) 90 118 Abs err 28 exceeds tol 0 by 3e+01 + (3,9) 77 70 Abs err 7 exceeds tol 0 by 7 + (4,9) 140 132 Abs err 8 exceeds tol 0 by 8 + (5,9) 152 159 Abs err 7 exceeds tol 0 by 7 + (6,9) 155 146 Abs err 9 exceeds tol 0 by 9 + (7,9) 104 83 Abs err 21 exceeds tol 0 by 2e+01 + (8,9) 85 116 Abs err 31 exceeds tol 0 by 3e+01 + (9,9) 149 179 Abs err 30 exceeds tol 0 by 3e+01 + (10,9) 187 212 Abs err 25 exceeds tol 0 by 2e+01 + (11,9) 213 220 Abs err 7 exceeds tol 0 by 7 + (1,10) 75 74 Abs err 1 exceeds tol 0 by 1 + (2,10) 30 44 Abs err 14 exceeds tol 0 by 1e+01 + (3,10) 26 24 Abs err 2 exceeds tol 0 by 2 + (4,10) 64 58 Abs err 6 exceeds tol 0 by 6 + (5,10) 126 140 Abs err 14 exceeds tol 0 by 1e+01 + (7,10) 130 114 Abs err 16 exceeds tol 0 by 2e+01 + (8,10) 100 95 Abs err 5 exceeds tol 0 by 5 + (9,10) 114 131 Abs err 17 exceeds tol 0 by 2e+01 + (10,10) 148 229 Abs err 81 exceeds tol 0 by 8e+01 + (11,10) 234 253 Abs err 19 exceeds tol 0 by 2e+01 + (1,11) 85 90 Abs err 5 exceeds tol 0 by 5 + (2,11) 27 38 Abs err 11 exceeds tol 0 by 1e+01 + (3,11) 27 19 Abs err 8 exceeds tol 0 by 8 + (4,11) 105 124 Abs err 19 exceeds tol 0 by 2e+01 + (5,11) 149 167 Abs err 18 exceeds tol 0 by 2e+01 + (6,11) 170 148 Abs err 22 exceeds tol 0 by 2e+01 + (7,11) 101 60 Abs err 41 exceeds tol 0 by 4e+01 + (8,11) 78 108 Abs err 30 exceeds tol 0 by 3e+01 + (9,11) 148 175 Abs err 27 exceeds tol 0 by 3e+01 + (10,11) 166 148 Abs err 18 exceeds tol 0 by 2e+01 + (11,11) 165 141 Abs err 24 exceeds tol 0 by 2e+01 + (1,12) 131 141 Abs err 10 exceeds tol 0 by 1e+01 + (2,12) 40 80 Abs err 40 exceeds tol 0 by 4e+01 + (3,12) 45 56 Abs err 11 exceeds tol 0 by 1e+01 + (4,12) 183 176 Abs err 7 exceeds tol 0 by 7 + (5,12) 177 158 Abs err 19 exceeds tol 0 by 2e+01 + (6,12) 109 84 Abs err 25 exceeds tol 0 by 2e+01 + (7,12) 45 31 Abs err 14 exceeds tol 0 by 1e+01 + (8,12) 45 140 Abs err 95 exceeds tol 0 by 1e+02 + (9,12) 207 215 Abs err 8 exceeds tol 0 by 8 + (10,12) 198 55 Abs err 143 exceeds tol 0 by 1e+02 + (11,12) 40 16 Abs err 24 exceeds tol 0 by 2e+01 + (1,13) 138 140 Abs err 2 exceeds tol 0 by 2 + (2,13) 134 151 Abs err 17 exceeds tol 0 by 2e+01 + (3,13) 126 137 Abs err 11 exceeds tol 0 by 1e+01 + (4,13) 74 61 Abs err 13 exceeds tol 0 by 1e+01 + (5,13) 59 27 Abs err 32 exceeds tol 0 by 3e+01 + (6,13) 42 48 Abs err 6 exceeds tol 0 by 6 + (7,13) 107 144 Abs err 37 exceeds tol 0 by 4e+01 + (8,13) 148 183 Abs err 35 exceeds tol 0 by 4e+01 + (9,13) 176 153 Abs err 23 exceeds tol 0 by 2e+01 + (10,13) 144 35 Abs err 109 exceeds tol 0 by 1e+02 + (11,13) 21 7 Abs err 14 exceeds tol 0 by 1e+01 + (1,14) 134 124 Abs err 10 exceeds tol 0 by 1e+01 + (2,14) 144 118 Abs err 26 exceeds tol 0 by 3e+01 + (3,14) 134 105 Abs err 29 exceeds tol 0 by 3e+01 + (4,14) 56 85 Abs err 29 exceeds tol 0 by 3e+01 + (5,14) 43 69 Abs err 26 exceeds tol 0 by 3e+01 + (6,14) 41 76 Abs err 35 exceeds tol 0 by 4e+01 + (7,14) 123 130 Abs err 7 exceeds tol 0 by 7 + (8,14) 168 180 Abs err 12 exceeds tol 0 by 1e+01 + (9,14) 174 177 Abs err 3 exceeds tol 0 by 3 + (10,14) 141 63 Abs err 78 exceeds tol 0 by 8e+01 + (11,14) 27 36 Abs err 9 exceeds tol 0 by 9 + (1,15) 106 108 Abs err 2 exceeds tol 0 by 2 + (2,15) 52 63 Abs err 11 exceeds tol 0 by 1e+01 + (3,15) 55 49 Abs err 6 exceeds tol 0 by 6 + (4,15) 141 145 Abs err 4 exceeds tol 0 by 4 + (5,15) 143 152 Abs err 9 exceeds tol 0 by 9 + (6,15) 118 115 Abs err 3 exceeds tol 0 by 3 + (7,15) 97 81 Abs err 16 exceeds tol 0 by 2e+01 + (8,15) 104 164 Abs err 60 exceeds tol 0 by 6e+01 + (9,15) 211 219 Abs err 8 exceeds tol 0 by 8 + (10,15) 200 96 Abs err 104 exceeds tol 0 by 1e+02 + (11,15) 73 67 Abs err 6 exceeds tol 0 by 6 +***** xtest + out = [116 172 215 165 111 82 133 170 171 81 95 132 138 123 106 + 59 98 138 144 152 152 125 127 119 54 58 89 137 112 75 + 27 39 62 110 172 202 123 96 78 36 40 68 123 100 62 + 129 97 64 62 87 119 146 148 128 74 117 154 73 94 134 + 113 129 136 101 125 162 183 172 151 135 146 139 53 83 135 + 77 143 195 145 166 197 186 162 146 171 138 92 62 84 113 + 101 129 149 120 98 81 78 82 91 111 77 56 132 123 95 + 81 116 147 130 96 61 43 80 119 109 116 132 162 164 158 + 46 93 139 141 114 80 50 109 168 141 166 189 151 171 200 + 16 41 77 123 130 123 115 157 204 214 145 69 48 71 98 + 9 28 61 119 134 134 131 169 212 231 140 39 23 46 73]; + assert (imresize (uint8 (in), 1.5, "bilinear"), uint8 (out)) +!!!!! known failure +ASSERT errors for: assert (imresize (uint8 (in), 1.5, "bilinear"),uint8 (out)) + + Location | Observed | Expected | Reason + (2,1) 48 59 Abs err 11 exceeds tol 0 by 1e+01 + (3,1) 33 27 Abs err 6 exceeds tol 0 by 6 + (4,1) 124 129 Abs err 5 exceeds tol 0 by 5 + (5,1) 121 113 Abs err 8 exceeds tol 0 by 8 + (6,1) 71 77 Abs err 6 exceeds tol 0 by 6 + (7,1) 93 101 Abs err 8 exceeds tol 0 by 8 + (8,1) 96 81 Abs err 15 exceeds tol 0 by 2e+01 + (9,1) 65 46 Abs err 19 exceeds tol 0 by 2e+01 + (10,1) 36 16 Abs err 20 exceeds tol 0 by 2e+01 + (1,2) 187 172 Abs err 15 exceeds tol 0 by 2e+01 + (2,2) 93 98 Abs err 5 exceeds tol 0 by 5 + (3,2) 45 39 Abs err 6 exceeds tol 0 by 6 + (4,2) 85 97 Abs err 12 exceeds tol 0 by 1e+01 + (5,2) 126 129 Abs err 3 exceeds tol 0 by 3 + (6,2) 167 143 Abs err 24 exceeds tol 0 by 2e+01 + (7,2) 145 129 Abs err 16 exceeds tol 0 by 2e+01 + (8,2) 128 116 Abs err 12 exceeds tol 0 by 1e+01 + (9,2) 123 93 Abs err 30 exceeds tol 0 by 3e+01 + (10,2) 86 41 Abs err 45 exceeds tol 0 by 4e+01 + (11,2) 33 28 Abs err 5 exceeds tol 0 by 5 + (1,3) 206 215 Abs err 9 exceeds tol 0 by 9 + (2,3) 126 138 Abs err 12 exceeds tol 0 by 1e+01 + (3,3) 71 62 Abs err 9 exceeds tol 0 by 9 + (5,3) 116 136 Abs err 20 exceeds tol 0 by 2e+01 + (6,3) 197 195 Abs err 2 exceeds tol 0 by 2 + (7,3) 159 149 Abs err 10 exceeds tol 0 by 1e+01 + (8,3) 137 147 Abs err 10 exceeds tol 0 by 1e+01 + (9,3) 150 139 Abs err 11 exceeds tol 0 by 1e+01 + (10,3) 121 77 Abs err 44 exceeds tol 0 by 4e+01 + (11,3) 72 61 Abs err 11 exceeds tol 0 by 1e+01 + (1,4) 158 165 Abs err 7 exceeds tol 0 by 7 + (2,4) 142 144 Abs err 2 exceeds tol 0 by 2 + (3,4) 114 110 Abs err 4 exceeds tol 0 by 4 + (4,4) 64 62 Abs err 2 exceeds tol 0 by 2 + (5,4) 86 101 Abs err 15 exceeds tol 0 by 2e+01 + (6,4) 143 145 Abs err 2 exceeds tol 0 by 2 + (7,4) 124 120 Abs err 4 exceeds tol 0 by 4 + (8,4) 117 130 Abs err 13 exceeds tol 0 by 1e+01 + (9,4) 137 141 Abs err 4 exceeds tol 0 by 4 + (10,4) 137 123 Abs err 14 exceeds tol 0 by 1e+01 + (11,4) 127 119 Abs err 8 exceeds tol 0 by 8 + (1,5) 105 111 Abs err 6 exceeds tol 0 by 6 + (2,5) 163 152 Abs err 11 exceeds tol 0 by 1e+01 + (3,5) 174 172 Abs err 2 exceeds tol 0 by 2 + (4,5) 94 87 Abs err 7 exceeds tol 0 by 7 + (5,5) 117 125 Abs err 8 exceeds tol 0 by 8 + (6,5) 190 166 Abs err 24 exceeds tol 0 by 2e+01 + (7,5) 122 98 Abs err 24 exceeds tol 0 by 2e+01 + (8,5) 82 96 Abs err 14 exceeds tol 0 by 1e+01 + (9,5) 99 114 Abs err 15 exceeds tol 0 by 2e+01 + (10,5) 117 130 Abs err 13 exceeds tol 0 by 1e+01 + (1,6) 86 82 Abs err 4 exceeds tol 0 by 4 + (2,6) 163 152 Abs err 11 exceeds tol 0 by 1e+01 + (3,6) 192 202 Abs err 10 exceeds tol 0 by 1e+01 + (4,6) 124 119 Abs err 5 exceeds tol 0 by 5 + (5,6) 151 162 Abs err 11 exceeds tol 0 by 1e+01 + (6,6) 226 197 Abs err 29 exceeds tol 0 by 3e+01 + (7,6) 121 81 Abs err 40 exceeds tol 0 by 4e+01 + (8,6) 55 61 Abs err 6 exceeds tol 0 by 6 + (9,6) 63 80 Abs err 17 exceeds tol 0 by 2e+01 + (10,6) 93 123 Abs err 30 exceeds tol 0 by 3e+01 + (1,7) 135 133 Abs err 2 exceeds tol 0 by 2 + (2,7) 122 125 Abs err 3 exceeds tol 0 by 3 + (3,7) 121 123 Abs err 2 exceeds tol 0 by 2 + (5,7) 178 183 Abs err 5 exceeds tol 0 by 5 + (6,7) 213 186 Abs err 27 exceeds tol 0 by 3e+01 + (7,7) 116 78 Abs err 38 exceeds tol 0 by 4e+01 + (8,7) 48 43 Abs err 5 exceeds tol 0 by 5 + (9,7) 37 50 Abs err 13 exceeds tol 0 by 1e+01 + (10,7) 72 115 Abs err 43 exceeds tol 0 by 4e+01 + (2,8) 117 127 Abs err 10 exceeds tol 0 by 1e+01 + (3,8) 98 96 Abs err 2 exceeds tol 0 by 2 + (4,8) 145 148 Abs err 3 exceeds tol 0 by 3 + (5,8) 169 172 Abs err 3 exceeds tol 0 by 3 + (6,8) 182 162 Abs err 20 exceeds tol 0 by 2e+01 + (7,8) 110 82 Abs err 28 exceeds tol 0 by 3e+01 + (8,8) 69 80 Abs err 11 exceeds tol 0 by 1e+01 + (9,8) 90 109 Abs err 19 exceeds tol 0 by 2e+01 + (10,8) 126 157 Abs err 31 exceeds tol 0 by 3e+01 + (1,9) 175 171 Abs err 4 exceeds tol 0 by 4 + (2,9) 110 119 Abs err 9 exceeds tol 0 by 9 + (3,9) 82 78 Abs err 4 exceeds tol 0 by 4 + (5,9) 150 151 Abs err 1 exceeds tol 0 by 1 + (6,9) 159 146 Abs err 13 exceeds tol 0 by 1e+01 + (7,9) 110 91 Abs err 19 exceeds tol 0 by 2e+01 + (8,9) 94 119 Abs err 25 exceeds tol 0 by 2e+01 + (9,9) 144 168 Abs err 24 exceeds tol 0 by 2e+01 + (10,9) 181 204 Abs err 23 exceeds tol 0 by 2e+01 + (11,9) 211 212 Abs err 1 exceeds tol 0 by 1 + (1,10) 88 81 Abs err 7 exceeds tol 0 by 7 + (2,10) 52 54 Abs err 2 exceeds tol 0 by 2 + (3,10) 40 36 Abs err 4 exceeds tol 0 by 4 + (4,10) 76 74 Abs err 2 exceeds tol 0 by 2 + (5,10) 126 135 Abs err 9 exceeds tol 0 by 9 + (6,10) 184 171 Abs err 13 exceeds tol 0 by 1e+01 + (7,10) 130 111 Abs err 19 exceeds tol 0 by 2e+01 + (8,10) 101 109 Abs err 8 exceeds tol 0 by 8 + (9,10) 119 141 Abs err 22 exceeds tol 0 by 2e+01 + (10,10) 167 214 Abs err 47 exceeds tol 0 by 5e+01 + (11,10) 230 231 Abs err 1 exceeds tol 0 by 1 + (1,11) 89 95 Abs err 6 exceeds tol 0 by 6 + (2,11) 47 58 Abs err 11 exceeds tol 0 by 1e+01 + (3,11) 41 40 Abs err 1 exceeds tol 0 by 1 + (4,11) 105 117 Abs err 12 exceeds tol 0 by 1e+01 + (5,11) 140 146 Abs err 6 exceeds tol 0 by 6 + (6,11) 159 138 Abs err 21 exceeds tol 0 by 2e+01 + (7,11) 104 77 Abs err 27 exceeds tol 0 by 3e+01 + (8,11) 86 116 Abs err 30 exceeds tol 0 by 3e+01 + (9,11) 144 166 Abs err 22 exceeds tol 0 by 2e+01 + (10,11) 159 145 Abs err 14 exceeds tol 0 by 1e+01 + (11,11) 153 140 Abs err 13 exceeds tol 0 by 1e+01 + (1,12) 131 132 Abs err 1 exceeds tol 0 by 1 + (2,12) 72 89 Abs err 17 exceeds tol 0 by 2e+01 + (3,12) 65 68 Abs err 3 exceeds tol 0 by 3 + (4,12) 160 154 Abs err 6 exceeds tol 0 by 6 + (5,12) 159 139 Abs err 20 exceeds tol 0 by 2e+01 + (6,12) 109 92 Abs err 17 exceeds tol 0 by 2e+01 + (7,12) 63 56 Abs err 7 exceeds tol 0 by 7 + (8,12) 70 132 Abs err 62 exceeds tol 0 by 6e+01 + (9,12) 186 189 Abs err 3 exceeds tol 0 by 3 + (10,12) 151 69 Abs err 82 exceeds tol 0 by 8e+01 + (11,12) 41 39 Abs err 2 exceeds tol 0 by 2 + (1,13) 136 138 Abs err 2 exceeds tol 0 by 2 + (2,13) 126 137 Abs err 11 exceeds tol 0 by 1e+01 + (3,13) 112 123 Abs err 11 exceeds tol 0 by 1e+01 + (4,13) 89 73 Abs err 16 exceeds tol 0 by 2e+01 + (5,13) 70 53 Abs err 17 exceeds tol 0 by 2e+01 + (6,13) 54 62 Abs err 8 exceeds tol 0 by 8 + (7,13) 100 132 Abs err 32 exceeds tol 0 by 3e+01 + (8,13) 141 162 Abs err 21 exceeds tol 0 by 2e+01 + (9,13) 173 151 Abs err 22 exceeds tol 0 by 2e+01 + (10,13) 120 48 Abs err 72 exceeds tol 0 by 7e+01 + (11,13) 26 23 Abs err 3 exceeds tol 0 by 3 + (1,14) 127 123 Abs err 4 exceeds tol 0 by 4 + (2,14) 121 112 Abs err 9 exceeds tol 0 by 9 + (3,14) 109 100 Abs err 9 exceeds tol 0 by 9 + (4,14) 83 94 Abs err 11 exceeds tol 0 by 1e+01 + (5,14) 69 83 Abs err 14 exceeds tol 0 by 1e+01 + (6,14) 61 84 Abs err 23 exceeds tol 0 by 2e+01 + (7,14) 111 123 Abs err 12 exceeds tol 0 by 1e+01 + (8,14) 153 164 Abs err 11 exceeds tol 0 by 1e+01 + (9,14) 178 171 Abs err 7 exceeds tol 0 by 7 + (10,14) 127 71 Abs err 56 exceeds tol 0 by 6e+01 + (11,14) 38 46 Abs err 8 exceeds tol 0 by 8 + (2,15) 69 75 Abs err 6 exceeds tol 0 by 6 + (3,15) 66 62 Abs err 4 exceeds tol 0 by 4 + (4,15) 130 134 Abs err 4 exceeds tol 0 by 4 + (5,15) 138 135 Abs err 3 exceeds tol 0 by 3 + (6,15) 118 113 Abs err 5 exceeds tol 0 by 5 + (7,15) 101 95 Abs err 6 exceeds tol 0 by 6 + (8,15) 117 158 Abs err 41 exceeds tol 0 by 4e+01 + (9,15) 198 200 Abs err 2 exceeds tol 0 by 2 + (10,15) 164 98 Abs err 66 exceeds tol 0 by 7e+01 +***** xtest + out = [108 136 125 89 107 + 111 132 143 114 99 + 106 110 106 127 136 + 47 121 163 138 68]; + assert (imresize (uint8 (in), 0.5, "bilinear"), uint8 (out)) +!!!!! known failure +ASSERT errors for: assert (imresize (uint8 (in), 0.5, "bilinear"),uint8 (out)) + + Location | Observed | Expected | Reason + (1,1) 116 108 Abs err 8 exceeds tol 0 by 8 + (2,1) 155 111 Abs err 44 exceeds tol 0 by 4e+01 + (3,1) 107 106 Abs err 1 exceeds tol 0 by 1 + (4,1) 9 47 Abs err 38 exceeds tol 0 by 4e+01 + (1,2) 132 136 Abs err 4 exceeds tol 0 by 4 + (2,2) 56 132 Abs err 76 exceeds tol 0 by 8e+01 + (3,2) 94 110 Abs err 16 exceeds tol 0 by 2e+01 + (4,2) 134 121 Abs err 13 exceeds tol 0 by 1e+01 + (1,3) 170 125 Abs err 45 exceeds tol 0 by 4e+01 + (2,3) 161 143 Abs err 18 exceeds tol 0 by 2e+01 + (3,3) 62 106 Abs err 44 exceeds tol 0 by 4e+01 + (4,3) 169 163 Abs err 6 exceeds tol 0 by 6 + (1,4) 112 89 Abs err 23 exceeds tol 0 by 2e+01 + (2,4) 170 114 Abs err 56 exceeds tol 0 by 6e+01 + (3,4) 41 127 Abs err 86 exceeds tol 0 by 9e+01 + (4,4) 91 138 Abs err 47 exceeds tol 0 by 5e+01 + (1,5) 106 107 Abs err 1 exceeds tol 0 by 1 + (2,5) 152 99 Abs err 53 exceeds tol 0 by 5e+01 + (3,5) 90 136 Abs err 46 exceeds tol 0 by 5e+01 + (4,5) 73 68 Abs err 5 exceeds tol 0 by 5 +***** xtest + out = [103 141 124 78 110 + 111 134 153 114 91 + 115 108 93 128 146 + 38 124 175 143 54]; + assert (imresize (uint8 (in), 0.5, "bicubic"), uint8 (out)) +!!!!! known failure +ASSERT errors for: assert (imresize (uint8 (in), 0.5, "bicubic"),uint8 (out)) + + Location | Observed | Expected | Reason + (1,1) 116 103 Abs err 13 exceeds tol 0 by 1e+01 + (2,1) 155 111 Abs err 44 exceeds tol 0 by 4e+01 + (3,1) 107 115 Abs err 8 exceeds tol 0 by 8 + (4,1) 9 38 Abs err 29 exceeds tol 0 by 3e+01 + (1,2) 129 141 Abs err 12 exceeds tol 0 by 1e+01 + (2,2) 50 134 Abs err 84 exceeds tol 0 by 8e+01 + (3,2) 93 108 Abs err 15 exceeds tol 0 by 2e+01 + (4,2) 134 124 Abs err 10 exceeds tol 0 by 1e+01 + (1,3) 177 124 Abs err 53 exceeds tol 0 by 5e+01 + (2,3) 163 153 Abs err 10 exceeds tol 0 by 1e+01 + (3,3) 59 93 Abs err 34 exceeds tol 0 by 3e+01 + (4,3) 163 175 Abs err 12 exceeds tol 0 by 1e+01 + (1,4) 117 78 Abs err 39 exceeds tol 0 by 4e+01 + (2,4) 183 114 Abs err 69 exceeds tol 0 by 7e+01 + (3,4) 34 128 Abs err 94 exceeds tol 0 by 9e+01 + (4,4) 79 143 Abs err 64 exceeds tol 0 by 6e+01 + (1,5) 106 110 Abs err 4 exceeds tol 0 by 4 + (2,5) 152 91 Abs err 61 exceeds tol 0 by 6e+01 + (3,5) 90 146 Abs err 56 exceeds tol 0 by 6e+01 + (4,5) 73 54 Abs err 19 exceeds tol 0 by 2e+01 +***** xtest + ## bug #55202 + assert (imresize (zeros (1, 20), [1 30], "nearest"), zeros (1, 30)) +!!!!! known failure +Y(2): out of bound 1 (dimensions are 1x1) +***** test + ## a test for bug #55780 + a = zeros (7, "uint8"); + a (4,4) = 255; + c = [ 4 13 24 31 31 24 13 4; + 13 44 79 103 103 79 44 13; + 24 79 140 182 182 140 79 24; + 31 103 182 238 238 182 103 31; + 31 103 182 238 238 182 103 31; + 24 79 140 182 182 140 79 24; + 13 44 79 103 103 79 44 13; + 4 13 24 31 31 24 13 4]; + b = imresize (a, 4, "bicubic"); + assert (b(11:18,11:18), c, eps) +9 tests, 4 passed, 5 known failures, 0 skipped +[inst/blockproc.m] +>>>>> /build/octave-image-2.12.0/inst/blockproc.m +***** demo + blockproc(eye(6),[2,2],inline("any(x(:))","x")) + # Returns a 3-by-3 diagonal +***** assert(blockproc(eye(6),[2,2],"sum"),blockproc(eye(6),[2,2],@sum)); +***** assert(blockproc(eye(6),[2,2],"sum"),blockproc(eye(6),[2,2],inline("sum(x)","x"))); +warning: inline is obsolete; use anonymous functions instead +***** assert(blockproc(eye(6),[1,2],@sum),kron(eye(3),[1;1])); +***** assert(blockproc(eye(6),[2,2],inline("any(x(:))","x")),eye(3)!=0); +***** assert(blockproc(eye(6),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); +***** assert(blockproc(eye(6),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[8,5,6;6,2,3;5,3,4;4,3,5;3,2,6;6,5,8]); +***** assert(blockproc(eye(6),[2,3],[4,3],inline("sum(x(:))","x")),ones(3,2)*6); +***** assert(blockproc(eye(6),[2,2],inline("int8(sum(x(:)))","x")),eye(3,"int8")*2); +***** assert(blockproc(uint8(eye(6)),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); +***** assert(blockproc(uint8(eye(6)),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); +***** assert(blockproc(uint16(eye(6)),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); +***** assert(blockproc(uint16(eye(6)),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); +12 tests, 12 passed, 0 known failure, 0 skipped +[inst/imextendedmin.m] +>>>>> /build/octave-image-2.12.0/inst/imextendedmin.m +***** shared im0, bw0_h2_out + im0 = uint8 ([5 5 5 5 5; + 5 4 3 4 5; + 5 3 0 3 5; + 5 4 3 4 5; + 5 5 5 5 5]); + bw0_h2_out = false (5); + bw0_h2_out(3,3) = true; +***** error imextendedmin () +***** error imextendedmin (im0) +***** error imextendedmin ("hello", 2) +***** error imextendedmin (i.*im0, 2) +***** error imextendedmin (sparse (im0), 2) +***** error imextendedmin (im0, -2) +***** error imextendedmin (im0, 'a') +***** error imextendedmin (im0, ones (2)) +***** error imextendedmin (im0, 2*i) +***** assert (imextendedmin (im0, 2), bw0_h2_out) +***** assert (imextendedmin (double (im0), 2), bw0_h2_out) +***** assert (imextendedmin (im0, 2, 8), bw0_h2_out) +***** assert (imextendedmin (im0, 2, 4), bw0_h2_out) +***** assert (imextendedmin (im0, 2, true (3)), bw0_h2_out) +***** test + out = imextendedmin (im0, 2); + assert (size (out), size (im0)) + assert (class (out), "logical") +***** test + out = imextendedmin (single (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "logical") +***** test + out = imextendedmin (uint8 (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "logical") +***** test + out = imextendedmin (uint16 (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "logical") +***** test + im = cat (3, im0, im0, im0, im0); + out = imextendedmin (im, 2); + assert (size (out), size (im)) +***** test + im = 10 .* ones (10); + im(2:4, 2:4) = 7; + im(6:8, 6:8) = 2; + expected_4 = false (10); + expected_4(6:8, 6:8) = true; + expected_2 = expected_4; + expected_2(2:4, 2:4) = true; + out = imextendedmin (im, 4); + assert (out, expected_4, eps) + out = imextendedmin (0.1.*im, 0.4); + assert (out, expected_4, eps) + out = imextendedmin (im, 2); + assert (out, expected_2, eps) +***** test + im2 = 10 .* ones (10); + im2(2:4, 2:4) = 7; + im2(6:9, 6:9)=2; + im2(5, 5)=2; + im2(6, 7)=10; + im2(7, 8)=10; + expected_8 = false (10); + expected_8(6:9, 6:9) = true; + expected_8(5, 5) = true; + expected_8(6, 7) = false; + expected_8(7, 8) = false; + expected_4 = expected_8; + expected_4(2:4, 2:4) = true; + out2 = imextendedmin (im2, 2); + assert (out2, expected_8, eps) + out2 = imextendedmin (im2, 2, 4); + assert (out2, expected_4, eps) + out2 = imextendedmin (im2, 2, 8); + assert (out2, expected_8, eps) +21 tests, 21 passed, 0 known failure, 0 skipped +[inst/immse.m] +>>>>> /build/octave-image-2.12.0/inst/immse.m +***** error immse (rand (10), rand (12)) +***** error immse (uint8 ([0 1 2 3]), uint16 ([0 1 2 3])) +***** error immse (double ([0 1 2 3]), single ([0 1 2 3])) +***** assert (immse (magic (5), magic (5)), 0) +***** assert (immse (single (magic (5)), single (magic (5))), single (0)) +***** assert (immse (uint8 (magic (5)), uint8 (magic (5))), 0) +6 tests, 6 passed, 0 known failure, 0 skipped +[inst/imgradient.m] +>>>>> /build/octave-image-2.12.0/inst/imgradient.m +***** test + A = [0 1 0 + 1 1 1 + 0 1 0]; + + [gMag, gDir] = imgradient (A); + assert (gMag,[sqrt(18) 4 sqrt(18); 4 0 4; sqrt(18),4,sqrt(18)]); + assert (gDir,[-45 -90 -135; -0 -0 -180; 45 90 135]); + + ## the following just test if passing gx and gy separately gets + ## us the same as the image and method though imgradient + [gxSobel, gySobel] = imgradientxy (A, "Sobel"); + [gxPrewitt, gyPrewitt] = imgradientxy (A, "Prewitt"); + [gxCd, gyCd] = imgradientxy (A, "CentralDifference"); + [gxId, gyId] = imgradientxy (A, "IntermediateDifference"); + + assert (imgradient (A), + imgradient (gxSobel, gySobel)); + assert (imgradient (A, "Sobel"), + imgradient (gxSobel, gySobel)); + assert (imgradient (A, "Prewitt"), + imgradient(gxPrewitt, gyPrewitt)); + assert (imgradient (A, "CentralDifference"), + imgradient (gxCd, gyCd)); + assert (imgradient (A, "IntermediateDifference"), + imgradient (gxId, gyId)); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imtranslate.m] +>>>>> /build/octave-image-2.12.0/inst/imtranslate.m +***** test + obs = imtranslate (ones (5, 5), 2, 1, "crop"); + exp = zeros (5, 5); + exp(1:4, 3:5) = 1; + assert (obs, exp, eps * 10) + + obs = imtranslate (ones (5, 5), -2, -1, "crop"); + exp = zeros (5, 5); + exp(2:5, 1:3) = 1; + assert (obs, exp, eps * 10) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imhmin.m] +>>>>> /build/octave-image-2.12.0/inst/imhmin.m +***** shared im0, im0_h2_out + im0 = uint8 ([5 5 5 5 5; + 5 4 3 4 5; + 5 3 0 3 5; + 5 4 3 4 5; + 5 5 5 5 5]); + im0_h2_out = uint8 ([5 5 5 5 5; + 5 4 3 4 5; + 5 3 2 3 5; + 5 4 3 4 5; + 5 5 5 5 5]); +***** error imhmin () +***** error imhmin (im0) +***** error imhmin ("hello", 2) +***** error imhmin (i.*im0, 2) +***** error imhmin (sparse (im0), 2) +***** error imhmin (im0, -2) +***** error imhmin (im0, 'a') +***** error imhmin (im0, ones (2)) +***** error imhmin (im0, 2*i) +***** assert (imhmin (im0, 2), im0_h2_out) +***** assert (imhmin (double (im0), 2), double (im0_h2_out)) +***** assert (imhmin (im0, 2, 8), im0_h2_out) +***** assert (imhmin (im0, 2, 4), im0_h2_out) +***** assert (imhmin (im0, 2, true (3)), im0_h2_out) +***** test + out = imhmin (double (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "double") +***** test + out = imhmin (single (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "single") +***** test + out = imhmin (uint8 (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "uint8") +***** test + out = imhmin (uint16 (im0), 2); + assert (size (out), size (im0)) + assert (class (out), "uint16") +***** test + im = cat (3, im0, im0, im0, im0); + out = imhmin (im, 2); + assert (size (out), size (im)) +***** test + im = 10 .* ones (10); + im(2:4, 2:4) = 7; + im(6:8, 6:8) = 2; + expected_4 = 10 .* ones (10); + expected_4(6:8, 6:8) = 6; + expected_2 = 10 .* ones (10); + expected_2(6:8, 6:8) = 4; + expected_2(2:4, 2:4) = 9; + out = imhmin (im, 4); + assert (out, expected_4, eps) + out = imhmin (im, 2); + assert (out, expected_2, eps) + out = imhmin (0.1.*im, 0.4); + assert (out, 0.1 .* expected_4, eps) +***** test + im2 = 10 .* ones (10); + im2(2:4, 2:4) = 7; + im2(6:9, 6:9)=2; + im2(5, 5)=2; + im2(6, 7)=10; + im2(7, 8)=10; + expected_4 = 10 .* ones (10); + expected_4(6:9, 6:9) = 6; + expected_4(5, 5) = 6; + expected_4(6, 7) = 10; + expected_4(7, 8) = 10; + expected_8 = expected_4; + expected_8(2:4, 2:4) = 7; + out2 = imhmin (im2, 4); + assert (out2, expected_8, eps) + out2 = imhmin (im2, 4, 4); + assert (out2, expected_4, eps) + out2 = imhmin (im2, 4, 8); + assert (out2, expected_8, eps) +21 tests, 21 passed, 0 known failure, 0 skipped [inst/@imref3d/intrinsicToWorld.m] >>>>> /build/octave-image-2.12.0/inst/@imref3d/intrinsicToWorld.m ***** error id=Octave:invalid-fun-call intrinsicToWorld (imref3d) @@ -8212,28 +8423,6 @@ r = imref3d ([128, 128, 27]); assert (contains (r, [5, 6, 6, 8], [5, 10, 10, 257], [1, 27.5, 28, 1]), logical ([1, 1, 0, 0])) 11 tests, 11 passed, 0 known failure, 0 skipped -[inst/@imref3d/worldToSubscript.m] ->>>>> /build/octave-image-2.12.0/inst/@imref3d/worldToSubscript.m -***** error id=Octave:invalid-fun-call worldToSubscript (imref3d) -***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1) -***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1, 2) -***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1, 2, 3, 4) -***** error id=Octave:expected-real worldToSubscript (imref3d, 1j, 2, 3) -***** error id=Octave:expected-real worldToSubscript (imref3d, 1, 2j, 3) -***** error id=Octave:expected-real worldToSubscript (imref3d, 1, 2, 3j) -***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, [1, 2], 3, 4) -***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, 1, [2, 3], 4) -***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, 1, 2, [3, 4]) -***** test - r = imref3d ([128, 128, 27], 2, 2, 4); - xW = [108, 108, 113.2, 2]; - yW = [92, 92, 92, -1]; - zW = [52, 55, 52, 0.33]; - [rS, cS, pS] = worldToSubscript (r, xW, yW, zW); - assert (rS, [46, 46, 46, NaN]) - assert (cS, [54, 54, 57, NaN]) - assert (pS, [13, 14, 13, NaN]) -11 tests, 11 passed, 0 known failure, 0 skipped [inst/@imref3d/imref3d.m] >>>>> /build/octave-image-2.12.0/inst/@imref3d/imref3d.m ***** error id=Octave:invalid-fun-call imref3d (1, 2, 3, 4, 5) @@ -8387,359 +8576,71 @@ fail ("r.ZWorldLimits = [j]", "") fail ("r.ZWorldLimits = [1; 2]", "") 37 tests, 37 passed, 0 known failure, 0 skipped -[inst/imclearborder.m] ->>>>> /build/octave-image-2.12.0/inst/imclearborder.m -***** test - a = logical ([ - 0 1 0 0 1 0 0 0 0 1 - 1 0 0 0 0 1 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 0 1 0 1 0 1 0 0 1 - 0 0 0 0 0 0 0 1 1 0 - 0 0 1 0 0 1 0 1 0 0 - 0 1 0 1 0 1 1 0 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 1 0 1 1 0 0 0 - 0 0 0 1 1 0 0 0 1 0]); - - a4 = logical ([ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 1 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 0 0 1 0 1 0 1 0 0 0 - 0 0 0 0 0 0 0 1 1 0 - 0 0 1 0 0 1 0 1 0 0 - 0 1 0 0 0 1 1 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 1 1 0 0 0 - 0 0 0 0 0 0 0 0 0 0]); - - a8 = logical ([ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0]); - - assert (imclearborder (a, 4), a4) - assert (imclearborder (a, [0 1 0; 1 1 1; 0 1 0]), a4) - assert (imclearborder (a), a8) - assert (imclearborder (a, 8), a8) - assert (imclearborder (a, ones (3)), a8) -***** test - a = false (5, 5, 3); - a(2:4,2:4,:) = true; - assert (imclearborder (a, 4), a) - - a(1,2) = true; - a4 = a; - a4(:,:,1) = false; - assert (imclearborder (a, 4), a4) +[inst/@imref3d/worldToSubscript.m] +>>>>> /build/octave-image-2.12.0/inst/@imref3d/worldToSubscript.m +***** error id=Octave:invalid-fun-call worldToSubscript (imref3d) +***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1) +***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1, 2) +***** error id=Octave:invalid-fun-call worldToSubscript (imref3d, 1, 2, 3, 4) +***** error id=Octave:expected-real worldToSubscript (imref3d, 1j, 2, 3) +***** error id=Octave:expected-real worldToSubscript (imref3d, 1, 2j, 3) +***** error id=Octave:expected-real worldToSubscript (imref3d, 1, 2, 3j) +***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, [1, 2], 3, 4) +***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, 1, [2, 3], 4) +***** error id=Octave:invalid-input-arg worldToSubscript (imref3d, 1, 2, [3, 4]) +***** test + r = imref3d ([128, 128, 27], 2, 2, 4); + xW = [108, 108, 113.2, 2]; + yW = [92, 92, 92, -1]; + zW = [52, 55, 52, 0.33]; + [rS, cS, pS] = worldToSubscript (r, xW, yW, zW); + assert (rS, [46, 46, 46, NaN]) + assert (cS, [54, 54, 57, NaN]) + assert (pS, [13, 14, 13, NaN]) +11 tests, 11 passed, 0 known failure, 0 skipped +[inst/@imref3d/worldToIntrinsic.m] +>>>>> /build/octave-image-2.12.0/inst/@imref3d/worldToIntrinsic.m +***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d) +***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d, 1, 2) +***** error id=Octave:invalid-fun-call worldToIntrinsic (imref3d, 1, 2, 3, 4) +***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1j, 2, 3) +***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1, 2j, 3) +***** error id=Octave:expected-real worldToIntrinsic (imref3d, 1, 2, 3j) +***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, [1, 2], 3, 4) +***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, 1, [2, 3], 4) +***** error id=Octave:invalid-input-arg worldToIntrinsic (imref3d, 1, 2, [3, 4]) +***** test + r = imref3d ([128, 128, 27], 2, 2, 4); + xW = [108, 108, 108.2, 2]; + yW = [92, 92, 92, -1]; + zW = [52, 55, 52, 0.33]; + [xI, yI, zI] = worldToIntrinsic (r, xW, yW, zW); + assert (xI, [54, 54, 54.1, 1], 1e-6) + assert (yI, [46, 46, 46, -0.5], 1e-6) + assert (zI, [13, 13.75, 13, 0.0825], 1e-6) +10 tests, 10 passed, 0 known failure, 0 skipped +[inst/iptcheckmap.m] +>>>>> /build/octave-image-2.12.0/inst/iptcheckmap.m +***** test ("iptcheckmap (jet(64), 'func', 'var', 2)"); # simple must work +***** fail ("iptcheckmap (3, 'func', 'var', 2)"); # not a colormap 2 tests, 2 passed, 0 known failure, 0 skipped -[inst/isbw.m] ->>>>> /build/octave-image-2.12.0/inst/isbw.m -***** shared img - img = round (rand (10)); -***** assert (isbw (img, "non-logical"), true); -***** assert (isbw (img, "logical"), false); -***** assert (isbw (logical (img), "logical"), true); -***** assert (isbw (logical (img), "non-logical"), true); -***** test - img(1, 1) = 2; - assert (isbw (img, "non-logical"), false); -***** test - a( 1, 1) = 1; - a(50, 50) = 2; - assert (isbw (a, "non-logical"), false); -***** assert (isbw (rand (5, 5, 1, 4) > 0.5), true) -***** assert (isbw (rand (5, 5, 3, 4) > 0.5), false) -***** assert (isbw (rand (5, 5, 3) > 0.5), false) -***** assert (isbw (rand (5, 5, 1, 3, 4) > 0.5), false) -***** assert (isbw (randi ([0 1], 5, 5, 1, 4), "non-logical"), true) -***** assert (isbw (randi ([0 1], 5, 5, 3, 4), "non-logical"), false) -***** assert (isbw (randi ([0 1], 5, 5, 3), "non-logical"), false) -***** assert (isbw (randi ([0 1], 5, 5, 1, 3, 4), "non-logical"), false) -***** assert (isbw (single ([0 0 1]), "non-logical"), true) -***** assert (isbw ([0 NaN 1], "non-logical"), false) -16 tests, 16 passed, 0 known failure, 0 skipped -[inst/stretchlim.m] ->>>>> /build/octave-image-2.12.0/inst/stretchlim.m -***** error (stretchlim ()); -***** error (stretchlim ("bad parameter")); -***** error (stretchlim (zeros (10, 10), "bad parameter")); -***** error (stretchlim (zeros (10, 10), 0.01, 2)); -***** assert (stretchlim (0.01:.01:1), [0.02; 0.99]) -***** assert (stretchlim (0.01:.01:1), stretchlim (0.01:.01:1, [0.01 0.99])) -***** assert (stretchlim (0.01:.01:1, 0.15), stretchlim (0.01:.01:1, [0.15 0.85])) -***** assert (stretchlim (0.01:.01:1, [0.01,0.95]), [0.02; 0.95], eps) -***** assert (stretchlim (0.01:.01:1, 0), [0.01; 1]) -***** test - im = rand (5); - assert (stretchlim (im, 0), [min(im(:)); max(im(:))]) -***** test - im = rand (5, 5, 3); - assert (stretchlim (im, 0), - [min(im(:,:,1)(:)) min(im(:,:,2)(:)) min(im(:,:,3)(:)); - max(im(:,:,1)(:)) max(im(:,:,2)(:)) max(im(:,:,3)(:))]) -***** test - im = rand (5); - assert (stretchlim (im, 0.03), [min(im(:)); max(im(:))]) - assert (stretchlim (im, 0.0399), [min(im(:)); max(im(:))]) -***** assert (stretchlim (uint8 (1:100)), im2double (uint8 ([2; 99]))) -***** assert (stretchlim (uint8 (1:100), .25), im2double (uint8 ([26; 75]))) -***** assert (stretchlim (uint16 (1:1000)), im2double (uint16 ([11; 990]))) -***** assert (stretchlim (int16 (-100:100)), im2double (int16 ([-98; 98]))) -***** assert (stretchlim (single (0.01:.01:1)), - double (single (0.01:.01:1)([2; 99])).') -***** assert (stretchlim (uint8 ([1 repmat(2, [1, 90]) 92:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 4]) 6:100]), 0.05), - im2double (uint8 ([6; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) 7:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 6]) 8:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 7]) 9:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 8]) 10:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.04), - im2double (uint8 ([2; 96]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.05), - im2double (uint8 ([2; 95]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.06), - im2double (uint8 ([3; 94]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.07), - im2double (uint8 ([3; 93]))) -***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.08), - im2double (uint8 ([3; 92]))) -***** test - RGB = zeros (100, 1, 3, "uint16"); - RGB(:,:,1) = [1:1:100]; - RGB(:,:,2) = [2:2:200]; - RGB(:,:,3) = [4:4:400]; - assert (stretchlim (RGB) , im2double (uint16 ([2 4 8; 99 198 396]))) -***** test - im6c = zeros (100, 1, 6, "uint16"); - im6c(:,:,1) = [1:1:100]; - im6c(:,:,2) = [2:2:200]; - im6c(:,:,3) = [4:4:400]; - im6c(:,:,4) = [8:8:800]; - im6c(:,:,5) = [16:16:1600]; - im6c(:,:,6) = [32:32:3200]; - assert (stretchlim (im6c) , - im2double (uint16 ([2 4 8 16 32 64; 99 198 396 792 1584 3168]))) -***** test - im = [0 0 .1 .1 .1 .1 .2 .2 .2 .4 .4 .6 .6 .7 .7 .9 .9 .9 1 1]; - - assert (stretchlim (im), [0; 1]) - - ## Consider the returned lower limit in this test. A lower limit - ## of 0.1 will saturate two elements (10%), while 0.2 will saturate - ## 6 elements (30%). Both have the same distance to 20% but returning - ## 0.1 is Matlab compatible. - ## Now looking at the higher limit. A limit of .9 will saturate - ## 2 elements (10%), while a limit of 0.7 will saturate 5 elements (25%). - ## However, for Matlab compatibility we must return .9 even though - ## 25% would be closer to 20%. - ## Basically, it's not just rounded. - assert (stretchlim (im, .2), [0.1; 0.9]) - - assert (stretchlim (im, .15), [0.1; 0.9]) - assert (stretchlim (im, .1), [0.1; 0.9]) - assert (stretchlim (im, .25), [0.1; 0.7]) - - ## Reorder the vector of values (real images don't have the values - ## already sorted), just to be sure it all works. - im([6 3 16 11 7 17 14 8 5 19 15 1 2 4 18 13 9 20 10 12]) = im; - assert (stretchlim (im, .2), [0.1; 0.9]) - assert (stretchlim (im, .15), [0.1; 0.9]) - assert (stretchlim (im, .1), [0.1; 0.9]) - assert (stretchlim (im, .25), [0.1; 0.7]) -***** assert (stretchlim (0.01:.001:1), [0.019; 0.991], eps) -***** assert (stretchlim (0.01:.001:1, [0.01,0.95]), [0.019; 0.951], eps) -***** assert (stretchlim (0.01:.001:1, 0), [0.01; 1]) -***** assert (stretchlim (single (0.01:.001:1)), - double (single (0.01:.001:1)([10; 982])).') -***** xtest - assert (stretchlim ([(.05:.05:1) (2:4)], 0.2), [0.25; 0.95], eps) - assert (stretchlim ([(.05:.05:1) (2:5)], 0.2), [0.25; 1]) - assert (stretchlim ([(.05:.05:1) (2:6)], 0.2), [0.3; 1]) - assert (stretchlim ([(.05:.05:1) (2:7)], 0.2), [0.3; 1]) -!!!!! known failure -ASSERT errors for: assert (stretchlim ([(.05:.05:1), (2:6)], 0.2),[0.3; 1]) - - Location | Observed | Expected | Reason - (1) 0.3 0.3 Abs err 5.5511e-17 exceeds tol 0 by 6e-17 -***** test - assert (stretchlim ([(-6:0) (.05:.05:1)], 0.2), [0; 0.75], eps) - assert (stretchlim ([(-5:0) (.05:.05:1)], 0.2), [0; 0.75], eps) -***** test - im = rand (4, 4, 2, 3, 2); - rv = zeros (2, 2, 3, 2); - for p = 1:2 - for q = 1:3 - for r = 1:2 - rv(:,p,q,r) = stretchlim (im(:,:,p,q,r), 0.25); - endfor - endfor - endfor - assert (stretchlim (im, 0.25), rv) -***** test - im = rand (4, 4, 2, 3, 2); - rv = zeros (2, 2, 3, 2); - for p = 1:2 - for q = 1:3 - for r = 1:2 - rv(:,p,q,r) = stretchlim (im(:,:,p,q,r), 0); - endfor - endfor - endfor - assert (stretchlim (im, 0), rv) -***** assert (stretchlim (zeros (5)), [0; 1]) -***** assert (stretchlim (ones (5)), [0; 1]) -***** assert (stretchlim (.6 * ones (5)), [0; 1]) -***** assert (stretchlim (zeros (3, 3, 3, 3)), repmat ([0; 1], [1 3 3])) -***** assert (stretchlim ([0 .5 .5 .5 .5 1], .2), [0; 1]) -***** test - im = repmat ((magic (5) -1) / 24, [1 1 3 3]); - im(:,:,1,1) = 0; - im(:,:,2,2) = .5; - im(:,:,3,3) = 1; - lims = stretchlim (im, 0.2); - assert (size (lims), [2 3 3]) - assert (lims(:, [2 3 4 6 7 8]), - repmat ([(1/24)*round(24*.2); 1-((1/24)*round(24*.2))], [1 6]), eps) - assert (lims(:, [1 5 9]), repmat ([0; 1], [1 3])) -45 tests, 44 passed, 1 known failure, 0 skipped -[inst/im2uint16.m] ->>>>> /build/octave-image-2.12.0/inst/im2uint16.m -***** assert (im2uint16 (uint16 ([1 2 3])), uint16 ([1 2 3])); -***** assert (im2uint16 (uint8 ([0 127 128 255])), uint16 ([0 32639 32896 65535])); -***** assert (im2uint16 ([0 0.5 1]), uint16 ([0 32768 65535])); -***** assert (im2uint16 ([0 1/65535 1.4/65535 1.5/65535 1]), uint16 ([0 1 1 2 65535])); -***** assert (im2uint16 ([1 2]), uint16 ([65535 65535])); -***** assert (im2uint16 ([-1 0 0.5 1]), uint16 ([0 0 32768 65535])); -***** assert (im2uint16 (int16 ([-32768 -1 0 32768])), uint16 ([0 32767 32768 65535])); -***** assert (im2uint16 ([false true]), uint16 ([0 65535])); -***** assert (im2uint16 ([true false]), uint16 ([65535 0])); -***** assert (im2uint16 (uint8 ([3 25]), "indexed"), uint16 ([3 25])); -***** assert (im2uint16 ([1 3 25], "indexed"), uint16 ([0 2 24])); -***** error im2uint16 ([0 1 2], "indexed"); -***** error im2uint16 (int16 ([17 8]), "indexed"); -***** error im2uint16 (int16 ([-7 8]), "indexed"); -***** error im2uint16 ([false true], "indexed"); -***** error im2uint16 (65537, "indexed"); -16 tests, 16 passed, 0 known failure, 0 skipped -[inst/immse.m] ->>>>> /build/octave-image-2.12.0/inst/immse.m -***** error immse (rand (10), rand (12)) -***** error immse (uint8 ([0 1 2 3]), uint16 ([0 1 2 3])) -***** error immse (double ([0 1 2 3]), single ([0 1 2 3])) -***** assert (immse (magic (5), magic (5)), 0) -***** assert (immse (single (magic (5)), single (magic (5))), single (0)) -***** assert (immse (uint8 (magic (5)), uint8 (magic (5))), 0) -6 tests, 6 passed, 0 known failure, 0 skipped -[inst/col2im.m] ->>>>> /build/octave-image-2.12.0/inst/col2im.m -***** demo - ## Divide A using distinct blocks and then reverse the operation - A = [ 1:10 - 11:20 - 21:30 - 31:40]; - B = im2col (A, [2 5], "distinct") - C = col2im (B, [2 5], [4 10], "distinct") -***** demo - ## Get sliding blocks of size from A into columns, calculate the - ## mean of each block (mean of each column), and reconstruct A - ## after a median filter. - A = reshape (1:24, [4 6]) - B = im2col (A, [2 3], "sliding") - C = mean (B); - col2im (C, [1 1], [3 4], "sliding") -***** error col2im (ones (10), [5 5], [10 10], "wrong_block_type"); -***** error col2im (ones (10), [1 1], [ 7 7], "sliding"); -***** error col2im (ones (10), [3 3], [10 10], "distinct") -***** error col2im (ones (10), [5 5], [10 11], "distinct"); -***** assert (col2im (sum (im2col (magic (10), [3 3], "sliding")), [1 1], [8 8]), - convn (magic (10), ones (3, 3), "valid")); -***** test - B = ones (1, (10-2+1)*(7-3+1)); - A = ones ((10-2+1), (7-3+1)); - assert (col2im (B, [2 3], [10 7]), A); - - ## same but different classes - assert (col2im (int16 (B), [2 3], [10 7]), int16 (A)); - assert (col2im (single (B), [2 3], [10 7]), single (A)); - assert (col2im (logical (B), [2 3], [10 7]), logical (A)); -***** test - a = rand (10)(:); - assert (col2im (a, [1 1], [10 10]), col2im (a, [1 1], [10 10], "sliding")) -***** shared A, B - v = [1:10]'; - r = reshape (1:10, [2 5]); - B = [v v+10 v+20 v+30 v+40 v+50]; - A = [r r+30 - r+10 r+40 - r+20 r+50]; - assert (col2im (B, [2 5], [6 10], "distinct"), A); -***** assert (col2im (int16 (B), [2 5], [6 10], "distinct"), int16 (A)); -***** assert (col2im (logical (B), [2 5], [6 10], "distinct"), logical (A)); -***** assert (col2im (single (B), [2 5], [6 10], "distinct"), single (A)); -***** test - a = rand (10, 8); - b = im2col (a, [5 5], "distinct"); - assert (col2im (b, [5 5], [10 8], "distinct"), a); - - a = rand (8); - b = im2col (a, [5 5], "distinct"); - assert (col2im (b, [5 5], [8 8], "distinct"), a); -***** shared a, b - ## Same number of multiple dimensions - a = rand (10, 10, 10); - b = im2col (a, [5 5 5], "distinct"); -***** assert (col2im (b, [5 5 5], [10 10 10], "distinct"), a); - - ## Different number of dimensions - a = rand (10, 10, 10); - b = im2col (a, [5 5], "distinct"); -***** assert (col2im (b, [5 5], [10 10 10], "distinct"), a); - - ## Removing padding from multiple dimensions - a = rand (10, 10, 7); - b = im2col (a, [5 5 3], "distinct"); -***** assert (col2im (b, [5 5 3], [10 10 7], "distinct"), a); - - a = rand (10, 10, 7); - b = im2col (a, [5 5 5 2], "distinct"); -***** assert (col2im (b, [5 5 5 2], [10 10 7], "distinct"), a); -15 tests, 15 passed, 0 known failure, 0 skipped -[inst/labelmatrix.m] ->>>>> /build/octave-image-2.12.0/inst/labelmatrix.m +[inst/mat2gray.m] +>>>>> /build/octave-image-2.12.0/inst/mat2gray.m +***** assert(mat2gray([1 2 3]), [0 0.5 1]); # standard use +***** assert(mat2gray(repmat ([1 2; 3 3], [1 1 3])), repmat ([0 0.5; 1 1], [1 1 3])); # setting min and max +***** assert(mat2gray([1 2 3], [2 2]), [1 1 1]); # equal min and max +***** assert(mat2gray([-1 0 0.5 3], [2 2]), [0 0 0.5 1]); # equal min and max ***** test - cc = struct (); - cc.Connectivity = 8; - cc.ImageSize = [7 7]; - cc.NumObjects = 4; - cc.PixelIdxList = {[1;2], [5;7;12;13;14], [22;23], [26;32;33;36;37;38]}; - - l = uint8 ([ - 1 0 0 3 0 4 0 - 1 0 0 3 0 4 0 - 0 0 0 0 0 4 0 - 0 0 0 0 4 0 0 - 2 2 0 4 4 0 0 - 0 2 0 0 0 0 0 - 2 2 0 0 0 0 0 - ]); - assert (labelmatrix (cc), l) -1 test, 1 passed, 0 known failure, 0 skipped + ## SCALE is unset and all values in the input IMAGE are the same: + ## case 1: all values are in the [0 1] range] + assert (mat2gray ([.5 .5; .5 .5]), [.5 .5; .5 .5]) + ## case 2: all values are above the [0 1] range + assert (mat2gray ([3 3; 3 3]), [1 1; 1 1]) + ## case 2: all values are below the [0 1] range + assert (mat2gray ([-3 -3; -3 -3]), [0 0; 0 0]) +***** assert(mat2gray([1 2 3], [3 1]), [1 0.5 0]); # max and min inverted +***** assert (mat2gray ([-3 -2 -1]), [0 0.5 1]) +7 tests, 7 passed, 0 known failure, 0 skipped [inst/findbounds.m] >>>>> /build/octave-image-2.12.0/inst/findbounds.m ***** test @@ -8754,8 +8655,185 @@ assert (diff (outbnd(:,1)), diag * abs (cos (theta - ang)), eps) assert (diff (outbnd(:,2)), diag * abs (cos (theta - ang)), eps) 1 test, 1 passed, 0 known failure, 0 skipped -[inst/lab2single.m] ->>>>> /build/octave-image-2.12.0/inst/lab2single.m +[inst/rangefilt.m] +>>>>> /build/octave-image-2.12.0/inst/rangefilt.m +***** test + im = rangefilt (ones (5)); + assert (im, zeros (5)); +***** test + A = zeros (3,3); + B = ones (3,3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3,3); + E(2,2) = 2; + F = 3 .* ones (3,3); + F(2,2) = 1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + A_out = [0 0 0; 0 0 0; 0 0 0]; + B_out = [0 0 0; 0 0 0; 0 0 0]; + C_out = [1 1 1; 2 2 2; 1 1 1]; + D_out = [1 2 1; 1 2 1; 1 2 1]; + E_out = [1 1 1; 1 1 1; 1 1 1]; + F_out = [2 2 2; 2 2 2; 2 2 2]; + G_out = [7 13 6; 7+pi 16 7; 7+pi 16 7]; + H_out = [8 11 11; 8 11 11; 8 8 4]; + assert (rangefilt (A), A_out) + assert (rangefilt (B), B_out) + assert (rangefilt (C), C_out) + assert (rangefilt (D), D_out) + assert (rangefilt (E), E_out) + assert (rangefilt (F), F_out) + assert (rangefilt (G), G_out, eps) + assert (rangefilt (H), H_out) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/iptnum2ordinal.m] +>>>>> /build/octave-image-2.12.0/inst/iptnum2ordinal.m +***** assert (strcmp (iptnum2ordinal (1), 'first')); # simple works +***** assert (strcmp (iptnum2ordinal (21), '21st')); # after 20, goes stupid +***** assert (strcmp (iptnum2ordinal (100), '100th')); # use th correctly +***** fail ("iptnum2ordinal (inf)"); # must be real +***** fail ("iptnum2ordinal (0)"); # must be positive +***** fail ("iptnum2ordinal (-1)"); # must be positive +***** fail ("iptnum2ordinal (3.4)"); # must be integer +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/isgray.m] +>>>>> /build/octave-image-2.12.0/inst/isgray.m +***** assert (isgray ([0 0 1; 1 0 1]), true) +***** assert (isgray (zeros (3)), true) +***** assert (isgray (ones (3)), true) +***** test + a = rand (10); + assert (isgray (a), true); + a(5, 5) = 2; + assert (isgray (a), false); +***** test + a = uint8 (randi (255, 10)); + assert (isgray (a), true); + a = int8 (a); + assert (isgray (a), false); +***** test + a = rand (10); + a(50) = NaN; + assert (isgray (a), true); +***** assert (isgray (rand (5, 5, 1, 4)), true); +***** assert (isgray (rand (5, 5, 3, 4)), false); +***** assert (isgray (rand (5, 5, 3)), false); +***** assert (isgray (rand (5, 5, 1, 3, 4)), false); +***** assert (isgray (rand (5, "single")), true) +***** assert (isgray ([.1 .2 .3; .4 NaN .6; .7 .8 .9]), true) +***** assert (isgray ([.1 .2 .3; NA NaN .6; .7 .8 .9]), true) +***** assert (isgray ([.1 .2 .3; NA .5 .6; .7 .8 .9]), true) +***** assert (isgray (NaN (5)), false) +***** assert (isgray (NA (5)), false) +16 tests, 16 passed, 0 known failure, 0 skipped +[inst/imclose.m] +>>>>> /build/octave-image-2.12.0/inst/imclose.m +***** shared in, out + in = [ 0 0 0 1 1 1 0 0 1 1 + 0 1 0 1 1 1 0 0 0 1 + 1 1 1 1 1 0 0 0 0 0 + 0 1 1 1 1 0 0 0 0 0 + 0 0 0 1 0 0 0 0 1 0 + 0 0 0 0 0 0 0 1 1 1 + 0 0 0 0 1 0 1 0 1 0 + 0 0 0 1 1 1 1 1 0 0 + 0 0 0 0 1 1 1 0 0 0 + 0 0 0 1 1 1 0 0 0 0]; + + out = [ 1 1 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 0 0 0 1 + 1 1 1 1 1 0 0 0 0 1 + 1 1 1 1 1 0 0 0 0 1 + 0 0 0 1 1 0 0 0 1 1 + 0 0 0 1 1 1 1 1 1 1 + 0 0 0 1 1 1 1 1 1 1 + 0 0 0 1 1 1 1 1 0 0 + 0 0 0 1 1 1 1 0 0 0 + 0 0 0 1 1 1 1 0 0 0]; +***** assert (imclose (logical (in), ones (3)), logical (out)); + + out = [99 99 16 16 16 73 74 64 64 64 + 98 88 16 16 16 73 71 64 64 64 + 93 88 88 61 61 61 68 70 70 70 + 93 88 88 61 61 61 68 71 71 71 + 93 93 88 61 61 61 68 75 66 66 + 79 79 82 90 90 49 49 49 49 66 + 79 79 82 91 91 48 46 46 46 66 + 79 79 82 95 97 48 46 46 46 72 + 18 18 94 96 84 48 46 46 46 59 + 18 18 100 96 84 50 50 50 50 59]; +***** assert (imclose (magic (10), ones (3)), out); +***** assert (imclose (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); + + ## using a se that will be decomposed in 2 pieces + out =[ 99 99 88 74 74 74 74 70 70 70 + 98 93 88 74 74 74 74 70 70 70 + 93 93 88 74 74 74 74 70 70 70 + 93 93 88 74 74 74 74 71 71 71 + 93 93 88 75 75 75 75 75 75 75 + 93 93 90 90 90 72 72 72 72 72 + 93 93 91 91 91 72 72 72 72 72 + 93 93 93 95 97 72 72 72 72 72 + 94 94 94 96 97 72 72 72 72 72 + 100 100 100 97 97 72 72 72 72 72]; +***** assert (imclose (magic (10), ones(5)), out); + + ## using a weird non-symmetric and even-size se + out =[ 92 99 16 16 16 70 74 58 58 58 + 98 88 60 73 16 73 69 70 64 58 + 88 81 88 60 60 60 69 69 70 70 + 87 87 61 68 61 60 68 69 71 69 + 86 93 87 61 61 61 68 75 68 69 + 23 82 89 89 90 45 68 45 68 66 + 23 23 82 89 91 48 45 45 45 66 + 79 23 82 95 97 46 48 46 45 72 + 18 79 94 96 78 50 46 46 46 59 + 18 18 100 94 94 78 50 50 46 59]; +***** assert (imclose (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/rgb2lab.m] +>>>>> /build/octave-image-2.12.0/inst/rgb2lab.m +***** assert (rgb2lab ([0 0 0]), [0, 0, 0], 1e-2) +***** assert (rgb2lab ([1 0 0]), [53.24, 80.09, 67.20], 1e-2) +***** assert (rgb2lab ([1 1 0]), [97.14, -21.55, 94.48], 1e-2) +***** assert (rgb2lab ([0 1 0]), [87.74, -86.18, 83.18], 1e-2) +***** assert (rgb2lab ([0 1 1]), [91.11, -48.09, -14.13], 1e-2) +***** assert (rgb2lab ([0 0 1]), [32.30, 79.19, -107.86], 1e-2) +***** assert (rgb2lab ([1 0 1]), [60.32, 98.24, -60.83], 1e-2) +***** assert (rgb2lab ([1 1 1]), [100, 0.00, 0.00], 1e-2) +***** assert (rgb2lab ([0.5 0.5 0.5]), [53.39, 0.00, 0.00], 1e-2) +***** assert (rgb2lab ([0.75 0 0]), [39.77, 64.51, 54.13], 1e-2) +***** assert (rgb2lab ([0.5 0 0]), [25.42, 47.91, 37.91], 1e-2) +***** assert (rgb2lab ([0.25 0 0]), [9.66, 29.68, 15.24], 1e-2) +***** assert (rgb2lab ([1 0.5 0.5]), [68.11, 48.39, 22.83], 1e-2) +***** assert (rgb2lab ([1.5 1 1]), [111.47, 43.42, 17.98], 1e-2) +***** test + rgb_map = rand (64, 3); + assert (lab2rgb (rgb2lab (rgb_map)), rgb_map, 2e-5); +***** test + rgb_img = rand (64, 64, 3); + assert (lab2rgb (rgb2lab (rgb_img)), rgb_img, 2e-5); +***** assert (rgb2lab (sparse ([0 0 1])), sparse ([32.30, 79.19, -107.86]), 1e-2) +***** assert (rgb2lab (sparse ([0 1 1])), sparse ([91.11, -48.09, -14.13]), 1e-2) +***** assert (rgb2lab (sparse ([1 1 1])), sparse ([100, 0.00, 0.00]), 1e-2) +***** assert (rgb2lab (uint8([255 255 255])), [100, 0.00, 0.00], 1e-2) +***** assert (class (rgb2lab (single([1 1 1]))), 'single') +***** error rgb2lab () +***** error rgb2lab (1,2) +***** error rgb2lab ({1}) +***** error rgb2lab (ones (2,2)) +***** test + rgb = rand (16, 16, 3, 5); + lab = zeros (size (rgb)); + for i = 1:5 + lab(:,:,:,i) = rgb2lab (rgb(:,:,:,i)); + endfor + assert (rgb2lab (rgb), lab) +26 tests, 26 passed, 0 known failure, 0 skipped +[inst/lab2double.m] +>>>>> /build/octave-image-2.12.0/inst/lab2double.m ***** test l_max_f = 100 + (25500 / 65280); ab_max_f = 127 + (255 / 256); @@ -8768,9 +8846,9 @@ -200 -129 -128 - -128+(255/65280)*(0.499) - -128+(255/65280)*(0.500) - -128+(255/65280)*(0.501) + -128+(255/65280)*(0.499999) + -128+(255/65280)*(0.500001) # should be 0.5, but float rounding error + -128+(255/65280)*(0.500002) -127 -1 0 @@ -8788,7 +8866,7 @@ 255 256 257]; - cm = repmat (single (cm), [1 3]); + cm = repmat (cm, [1 3]); im2d = reshape (cm, [7 4 3]); imnd = permute (im2d, [1 4 3 2]); @@ -8862,234 +8940,822 @@ assert (lab2uint16 (im2d), im2d_uint16) assert (lab2uint16 (imnd), permute (im2d_uint16, [1 4 3 2])) - assert (lab2double (cm), double (cm)) - assert (lab2double (im2d), double (im2d)) - assert (lab2double (imnd), double (imnd)) + assert (lab2single (cm), single (cm)) + assert (lab2single (im2d), single (im2d)) + assert (lab2single (imnd), single (imnd)) 1 test, 1 passed, 0 known failure, 0 skipped -[inst/edgetaper.m] ->>>>> /build/octave-image-2.12.0/inst/edgetaper.m -***** assert (class (edgetaper (rand (100), rand (16))), "double") -***** assert (class (edgetaper (randi (255, 100, "uint8"), rand (16))), "uint8") -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/imsharpen.m] ->>>>> /build/octave-image-2.12.0/inst/imsharpen.m +[inst/viscircles.m] +>>>>> /build/octave-image-2.12.0/inst/viscircles.m +***** demo + centers = randi ([0 100], 5, 2); + radii = randi ([10 100], 5, 1); + axis equal + viscircles (centers, radii, + "Color", "magenta", + "LineStyle", ":", + "LineWidth", 5); + title ("5 random circles"); + #---------------------------------------------- + # the figure window shows 5 circles with random + # radii and positions +***** test # old undocumented property + h = viscircles ([0 0], 1, "EdgeColor", "black"); + assert (get (get (h, "children")(1), "color"), [0 0 0]) +***** test # old undocumented property + h = viscircles ([0 0], 1, "DrawBackgroundCircle", false); + assert (numel (get (h, "children")), 1) +***** error ... + viscircles ([0 0], 1, "Color", "magenta", "EdgeColor", "black") ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = [ - 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 - 0.00000 -0.00238 -0.01064 -0.01755 -0.01064 -0.00238 0.00000 - 0.00000 -0.01064 -0.04771 -0.07866 -0.04771 -0.01064 0.00000 - 0.00000 -0.01755 -0.07866 1.67032 -0.07866 -0.01755 0.00000 - 0.00000 -0.01064 -0.04771 -0.07866 -0.04771 -0.01064 0.00000 - 0.00000 -0.00238 -0.01064 -0.01755 -0.01064 -0.00238 0.00000 - 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; - assert (imsharpen (A), B, 5e-6) + centers = randi ([0 100], 5, 2); + radii = randi ([0 100], 5, 1); + h = viscircles (centers, radii); + close; ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = [ - -0.0035147 -0.0065663 -0.0095539 -0.0108259 -0.0095539 -0.0065663 -0.0035147 - -0.0065663 -0.0122674 -0.0178490 -0.0202255 -0.0178490 -0.0122674 -0.0065663 - -0.0095539 -0.0178490 -0.0259701 -0.0294280 -0.0259701 -0.0178490 -0.0095539 - -0.0108259 -0.0202255 -0.0294280 1.7666538 -0.0294280 -0.0202255 -0.0108259 - -0.0095539 -0.0178490 -0.0259701 -0.0294280 -0.0259701 -0.0178490 -0.0095539 - -0.0065663 -0.0122674 -0.0178490 -0.0202255 -0.0178490 -0.0122674 -0.0065663 - -0.0035147 -0.0065663 -0.0095539 -0.0108259 -0.0095539 -0.0065663 -0.0035147]; - assert (imsharpen (A, "radius", 2), B, 5e-8) + centers = randi ([0 100], 5, 2); + radii = randi ([0 100], 5, 1); + figure (); + h = viscircles (gca (), centers, radii); + close; ***** test - A = zeros (7, 7); - A(4,4) = 1; - assert (imsharpen (A, "radius", 0.01), A) + centers = randi ([0 100], 5, 2); + radii = randi ([0 100], 5, 1); + h = viscircles (centers, radii, "Color", "magenta", + "LineStyle", ":", "LineWidth", 5); + close; ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = A; - B(3:5,3:5) = -0.000000000011110; - B(3:5,4) = -0.000002981278097; - B(4,3:5) = -0.000002981278097; - B(4,4) = 1.000011925156828; - assert (imsharpen (A, "radius", 0.2), B, eps*10) + centers = randi ([0 100],5,2); + radii = randi ([0 100],5,1); + figure (); + h = viscircles (centers, radii, "Color", "magenta", + "LineStyle", ":", "LineWidth", 5); + close; +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/lab2uint16.m] +>>>>> /build/octave-image-2.12.0/inst/lab2uint16.m ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = [ - 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 - 0.00000 -0.00297 -0.01331 -0.02194 -0.01331 -0.00297 0.00000 - 0.00000 -0.01331 -0.05963 -0.09832 -0.05963 -0.01331 0.00000 - 0.00000 -0.02194 -0.09832 1.83790 -0.09832 -0.02194 0.00000 - 0.00000 -0.01331 -0.05963 -0.09832 -0.05963 -0.01331 0.00000 - 0.00000 -0.00297 -0.01331 -0.02194 -0.01331 -0.00297 0.00000 - 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; - assert (imsharpen (A, "amount", 1), B, 5e-6) + cm_uint16 = uint16 ([0 127 128 383 384 65151 65152 65279 65280 65281 65534 65535]); + cm_uint16 = repmat (cm_uint16(:), [1 3]); + im2d_uint16 = reshape (cm_uint16, [4 3 3]); + imnd_uint16 = permute (im2d_uint16, [1 4 3 2]); + + cm_uint8 = uint8 ([0 0 1 1 2 254 255 255 255 255 255 255]); + cm_uint8 = repmat (cm_uint8(:), [1 3]); + assert (lab2uint8 (cm_uint16), cm_uint8) + im2d_uint8 = reshape (cm_uint8, [4 3 3]); + assert (lab2uint8 (im2d_uint16), im2d_uint8) + assert (lab2uint8 (imnd_uint16), permute (im2d_uint8, [1 4 3 2])) + + l1 = 100/65280; + ab1 = 255/65280; + cm = [ + 0 -128 + 127*l1 -128+(ab1*127) + 128*l1 -128+(ab1*128) + 383*l1 -128+(ab1*383) + 384*l1 -128+(ab1*384) + 65151*l1 -128+(ab1*65151) + 65152*l1 -128+(ab1*65152) + 65279*l1 -128+(ab1*65279) + 100 127 + 65281*l1 -128+(ab1*65281) + 65534*l1 -128+(ab1*65534) + 65535*l1 -128+(ab1*65535)]; + cm(:,3) = cm(:,2); + im2d = reshape (cm, [4 3 3]); + imnd = permute (im2d, [1 4 3 2]); + + assert (lab2double (cm_uint16), cm) + assert (lab2double (im2d_uint16), im2d) + assert (lab2double (imnd_uint16), imnd) + + assert (lab2single (cm_uint16), single (cm)) + assert (lab2single (im2d_uint16), single (im2d)) + assert (lab2single (imnd_uint16), single (imnd)) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imlincomb.m] +>>>>> /build/octave-image-2.12.0/inst/imlincomb.m +***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20])), + uint8 ([153 15])); # default to first class and truncate +***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), "uint16"), + uint16 ([153 15])); # defining output class works +***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 10), + uint8 ([163 25])); # default to first class and truncate +***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 1000, "uint16"), + uint16 ([1153 1015])); # defining output class works +***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 1000), + uint8 ([255 255])); # defining output class works +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/entropyfilt.m] +>>>>> /build/octave-image-2.12.0/inst/entropyfilt.m ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = zeros (7, 7); - B(4,4) = 1.670317742690299; - B(4,3) = -0.078656265079077; - B(3,4) = -0.078656265079077; - B(4,5) = -0.078656265079077; - B(5,4) = -0.078656265079077; - assert (imsharpen (A, "Threshold", 0.117341762), B, eps*10) + a = log2 (9) * ones (5, 5); + b = -(2*log2 (2/9) + log2 (1/9))/3; + a(1,2:4) = b; + a(5,2:4) = b; + a(2:4,1) = b; + a(2:4,5) = b; + c = -(4*log2 (4/9) + 4*log2 (2/9) + log2 (1/9))/9; + a(1,1) = c; + a(5,1) = c; + a(1,5) = c; + a(5,5) = c; + assert (entropyfilt (uint8 (magic (5)), ones (3, 3)), a, 2*eps); ***** test - A = zeros (7, 7); - A(4,4) = 1; - B = zeros (7, 7); - B(4,4) = 1.670317742690299; - assert (imsharpen (A, "Threshold", 0.117341763), B, eps*10) + assert (entropyfilt (uint8 (ones (10, 10))), zeros (10, 10)); ***** test - A = zeros (7, 7, "uint8"); - A(3:5,3:5) = 150; - B = zeros (7, 7, "uint8"); - B(3:5,3:5) = 211; - B(4,3:5) = 195; - B(3:5,4) = 195; - B(4,4) = 175; - assert (imsharpen (A), B) + A = zeros (3,3); + B = ones (3,3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3,3); + E(2,2) = 2; + F = 3 .* ones (3,3); + F(2,2) = 1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + Hf = mat2gray(H); + X = uint8(abs(H)); + P = [0.2 0.201 0.204; 0.202 0.203 0.205; 0.205 0.206 0.202]; + Q = uint16([100 101 103; 100 105 102; 100 102 103]); + R = uint8([1 2 3 4 5; 11 12 13 14 15; 21 22 4 5 6; 5 5 3 2 1; 15 14 14 14 14]); + Aout = zeros (3); + Bout = zeros (3); + Cout = zeros (3); + Dout = zeros (3); + Eout = zeros (3); + Fout = zeros (3); + Gout_1 = -sum([2 7]./9.*log2([2 7]./9)); + Gout_2 = -sum([3 6]./9.*log2([3 6]./9)); + Gout_3 = -sum([4 5]./9.*log2([4 5]./9)); + Gout = [Gout_1 Gout_2 Gout_3; Gout_1 Gout_2 Gout_3; Gout_1 Gout_2 Gout_3]; + Hout_5 = -sum([2 7]./9.*log2([2 7]./9)) ; + Hout = [0.8916 0.8256 0.7412; 0.8256 Hout_5 0.6913; 0.7412 0.6913 0.6355]; + Hfout_5 = -sum([3 2 1 1 1 1]./9.*log2([3 2 1 1 1 1]./9)); + Hfout = [2.3613 2.3296 2.2252; 2.4571 Hfout_5 2.3090; 2.4805 2.4488 2.3445]; + Xout_5 = -sum([1 1 1 1 2 3]./9.*log2([1 1 1 1 2 3]./9)); + Xout = [2.3613 2.3296 2.2252; 2.4571 Xout_5 2.3090; 2.4805 2.4488 2.3445]; + Pout_5 = -sum([1 2 6]./9.*log2([1 2 6]./9)); + Pout = [1.1137 1.1730 1.2251; 1.1595 Pout_5 1.2774; 1.1556 1.2183 1.2635]; + Qout = zeros(3); + Rout = [3.5143 3.5700 3.4871 3.4957 3.4825; + 3.4705 3.5330 3.4341 3.4246 3.3890; + 3.3694 3.4063 3.3279 3.3386 3.3030; + 3.3717 3.4209 3.3396 3.3482 3.3044; + 3.4361 3.5047 3.3999 3.4236 3.3879]; + assert (entropyfilt (A), Aout); + assert (entropyfilt (B), Bout); + assert (entropyfilt (C), Cout); + assert (entropyfilt (D), Dout); + assert (entropyfilt (E), Eout); + assert (entropyfilt (F), Fout); + assert (entropyfilt (G), Gout, 1e-4); + assert (entropyfilt (H), Hout, 1e-4); + assert (entropyfilt (Hf), Hfout, 1e-4); + assert (entropyfilt (X), Xout, 1e-4); + assert (entropyfilt (P), Pout, 1e-4); + assert (entropyfilt (Q), Qout); + assert (entropyfilt (R), Rout, 1e-4); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/fftconv2.m] +>>>>> /build/octave-image-2.12.0/inst/fftconv2.m +***** xtest + a = repmat (1:10, 5); + b = repmat (10:-1:3, 7); + assert (fftconv2 (a, b), conv2 (a, b), 1.8e4*eps) + assert (fftconv2 (b, a), conv2 (b, a), 1.8e4*eps) + assert (fftconv2 (a, b, "full"), conv2 (a, b, "full"), 1.8e4*eps) + assert (fftconv2 (b, a, "full"), conv2 (b, a, "full"), 1.8e4*eps) + assert (fftconv2 (a, b, "same"), conv2 (a, b, "same"), 1.8e4*eps) + assert (fftconv2 (b, a, "same"), conv2 (b, a, "same"), 1.8e4*eps) + assert (isempty (fftconv2 (a, b, "valid"))); + assert (fftconv2 (b, a, "valid"), conv2 (b, a, "valid"), 1e4*eps) ***** test - A = zeros (7, 7, "uint8"); - A(3:5,3:5) = 100; - B = zeros (7, 7, "uint8"); - B(3:5,3:5) = 173; - assert (imsharpen (A, "radius", 4), B) + x = 1:4; + y = 4:-1:1; + a = repmat(1:10, 5); + assert (fftconv2 (x, y, a), conv2 (x, y, a), 1e4*eps) + assert (fftconv2 (x, y, a, "full"), conv2 (x, y, a, "full"), 1e4*eps) + assert (fftconv2 (x, y, a, "same"), conv2 (x, y, a, "same"), 1e4*eps) + assert (fftconv2 (x, y, a, "valid"), conv2 (x, y, a, "valid"), 1e4*eps) +***** demo + ## Draw a cross + z = zeros (101, 101); + z(50, :) = 1; + z(:, 50) = 1; + subplot (1, 3, 1) + imshow (z); + title ("Original thin cross") + + ## Draw a sinc blob + b = getheight (strel ("ball", 10, 1)); + subplot (1, 3, 2) + imshow (b); + title ("Sync blob") + + ## Convolve the cross with the blob + fc = real (fftconv2 (z, b, "same")); + subplot (1, 3, 3) + imshow (fc, [min(fc(:)) max(fc(:))]) + title ("Convolution in the frequency domain") +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/imquantize.m] +>>>>> /build/octave-image-2.12.0/inst/imquantize.m +***** error + imquantize (rand (5), [3 4 2 5]) +***** error + imquantize (rand (5), [1 2 3], "foo") +***** error + imquantize (rand (5), [1 2 3 4], 1:6) +***** error + imquantize (rand (5), [1 2 3 4], 1:2) ***** test - A = zeros (7, 7, 3, "uint8"); - A(4,4,:) = 255; - assert (imsharpen (A), A) -***** xtest - A = zeros(7,7,3, "uint8"); - A(4,4,1) = 255; - B = A; - B(4,4,2) = 146; # Octave result is 145; - B(4,4,3) = 100; # Octave result is 99; - assert (imsharpen (A), B) -!!!!! known failure -ASSERT errors for: assert (imsharpen (A),B) + img = [-inf 0 10000000; -100000 -3 1/1000000; 5 5 10]; + [q, q_idx] = imquantize (img, 5); + assert (q, [1 1 2; 1 1 1; 1 1 2]) + assert (q_idx, q) +***** test + img = [1:10; 11:20; 21:30; 31:40; 41:50; 51:60; 61:70]; - Location | Observed | Expected | Reason - (4,4,2) 145 146 Abs err 1 exceeds tol 0 by 1 - (4,4,3) 99 100 Abs err 1 exceeds tol 0 by 1 -***** xtest - A = zeros (7, 7, 3, "uint8"); - A(3:5,3:5,1) = 100; - A(3:5,3:5,2) = 150; - B = A; - B(3:5,3:5,1) = 164; - B(3:5,4,1) = 146; # Octave result is 147 - B(4,3:5,1) = 146; # Octave result is 145 - B(4,4,1) = 125; # Octave result is 126 - B(3:5,3:5,2) = 213; - B(3:5,4,2) = 195; # Octave result is 196 - B(4,3:5,2) = 195; # Octave result is 196 - B(4,4,2) = 175; - B(3:5,3:5,3) = 79; - B(3:5,4,3) = 62; - B(4,3:5,3) = 62; - B(4,4,3) = 40; # Octave result is 39 - assert (imsharpen (A), B) -!!!!! known failure -ASSERT errors for: assert (imsharpen (A),B) + expected_q = [ + 0 0 0 0 0 1 1 1 1 1 + 1 1 1 1 1 5 5 5 5 5 + 5 5 5 5 5 10 10 10 10 10 + 20 20 20 20 20 20 20 20 20 20 + 30 30 30 30 30 30 30 30 30 30 + 30 30 30 30 30 30 30 30 30 30 + 15 15 15 15 15 15 15 15 15 15]; - Location | Observed | Expected | Reason - (4,3,1) 147 146 Abs err 1 exceeds tol 0 by 1 - (3,4,1) 147 146 Abs err 1 exceeds tol 0 by 1 - (4,4,1) 126 125 Abs err 1 exceeds tol 0 by 1 - (5,4,1) 147 146 Abs err 1 exceeds tol 0 by 1 - (4,5,1) 147 146 Abs err 1 exceeds tol 0 by 1 - (4,3,2) 196 195 Abs err 1 exceeds tol 0 by 1 - (3,4,2) 196 195 Abs err 1 exceeds tol 0 by 1 - (5,4,2) 196 195 Abs err 1 exceeds tol 0 by 1 - (4,5,2) 196 195 Abs err 1 exceeds tol 0 by 1 - (4,4,3) 39 40 Abs err 1 exceeds tol 0 by 1 -***** error imsharpen () -***** error imsharpen (ones (3, 3), "Radius") -***** error imsharpen (ones (3, 3), "Radius", 0) -***** error imsharpen (ones (3, 3), "Amount", -1) -***** error imsharpen (ones (3, 3), "Threshold", 1.5) -***** error imsharpen (ones (3, 3), "Threshold", -1) -***** error imsharpen (ones (3, 3), "foo") -***** error imsharpen ("foo") -20 tests, 18 passed, 2 known failures, 0 skipped -[inst/imextendedmin.m] ->>>>> /build/octave-image-2.12.0/inst/imextendedmin.m -***** shared im0, bw0_h2_out - im0 = uint8 ([5 5 5 5 5; - 5 4 3 4 5; - 5 3 0 3 5; - 5 4 3 4 5; - 5 5 5 5 5]); - bw0_h2_out = false (5); - bw0_h2_out(3,3) = true; -***** error imextendedmin () -***** error imextendedmin (im0) -***** error imextendedmin ("hello", 2) -***** error imextendedmin (i.*im0, 2) -***** error imextendedmin (sparse (im0), 2) -***** error imextendedmin (im0, -2) -***** error imextendedmin (im0, 'a') -***** error imextendedmin (im0, ones (2)) -***** error imextendedmin (im0, 2*i) -***** assert (imextendedmin (im0, 2), bw0_h2_out) -***** assert (imextendedmin (double (im0), 2), bw0_h2_out) -***** assert (imextendedmin (im0, 2, 8), bw0_h2_out) -***** assert (imextendedmin (im0, 2, 4), bw0_h2_out) -***** assert (imextendedmin (im0, 2, true (3)), bw0_h2_out) + expected_q_idx = [ + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 3 3 3 3 3 + 3 3 3 3 3 4 4 4 4 4 + 5 5 5 5 5 5 5 5 5 5 + 6 6 6 6 6 6 6 6 6 6 + 6 6 6 6 6 6 6 6 6 6 + 7 7 7 7 7 7 7 7 7 7]; + + [q, q_idx] = imquantize (img, [5 15 25 30 40 60], [0 1 5 10 20 30 15]); + assert (q, expected_q) + assert (q_idx, expected_q_idx) + + [q, q_idx] = imquantize (single (img), [5 15 25 30 40 60], + [0 1 5 10 20 30 15]); + assert (q, expected_q) + assert (q_idx, expected_q_idx) + + [q, q_idx] = imquantize (uint8 (img), [5 15 25 30 40 60], + [0 1 5 10 20 30 15]); + assert (q, expected_q) + assert (q_idx, expected_q_idx) + + [q, q_idx] = imquantize (uint8 (img), uint8 ([5 15 25 30 40 60]), + [0 1 5 10 20 30 15]); + assert (q, expected_q) + assert (q_idx, expected_q_idx) + + [q, q_idx] = imquantize (uint8 (img), uint8 ([5 15 25 30 40 60]), + uint8 ([0 1 5 10 20 30 15])); + assert (q, uint8 (expected_q)) + assert (q_idx, expected_q_idx) ***** test - out = imextendedmin (im0, 2); - assert (size (out), size (im0)) - assert (class (out), "logical") + img = randi ([0 255], 10, "uint8"); + [q, q_idx] = imquantize (img, [50 100 150 200]); + assert (class (q), "double") + assert (class (q_idx), "double") + + [q, q_idx] = imquantize (img, [50 100 150 200], uint16 ([5 7 8 9 2])); + assert (class (q), "uint16") + assert (class (q_idx), "double") + + [q, q_idx] = imquantize (img, [50 100 150 200], uint8 ([5 7 8 9 2])); + assert (class (q), "uint8") + assert (class (q_idx), "double") ***** test - out = imextendedmin (single (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "logical") + img = [1:10; 11:20; 21:30; 31:40; 41:50; 51:60; 61:70].'; + r_idx = reshape (randperm (numel (img)), size (img)); + + [quant, quant_idx] = imquantize (img, [5 15 25 30 40 60]); + [quant_r, quant_r_idx] = imquantize (img(r_idx), [5 15 25 30 40 60]); + + assert (imquantize (img(r_idx), [5 15 25 30 40 60]), quant(r_idx)) + assert (quant_r, quant_r_idx) +8 tests, 8 passed, 0 known failure, 0 skipped +[inst/imfilter.m] +>>>>> /build/octave-image-2.12.0/inst/imfilter.m ***** test - out = imextendedmin (uint8 (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "logical") + img = [ + 8 2 6 7 4 3 7 8 4 1 + 9 9 1 1 4 7 3 3 8 1 + 2 9 8 3 7 6 5 8 6 5 + 9 5 9 1 8 2 7 3 5 8 + 6 8 7 1 2 2 9 9 9 9 + 1 2 7 8 5 5 9 4 3 2 + 3 4 7 7 5 9 5 2 7 6 + 5 9 4 3 6 4 2 3 7 5 + 9 8 6 9 7 6 2 6 4 1 + 9 9 2 1 7 3 3 5 6 4]; + + expected_corr = [ + 46 53 30 34 44 42 40 51 42 19 + 48 66 57 42 46 50 59 58 49 34 + 48 67 55 54 44 58 50 50 64 39 + 44 77 52 43 28 55 57 75 70 50 + 29 51 65 51 42 50 60 62 55 42 + 23 44 58 59 63 59 55 57 50 36 + 36 50 52 56 56 47 48 45 47 39 + 51 64 70 62 56 50 40 38 41 31 + 58 72 50 49 58 45 41 42 49 28 + 27 37 27 21 19 26 16 23 24 17]; + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2]), expected_corr) + + ## test order of options (and matching with defaults) + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], 0), expected_corr) + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "corr"), expected_corr) + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "corr", 0), expected_corr) + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], 0, "corr"), expected_corr) + + expected_conv = [ + 21 31 23 22 21 28 29 26 22 6 + 47 55 43 43 51 44 49 64 44 24 + 56 69 53 34 47 50 57 48 52 37 + 38 70 60 56 41 57 54 61 66 44 + 46 67 53 48 32 54 59 65 63 46 + 28 56 63 50 36 54 58 66 63 47 + 20 43 55 62 67 57 52 53 44 28 + 42 51 54 61 57 53 44 46 48 39 + 53 70 63 50 57 42 38 38 43 33 + 53 62 50 54 52 44 38 40 40 20]; + assert (imfilter (img, [0 1 0; 2 1 1; 1 2 2], "conv"), expected_conv) + + ## alternative class + assert (imfilter (single (img), [0 1 0; 2 1 1; 1 2 2]), + single (expected_corr)) + assert (imfilter (int8 (img), [0 1 0; 2 1 1; 1 2 2]), + int8 (expected_corr)) + assert (imfilter (uint8 (img), [0 1 0; 2 1 1; 1 2 2]), + uint8 (expected_corr)) + + assert (imfilter (single (img), [0 1 0; 2 1 1; 1 2 2], "conv"), + single (expected_conv)) + assert (imfilter (int8 (img), [0 1 0; 2 1 1; 1 2 2], "conv"), + int8 (expected_conv)) + assert (imfilter (uint8 (img), [0 1 0; 2 1 1; 1 2 2], "conv"), + uint8 (expected_conv)) + ***** test - out = imextendedmin (uint16 (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "logical") + I = zeros (6); + I(2:3,2:3) = 1; + F = zeros (4); + F(2,2:3) = 1; + result = [0 0 0 0 0 0 + 1 2 1 0 0 0 + 1 2 1 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 0]; + assert (imfilter (I, F), result) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/psf2otf.m] +>>>>> /build/octave-image-2.12.0/inst/psf2otf.m ***** test - im = cat (3, im0, im0, im0, im0); - out = imextendedmin (im, 2); - assert (size (out), size (im)) + psf = rand (6, 1); + assert (psf2otf (psf), fft (circshift (psf, [-3])), eps); ***** test - im = 10 .* ones (10); - im(2:4, 2:4) = 7; - im(6:8, 6:8) = 2; - expected_4 = false (10); - expected_4(6:8, 6:8) = true; - expected_2 = expected_4; - expected_2(2:4, 2:4) = true; - out = imextendedmin (im, 4); - assert (out, expected_4, eps) - out = imextendedmin (0.1.*im, 0.4); - assert (out, expected_4, eps) - out = imextendedmin (im, 2); - assert (out, expected_2, eps) + psf = rand (6, 6); + assert (psf2otf (psf), fft2 (circshift (psf, [-3 -3])), eps); ***** test - im2 = 10 .* ones (10); - im2(2:4, 2:4) = 7; - im2(6:9, 6:9)=2; - im2(5, 5)=2; - im2(6, 7)=10; - im2(7, 8)=10; - expected_8 = false (10); - expected_8(6:9, 6:9) = true; - expected_8(5, 5) = true; - expected_8(6, 7) = false; - expected_8(7, 8) = false; - expected_4 = expected_8; - expected_4(2:4, 2:4) = true; - out2 = imextendedmin (im2, 2); - assert (out2, expected_8, eps) - out2 = imextendedmin (im2, 2, 4); - assert (out2, expected_4, eps) - out2 = imextendedmin (im2, 2, 8); - assert (out2, expected_8, eps) -21 tests, 21 passed, 0 known failure, 0 skipped + psf = rand (6, 6, 6); + assert (psf2otf (psf), fftn (circshift (psf, [-3 -3 -3])), eps); +***** test + psf = rand (7, 1); + assert (psf2otf (psf), fft (circshift (psf, [-3])), eps); +***** test + psf = rand (7, 7); + assert (psf2otf (psf), fft2 (circshift (psf, [-3 -3])), eps); +***** test + psf = rand (6, 7, 8); + assert (psf2otf (psf), fftn (circshift (psf, [-3 -3 -4])), eps); +***** test + psf = rand (6, 1); + ppsf = [psf; 0]; + assert (psf2otf (psf, 7), fft (circshift (ppsf, [-3])), eps); +***** test + psf = rand (6, 1); + ppsf = [[psf; 0] zeros(7, 6)]; + assert (psf2otf (psf, [7 7]), fft2 (circshift (ppsf, [-3 0])), eps); +***** test + psf = rand (6, 6); + ppsf = [psf zeros(6, 1)]; + assert (psf2otf (psf, [6 7]), fft2 (circshift (ppsf, [-3 -3])), eps); +***** error psf2otf (complex (rand (16), rand (16))) +***** error psf2otf (rand (16), 14) +***** error psf2otf (rand (16), [14 14]) +***** error psf2otf (rand (16), [18]) +***** error psf2otf (rand (16), [18 14]) +14 tests, 14 passed, 0 known failure, 0 skipped +[inst/bwhitmiss.m] +>>>>> /build/octave-image-2.12.0/inst/bwhitmiss.m +***** test + bw1 = repmat ([0 1 0 1 1], [3 1]); + bw2 = repmat ([0 1 0 0 0], [3 1]); + assert (bwhitmiss (bw1, [1; 0; 1], [1 0 1]), logical (bw2)) + assert (bwhitmiss (bw1, [0 1 0; -1 0 -1; 0 1 0]), logical (bw2)) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/@strel/strel.m] +>>>>> /build/octave-image-2.12.0/inst/@strel/strel.m +***** test + shape = logical ([0 0 0 1]); + assert (getnhood (strel (shape)), shape); + assert (getnhood (strel ("arbitrary", shape)), shape); + + height = [0 0 0 3]; + assert (getnhood (strel ("arbitrary", shape, height)), shape); + assert (getheight (strel ("arbitrary", shape, height)), height); +***** test + shape = logical ([0 0 1]); + height = [-2 1 3]; ## this works for matlab compatibility + assert (getnhood (strel ("arbitrary", shape, height)), shape); + assert (getheight (strel ("arbitrary", shape, height)), height); +***** test + shape = logical ([0 0 0 1 0 0 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 1 1 1 1 1 1 1 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 0 0 1 0 0 0]); + height = [ 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 + 0.00000 0.33333 0.66667 0.74536 0.66667 0.33333 0.00000 + 0.00000 0.66667 0.88192 0.94281 0.88192 0.66667 0.00000 + 0.00000 0.74536 0.94281 1.00000 0.94281 0.74536 0.00000 + 0.00000 0.66667 0.88192 0.94281 0.88192 0.66667 0.00000 + 0.00000 0.33333 0.66667 0.74536 0.66667 0.33333 0.00000 + 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000]; + assert (getnhood (strel ("ball", 3, 1)), shape); + assert (getheight (strel ("ball", 3, 1)), height, 0.0001); +***** test + shape = logical ([0 0 0 1 0 0 0 + 0 0 1 1 1 0 0 + 0 1 1 1 1 1 0 + 1 1 1 1 1 1 1 + 0 1 1 1 1 1 0 + 0 0 1 1 1 0 0 + 0 0 0 1 0 0 0]); + assert (getnhood (strel ("diamond", 3)), shape); +***** test + shape = logical ([0 0 0 1 0 0 0 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 1 1 1 1 1 1 1 + 0 1 1 1 1 1 0 + 0 1 1 1 1 1 0 + 0 0 0 1 0 0 0]); + assert (getnhood (strel ("disk", 3, 0)), shape); +***** test + shape = logical ([1 1 1]); + assert (getnhood (strel ("line", 3.9, 20.17)), shape); + shape = logical ([0 0 1 + 0 1 0 + 1 0 0]); + assert (getnhood (strel ("line", 3.9, 20.18)), shape); + shape = logical ([1 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 0 0 0 1 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 0 0 0 1 0 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 + 0 0 0 0 0 0 0 0 1]); + assert (getnhood (strel ("line", 14, 130)), shape); +***** test + se = strel ("octagon", 0); + seq = getsequence (se); + assert (getnhood (se), true (1)); + assert (getnhood (seq(1)), true (1)); + + se = strel ("octagon", 3); + seq = getsequence (se); + shape = logical ([0 0 1 1 1 0 0 + 0 1 1 1 1 1 0 + 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 + 0 1 1 1 1 1 0 + 0 0 1 1 1 0 0]); + assert (getnhood (se), shape); + assert (size (seq), [4 1]); + + templ1 = logical ([0 0 0; 1 1 1; 0 0 0]); + templ2 = logical ([0 1 0; 0 1 0; 0 1 0]); + templ3 = logical ([1 0 0; 0 1 0; 0 0 1]); + templ4 = logical ([0 0 1; 0 1 0; 1 0 0]); + assert ({getnhood(seq(1)) getnhood(seq(2)) getnhood(seq(3)) getnhood(seq(4))}, + {templ1 templ2 templ3 templ4}); + + seq = getsequence (strel ("octagon", 21)); + assert (size (seq), [28 1]); + assert (arrayfun (@(x) getnhood (seq(x)), 1:4:25, "UniformOutput", false), + repmat ({templ1}, 1, 7)); + assert (arrayfun (@(x) getnhood (seq(x)), 2:4:26, "UniformOutput", false), + repmat ({templ2}, 1, 7)); + assert (arrayfun (@(x) getnhood (seq(x)), 3:4:27, "UniformOutput", false), + repmat ({templ3}, 1, 7)); + assert (arrayfun (@(x) getnhood (seq(x)), 4:4:28, "UniformOutput", false), + repmat ({templ4}, 1, 7)); +***** test + shape = logical ([1 1 0]'); + assert (getnhood (strel ("pair", [-1 0])), shape); + shape = logical ([1 0 0 0 0 0 0 + 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0]); + assert (getnhood (strel ("pair", [-1 -3])), shape); + shape = logical ([0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 1]); + assert (getnhood (strel ("pair", [2 3])), shape); +***** test + assert (getnhood (strel ("rectangle", [10 5])), true (10, 5)); + assert (getnhood (strel ("square", 5)), true (5)); +***** shared se, seq + se = strel ("square", 5); + seq = getsequence (se); + assert (class (se(1)), "strel") + assert (class (se(1,1)),"strel") + assert (class (seq), "strel") + assert (class (seq(1)), "strel") + assert (class (seq(2)), "strel") + assert (numel (se), 1) + assert (numel (seq), 2) + assert (getnhood (seq(1)), true (5, 1)) + assert (getnhood (seq(2)), true (1, 5)) + assert (size (se), [1 1]) + assert (size (seq), [2 1]) + assert (isscalar (se), true) + assert (isscalar (seq), false) +***** error se(2); +***** error seq(3); +***** test + se = strel ("arbitrary", [1 0 0; 1 1 0; 0 1 0], [2 0 0; 3 1 0; 0 3 0]); + ref = reflect (se); + assert (getnhood (ref), logical([0 1 0; 0 1 1; 0 0 1])); + assert (getheight (ref), [0 3 0; 0 1 3; 0 0 2]); +***** error strel() +***** error strel("nonmethodthing", 2) +***** error strel("arbitrary", "stuff") +***** error strel("arbitrary", [0 0 1], [2 0 1; 4 5 1]) +***** error strel("arbitrary", [0 0 1], "stuff") +***** error strel("ball", -3, 1) +***** error strel("diamond", -3) +***** error strel("disk", -3) +***** error strel("line", 0, 45) +***** error strel("octagon", 3.5) +***** error strel("octagon", 4) +***** error strel("octagon", -1) +***** error strel("pair", [45 67 90]) +***** error strel("rectangle", 2) +***** error strel("rectangle", [2 -5]) +***** error strel("square", [34 1-2]) +28 tests, 28 passed, 0 known failure, 0 skipped +[inst/@imref2d/intrinsicToWorld.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/intrinsicToWorld.m +***** error id=Octave:invalid-fun-call intrinsicToWorld (imref2d) +***** error id=Octave:invalid-fun-call intrinsicToWorld (imref2d, 1, 2, 3) +***** error id=Octave:expected-real intrinsicToWorld (imref2d, 1j, 2) +***** error id=Octave:expected-real intrinsicToWorld (imref2d, 1, 2j) +***** error id=Octave:invalid-input-arg intrinsicToWorld (imref2d, [1, 2], 3) +***** error id=Octave:invalid-input-arg intrinsicToWorld (imref2d, [1], [2, 3]) +***** test + r = imref2d ([512, 512], 0.3125, 0.3125); + xIntrinsic = [34, 442]; + yIntrinsic = [172, 172]; + [xWorld, yWorld] = intrinsicToWorld (r, xIntrinsic, yIntrinsic); + assert (xWorld, [10.625, 138.125]) + assert (yWorld, [53.75, 53.75]) +***** test + [xWorld, yWorld] = intrinsicToWorld (imref2d, -5.3, -2.8); + assert (xWorld, -5.3) + assert (yWorld, -2.8) +***** test + [xW, yW] = intrinsicToWorld (imref2d, [1, 2; 3, 4], [2, 3; 5, 9]); + assert (xW, [1, 2; 3, 4]) + assert (yW, [2, 3; 5, 9]) +9 tests, 9 passed, 0 known failure, 0 skipped +[inst/@imref2d/contains.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/contains.m +***** error id=Octave:invalid-fun-call contains (imref2d) +***** error id=Octave:invalid-fun-call contains (imref2d, 1) +***** error id=Octave:invalid-fun-call contains (imref2d, 1, 2, 3) +***** error id=Octave:invalid-input-arg contains (imref2d, 1, [2, 3]) +***** error id=Octave:invalid-input-arg contains (imref2d, [1, 2], 3) +***** error id=Octave:expected-real contains (imref2d, 0, j) +***** error id=Octave:expected-real contains (imref2d, j, 0) +***** assert (contains (imref2d, [], []), logical( zeros (0, 0))) +***** assert (contains (imref2d, [1, 2; 3, 4], [5, -6; 7, 8]), logical (zeros (2, 2))) +***** test + r = imref2d ([256, 256]); + assert (contains(r, [5, 8, 8], [5, 10, 257]), logical([1, 1, 0])) +10 tests, 10 passed, 0 known failure, 0 skipped +[inst/@imref2d/sizesMatch.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/sizesMatch.m +***** error id=Octave:invalid-fun-call sizesMatch (imref2d) +***** test + I = zeros (256, 256); + r = imref2d ([256, 256]); + assert (sizesMatch (r, I), true) + I2 = zeros (246, 300); + assert (sizesMatch (r, I2), false) +***** test + r = imref2d ([256, 256]); + assert (sizesMatch (r, []), false) +***** test + r = imref2d ([256, 256]); + assert (sizesMatch (r, 42), false) +***** test + r = imref2d ([256, 256]); + assert (sizesMatch (r, zeros (256, 256, 3, 2)), true) +***** test + I = zeros (384, 512, 3); + r = imref2d (size (I)); + assert (sizesMatch (r, I), true) +6 tests, 6 passed, 0 known failure, 0 skipped +[inst/@imref2d/imref2d.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/imref2d.m +***** error id=Octave:invalid-fun-call imref2d (1, 2, 3, 4) +***** error id=Octave:invalid-input-arg imref2d (42) +***** error id=Octave:invalid-input-arg imref2d ([42]) +***** error id=Octave:expected-integer imref2d ([4.2, 42]) +***** error id=Octave:expected-positive imref2d ([0, 0]) +***** error id=Octave:expected-positive imref2d ([-4, 2]) +***** error id=Octave:expected-positive imref2d ([4, 2], 0, 2) +***** error id=Octave:expected-positive imref2d ([4, 2], 2, 0) +***** error id=Octave:expected-real imref2d ([4, 2], j, 2) +***** error id=Octave:expected-real imref2d ([4, 2], 2, j) +***** error id=Octave:expected-real imref2d ([4, 2], [j, 2], [3, 4]) +***** error id=Octave:expected-real imref2d ([4, 2], [1, 2], [j, 4]) +***** error id=Octave:expected-vector imref2d ([4, 2], [], []) +***** error id=Octave:expected-vector imref2d ([4, 2], [], [1]) +***** error id=Octave:expected-scalar imref2d ([4, 2], [1], []) +***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [0]) +***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [1, 2, 3]) +***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2, 3], [1, 2]) +***** error id=Octave:incorrect-size imref2d ([4, 2], [1; 2], [1, 2]) +***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [1; 2]) +***** error id=Octave:invalid-indexing imref2d().InvalidProperty +***** error id=Octave:expected-increasing imref2d ([100 200], [1.5 0.5], [2.5 3.5]) +***** error id=Octave:expected-increasing imref2d ([100 200], [1.5 2.5], [2.5 1.5]) +***** test + r = imref2d; + assert (r.XWorldLimits, [0.5, 2.5]) + assert (r.YWorldLimits, [0.5, 2.5]) + assert (r.ImageSize, [2, 2]) + assert (r.PixelExtentInWorldX, 1) + assert (r.PixelExtentInWorldY, 1) + assert (r.ImageExtentInWorldX, 2) + assert (r.ImageExtentInWorldY, 2) + assert (r.XIntrinsicLimits, [0.5, 2.5]) + assert (r.YIntrinsicLimits, [0.5, 2.5]) +***** test + r = imref2d ([100, 200]); + assert (r.XWorldLimits, [0.5, 200.5]) + assert (r.YWorldLimits, [0.5, 100.5]) + assert (r.ImageSize, [100, 200]) + assert (r.PixelExtentInWorldX, 1) + assert (r.PixelExtentInWorldY, 1) + assert (r.ImageExtentInWorldX, 200) + assert (r.ImageExtentInWorldY, 100) + assert (r.XIntrinsicLimits, [0.5, 200.5]) + assert (r.YIntrinsicLimits, [0.5, 100.5]) +***** test + xWorldLimits = [2, 5]; + yWorldLimits = [3, 6]; + r = imref2d ([291, 240], xWorldLimits, yWorldLimits); + assert (r.XWorldLimits, [2, 5]) + assert (r.YWorldLimits, [3, 6]) + assert (r.ImageSize, [291, 240]) + assert (r.PixelExtentInWorldX, 0.0125) + assert (r.PixelExtentInWorldY, 0.0103, 1e-3) + assert (r.ImageExtentInWorldX, 3) + assert (r.ImageExtentInWorldY, 3) + assert (r.XIntrinsicLimits, [0.5, 240.5]) + assert (r.YIntrinsicLimits, [0.5, 291.5]) +***** test + pixelExtentInWorldX = 0.3125; + pixelExtentInWorldY = 0.3125; + r = imref2d ([512, 512], pixelExtentInWorldX, pixelExtentInWorldY); + assert (r.XWorldLimits, [0.15625, 160.1562], 1e-4) + assert (r.YWorldLimits, [0.15625, 160.1562], 1e-4) + assert (r.ImageSize, [512, 512]) + assert (r.PixelExtentInWorldX, 0.3125) + assert (r.PixelExtentInWorldY, 0.3125) + assert (r.ImageExtentInWorldX, 160) + assert (r.ImageExtentInWorldY, 160) + assert (r.XIntrinsicLimits, [0.5, 512.5]) + assert (r.YIntrinsicLimits, [0.5, 512.5]) +***** test + pixelExtentInWorldX = 0.1; + pixelExtentInWorldY = 0.4; + r = imref2d ([100, 200], pixelExtentInWorldX, pixelExtentInWorldY); + assert (r.XWorldLimits, [0.05, 20.05], 1e-4) + assert (r.YWorldLimits, [0.2, 40.2], 1e-4) + assert (r.ImageSize, [100, 200]) + assert (r.PixelExtentInWorldX, 0.1) + assert (r.PixelExtentInWorldY, 0.4) + assert (r.ImageExtentInWorldX, 20) + assert (r.ImageExtentInWorldY, 40) + assert (r.XIntrinsicLimits, [0.5, 200.5]) + assert (r.YIntrinsicLimits, [0.5, 100.5]) +***** test + r = imref2d; + assert (r.XWorldLimits, [0.5, 2.5]) + assert (r.YWorldLimits, [0.5, 2.5]) + assert (r.ImageSize, [2, 2]) + assert (r.PixelExtentInWorldX, 1) + assert (r.PixelExtentInWorldY, 1) + assert (r.ImageExtentInWorldX, 2) + assert (r.ImageExtentInWorldY, 2) + assert (r.XIntrinsicLimits, [0.5, 2.5]) + assert (r.YIntrinsicLimits, [0.5, 2.5]) + r.ImageSize = [800, 600]; + assert (r.XWorldLimits, [0.5, 2.5]) + assert (r.YWorldLimits, [0.5, 2.5]) + assert (r.ImageSize, [800, 600]) + assert (r.PixelExtentInWorldX, 0.003333, 1e-5) + assert (r.PixelExtentInWorldY, 0.0025) + assert (r.ImageExtentInWorldX, 2) + assert (r.ImageExtentInWorldY, 2) + assert (r.XIntrinsicLimits, [0.5, 600.5]) + assert (r.YIntrinsicLimits, [0.5, 800.5]) +***** test + r = imref2d; + assert (r.XWorldLimits, [0.5, 2.5]) + assert (r.YWorldLimits, [0.5, 2.5]) + assert (r.ImageSize, [2, 2]) + assert (r.PixelExtentInWorldX, 1) + assert (r.PixelExtentInWorldY, 1) + assert (r.ImageExtentInWorldX, 2) + assert (r.ImageExtentInWorldY, 2) + assert (r.XIntrinsicLimits, [0.5, 2.5]) + assert (r.YIntrinsicLimits, [0.5, 2.5]) + r.XWorldLimits = [-60, 13.33]; + r.YWorldLimits = [-900.8, -560.26]; + assert (r.XWorldLimits, [-60, 13.33]) + assert (r.YWorldLimits, [-900.8, -560.26]) + assert (r.PixelExtentInWorldX, 36.6650) + assert (r.PixelExtentInWorldY, 170.27, 1e-5) + assert (r.ImageExtentInWorldX, 73.33, 1e-5) + assert (r.ImageExtentInWorldY, 340.54, 1e-5) + assert (r.XIntrinsicLimits, [0.5, 2.5]) + assert (r.YIntrinsicLimits, [0.5, 2.5]) +***** test + r = imref2d; + fail ("r.XWorldLimits = []", "") + fail ("r.XWorldLimits = [1]", "") + fail ("r.XWorldLimits = [j]", "") + fail ("r.XWorldLimits = [1; 2]", "") + fail ("r.YWorldLimits = []", "") + fail ("r.YWorldLimits = [1]", "") + fail ("r.YWorldLimits = [j]", "") + fail ("r.YWorldLimits = [1; 2]", "") +***** assert (imref2d ([4, 2, 3]).ImageSize, [4, 2]); +32 tests, 32 passed, 0 known failure, 0 skipped +[inst/@imref2d/worldToSubscript.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/worldToSubscript.m +***** error id=Octave:invalid-fun-call worldToSubscript (imref2d) +***** error id=Octave:invalid-fun-call worldToSubscript (imref2d, 1, 2, 3) +***** error id=Octave:expected-real worldToSubscript (imref2d, 1j, 2) +***** error id=Octave:expected-real worldToSubscript (imref2d, 1, 2j) +***** error id=Octave:invalid-input-arg worldToSubscript (imref2d, [1, 2], 3) +***** error id=Octave:invalid-input-arg worldToSubscript (imref2d, [1], [2, 3]) +***** test + r = imref2d ([512, 512], 0.3125, 0.3125); + xW = [38.44, 39.44, 38.44, -0.2]; + yW = [68.75, 68.75, 75.75, -1]; + [rS, cS] = worldToSubscript (r, xW, yW); + assert (rS, [220, 220, 242, NaN]) + assert (cS, [123, 126, 123, NaN]) +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/@imref2d/worldToIntrinsic.m] +>>>>> /build/octave-image-2.12.0/inst/@imref2d/worldToIntrinsic.m +***** error id=Octave:invalid-fun-call worldToIntrinsic (imref2d) +***** error id=Octave:invalid-fun-call worldToIntrinsic (imref2d, 1, 2, 3) +***** error id=Octave:expected-real worldToIntrinsic (imref2d, 1j, 2) +***** error id=Octave:expected-real worldToIntrinsic (imref2d, 1, 2j) +***** error id=Octave:invalid-input-arg worldToIntrinsic (imref2d, [1, 2], 3) +***** error id=Octave:invalid-input-arg worldToIntrinsic (imref2d, [1], [2, 3]) +***** test + r = imref2d ([512, 512], 0.3125, 0.3125); + xW = [38.44, 39.44, 38.44, -0.2]; + yW = [68.75, 68.75, 75.75, -1]; + [xI, yI] = worldToIntrinsic (r, xW, yW); + assert (xI, [123.008, 126.208, 123.008, -0.64], 1e-6) + assert (yI, [220, 220, 242.4, -3.2], 1e-6) +7 tests, 7 passed, 0 known failure, 0 skipped [inst/grayslice.m] >>>>> /build/octave-image-2.12.0/inst/grayslice.m ***** test @@ -9378,215 +10044,13 @@ ***** error x = grayslice ([1 2; 3 4], -1) ***** error x = grayslice ([1 2; 3 4], "foo") 22 tests, 21 passed, 1 known failure, 0 skipped -[inst/lab2double.m] ->>>>> /build/octave-image-2.12.0/inst/lab2double.m -***** test - l_max_f = 100 + (25500 / 65280); - ab_max_f = 127 + (255 / 256); - cm = [ - -Inf - Inf - NaN - l_max_f - ab_max_f - -200 - -129 - -128 - -128+(255/65280)*(0.499999) - -128+(255/65280)*(0.500001) # should be 0.5, but float rounding error - -128+(255/65280)*(0.500002) - -127 - -1 - 0 - (100/65280)*(0.499999) - (100/65280)*(0.51) - (100/65280)*(0.500001) - 1 - 99 - 100 - 101 - 126 - 127 - 128 - 254 - 255 - 256 - 257]; - cm = repmat (cm, [1 3]); - im2d = reshape (cm, [7 4 3]); - imnd = permute (im2d, [1 4 3 2]); - - cm_uint8 = uint8 ([ - 0 0 0 - 255 255 255 - 255 255 255 - 255 228 228 - 255 255 255 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 1 1 - 0 127 127 - 0 128 128 - 0 128 128 - 0 128 128 - 0 128 128 - 3 129 129 - 252 227 227 - 255 228 228 - 255 229 229 - 255 254 254 - 255 255 255 - 255 255 255 - 255 255 255 - 255 255 255 - 255 255 255 - 255 255 255]); - - assert (lab2uint8 (cm), cm_uint8) - im2d_uint8 = reshape (cm_uint8, [7 4 3]); - assert (lab2uint8 (im2d), im2d_uint8) - assert (lab2uint8 (imnd), permute (im2d_uint8, [1 4 3 2])) - - cm_uint16 = uint16 ([ - 0 0 0 - 65535 65535 65535 - 65535 65535 65535 - 65535 58468 58468 - 65535 65535 65535 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 1 1 - 0 1 1 - 0 256 256 - 0 32512 32512 - 0 32768 32768 - 0 32768 32768 - 1 32768 32768 - 1 32768 32768 - 653 33024 33024 - 64627 58112 58112 - 65280 58368 58368 - 65535 58624 58624 - 65535 65024 65024 - 65535 65280 65280 - 65535 65535 65535 - 65535 65535 65535 - 65535 65535 65535 - 65535 65535 65535 - 65535 65535 65535]); - - assert (lab2uint16 (cm), cm_uint16) - im2d_uint16 = reshape (cm_uint16, [7 4 3]); - assert (lab2uint16 (im2d), im2d_uint16) - assert (lab2uint16 (imnd), permute (im2d_uint16, [1 4 3 2])) - - assert (lab2single (cm), single (cm)) - assert (lab2single (im2d), single (im2d)) - assert (lab2single (imnd), single (imnd)) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/im2uint8.m] ->>>>> /build/octave-image-2.12.0/inst/im2uint8.m -***** assert (im2uint8 (uint8 ([1 2 3])), uint8 ([1 2 3])); -***** assert (im2uint8 (uint16 ([0 65535])), uint8 ([0 255])); -***** assert (im2uint8 ([0 0.5 1]), uint8 ([0 128 255])); -***** assert (im2uint8 ([1 2]), uint8 ([255 255])); -***** assert (im2uint8 ([-1 0 0.5 1 2]), uint8 ([0 0 128 255 255])); -***** assert (im2uint8 (int16 ([-32768 0 32768])), uint8 ([0 128 255])); -***** assert (im2uint8 ([false true]), uint8 ([0 255])); -***** assert (im2uint8 ([true false]), uint8 ([255 0])); -***** assert (im2uint8 ([1 256], "indexed"), uint8 ([0 255])); -***** assert (im2uint8 ([3 25], "indexed"), uint8 ([2 24])); -***** assert (im2uint8 (uint16 ([3 25]), "indexed"), uint8 ([3 25])); -***** error im2uint8 ([0 1 2], "indexed"); -***** error im2uint8 (int16 ([17 8]), "indexed"); -***** error im2uint8 (int16 ([-7 8]), "indexed"); -***** error im2uint8 ([false true], "indexed"); -***** error im2uint8 (uint16 (256), "indexed"); -***** error im2uint8 (257, "indexed"); -***** assert (im2uint8 ((1:255) ./ 256), uint8 ([1:128 128:254])) -***** assert (im2uint8 ((0:255) ./ 256), uint8 ([0:128 128:254])) -19 tests, 19 passed, 0 known failure, 0 skipped -[inst/montage.m] ->>>>> /build/octave-image-2.12.0/inst/montage.m -***** function cdata = montage_cdata (varargin) - h = figure (); - set (h, "visible", "off"); - mh = montage (varargin{:}); - cdata = get (mh, "cdata"); - close (h); -***** endfunction -***** test - im = uint8 (ones (2, 2, 1, 5)) .* reshape ([1 2 3 4 5], [1 1 1 5]); - cdata = montage_cdata (im); - expected = uint8 ([ - 1 1 2 2 3 3 - 1 1 2 2 3 3 - 4 4 5 5 0 0 - 4 4 5 5 0 0 - ]); - assert (cdata, expected) - - - - - - - - - - - - - - - - - - - - - - - - -***** test - im = uint8 (ones (2, 4, 1, 6)) .* reshape ([1 2 3 4 5 6], [1 1 1 6]); - cdata = montage_cdata (im); - expected = uint8 ([ - 1 1 1 1 2 2 2 2 - 1 1 1 1 2 2 2 2 - 3 3 3 3 4 4 4 4 - 3 3 3 3 4 4 4 4 - 5 5 5 5 6 6 6 6 - 5 5 5 5 6 6 6 6 - ]); - assert (cdata, expected) -warning: test: file /build/octave-image-2.12.0/inst/montage.m leaked file descriptors -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/imtophat.m] ->>>>> /build/octave-image-2.12.0/inst/imtophat.m -***** assert (imtophat (ones (3), [1 1; 0 1]), zeros (3)); -***** assert (imtophat (true (3), [1 1; 0 1]), false (3)); +[inst/imbothat.m] +>>>>> /build/octave-image-2.12.0/inst/imbothat.m +***** assert (imbothat (ones (3), [1 1; 0 1]), zeros (3)); +***** assert (imbothat (true (3), [1 1; 0 1]), false (3)); ***** shared in, out, se in = [ 0 0 0 1 1 1 0 0 1 1 - 0 1 0 1 1 1 0 0 0 1 - 1 1 1 1 1 0 0 0 0 0 - 0 1 1 1 1 0 0 0 0 0 - 0 0 0 1 0 0 0 0 1 0 - 0 0 0 0 0 0 0 1 1 1 - 0 0 0 0 1 0 1 0 1 0 - 0 0 0 1 1 1 1 1 0 0 - 0 0 0 0 1 1 1 0 0 0 - 0 0 0 1 1 1 0 0 0 0]; - - out = [ 0 0 0 0 0 0 0 0 1 1 - 0 1 0 0 0 0 0 0 0 1 + 0 1 0 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 @@ -9595,46 +10059,57 @@ 0 0 0 1 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0]; -***** assert (imtophat (logical (in), ones (3)), logical (out)); - out = [12 19 0 0 0 16 23 0 7 0 - 18 0 0 6 1 19 0 2 9 1 - 0 74 81 12 7 0 1 8 15 7 - 68 70 2 14 0 6 7 14 16 0 - 69 76 8 0 0 7 14 21 0 1 - 0 7 59 54 61 13 20 0 0 32 - 18 0 69 60 62 19 0 0 0 27 - 73 0 0 66 68 0 1 6 6 33 - 0 0 17 19 1 0 2 9 7 14 - 1 6 23 0 7 1 8 15 0 32]; -***** assert (imtophat (magic (10), ones (3)), out); -***** assert (imtophat (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); + out = [ 1 1 1 0 0 0 1 1 0 0 + 1 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 1 + 1 0 0 0 0 0 0 0 0 1 + 0 0 0 0 1 0 0 0 0 1 + 0 0 0 1 1 1 1 0 0 0 + 0 0 0 1 0 1 0 1 0 1 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 0 0 1 0 0 0]; +***** assert (imbothat (logical (in), ones (3)), logical (out)); + + out = [ 7 0 15 8 1 6 0 13 6 24 + 0 8 9 2 0 0 16 7 0 23 + 89 7 0 41 39 7 12 7 0 23 + 8 1 69 40 58 1 6 2 0 43 + 7 0 63 59 52 0 0 0 14 32 + 62 55 6 7 0 7 0 23 16 1 + 56 74 0 2 0 0 16 14 7 0 + 0 73 69 0 0 19 15 8 1 0 + 8 6 0 0 6 13 9 2 0 6 + 7 0 0 19 0 14 7 0 23 0]; +***** assert (imbothat (magic (10), ones (3)), out); +***** assert (imbothat (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); ## using a se that will be decomposed in 2 pieces - out =[91 98 0 0 0 27 34 11 18 0 - 94 76 3 6 1 33 15 17 24 1 - 0 77 84 12 7 14 16 23 30 7 - 80 82 14 18 0 32 34 41 43 0 - 81 88 20 0 0 33 40 47 24 6 - 12 19 63 57 64 16 23 0 7 39 - 18 0 69 60 62 19 1 3 12 39 - 73 0 0 66 68 0 2 9 18 45 - 4 6 81 67 49 6 8 15 19 26 - 5 12 87 48 55 7 14 21 0 32]; -***** assert (imtophat (magic (10), ones(5)), out); + out =[ 7 0 87 66 59 7 0 19 12 30 + 0 13 81 60 58 1 19 13 6 29 + 89 12 0 54 52 20 18 7 0 23 + 8 6 69 53 71 14 12 2 0 43 + 7 0 63 73 66 14 7 0 23 41 + 76 69 14 7 0 30 23 46 39 7 + 70 88 9 2 0 24 42 40 33 6 + 14 87 80 0 0 43 41 34 27 0 + 84 82 0 0 19 37 35 28 26 19 + 89 82 0 20 13 36 29 22 45 13]; +***** assert (imbothat (magic (10), ones(5)), out); ## using a weird non-symmetric and even-size se - out =[85 92 0 0 0 12 23 0 17 0 - 91 73 0 6 0 18 0 2 13 0 - 0 72 81 13 6 0 1 9 15 0 - 60 62 10 12 0 8 8 17 17 0 - 61 69 0 0 0 28 16 41 0 0 - 0 0 47 52 61 12 16 0 0 31 - 6 0 53 58 60 17 0 0 0 33 - 69 0 0 60 62 0 0 6 0 33 - 0 0 17 60 42 0 2 13 1 8 - 0 6 23 0 7 0 7 15 0 14]; -***** assert (imtophat (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); + out =[ 0 0 15 8 1 3 0 7 0 18 + 0 8 53 59 0 0 14 13 0 17 + 84 0 0 40 38 6 13 6 0 23 + 2 0 42 47 58 0 6 0 0 41 + 0 0 62 59 52 0 0 0 16 35 + 6 58 13 6 0 3 19 19 35 1 + 0 18 0 0 0 0 15 13 6 0 + 0 17 69 0 0 17 17 8 0 0 + 8 67 0 0 0 15 9 2 0 6 + 7 0 0 17 10 42 7 0 19 0]; +***** assert (imbothat (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); ## N dimensional and weird se in = reshape (magic(16), [4 8 4 2]); @@ -9643,1399 +10118,557 @@ se(:,:,3) = [1 0 1; 0 1 1; 0 0 1]; out = zeros (size (in)); out(:,:,1,1) = [ - 239 146 82 18 0 19 83 133 - 0 35 99 163 219 128 64 0 - 0 46 128 195 187 123 59 0 - 157 93 47 0 14 78 142 211]; + 0 17 81 145 237 146 64 0 + 205 128 64 0 0 37 83 147 + 175 111 47 0 0 64 117 181 + 0 64 128 209 173 109 45 0]; out(:,:,2,1) = [ - 0 21 85 149 233 146 64 0 - 205 128 64 0 0 41 87 151 - 171 107 57 0 0 64 121 185 - 0 64 142 213 169 105 41 0]; + 235 142 78 18 0 23 69 133 + 0 35 103 163 215 128 46 0 + 0 64 128 195 183 123 48 0 + 153 93 43 0 14 78 146 215]; out(:,:,3,1) = [ - 231 146 78 14 0 27 77 137 - 0 43 107 167 211 128 64 0 - 0 46 128 199 179 119 51 0 - 149 85 39 0 18 78 142 219]; + 0 25 89 153 229 142 64 0 + 201 128 64 0 0 41 91 155 + 167 103 57 0 0 64 125 189 + 0 64 146 217 165 101 37 0]; out(:,:,4,1) = [ - 0 29 93 157 225 128 64 0 - 197 128 64 0 0 31 95 159 - 163 99 53 0 0 61 125 189 - 0 64 146 221 161 97 33 0]; + 227 142 78 14 0 31 77 141 + 0 43 107 171 211 128 46 0 + 0 64 128 203 179 115 48 0 + 149 99 35 0 18 82 146 223]; out(:,:,1,2) = [ - 223 146 82 18 0 35 99 149 - 0 48 115 179 203 128 64 0 - 0 46 128 211 171 107 43 0 - 141 77 31 0 14 78 142 227]; + 0 33 97 161 221 146 64 0 + 189 125 61 0 0 53 99 163 + 159 95 31 0 0 64 128 197 + 0 64 128 225 157 93 29 0]; out(:,:,2,2) = [ - 0 37 101 165 217 146 64 0 - 189 125 64 0 0 57 103 167 - 155 91 41 0 0 64 128 201 - 0 64 142 229 153 89 25 0]; + 219 142 78 18 0 39 85 149 + 0 51 119 179 199 128 46 0 + 0 64 128 211 167 107 43 0 + 137 77 27 0 14 78 146 231]; out(:,:,3,2) = [ - 215 146 78 14 0 43 93 153 - 0 48 123 183 195 128 64 0 - 0 46 128 215 163 103 35 0 - 133 69 23 0 18 78 142 235]; + 0 41 105 169 213 142 64 0 + 185 121 64 0 0 57 107 171 + 151 87 41 0 0 64 128 205 + 0 64 146 233 149 85 21 0]; out(:,:,4,2) = [ - 0 45 109 173 209 128 64 0 - 181 117 64 0 0 47 111 175 - 147 83 37 0 0 64 128 205 - 0 64 146 237 145 81 17 0]; -***** assert (imtophat (in, se), out); + 211 142 78 14 0 47 93 157 + 0 59 123 187 195 128 46 0 + 0 64 128 219 163 99 35 0 + 133 83 19 0 18 82 146 239]; +***** assert (imbothat (in, se), out); 8 tests, 8 passed, 0 known failure, 0 skipped -[inst/imclose.m] ->>>>> /build/octave-image-2.12.0/inst/imclose.m -***** shared in, out - in = [ 0 0 0 1 1 1 0 0 1 1 - 0 1 0 1 1 1 0 0 0 1 - 1 1 1 1 1 0 0 0 0 0 - 0 1 1 1 1 0 0 0 0 0 - 0 0 0 1 0 0 0 0 1 0 - 0 0 0 0 0 0 0 1 1 1 - 0 0 0 0 1 0 1 0 1 0 - 0 0 0 1 1 1 1 1 0 0 - 0 0 0 0 1 1 1 0 0 0 - 0 0 0 1 1 1 0 0 0 0]; - - out = [ 1 1 1 1 1 1 1 1 1 1 - 1 1 1 1 1 1 0 0 0 1 - 1 1 1 1 1 0 0 0 0 1 - 1 1 1 1 1 0 0 0 0 1 - 0 0 0 1 1 0 0 0 1 1 - 0 0 0 1 1 1 1 1 1 1 - 0 0 0 1 1 1 1 1 1 1 - 0 0 0 1 1 1 1 1 0 0 - 0 0 0 1 1 1 1 0 0 0 - 0 0 0 1 1 1 1 0 0 0]; -***** assert (imclose (logical (in), ones (3)), logical (out)); - - out = [99 99 16 16 16 73 74 64 64 64 - 98 88 16 16 16 73 71 64 64 64 - 93 88 88 61 61 61 68 70 70 70 - 93 88 88 61 61 61 68 71 71 71 - 93 93 88 61 61 61 68 75 66 66 - 79 79 82 90 90 49 49 49 49 66 - 79 79 82 91 91 48 46 46 46 66 - 79 79 82 95 97 48 46 46 46 72 - 18 18 94 96 84 48 46 46 46 59 - 18 18 100 96 84 50 50 50 50 59]; -***** assert (imclose (magic (10), ones (3)), out); -***** assert (imclose (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); - - ## using a se that will be decomposed in 2 pieces - out =[ 99 99 88 74 74 74 74 70 70 70 - 98 93 88 74 74 74 74 70 70 70 - 93 93 88 74 74 74 74 70 70 70 - 93 93 88 74 74 74 74 71 71 71 - 93 93 88 75 75 75 75 75 75 75 - 93 93 90 90 90 72 72 72 72 72 - 93 93 91 91 91 72 72 72 72 72 - 93 93 93 95 97 72 72 72 72 72 - 94 94 94 96 97 72 72 72 72 72 - 100 100 100 97 97 72 72 72 72 72]; -***** assert (imclose (magic (10), ones(5)), out); - - ## using a weird non-symmetric and even-size se - out =[ 92 99 16 16 16 70 74 58 58 58 - 98 88 60 73 16 73 69 70 64 58 - 88 81 88 60 60 60 69 69 70 70 - 87 87 61 68 61 60 68 69 71 69 - 86 93 87 61 61 61 68 75 68 69 - 23 82 89 89 90 45 68 45 68 66 - 23 23 82 89 91 48 45 45 45 66 - 79 23 82 95 97 46 48 46 45 72 - 18 79 94 96 78 50 46 46 46 59 - 18 18 100 94 94 78 50 50 46 59]; -***** assert (imclose (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/isrgb.m] ->>>>> /build/octave-image-2.12.0/inst/isrgb.m -***** assert (isrgb ("this is not a RGB image"), false); -***** assert (isrgb (rand (5, 5)), false); -***** assert (isrgb (rand (5, 5, 1, 5)), false); -***** assert (isrgb (rand (5, 5, 3, 5)), true); -***** assert (isrgb (rand (5, 5, 3)), true); -***** assert (isrgb (ones (5, 5, 3)), true); -***** assert (isrgb (ones (5, 5, 3) + eps), false); -***** assert (isrgb (zeros (5, 5, 3) - eps), false); -***** assert (isrgb (rand (5, 5, 3) > 0.5), false); -***** assert (isrgb (randi ([-100 100], 5, 5, 3, "int16")), true) -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/checkerboard.m] ->>>>> /build/octave-image-2.12.0/inst/checkerboard.m -***** demo - ## Simplest case, default checkerboard size: - ## 8 by 8 checkerboard, with squares 10 pixel wide - board = checkerboard (); - imshow (board) -***** demo - ## Simplest case, default checkerboard size: - ## 8 by 16 checkerboard, with squares 5 pixel wide - board = checkerboard (5, 4, 8); - imshow (board) -***** assert (checkerboard (0), zeros (0, 0)) -***** assert (checkerboard (0, 3), zeros (0, 0)) -***** assert (checkerboard (0, 2, 4), zeros (0, 0)) -***** assert (checkerboard (0, 2, 4, 3), zeros (0, 0, 0)) -***** assert (checkerboard (0, 2, 4, 3, 2), zeros (0, 0, 0, 0)) -***** assert (checkerboard (1, 4, 2, 3, 0), zeros (8, 4, 6, 0)) -***** assert (checkerboard (1, 4, 0, 3, 2), zeros (8, 0, 6, 4)) -***** assert (checkerboard (2, 4, 0, 3, 2), zeros (16, 0, 12, 8)) -***** test - out = zeros (80); - i1 = ((1:20:80) .+ (0:9)')(:); - i2 = ((11:20:80) .+ (0:9)')(:); - out(i1, i2) = 1; - out(i2, i1) = 1; - i1r = ((41:20:80) .+ (0:9)')(:); - i2r = ((51:20:80) .+ (0:9)')(:); - out(i2, i1r) = 0.7; - out(i1, i2r) = 0.7; - assert (checkerboard (), out) - assert (checkerboard (10, 4, 4), out) - assert (checkerboard (10, [4 4]), out) - assert (checkerboard (10, [4; 4]), out) -***** test - out = zeros (8); - out(2:2:8, 1:2:8) = 1; - out(1:2:8, 2:2:8) = 1; - out(1:2:8, 6:2:8) = 0.7; - out(2:2:8, 5:2:8) = 0.7; - assert (checkerboard (1), out) - assert (checkerboard (1, 4), out) - assert (checkerboard (1, 4, 4), out) - assert (checkerboard (1, [4 4]), out) -***** test - out = zeros (10); - out(2:2:10, 1:2:10) = 1; - out(1:2:10, 2:2:10) = 1; - out(1:2:10, 6:2:10) = 0.7; - out(2:2:10, 7:2:10) = 0.7; - assert (checkerboard (1, 5), out) - assert (checkerboard (1, 5, 5), out) - assert (checkerboard (1, [5 5]), out) -***** test - out = zeros (20); - out([1:4:20 2:4:20], [3:4:20 4:4:20]) = 1; - out([3:4:20 4:4:20], [1:4:20 2:4:20]) = 1; - out([1:4:20 2:4:20], [11:4:20 12:4:20]) = 0.7; - out([3:4:20 4:4:20], [13:4:20 14:4:20]) = 0.7; - assert (checkerboard (2, 5), out) - assert (checkerboard (2, 5, 5), out) - assert (checkerboard (2, [5 5]), out) -***** test - out = zeros (4, 4, 4); - out([1 3], 1, [1 3]) = 1; - out([2 4], 2, [1 3]) = 1; - out([1 3], 2, [2 4]) = 1; - out([2 4], 1, [2 4]) = 1; - out([1 3], 3, [1 3]) = 0.7; - out([2 4], 4, [1 3]) = 0.7; - out([1 3], 4, [2 4]) = 0.7; - out([2 4], 3, [2 4]) = 0.7; - assert (checkerboard (1, [2 2 2]), out) - assert (checkerboard (1, 2, 2, 2), out) -***** test - out = zeros (8, 8, 8); - out([1 2 5 6], [1 2], [1 2 5 6]) = 1; - out([3 4 7 8], [3 4], [1 2 5 6]) = 1; - out([1 2 5 6], [3 4], [3 4 7 8]) = 1; - out([3 4 7 8], [1 2], [3 4 7 8]) = 1; - out([1 2 5 6], [5 6], [1 2 5 6]) = 0.7; - out([3 4 7 8], [7 8], [1 2 5 6]) = 0.7; - out([1 2 5 6], [7 8], [3 4 7 8]) = 0.7; - out([3 4 7 8], [5 6], [3 4 7 8]) = 0.7; - assert (checkerboard (2, [2 2 2]), out) - assert (checkerboard (2, 2, 2, 2), out) -14 tests, 14 passed, 0 known failure, 0 skipped -[inst/blockproc.m] ->>>>> /build/octave-image-2.12.0/inst/blockproc.m -***** demo - blockproc(eye(6),[2,2],inline("any(x(:))","x")) - # Returns a 3-by-3 diagonal -***** assert(blockproc(eye(6),[2,2],"sum"),blockproc(eye(6),[2,2],@sum)); -***** assert(blockproc(eye(6),[2,2],"sum"),blockproc(eye(6),[2,2],inline("sum(x)","x"))); -warning: inline is obsolete; use anonymous functions instead -***** assert(blockproc(eye(6),[1,2],@sum),kron(eye(3),[1;1])); -***** assert(blockproc(eye(6),[2,2],inline("any(x(:))","x")),eye(3)!=0); -***** assert(blockproc(eye(6),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); -***** assert(blockproc(eye(6),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[8,5,6;6,2,3;5,3,4;4,3,5;3,2,6;6,5,8]); -***** assert(blockproc(eye(6),[2,3],[4,3],inline("sum(x(:))","x")),ones(3,2)*6); -***** assert(blockproc(eye(6),[2,2],inline("int8(sum(x(:)))","x")),eye(3,"int8")*2); -***** assert(blockproc(uint8(eye(6)),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); -***** assert(blockproc(uint8(eye(6)),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); -***** assert(blockproc(uint16(eye(6)),[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); -***** assert(blockproc(uint16(eye(6)),'indexed',[1,2],[1,1],inline("sum(x(:))","x")),[2,1,0;3,2,0;2,3,1;1,3,2;0,2,3;0,1,2]); -12 tests, 12 passed, 0 known failure, 0 skipped -[inst/bweuler.m] ->>>>> /build/octave-image-2.12.0/inst/bweuler.m -***** demo - A=zeros(9,10); - A([2,5,8],2:9)=1; - A(2:8,[2,9])=1 - bweuler(A) - # Euler number (objects minus holes) is 1-2=-1 in an 8-like object -***** test - A=zeros(10,10); - A(2:9,3:8)=1; - A(4,4)=0; - A(8,8)=0; # not a hole - A(6,6)=0; - assert(bweuler(A),-1); -***** test - A=zeros(10,10); - A(2:4,2:4)=1; - A(5:8,5:8)=1; - assert(bweuler(A,4),2); - assert(bweuler(A,8),1); - assert(bweuler(A),1); -***** error <2 dimensions> bweuler (true (5, 5, 1, 5)) -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/imregionalmin.m] ->>>>> /build/octave-image-2.12.0/inst/imregionalmin.m -***** test - a = [ - 7 3 9 3 10 3 - 4 2 3 10 1 3 - 1 4 6 9 4 10 - 8 7 9 3 4 8 - 5 9 3 3 8 9 - 3 6 9 4 1 10]; - - a4 = logical ([ - 0 0 0 1 0 0 - 0 1 0 0 1 0 - 1 0 0 0 0 0 - 0 0 0 1 0 0 - 0 0 1 1 0 0 - 1 0 0 0 1 0]); - assert (imregionalmin (a, 4), a4) - assert (imregionalmin (uint8 (a), 4), a4) - assert (imregionalmin (int8 (a), 4), a4) - - a8 = logical ([ - 0 0 0 0 0 0 - 0 0 0 0 1 0 - 1 0 0 0 0 0 - 0 0 0 0 0 0 - 0 0 0 0 0 0 - 1 0 0 0 1 0]); - assert (imregionalmin (a), a8) - assert (imregionalmin (a, 8), a8) - assert (imregionalmin (uint8 (a), 8), a8) - assert (imregionalmin (int8 (a), 8), a8) -***** test - a = [ - 4 8 5 -1 8 7 - -1 4 0 7 1 1 - 6 1 2 6 7 0 - 6 1 5 -2 5 9 - 1 4 -1 0 0 2 - 4 6 1 0 7 1]; - - a4 = logical ([ - 0 0 0 1 0 0 - 1 0 1 0 0 0 - 0 1 0 0 0 1 - 0 1 0 1 0 0 - 1 0 1 0 0 0 - 0 0 0 0 0 1]); - assert (imregionalmin (a, 4), a4) - assert (imregionalmin (int8 (a), 4), a4) - - a8 = logical ([ - 0 0 0 1 0 0 - 1 0 0 0 0 0 - 0 0 0 0 0 1 - 0 0 0 1 0 0 - 0 0 0 0 0 0 - 0 0 0 0 0 0]); - assert (imregionalmin (a), a8) - assert (imregionalmin (a, 8), a8) - assert (imregionalmin (int8 (a), 8), a8) -***** test - ## test float input images - im0 = peaks (); - im1 = im0 ./ 100; - max_pos_expected = [1; 49; 664; 1286; 1302; 2401]; - max0 = imregionalmin (im0); - max0_pos = find (max0); - max1 = imregionalmin (im1); - assert (max1, max0) - assert (max0_pos, max_pos_expected) -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/entropyfilt.m] ->>>>> /build/octave-image-2.12.0/inst/entropyfilt.m -***** test - a = log2 (9) * ones (5, 5); - b = -(2*log2 (2/9) + log2 (1/9))/3; - a(1,2:4) = b; - a(5,2:4) = b; - a(2:4,1) = b; - a(2:4,5) = b; - c = -(4*log2 (4/9) + 4*log2 (2/9) + log2 (1/9))/9; - a(1,1) = c; - a(5,1) = c; - a(1,5) = c; - a(5,5) = c; - assert (entropyfilt (uint8 (magic (5)), ones (3, 3)), a, 2*eps); -***** test - assert (entropyfilt (uint8 (ones (10, 10))), zeros (10, 10)); -***** test - A = zeros (3,3); - B = ones (3,3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3,3); - E(2,2) = 2; - F = 3 .* ones (3,3); - F(2,2) = 1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - Hf = mat2gray(H); - X = uint8(abs(H)); - P = [0.2 0.201 0.204; 0.202 0.203 0.205; 0.205 0.206 0.202]; - Q = uint16([100 101 103; 100 105 102; 100 102 103]); - R = uint8([1 2 3 4 5; 11 12 13 14 15; 21 22 4 5 6; 5 5 3 2 1; 15 14 14 14 14]); - Aout = zeros (3); - Bout = zeros (3); - Cout = zeros (3); - Dout = zeros (3); - Eout = zeros (3); - Fout = zeros (3); - Gout_1 = -sum([2 7]./9.*log2([2 7]./9)); - Gout_2 = -sum([3 6]./9.*log2([3 6]./9)); - Gout_3 = -sum([4 5]./9.*log2([4 5]./9)); - Gout = [Gout_1 Gout_2 Gout_3; Gout_1 Gout_2 Gout_3; Gout_1 Gout_2 Gout_3]; - Hout_5 = -sum([2 7]./9.*log2([2 7]./9)) ; - Hout = [0.8916 0.8256 0.7412; 0.8256 Hout_5 0.6913; 0.7412 0.6913 0.6355]; - Hfout_5 = -sum([3 2 1 1 1 1]./9.*log2([3 2 1 1 1 1]./9)); - Hfout = [2.3613 2.3296 2.2252; 2.4571 Hfout_5 2.3090; 2.4805 2.4488 2.3445]; - Xout_5 = -sum([1 1 1 1 2 3]./9.*log2([1 1 1 1 2 3]./9)); - Xout = [2.3613 2.3296 2.2252; 2.4571 Xout_5 2.3090; 2.4805 2.4488 2.3445]; - Pout_5 = -sum([1 2 6]./9.*log2([1 2 6]./9)); - Pout = [1.1137 1.1730 1.2251; 1.1595 Pout_5 1.2774; 1.1556 1.2183 1.2635]; - Qout = zeros(3); - Rout = [3.5143 3.5700 3.4871 3.4957 3.4825; - 3.4705 3.5330 3.4341 3.4246 3.3890; - 3.3694 3.4063 3.3279 3.3386 3.3030; - 3.3717 3.4209 3.3396 3.3482 3.3044; - 3.4361 3.5047 3.3999 3.4236 3.3879]; - assert (entropyfilt (A), Aout); - assert (entropyfilt (B), Bout); - assert (entropyfilt (C), Cout); - assert (entropyfilt (D), Dout); - assert (entropyfilt (E), Eout); - assert (entropyfilt (F), Fout); - assert (entropyfilt (G), Gout, 1e-4); - assert (entropyfilt (H), Hout, 1e-4); - assert (entropyfilt (Hf), Hfout, 1e-4); - assert (entropyfilt (X), Xout, 1e-4); - assert (entropyfilt (P), Pout, 1e-4); - assert (entropyfilt (Q), Qout); - assert (entropyfilt (R), Rout, 1e-4); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/stdfilt.m] ->>>>> /build/octave-image-2.12.0/inst/stdfilt.m -***** test - im = stdfilt (ones (5)); - assert (im, zeros (5)) -***** test - A = zeros (3,3); - B = ones (3,3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3,3); - E(2,2) = 2; - F = 3 .* ones (3,3); - F(2,2) = 1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - A_out = [0 0 0; 0 0 0; 0 0 0]; - B_out = [0 0 0; 0 0 0; 0 0 0]; - C_out = repmat ([std([1 1 1 1 1 1 2 2 2]) - std([1 1 1 2 2 2 3 3 3]) - std([2 2 2 3 3 3 3 3 3])], [1 3]); - D_out = C_out'; - E_out = (1/3) .* ones (3,3); - F_out = (2/3) .* ones (3,3); - G_out = [std([-1 -1 2 -1 -1 2 -5 -5 2]), std([-1 2 7 -1 2 7 -5 2 8]), std([2 7 7 2 7 7 2 8 8]); - std([-1 -1 2 -5 -5 2 -7 -7 pi]), std([-1 2 7 -5 2 8 -7 pi 9]), std([2 7 7 2 8 8 pi 9 9]); - std([-5 -5 2 -7 -7 pi -7 -7 pi]), std([-5 2 8 -7 pi 9 -7 pi 9]), std([2 8 8 pi 9 9 pi 9 9])]; - H_out = [std([5 5 2 5 5 2 1 1 -3]), std([5 2 8 5 2 8 1 -3 1]), std([2 8 8 2 8 8 -3 1 1]); - std([5 5 2 1 1 -3 5 5 1]), std([5 2 8 1 -3 1 5 1 0]), std([2 8 8 -3 1 1 1 0 0]); - std([1 1 -3 5 5 1 5 5 1]), std([1 -3 1 5 1 0 5 1 0]), std([-3 1 1 1 0 0 1 0 0])]; - assert (stdfilt (A), A_out) - assert (stdfilt (B), B_out) - assert (stdfilt (C), C_out, 4*eps) - assert (stdfilt (D), D_out, 4*eps) - assert (stdfilt (E), E_out, 4*eps) - assert (stdfilt (F), F_out, 4*eps) - assert (stdfilt (G), G_out, 4*eps) - assert (stdfilt (H), H_out, 4*eps) - im = stdfilt (ones (5, 'logical')); - assert (im, zeros (5)) - im = stdfilt (ones (5, 'uint8')); - assert (im, zeros (5)) - assert (stdfilt (int8(H), H_out, 4*eps)) - assert (stdfilt (uint8(H), H_out, 4*eps)) - assert (stdfilt (int16(H), H_out, 4*eps)) - assert (stdfilt (uint16(H), H_out, 4*eps)) - assert (stdfilt (int32(H), H_out, 4*eps)) - assert (stdfilt (uint32(H), H_out, 4*eps)) - assert (stdfilt (int64(H), H_out, 4*eps)) - assert (stdfilt (uint64(H), H_out, 4*eps)) - assert (stdfilt (single(H), H_out, 4*eps)) -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/imnoise.m] ->>>>> /build/octave-image-2.12.0/inst/imnoise.m -***** assert(var(imnoise(ones(10)/2,'gaussian')(:)),0.01,0.005) # probabilistic -***** assert(length(find(imnoise(ones(10)/2,'salt & pepper')~=0.5)),5,10) # probabilistic -***** assert(var(imnoise(ones(10)/2,'speckle')(:)),0.01,0.005) # probabilistic -***** test - A = imnoise (.5 * ones (100), 'poisson'); - assert (class (A), 'double') -***** test - A = imnoise (.5 * ones (100, 'single'), 'poisson'); - assert (class (A), 'single') -***** test - A = imnoise (128 * ones (100, 'uint8'), 'poisson'); - assert (class (A), 'uint8') -***** test - A = imnoise (256 * ones (100, 'uint16'), 'poisson'); - assert (class (A), 'uint16') -***** demo - A = imnoise (2^7 * ones (100, 'uint8'), 'poisson'); - subplot (2, 2, 1) - imshow (A) - title ('uint8 image with poisson noise') - A = imnoise (2^15 * ones (100, 'uint16'), 'poisson'); - subplot (2, 2, 2) - imshow (A) - title ('uint16 image with poisson noise') - A = imnoise (.5 * ones (100), 'poisson'); - subplot (2, 2, 3) - imshow (A) - title ('double image with poisson noise') - A = imnoise (.5 * ones (100, 'single'), 'poisson'); - subplot (2, 2, 4) - imshow (A) - title ('single image with poisson noise') -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/imcrop.m] ->>>>> /build/octave-image-2.12.0/inst/imcrop.m -***** test - a = randi (255, [100 100]); - rect = [20 30 3 5]; - assert (nthargout ([1 2], @imcrop, a, rect), {a(30:35, 20:23) rect}); - assert (nthargout (2, @imcrop, a, rect), rect); - assert (nthargout ([3 4], 4, @imcrop, a, rect), {a(30:35, 20:23) rect}); -***** test - rgb = randi (255, [100 100 3]); - rect = [20 30 3 5]; - assert (nthargout ([1 2], @imcrop, rgb, rect), {rgb(30:35, 20:23,:) rect}); - assert (nthargout (2, @imcrop, rgb, rect), rect); - assert (nthargout ([3 4], 4, @imcrop, rgb, rect), {rgb(30:35, 20:23,:) rect}); -***** test - a = randi (255, [100 100]); - rect = [20 30 3 5]; - cmap = jet (255); - assert (nthargout ([1 2], @imcrop, a, cmap, rect), {a(30:35, 20:23) rect}); - assert (nthargout (2, @imcrop, a, cmap, rect), rect); - assert (nthargout ([3 4], 4, @imcrop, a, cmap, rect), {a(30:35, 20:23) rect}); -***** test - a = rand (100) > 0.5; - rect = [20 30 3 5]; - assert (nthargout ([1 2], @imcrop, a, rect), {a(30:35, 20:23) rect}); - assert (nthargout (2, @imcrop, a, rect), rect); - assert (nthargout ([3 4], 4, @imcrop, a, rect), {a(30:35, 20:23) rect}); -***** assert (imcrop (0, [0.5 0.5 0.9 0.9]), 0); -***** assert (imcrop (zeros (5), [1 1 1 1]), zeros (2)); -***** test - im = magic (5); - assert (imcrop (im, [1 1 5 5]), im) - assert (imcrop (im, [0 0 5 5]), im) - assert (imcrop (im, [1 1 2 5]), im(:,1:3)) - assert (imcrop (im, [1 -3 2 5]), im(1:2,1:3)) - assert (imcrop (im, [5 -3 2 5]), im(1:2,5)) -***** test - im = [1:7] .* [1; 2; 3; 4; 5]; - assert (imcrop (im, [1 1 5 5]), im(:,1:6)) - assert (imcrop (im, [0 0 5 5]), im(:,1:5)) - assert (imcrop (im, [1 1 2 5]), im(:,1:3)) - assert (imcrop (im, [1 -3 2 7]), im(1:4,1:3)) - assert (imcrop (im, [7 -3 2 7]), im(1:4,7)) -***** test - ## Matlab returns [] (size 0x0) for this cases, while we return - ## [] (size 2x0). We are not compatible by design. If it ever - ## becomes an issue to anyone we can review this decision. - assert (imcrop (magic (5), [6 -3 2 5]), zeros (2, 0)) -9 tests, 9 passed, 0 known failure, 0 skipped -[inst/qtdecomp.m] ->>>>> /build/octave-image-2.12.0/inst/qtdecomp.m -***** demo - full(qtdecomp(eye(8))) - %It finds 2 big blocks of 0 and it decomposes further where 0 and 1 are mixed. -***** # Test if odd-sized limits split -***** assert(full(qtdecomp(eye(5))), reshape([5,zeros(1,24)],5,5)); -***** assert(full(qtdecomp(eye(6))), repmat(reshape([3,zeros(1,8)],3,3),2,2)); -***** # Test 'equal' method -***** test - a=ones(2,2); - b=[2,0;0,0]; - assert(full(qtdecomp(eye(4))), [a,b;b,a]); -***** shared A, B2, B4 - A=[ 1, 4, 2, 5,54,55,61,62; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 23,42,42,42,99,99,99,99; - 27,42,42,42,99,99,99,99; - 23,22,26,25,99,99,99,99; - 22,22,24,22,99,99,99,99]; - B2=[2,0;0,0]; - B4=zeros(4); B4(1,1)=4; -***** test - R=[ones(4,8); [ones(2),B2;ones(2,4)], B4]; - assert(full(qtdecomp(A)), R); - assert(full(qtdecomp(A,0)), R); -***** # Test 'threshold' method -***** test - R=[ones(4,8); [ones(2),B2;B2,ones(2)],B4]; - assert(full(qtdecomp(A,1)), R); -***** test - R=[[B4,[B2,B2;B2,B2]]; [[ones(2),B2;B2,B2],B4]]; - assert(full(qtdecomp(A,10)), R); -***** test - R=[[B4,[B2,B2;B2,B2]]; [[B2,B2;B2,B2],B4]]; - assert(full(qtdecomp(A,10,2)), R); - - assert(full(qtdecomp(A,100,[2, 4])), [B4,B4;B4,B4]); -***** test - f = @(A, c1 = 54, c2 = 0, c3 = 0) (A (1, 1, :) != ((c1+c2+c3) * ones (1, 1, size (A, 3))))(:); - - assert(full(qtdecomp(A,f)),[ones(4),B4;ones(4,8)]); - assert(full(qtdecomp(A,f,54)),[ones(4),B4;ones(4,8)]); - assert(full(qtdecomp(A,f,4,40,10)),[ones(4),B4;ones(4,8)]); -***** test -***** # no params - first_eq=inline("(A(1,1,:)!=(54*ones(1,1,size(A,3))))(:)","A"); - assert(full(qtdecomp(A,first_eq)),[ones(4),B4;ones(4,8)]); -***** test -***** # 1 param - first_eq=inline("(A(1,1,:)!=(c*ones(1,1,size(A,3))))(:)","A","c"); - assert(full(qtdecomp(A,first_eq,54)),[ones(4),B4;ones(4,8)]); -***** test -***** # 3 params - first_eq=inline("(A(1,1,:)!=((c1+c2+c3)*ones(1,1,size(A,3))))(:)","A","c1","c2","c3"); - assert(full(qtdecomp(A,first_eq,4,40,10)),[ones(4),B4;ones(4,8)]); -11 tests, 11 passed, 0 known failure, 0 skipped -[inst/imhmin.m] ->>>>> /build/octave-image-2.12.0/inst/imhmin.m -***** shared im0, im0_h2_out - im0 = uint8 ([5 5 5 5 5; - 5 4 3 4 5; - 5 3 0 3 5; - 5 4 3 4 5; - 5 5 5 5 5]); - im0_h2_out = uint8 ([5 5 5 5 5; - 5 4 3 4 5; - 5 3 2 3 5; - 5 4 3 4 5; - 5 5 5 5 5]); -***** error imhmin () -***** error imhmin (im0) -***** error imhmin ("hello", 2) -***** error imhmin (i.*im0, 2) -***** error imhmin (sparse (im0), 2) -***** error imhmin (im0, -2) -***** error imhmin (im0, 'a') -***** error imhmin (im0, ones (2)) -***** error imhmin (im0, 2*i) -***** assert (imhmin (im0, 2), im0_h2_out) -***** assert (imhmin (double (im0), 2), double (im0_h2_out)) -***** assert (imhmin (im0, 2, 8), im0_h2_out) -***** assert (imhmin (im0, 2, 4), im0_h2_out) -***** assert (imhmin (im0, 2, true (3)), im0_h2_out) +[inst/imextendedmax.m] +>>>>> /build/octave-image-2.12.0/inst/imextendedmax.m +***** shared im0, bw0_h2_out + im0 = uint8 ([0 0 0 0 0; + 0 1 2 1 0; + 0 2 5 2 0; + 0 1 2 1 0; + 0 0 0 0 0]); + bw0_h2_out = false (5); + bw0_h2_out(3,3) = true; +***** error imextendedmax () +***** error imextendedmax (im0) +***** error imextendedmax ("hello", 2) +***** error imextendedmax (i.*im0, 2) +***** error imextendedmax (sparse (im0), 2) +***** error imextendedmax (im0, -2) +***** error imextendedmax (im0, 'a') +***** error imextendedmax (im0, ones (2)) +***** error imextendedmax (im0, 2*i) +***** assert (imextendedmax (im0, 2), bw0_h2_out) +***** assert (imextendedmax (double (im0), 2), bw0_h2_out) +***** assert (imextendedmax (im0, 2, 8), bw0_h2_out) +***** assert (imextendedmax (im0, 2, 4), bw0_h2_out) +***** assert (imextendedmax (im0, 2, true (3)), bw0_h2_out) ***** test - out = imhmin (double (im0), 2); + out = imextendedmax (im0, 2); assert (size (out), size (im0)) - assert (class (out), "double") + assert (class (out), "logical") ***** test - out = imhmin (single (im0), 2); + out = imextendedmax (single (im0), 2); assert (size (out), size (im0)) - assert (class (out), "single") + assert (class (out), "logical") ***** test - out = imhmin (uint8 (im0), 2); + out = imextendedmax (uint8 (im0), 2); assert (size (out), size (im0)) - assert (class (out), "uint8") + assert (class (out), "logical") ***** test - out = imhmin (uint16 (im0), 2); + out = imextendedmax (uint16 (im0), 2); assert (size (out), size (im0)) - assert (class (out), "uint16") + assert (class (out), "logical") ***** test im = cat (3, im0, im0, im0, im0); - out = imhmin (im, 2); + out = imextendedmax (im, 2); assert (size (out), size (im)) ***** test - im = 10 .* ones (10); - im(2:4, 2:4) = 7; - im(6:8, 6:8) = 2; - expected_4 = 10 .* ones (10); - expected_4(6:8, 6:8) = 6; - expected_2 = 10 .* ones (10); - expected_2(6:8, 6:8) = 4; - expected_2(2:4, 2:4) = 9; - out = imhmin (im, 4); + im = zeros (10); + im(2:4, 2:4) = 3; + im(6:8, 6:8) = 8; + expected_4 = false (10); + expected_4(6:8, 6:8) = true; + expected_2 = expected_4; + expected_2(2:4, 2:4) = true; + out = imextendedmax (im, 4); assert (out, expected_4, eps) - out = imhmin (im, 2); + out = imextendedmax (0.1.*im, 0.4); + assert (out, expected_4, eps) + out = imextendedmax (im, 2); assert (out, expected_2, eps) - out = imhmin (0.1.*im, 0.4); - assert (out, 0.1 .* expected_4, eps) ***** test - im2 = 10 .* ones (10); - im2(2:4, 2:4) = 7; - im2(6:9, 6:9)=2; - im2(5, 5)=2; - im2(6, 7)=10; - im2(7, 8)=10; - expected_4 = 10 .* ones (10); - expected_4(6:9, 6:9) = 6; - expected_4(5, 5) = 6; - expected_4(6, 7) = 10; - expected_4(7, 8) = 10; - expected_8 = expected_4; - expected_8(2:4, 2:4) = 7; - out2 = imhmin (im2, 4); + im2 = zeros (10); + im2(2:4, 2:4) = 3; + im2(6:9, 6:9)=8; + im2(5, 5)=8; + im2(6, 7)=0; + im2(7, 8)=0; + expected_8 = false (10); + expected_8(6:9, 6:9) = true; + expected_8(5, 5) = true; + expected_8(6, 7) = false; + expected_8(7, 8) = false; + expected_4 = expected_8; + expected_4(2:4, 2:4) = true; + out2 = imextendedmax (im2, 2); assert (out2, expected_8, eps) - out2 = imhmin (im2, 4, 4); + out2 = imextendedmax (im2, 2, 4); assert (out2, expected_4, eps) - out2 = imhmin (im2, 4, 8); + out2 = imextendedmax (im2, 2, 8); assert (out2, expected_8, eps) 21 tests, 21 passed, 0 known failure, 0 skipped -[inst/imabsdiff.m] ->>>>> /build/octave-image-2.12.0/inst/imabsdiff.m -***** assert (imabsdiff (uint8 ([23 250]), uint8 ([26 50])), uint8 ([ 3 200])); # default to first class and abs works -***** assert (imabsdiff (uint8 ([23 250]), uint8 ([24 50]), "uint16"), uint16 ([ 1 200])); # defining output class works (not in matlab) -***** assert (imabsdiff (uint8 ([23 250]), uint8 ([24 255]), "int8"), int8 ([ 1 5])); # signed integers kinda work (not in matlab) -***** assert (imabsdiff (logical ([ 1 0]), logical ([ 1 1])), double ([ 0 1])); # return double for two logical images -***** fail ("imabsdiff (uint8 ([23 250]), 30"); # fails subtracting a scalar -***** fail ("imabsdiff (uint8 ([23 250]), uint16 ([23 250]))"); # input need to have same class -6 tests, 6 passed, 0 known failure, 0 skipped -[inst/rgb2ntsc.m] ->>>>> /build/octave-image-2.12.0/inst/rgb2ntsc.m -***** assert (rgb2ntsc ([1 0 0]), [.299 .596 .211]) -***** assert (rgb2ntsc ([0 1 0]), [.587 -.274 -.523]) -***** assert (rgb2ntsc ([0 0 1]), [.114 -.322 .312]) +[inst/colorangle.m] +>>>>> /build/octave-image-2.12.0/inst/colorangle.m +***** error id=Octave:invalid-fun-call colorangle () +***** error id=Octave:invalid-fun-call colorangle (1, 2, 3) +***** error colorangle (2, 3) +***** error colorangle ([1, 2], [3, 4]) +***** error id=Octave:expected-real colorangle ([1, 2, 3j], [4, 5, 6]) +***** error id=Octave:expected-real colorangle ([1, 2, 3], [4j, 5, 6]) +***** error id=Octave:invalid-type colorangle ("abc", "def") ***** test - rgb_map = rand (64, 3); - assert (ntsc2rgb (rgb2ntsc (rgb_map)), rgb_map, 1e-3); + assert (colorangle ([0 0 0], [0 1 0]), NaN) + assert (colorangle ([0 0 0], [0 1 1]), NaN) + assert (colorangle ([0 1 0], [0 0 0]), NaN) + assert (colorangle ([1 1 0], [0 0 0]), NaN) + assert (colorangle ([1 1 1], [1 1 1]), 0) +***** assert (colorangle ([0 0 0], [0 0 0]), 0) +***** assert (colorangle ([1 0 0], [-1 0 0]), 180) +***** assert (colorangle ([0 0 1], [1 0 0]), 90) +***** assert (colorangle ([0; 0; 1], [1 0 0]), 90) +***** assert (colorangle ([0, 0, 1], [1; 0; 0]), 90) +***** assert (colorangle ([0.5 0.61237 -0.61237], [0.86603 0.35355 -0.35355]), 30.000270917, 1e-4) +***** assert (colorangle ([0.1582055390, 0.2722362096, 0.1620813305], [0.0717 0.1472 0.0975]), 5.09209927, 1e-6) +***** assert (colorangle ([0.0659838500, 0.1261619536, 0.0690643667], [0.0717 0.1472 0.0975]), 5.10358588, 1e-6) +***** assert (colorangle ([0.436871170, 0.7794672250, 0.4489702582], [0.0717 0.1472 0.0975]), 5.01339769, 1e-6) ***** test - rgb_img = rand (64, 64, 3); - assert (ntsc2rgb (rgb2ntsc (rgb_img)), rgb_img, 1e-3); - assert (rgb2ntsc ([1.5 1 1]), [1.149 0.298 0.105], 1e-3); -***** error rgb2ntsc () -***** error rgb2ntsc (1,2) -***** error rgb2ntsc ({1}) -***** error rgb2ntsc (ones (2,2)) + a = [1 0 0]; + b = [1 1 0]; + expected = colorangle (a, b); + assert (colorangle (a.', b.'), expected) + assert (colorangle (a, b.'), expected) + assert (colorangle (a.', b), expected) + assert (colorangle (vec (a, 3), b.'), expected) +***** assert (colorangle ([1 0 0; 0 1 1], [1 1 1; 2 3 4]), + [colorangle([1 0 0], [1 1 1]); colorangle([0 1 1], [2 3 4])]) ***** test - rgb = rand (16, 16, 3, 5); - yiq = zeros (size (rgb)); - for i = 1:5 - yiq(:,:,:,i) = rgb2ntsc (rgb(:,:,:,i)); + a = [1 0 0; 0.5 1 0; 0 1 1; 1 1 1]; + b = [0 1 0]; + expected = zeros (4, 1); + for i = 1:4 + expected(i) = colorangle (a(i,:), b); endfor - assert (rgb2ntsc (rgb), yiq); -***** test - ntsc = rgb2ntsc (rand (10, 10, 3)); - assert (class (ntsc), "double"); - assert (size (ntsc), [10 10 3]); -***** test - ntsc = rgb2ntsc (rand (10, 10, 3, "single")); - assert (class (ntsc), "single"); - assert (size (ntsc), [10 10 3]); -***** test - rgb = (rand (10, 10, 3) * 3 ) - 0.5; # values outside range [0 1] - ntsc = rgb2ntsc (rgb); - assert (class (ntsc), "double"); - assert (size (ntsc), [10 10 3]); -***** test - rgb = (rand (10, 10, 3, "single") * 3 ) - 0.5; # values outside range [0 1] - ntsc = rgb2ntsc (rgb); - assert (class (ntsc), "single"); - assert (size (ntsc), [10 10 3]); -***** test - ntsc = rgb2ntsc (randi ([0 255], 10, 10, 3, "uint8")); - assert (class (ntsc), "double"); - assert (size (ntsc), [10 10 3]); -***** test - ntsc = rgb2ntsc (randi ([0 65535], 10, 10, 3, "uint16")); - assert (class (ntsc), "double"); - assert (size (ntsc), [10 10 3]); -***** test - ntsc = rgb2ntsc (randi ([-128 127], 10, 10, 3, "int8")); - assert (class (ntsc), "double"); - assert (size (ntsc), [10 10 3]); -***** test - rgb_double = reshape ([1 0 0 0 0 1 0 0 0 0 1 0], [2 2 3]); - rgb_uint8 = reshape (uint8 ([255 0 0 0 0 255 0 0 0 0 255 0]), - [2 2 3]); - rgb_int16 = int16 (double (rgb_double * uint16 (65535)) -32768); - expected = reshape ([.299 .587 .114 0 .596 -.274 -.322 0 .211 -.523 .312 0], - [2 2 3]); + assert (colorangle (a, b), expected) + assert (colorangle (b, a), expected) +***** xtest + a = [1 2 3]; + b = [2 3 4]; + c = [5 6 7]; + d = [3 1 1]; - assert (rgb2ntsc (rgb_double), expected); - assert (rgb2ntsc (rgb_uint8), expected); - assert (rgb2ntsc (single (rgb_double)), single (expected)); -18 tests, 18 passed, 0 known failure, 0 skipped -[inst/bwareafilt.m] ->>>>> /build/octave-image-2.12.0/inst/bwareafilt.m -***** shared a2d, a3d - a2d = [1 0 0 0 0 0 1 0 0 1 - 1 0 0 1 0 1 0 1 0 1 - 1 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 1 1 1 0 0 0 0 - 1 1 0 1 0 0 0 1 0 0 - 1 1 0 0 0 0 1 0 1 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 1 1 0 0 1]; + ac = colorangle (c, a); + bc = colorangle (b, c); + ad = colorangle (a, d); + bd = colorangle (b, d); - a3d = a2d; - a3d(:,:,2) = [ - 0 0 0 0 0 0 0 0 0 0 - 1 0 0 1 1 0 0 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 1 1 0 0 0 0 - 1 1 0 1 0 0 0 0 0 0 - 1 0 0 0 0 0 1 0 0 0 - 0 1 0 0 0 0 0 0 0 1 - 1 1 0 0 0 0 1 0 0 0]; + assert (colorangle (a, cat (3, c, d)), + cat (3, [ac ad])) - a3d(:,:,3) = [ - 1 0 0 0 0 0 0 0 0 0 - 0 1 0 1 1 0 0 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 1 - 1 1 0 0 0 0 0 0 0 0]; -***** test - f2d = [0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 1 1 1 0 0 0 0 - 1 1 0 1 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a2d, 2), logical (f2d)); - assert (bwareafilt (a2d, 2, 8), logical (f2d)); - assert (bwareafilt (a2d, 2, 4), logical (f2d)); -***** test - f2d = [1 0 0 0 0 0 1 0 0 0 - 1 0 0 0 0 1 0 1 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 1 1 1 0 0 0 0 - 1 1 0 1 0 0 0 1 0 0 - 1 1 0 0 0 0 1 0 1 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a2d, 5), logical (f2d)); - assert (bwareafilt (a2d, 5, 8), logical (f2d)); -***** test - f2d = [0 0 0 0 0 0 1 0 0 1 - 0 0 0 1 0 1 0 1 0 1 - 0 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 1 0 1 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 1 1 0 0 1]; - assert (bwareafilt (a2d, 11, "smallest", 4), logical (f2d)); -***** test - f2d = [1 0 0 0 0 0 1 0 0 0 - 1 0 0 0 0 1 0 1 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 1 0 0 0 1 0 0 - 0 0 0 0 0 0 1 0 1 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a2d, [3 5]), logical (f2d)); - assert (bwareafilt (a2d, [3 5], 8), logical (f2d)); -***** test - f2d = [1 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a2d, [3 4], 4), logical (f2d)); - assert (bwareafilt (a2d, [3 4], [0 1 0; 1 1 1; 0 1 0]), logical (f2d)); -***** test - f2d = [1 0 0 0 0 0 1 0 0 1 - 1 0 0 1 0 1 0 1 0 1 - 1 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 1 0 0 0 1 0 0 - 0 0 0 0 0 0 1 0 1 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 1 1 0 0 0]; - assert (bwareafilt (a2d, [2 4]), logical (f2d)); - assert (bwareafilt (a2d, [2 4], 8), logical (f2d)); - assert (bwareafilt (a2d, [2 4], ones (3)), logical (f2d)); -***** test - f3d = [0 0 0 0 0 0 1 0 0 0 - 0 0 0 1 0 1 0 1 0 0 - 0 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; + assert (colorangle (cat (3, a, b), cat (3, c, d)), + cat (3, [ac cd])) - f3d(:,:,2) = [ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 0 0 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; + assert (colorangle (cat (1, a, b), cat (3, c, d)), + reshape ([ac bc ad bd], [2 2])) +!!!!! known failure +dot: sizes of X and Y must match +21 tests, 20 passed, 1 known failure, 0 skipped +[inst/imgetfile.m] +>>>>> /build/octave-image-2.12.0/inst/imgetfile.m +***** assert (1) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imopen.m] +>>>>> /build/octave-image-2.12.0/inst/imopen.m +***** shared in, out + in = [ 0 0 0 1 1 1 0 0 1 1 + 0 1 0 1 1 1 0 0 0 1 + 1 1 1 1 1 0 0 0 0 0 + 0 1 1 1 1 0 0 0 0 0 + 0 0 0 1 0 0 0 0 1 0 + 0 0 0 0 0 0 0 1 1 1 + 0 0 0 0 1 0 1 0 1 0 + 0 0 0 1 1 1 1 1 0 0 + 0 0 0 0 1 1 1 0 0 0 + 0 0 0 1 1 1 0 0 0 0]; - f3d(:,:,3) = [ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 0 0 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a3d, 2), logical (f3d)); - assert (bwareafilt (a3d, 2, 26), logical (f3d)); - assert (bwareafilt (a3d, 2, ones (3, 3, 3)), logical (f3d)); -***** test - f3d = [0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 1 1 1 0 0 0 0 - 1 1 0 1 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; + out = [ 0 0 0 1 1 1 0 0 0 0 + 0 0 0 1 1 1 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0]; +***** assert (imopen (logical (in), ones (3)), logical (out)); - f3d(:,:,2) = [ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 1 1 0 0 0 0 - 1 1 0 1 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; + out = [80 80 1 8 15 51 51 51 51 40 + 80 80 7 8 15 54 55 55 55 40 + 4 7 7 8 15 54 55 55 55 40 + 17 17 17 7 3 54 55 55 55 28 + 17 17 17 2 9 54 54 54 52 33 + 17 17 17 29 29 29 29 26 33 33 + 5 5 13 29 29 29 30 32 39 39 + 6 6 13 29 29 29 30 32 39 39 + 10 12 77 77 77 35 35 35 39 39 + 10 12 77 77 77 35 35 35 27 27]; +***** assert (imopen (magic (10), ones (3)), out); +***** assert (imopen (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); - f3d(:,:,3) = [ - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 0 0]; - assert (bwareafilt (a3d, 2, 6), logical (f3d)); - assert (bwareafilt (a3d, 2, conndef (3, "minimal")), logical (f3d)); -8 tests, 8 passed, 0 known failure, 0 skipped -[inst/bwpack.m] ->>>>> /build/octave-image-2.12.0/inst/bwpack.m -***** error id=Octave:invalid-fun-call bwpack () -***** error id=Octave:invalid-input-arg bwpack ("text") -***** xtest - ## bug #55521 - assert (bwpack (eye (5)), uint32 ([1 2 4 8 16])) -***** xtest - ## bug #55521 - assert (bwpack (repmat (eye (4), 15, 1)), - uint32 ([286331153 572662306 1145324612 2290649224 - 17895697 35791394 71582788 143165576])) -***** xtest - ## bug #55521 - assert (bwpack (ones (3, 3, 3, 3)), repmat (uint32 (7), 1, 3, 3, 3)) -***** assert (bwpack (false (0, 10)), uint32 (zeros (0, 10))) -***** assert (bwpack (false (0, 0)), uint32 (zeros (0, 0))) -***** assert (bwpack (false (32, 0)), uint32 (zeros (1, 0))) -***** assert (bwpack (false (33, 0)), uint32 (zeros (2, 0))) -***** assert (bwpack (false (0, 10, 3)), uint32 (zeros (0, 10, 3))) -***** assert (bwpack (false (33, 0, 3)), uint32 (zeros (2, 0, 3))) -***** assert (bwpack (i), bwpack (logical (i))) -12 tests, 12 passed, 0 known failure, 0 skipped -[inst/integralImage.m] ->>>>> /build/octave-image-2.12.0/inst/integralImage.m -***** test - assert (integralImage (10), [0 0; 0 10]); - assert (integralImage (10, "rotated"), [0 0 0; 0 10 0]); -***** test - J = integralImage (10); - assert (class(J), "double"); - J = integralImage (uint8(10)); - assert (class(J), "double"); -***** test - I = [1, 2; 3, 4]; - J = integralImage (I); - J1 = [0 0 0; 0 1 3; 0 4 10]; - assert (J, J1) - J = integralImage (I, "rotated"); - J1 = [0 0 0 0; 0 1 2 0; 1 6 7 2]; - assert (J, J1) -***** test - I1 = [1, 2; 3, 4]; - I2 = [5, 6; 7, 8]; - I3 = [9, 10; 11, 12]; - I = cat (3, I1, I2, I3); - J = integralImage (I); - J1 = [0 0 0; 0 1 3; 0 4 10]; - J2 = [0 0 0; 0 5 11; 0 12 26]; - J3 = [0 0 0; 0 9 19; 0 20 42]; - J0 = cat (3, J1, J2, J3); - assert (J, J0) -***** test - I1 = [1, 2; 3, 4]; - I2 = [5, 6; 7, 8]; - I3 = [9, 10; 11, 12]; - I = cat (3, I1, I2, I3); - J = integralImage (I, "rotated"); - J1 = [0 0 0 0; 0 1 2 0; 1 6 7 2]; - J2 = [0 0 0 0; 0 5 6 0; 5 18 19 6]; - J3 = [0 0 0 0; 0 9 10 0; 9 30 31 10]; - J0 = cat (3, J1, J2, J3); - assert (J, J0) -***** test - I = magic (5); - J = integralImage (I); - J_res = [0 0 0 0 0 0; - 0 17 41 42 50 65; - 0 40 69 77 99 130; - 0 44 79 100 142 195; - 0 54 101 141 204 260; - 0 65 130 195 260 325]; - assert (J, J_res) + ## using a se that will be decomposed in 2 pieces + out =[ 1 1 1 8 15 40 40 40 40 40 + 4 4 4 8 15 40 40 40 40 40 + 4 4 4 8 15 40 40 40 40 40 + 5 5 5 3 3 28 28 28 28 28 + 5 5 5 2 9 28 28 28 28 28 + 5 5 13 26 26 26 26 26 26 26 + 5 5 13 29 29 29 29 29 27 27 + 6 6 13 29 29 29 29 29 27 27 + 6 6 13 29 29 29 29 29 27 27 + 6 6 13 29 29 29 29 29 27 27]; +***** assert (imopen (magic (10), ones(5)), out); - J = integralImage (I, "rotated"); - J_res_R = [0 0 0 0 0 0 0; - 0 17 24 1 8 15 0; - 17 64 47 40 38 39 15; - 64 74 91 104 105 76 39; - 74 105 149 188 183 130 76; - 105 170 232 272 236 195 130]; - assert (J, J_res_R) -***** error - integralImage (); -***** error - integralImage (1, "xxx", 2); -***** error - integralImage ("abcd"); -***** error - integralImage ([1 2; 3 4], "xxx"); -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/otsuthresh.m] ->>>>> /build/octave-image-2.12.0/inst/otsuthresh.m -***** test - histo = zeros (1, 256); - histo([ 29 33 37 41 46 50 54 58 62 66 70 74 78 82 ... - 86 90 94 98 102 106 110 114 118 122 126 131 135 139 ... - 143 147 151 155 159 163 167 171 175 179 183 187 191 195 ... - 199 203 207 211 216 220 224 228 232 236 240 244 248 252]) = ... - [2 27 51 144 132 108 43 29 22 21 22 20 10 16 17 12 13 14 12 13 ... - 15 25 19 20 23 37 23 65 92 84 87 54 50 54 33 73 76 64 57 58 47 ... - 48 30 27 22 20 20 11 12 12 11 7 17 31 37 31]; - assert (otsuthresh (histo), 114.5/255) -***** test - I = max (phantom (), 0); - H = imhist (I); - assert (otsuthresh (H), 178/255) - assert (otsuthresh (H'), 178/255) - H = imhist (I, 10); - assert (otsuthresh (H), 170/255) -***** assert (otsuthresh (100), 0) -***** assert (otsuthresh (zeros (256, 1)), 0) -***** assert (otsuthresh (zeros (5, 1)), 0) -***** assert (otsuthresh (uint8 ([10 20 30])), 0.5) -***** assert (otsuthresh (int32 ([100 200 300])), 0.5) -***** assert (otsuthresh (int32 ([100 200])), 0) -***** assert (otsuthresh (single ([10 20 30 40])), 1/3); -***** assert (otsuthresh (uint16 ([10 20 30 40 50 60 70 80 90 100])), 5/9) -***** assert (otsuthresh (int16 ([10 20 30 40 50 60 70 80 90 100])), 5/9) -***** assert (otsuthresh (int16 (1:255)), 156/254) -***** assert (otsuthresh (int16 (1:1023)), 631/1022) -***** assert (otsuthresh (int8 (1:1023)), 541/1022) -***** test - warning ("off", "Octave:data-file-in-path", "local"); - S = load ("penny.mat"); - h = imhist (uint8 (S.P)); - assert (otsuthresh (h), 94/255); + ## using a weird non-symmetric and even-size se + out =[ 7 7 1 8 15 55 51 51 41 40 + 7 7 7 8 16 55 55 55 51 41 + 4 9 7 7 16 54 55 54 55 47 + 25 25 9 9 3 52 54 52 54 28 + 25 24 25 2 9 33 52 34 52 34 + 17 24 29 31 29 30 33 26 33 34 + 17 5 29 31 31 31 30 32 39 33 + 10 6 13 35 35 29 31 32 45 39 + 10 12 77 36 36 35 35 31 45 45 + 11 12 77 77 77 36 36 35 27 45]; +***** assert (imopen (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/imsubtract.m] +>>>>> /build/octave-image-2.12.0/inst/imsubtract.m +***** assert (imsubtract (uint8 ([23 250]), uint8 ([24 50])), uint8 ([ 0 200])); # default to first class and truncate +***** assert (imsubtract (uint8 ([23 250]), 10), uint8 ([13 240])); # works subtracting a scalar +***** assert (imsubtract (uint8 ([23 250]), uint8 ([24 50]), "uint16"), uint16 ([ 0 200])); # defining output class works (not in matlab) +***** assert (imsubtract (logical ([ 1 0]), logical ([ 1 1])), double ([ 0 -1])); # return double for two logical images +***** assert (imsubtract (logical ([ 1 0]), logical ([ 1 1]), "logical"), logical ([ 0 0])); # this is matlab incompatible on purpose +***** error imsubtract (uint8 ([23 250]), uint16 ([23 250])); +***** warning imsubtract (uint8 ([23 250]), uint8 ([24 255]), "int8"); ***** test - I = max (phantom (), 0); - h = imhist (I, 5); - assert (otsuthresh (h), 0.625); -***** error id=Octave:invalid-fun-call otsuthresh () -***** error id=Octave:invalid-fun-call otsuthresh (ones (10), 5) -***** error otsuthresh ([]) -***** error otsuthresh ([Inf 10]) -***** error otsuthresh ([10 NA]) -***** error otsuthresh ([10 NaN]) -***** error otsuthresh (zeros (5)) -***** error otsuthresh ([10 -10]) -***** error otsuthresh ("foo") -***** demo - I = max (phantom (), 0); - figure; imshow (I); - title ("Original image"); - h = imhist (I); - t = otsuthresh (h); - J = im2bw (I); - figure; imshow (J); - title_line = sprintf ("Black and white image after thresholding, t=%g", - t*255); - title (title_line); -***** demo - warning ("off", "Octave:data-file-in-path", "local"); - S = load ("penny.mat"); - I = uint8 (S.P); - figure; imshow (I); - title ("Original penny image"); - h = imhist (I); - t = otsuthresh (h); - J = im2bw (I); - figure; imshow (J); - title_line = sprintf ("Black and white penny image after thresholding, t=%g", - t*255); - title (title_line); - I = 255 - I; - figure; imshow(I); - title ("Negative penny image"); - h = imhist (I); - t = otsuthresh (h); - J = im2bw (I); - figure; imshow (J); - title_line = sprintf ("Black and white negative penny image after thresholding, t=%g", - t*255); - title (title_line); -25 tests, 25 passed, 0 known failure, 0 skipped -[inst/imtranslate.m] ->>>>> /build/octave-image-2.12.0/inst/imtranslate.m + warning ("off", "all"); + assert (imsubtract (uint8 ([23 250]), uint8 ([24 255]), "int8"), + int8 ([-1 0])) +8 tests, 8 passed, 0 known failure, 0 skipped +[inst/imregionalmax.m] +>>>>> /build/octave-image-2.12.0/inst/imregionalmax.m ***** test - obs = imtranslate (ones (5, 5), 2, 1, "crop"); - exp = zeros (5, 5); - exp(1:4, 3:5) = 1; - assert (obs, exp, eps * 10) + a = [ + 7 3 9 3 10 3 + 4 2 3 10 1 3 + 1 4 6 9 4 10 + 8 7 9 3 4 8 + 5 9 3 3 8 9 + 3 6 9 4 1 10]; - obs = imtranslate (ones (5, 5), -2, -1, "crop"); - exp = zeros (5, 5); - exp(2:5, 1:3) = 1; - assert (obs, exp, eps * 10) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/imcast.m] ->>>>> /build/octave-image-2.12.0/inst/imcast.m + a4 = [ + 1 0 1 0 1 0 + 0 0 0 1 0 0 + 0 0 0 0 0 1 + 1 0 1 0 0 0 + 0 1 0 0 0 0 + 0 0 1 0 0 1]; + assert (imregionalmax (a, 4), logical (a4)) + a8 = [ + 1 0 0 0 1 0 + 0 0 0 1 0 0 + 0 0 0 0 0 1 + 0 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 1]; + assert (imregionalmax (a, 8), logical (a8)) + assert (imregionalmax (a), logical (a8)) ***** test - im = randi ([0 255], 40, "uint8"); - assert (imcast (im, "uint8"), im2uint8 (im)) - assert (imcast (im, "uint16"), im2uint16 (im)) - assert (imcast (im, "single"), im2single (im)) - assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) - assert (imcast (im, "uint16", "indexed"), im2uint16 (im, "indexed")) - assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) + ## test float input images + im0 = peaks (); + im1 = im0 ./ 100; + max_pos_expected = [1000; 1214; 1691; 2353]; + max0 = imregionalmax (im0); + max0_pos = find (max0); + max1 = imregionalmax (im1); + assert (max1, max0) + assert (max0_pos, max_pos_expected) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/wiener2.m] +>>>>> /build/octave-image-2.12.0/inst/wiener2.m +***** shared im0, im0_out, im0_n + im0 = ones (5, 5); + im0_out = ones (5, 5); + im0_out(1:4:5, 1:4:5) = 0.67111; + im0_out(1:4:5, 2:4) = 0.78074; + im0_out(2:4, 1:4:5) = 0.78074; + im0_n = 0.1462; +***** error wiener2 () +***** assert (wiener2 (im0)) +***** assert (wiener2 (im0, [2, 3])) +***** assert (wiener2 (im0, 0.5)) +***** assert (wiener2 (im0, [2, 3], 0.5)) +***** error wiener2 (im0, [2, 3], 0.5, 2) ***** test - im = randi ([1 256], 40, "double"); - assert (imcast (im, "uint8"), im2uint8 (im)) - assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) - assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) + [im_out, noise_out] = wiener2 (im0); + assert (size (im_out), size (im0)) + assert (class (noise_out), "double") + assert (numel (noise_out), 1) +***** assert (wiener2 (im0), im0_out, 1e-5) +***** assert (wiener2 (single (im0)), single (im0_out), 1e-5) +***** assert (class (wiener2 (single (im0))), "single") +***** assert (wiener2 (im2uint8 (im0)), im2uint8 (im0_out)) +***** assert (class (wiener2 (im2uint8 (im0))), "uint8") +***** assert (wiener2 (im2uint16 (im0)), im2uint16 (im0_out), 1) +***** assert (class (wiener2 (im2uint16 (im0))), "uint16") +***** assert (wiener2 (im2int16 (im0)), im2int16 (im0_out), 1) +***** assert (class (wiener2 (im2int16 (im0))), "int16") ***** test - im = randi ([0 65535], 40, "uint16"); - assert (imcast (im, "uint8"), im2uint8 (im)) - assert (imcast (im, "single"), im2single (im)) - assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) + im_out = wiener2 (im0); + assert (im_out, im0_out, 1e-4) + [out, n] = wiener2 (im0); + assert (out, im0_out, 1e-4) + assert (n, im0_n, 1e-4) ***** test - im = randi ([1 255], 40, "double"); - assert (imcast (im, "uint8", "indexed"), im2uint8 (im, "indexed")) - assert (imcast (im, "single", "indexed"), im2single (im, "indexed")) + im1 = zeros (5, 5); + im1(2:4, 2:4) = 1; + im1_out = [ + 0.1111 0.2222 0.2726 0.2222 0.1111; + 0.2222 0.5911 0.7274 0.5911 0.2222; + 0.2726 0.7274 1.0000 0.7274 0.2726; + 0.2222 0.5911 0.7274 0.5911 0.2222; + 0.1111 0.2222 0.2726 0.2222 0.1111]; + im1_n = 0.1817; + im1_out_55 = [ + 0.1600 0.2400 0.2400 0.2400 0.1600; + 0.2400 0.4667 0.4667 0.4667 0.2400; + 0.2400 0.4667 0.4667 0.4667 0.2400; + 0.2400 0.4667 0.4667 0.4667 0.2400; + 0.1600 0.2400 0.2400 0.2400 0.1600]; + im1_n_55 = 0.1920; + im1_out_05 = [ + 0.1111 0.2222 0.3333 0.2222 0.1111; + 0.2222 0.4444 0.6667 0.4444 0.2222; + 0.3333 0.6667 1.0000 0.6667 0.3333; + 0.2222 0.4444 0.6667 0.4444 0.2222; + 0.1111 0.2222 0.3333 0.2222 0.1111]; + im1_out_55_05 = [ + 0.1600 0.2400 0.2400 0.2400 0.1600; + 0.2400 0.3600 0.3600 0.3600 0.2400; + 0.2400 0.3600 0.3600 0.3600 0.2400; + 0.2400 0.3600 0.3600 0.3600 0.2400; + 0.1600 0.2400 0.2400 0.2400 0.1600]; + im1_out_35 = [ + 0.1333 0.2000 0.2000 0.2000 0.1333; + 0.2642 0.5156 0.5156 0.5156 0.2642; + 0.3230 0.6770 0.6770 0.6770 0.3230; + 0.2642 0.5156 0.5156 0.5156 0.2642; + 0.1333 0.2000 0.2000 0.2000 0.1333]; + im1_out_51 = [ + 0 0.2400 0.2400 0.2400 0 + 0 0.7600 0.7600 0.7600 0 + 0 0.7600 0.7600 0.7600 0 + 0 0.7600 0.7600 0.7600 0 + 0 0.2400 0.2400 0.2400 0]; + assert (wiener2 (im1), im1_out, 1e-4) + [out, n] = wiener2 (im1); + assert (out, im1_out, 1e-4) + assert (n, im1_n, 1e-4) + assert (wiener2 (im1, [5, 5]), im1_out_55, 1e-4) + [out, n] = wiener2 (im1, [5, 5]); + assert (out, im1_out_55, 1e-4) + assert (n, im1_n_55, 1e-4) + assert (wiener2 (im1, 0.5), im1_out_05, 1e-4) + assert (wiener2 (im1, [5, 5], 0.5), im1_out_55_05, 1e-4) + assert (wiener2 (im1, [3, 5]), im1_out_35, 1e-4) + assert (wiener2 (im1, [5, 1]), im1_out_51, 1e-4) ***** test - im = rand (40); - assert (imcast (im, "uint8"), im2uint8 (im)) -***** error imcast (randi (127, 40, "int8"), "uint8") -***** error imcast (randi (255, 40, "uint8"), "uint32") -***** error imcast (randi (255, 40, "uint8"), "not a class") -***** error imcast (randi ([0 65535], 40, "uint16"), "uint8", "indexed") -***** assert (imcast ([0 1 .2; 2 -0 Inf], "logical"), logical ([0 1 1; 1 0 1])) -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/imadd.m] ->>>>> /build/octave-image-2.12.0/inst/imadd.m -***** assert (imadd (uint8 ([23 250]), uint8 ([23 250])), uint8 ([46 255])); # default to first class and truncate -***** assert (imadd (uint8 ([23 250]), 10), uint8 ([33 255])); # works adding a scalar -***** assert (imadd (uint8 ([23 250]), uint8 ([23 250]), "uint16"), uint16 ([46 500])); # defining output class works -***** assert (imadd (logical ([ 1 0]), logical ([ 1 1])), double ([ 2 1])); # return double for two logical images -***** assert (imadd (logical ([ 1 0]), logical ([ 1 1]), "logical"), logical ([ 1 1])); # this is matlab incompatible on purpose -***** fail ("imadd (uint8 ([23 250]), uint16 ([23 250]))"); # input need to have same class -6 tests, 6 passed, 0 known failure, 0 skipped -[inst/impixel.m] ->>>>> /build/octave-image-2.12.0/inst/impixel.m -***** shared img2d, img3d - img2d = uint8 (magic (10)); - img3d(:,:,1) = img2d; - img3d(:,:,2) = img2d + 1; - img3d(:,:,3) = img2d + 2; - img3d = uint8 (img3d); - -***** assert (impixel (img2d, 2, 2), single ([80 80 80])); -***** assert (impixel (img2d, -2, 2), single ([NA NA NA])); + ## Tests for even-sized neighbourhood + im1 = zeros (5, 5); + im1(2:4, 2:4) = 1; -***** assert (impixel (img2d, [1 10], [1 10]), single ([92 92 92; 59 59 59])); -***** assert (impixel (img3d, [1 10], [1 10]), single ([92 93 94; 59 60 61])); -***** assert (impixel (double (img2d), [1 10], [1 10]), [92 92 92; 59 59 59]); + im1_out_23 = [ + 0.1667 0.2233 0.2978 0.2233 0.1667 + 0.2233 0.7767 1.0000 0.7767 0.2233 + 0.2233 0.7767 1.0000 0.7767 0.2233 + 0.1667 0.5533 0.7022 0.5533 0.1667 + 0 0 0 0 0]; -***** assert (impixel ([1 10], [1 10], img2d, [1 10], [1 10]), single ([92 92 92; 59 59 59])); -***** assert (impixel ([3 12], [-4 12], img2d, [1 10], [1 10]), single ([NA NA NA; 44 44 44])); -***** assert (impixel ([3 5], [-4 3], img2d, [1 10], [1 10]), single ([NA NA NA; NA NA NA])); + im1_out_43 = [ + 0.1667 0.2813 0.3750 0.2813 0.1667 + 0.2500 0.6250 0.7500 0.6250 0.2500 + 0.2500 0.6250 0.7500 0.6250 0.2500 + 0.1667 0.4375 0.6250 0.4375 0.1667 + 0.0833 0.1667 0.2500 0.1667 0.0833]; - ## the following returns double because it's an indexed image -***** assert (impixel ([3 12], [-4 12], img2d, gray (100), [1 10], [1 10]), [NA NA NA; 4/9 4/9 4/9]); -9 tests, 9 passed, 0 known failure, 0 skipped -[inst/fspecial.m] ->>>>> /build/octave-image-2.12.0/inst/fspecial.m -***** test - for i = 1:9 - n = 2^i; - assert (sum (fspecial ("disk", n)(:)), 1, eps*n*n); - endfor -***** test - for r = [3 5 9 17] - f = fspecial ("disk", r); - [X, Y] = meshgrid (-r:r, -r:r); - rhi = (abs (X) + 0.5).^2 + (abs (Y) + 0.5).^2; - rlo = (abs (X) - 0.5).^2 + (abs (Y) - 0.5).^2; - fhi = (rhi <= (r^2)); - flo = (rlo >= (r^2)); - for i = 1:(2*r+1) - for j = 1:(2*r+1) - if (fhi(i,j)) - assert (f(i,j), 1/(pi*r^2), eps); - endif - if (flo(i,j)) - assert (f(i,j), 0); - endif - endfor - endfor - endfor -***** error - fspecial ("gaussian", 0) -***** error - fspecial ("gaussian", 3.9) -***** assert (fspecial ("gaussian"), fspecial ("gaussian", 3, 0.5)) -***** assert (fspecial ("gaussian"), fspecial ("gaussian", [3 3], 0.5)) -***** test - c = ([-1:1].^2) .+ ([-1:1]'.^2); - gauss = exp (- (c ./ (2 * (0.5 .^ 2)))); - f = gauss / sum (gauss(:)); - assert (fspecial ("gaussian"), f) + im1_out_44 = [ + 0.2500 0.3018 0.3018 0.2500 0.1250 + 0.3018 0.6647 0.6647 0.4971 0.1875 + 0.3018 0.6647 0.6647 0.4971 0.1875 + 0.2500 0.4971 0.4971 0.2500 0.1250 + 0.1250 0.1875 0.1875 0.1250 0.0625]; - expected = [ - 0.01134373655849507 0.08381950580221061 0.01134373655849507 - 0.08381950580221061 0.61934703055717721 0.08381950580221061 - 0.01134373655849507 0.08381950580221061 0.01134373655849507]; - assert (f, expected, eps) -***** function f = f_gaussian_2d (hsize, sigma) - c = ([(-hsize(1)):(hsize(1))]'.^2) .+ ([(-hsize(2)):(hsize(2))].^2); - gauss = exp (- (c ./ (2 * (sigma .^ 2)))); - f = gauss ./ sum (gauss(:)); -***** endfunction -***** test - f = fspecial ("gaussian"); - assert (f, f_gaussian_2d ([1 1], .5)) - expected = [ - 0.01134373655849507 0.08381950580221061 0.01134373655849507 - 0.08381950580221061 0.61934703055717721 0.08381950580221061 - 0.01134373655849507 0.08381950580221061 0.01134373655849507]; - assert (f, expected, eps) + assert (wiener2 (im1, [2, 3]), im1_out_23, 1e-4) + assert (wiener2 (im1, [4, 3]), im1_out_43, 1e-4) + assert (wiener2 (im1, [4, 4]), im1_out_44, 1e-4) ***** test - f = fspecial ("gaussian", 7, 2); - assert (f, f_gaussian_2d ([3 3], 2)) - expected = [ - 0.00492233115934352 - 0.00919612528958620 - 0.01338028334410124 - 0.01516184737296414 - 0.01338028334410124 - 0.00919612528958620 - 0.00492233115934352 - 0.00919612528958620 - 0.01718062389630964 - 0.02499766026691484 - 0.02832606006174462 - 0.02499766026691484 - 0.01718062389630964 - 0.00919612528958620 - 0.01338028334410124 - 0.02499766026691484 - 0.03637138107390363 - 0.04121417419979795 - 0.03637138107390363 - 0.02499766026691484 - 0.01338028334410124 - 0.01516184737296414 - 0.02832606006174462 - 0.04121417419979795 - 0.04670177773892775]; - expected = reshape ([expected; expected((end-1):-1:1)], [7 7]); - assert (f, expected, eps) + im2 = zeros (5, 5); + im2(2:4, 2:4) = 70; + im2(3, 3) = 90; + im2 = uint8 (im2); + im2_out = uint8 ([ + 8 16 20 16 8 ; + 16 46 54 46 16; + 20 54 72 54 20; + 16 46 54 46 16; + 8 16 20 16 8 ]); + im2_n = 0.0146; + im2_out_55 = uint8 ([ + 12 18 18 18 12; + 18 32 32 32 18; + 18 32 35 32 18; + 18 32 32 32 18; + 12 18 18 18 12]); + im2_n_55 = 0.0160; + im2_out_03 = uint8 ([ + 8 16 23 16 8 ; + 16 33 49 33 16; + 23 49 72 49 23; + 16 33 49 33 16; + 8 16 23 16 8 ]); + im2_n_03 = 0.3000; + [out, n] = wiener2 (im2); + assert (out, im2_out) + assert (n, im2_n, 1e-4) + [out, n] = wiener2 (im2, [5, 5]); + assert (out, im2_out_55) + assert (n, im2_n_55, 1e-4) + [out, n] = wiener2 (im2, 0.3); + assert (out, im2_out_03) + assert (n, im2_n_03, 1e-4) ***** test - f = fspecial ("gaussian", [7 5], 2); - assert (f, f_gaussian_2d ([3 2], 2)) - expected = [ - 0.01069713252648568 - 0.01998487459872362 - 0.02907782096336423 - 0.03294948784319031 - 0.02907782096336423 - 0.01998487459872362 - 0.01069713252648568 - 0.01556423598706978 - 0.02907782096336423 - 0.04230797985750011 - 0.04794122192790870 - 0.04230797985750011 - 0.02907782096336423 - 0.01556423598706978 - 0.01763658993191515 - 0.03294948784319031 - 0.04794122192790870 - 0.05432452146574315]; - expected = reshape ([expected; expected((end-1):-1:1)], [7 5]); - assert (f, expected, eps) + im3 = zeros (5, 5); + im3(2:4, 2:4) = 70; + im3(3, 3) = 20; + im3 = uint8 (im3); + im3_out = uint8 ([ + 8 16 19 16 8 ; + 16 32 47 32 16; + 19 47 64 47 19; + 16 32 47 32 16; + 8 16 19 16 8 ]); + im3_n = 0.0134; + [out, n] = wiener2 (im3); + assert (out, im3_out) + assert (n, im3_n, 1e-4) ***** test - f = fspecial ("gaussian", [4 2], 2); - expected = [0.10945587477855045 0.14054412522144952]; - expected = expected([1 1; 2 2; 2 2; 1 1]); - assert (f, expected, eps) + im4 = 50 .* ones (5, 5); + im4(:, 1) = 200; + im4(:, 2) = 100; + im4 = uint8 (im4); + im4_out = uint8 ([ + 148 90 44 33 22; + 161 111 67 50 33; + 161 111 67 50 33; + 161 111 67 50 33; + 148 90 44 33 22]); + im4_n = 0.0398; + [out, n] = wiener2 (im4); + assert (out, im4_out) + assert (n, im4_n, 1e-4) ***** test - expected =[0.04792235409415088 0.06153352068439959 0.07901060453704994]; - expected = expected([1 2 2 1; 2 3 3 2; 2 3 3 2; 1 2 2 1]); - assert (fspecial ("gaussian", 4, 2), expected) -***** function f = f_gaussian_3d (lengths, sigma) - [x, y, z] = ndgrid (-lengths(1):lengths(1), -lengths(2):lengths(2), - -lengths(3):lengths(3)); - sig_22 = 2 * (sigma.^2); - f = exp (-((x.^2)/sig_22 + (y.^2)/sig_22 + (z.^2)/sig_22)); - f = f / sum (f(:)); -***** endfunction + im5 = zeros (100, 100); + im5(30, 30) = 1; + im5_out_center = [ + 0 0 0 0 0 0 0; + 0 0 0 0 0 0 0; + 0 0 0.0001 0.0001 0.0001 0 0; + 0 0 0.0001 0.9992 0.0001 0 0; + 0 0 0.0001 0.0001 0.0001 0 0; + 0 0 0 0 0 0 0; + 0 0 0 0 0 0 0]; + im5_n = 8.8889e-5; + [out, n] = wiener2 (im5); + out_center = out(27:33, 27:33); + assert (out_center, im5_out_center, 1e-4) + assert (n, im5_n, 1e-4) ***** test - obs = fspecial ("gaussian", [5 5 5]); - assert (obs, f_gaussian_3d ([2 2 2], .5)) + im = zeros (100, 10, 10); + im(5, 5, 5) = 1; - u_values = [ - 0.00000000001837155 - 0.00000000741161178 - 0.00000005476481523 - 0.00000299005759843 - 0.00002209370333384 - 0.00016325161336690 - 0.00120627532940896 - 0.00891323607975882 - 0.06586040141635063 - 0.48664620076350640]; - expected = zeros (5, 5, 5); - expected([1 5 21 25 101 105 121 125]) = u_values(1); - expected([2 4 6 10 16 20 22 24 26 30 46 50 76 80 96 100 102 104 106 110 116 120 122 124]) = u_values(2); - expected([3 11 15 23 51 55 71 75 103 111 115 123]) = u_values(3); - expected([7 9 17 19 27 29 31 35 41 45 47 49 77 79 81 85 91 95 97 99 107 109 117 119]) = u_values(4); - expected([8 12 14 18 28 36 40 48 52 54 56 60 66 70 72 74 78 86 90 98 108 112 114 118]) = u_values(5); - expected([13 53 61 65 73 113]) = u_values(6); - expected([32 34 42 44 82 84 92 94]) = u_values(7); - expected([33 37 39 43 57 59 67 69 83 87 89 93]) = u_values(8); - expected([38 58 62 64 68 88]) = u_values(9); - expected([63]) = u_values(10); - assert (obs, expected, 4 * eps) -***** test - obs = fspecial ("gaussian", [5 5 5], 1); - assert (obs, f_gaussian_3d ([2 2 2], 1)) + [out, n] = wiener2 (im, [3 3]); + expected_out = im; + expected_out(4:6,4:6,5) = [ + 0.0001 0.0001 0.0001 + 0.0001 0.9992 0.0001 + 0.0001 0.0001 0.0001]; + assert (out, expected_out, eps) - u_values = [ - 0.00016177781678373 - 0.00072503787330278 - 0.00119538536377748 - 0.00324939431236223 - 0.00535734551968363 - 0.00883276951279243 - 0.01456277497493249 - 0.02400995686159072 - 0.03958572658629712 - 0.06526582943894763]; - expected = zeros (5, 5, 5); - expected([1 5 21 25 101 105 121 125]) = u_values(1); - expected([2 4 6 10 16 20 22 24 26 30 46 50 76 80 96 100 102 104 106 110 116 120 122 124]) = u_values(2); - expected([3 11 15 23 51 55 71 75 103 111 115 123]) = u_values(3); - expected([7 9 17 19 27 29 31 35 41 45 47 49 77 79 81 85 91 95 97 99 107 109 117 119]) = u_values(4); - expected([8 12 14 18 28 36 40 48 52 54 56 60 66 70 72 74 78 86 90 98 108 112 114 118]) = u_values(5); - expected([13 53 61 65 73 113]) = u_values(6); - expected([32 34 42 44 82 84 92 94]) = u_values(7); - expected([33 37 39 43 57 59 67 69 83 87 89 93]) = u_values(8); - expected([38 58 62 64 68 88]) = u_values(9); - expected([63]) = u_values(10); - assert (obs, expected, eps) -***** test - obs = fspecial ("gaussian", [3 4 1 5], 3); - assert (find (obs == max (obs(:))), [29; 32]) - assert (size (obs), [3 4 1 5]) - assert (obs(:)(1:30), obs(:)(end:-1:31)) -***** test - f = repmat (1/9, [3 3]); - assert (fspecial ("average", [3 3]), f) + [out, n] = wiener2 (im, [3 3 3]); + expected_out = im; + expected_out(4:6,4:6,4:6) = 0.0001; + expected_out(5,5,5) = 0.9974; + assert (out, expected_out, eps) - ## Test default - assert (fspecial ("average"), fspecial ("average", [3 3])) - assert (fspecial ("average"), fspecial ("average", [3])) + ## Default in ND, use nhood 3 even for singleton dimensions. + assert (wiener2 (im), wiener2 (im, [3 3 3])) - f = repmat (1/21, [3 7]); - assert (fspecial ("average", [3 7]), f) + im = reshape (im, [100 10 1 10]); + expected_out = im; + expected_out(4:6,4:6,1,4:6) = 0.0001/3; + expected_out(5,5,1,5) = 1-(80*(0.0001/3)); + assert (wiener2 (im), wiener2 (im, [3 3 3 3])) + assert (wiener2 (im), expected_out, eps) - f = repmat (1/40, [4 5 1 2]); - assert (fspecial ("average", [4 5 1 2]), f) - ## Behave even if it's a column vector - assert (fspecial ("average", [4 5 1 2]'), f) -16 tests, 16 passed, 0 known failure, 0 skipped + expected_out = im; + expected_out(4:6,4:6,1,4:6) = 0.0001; + expected_out(5,5,1,5) = 0.9974; + assert (wiener2 (im, [3 3 1 3]), expected_out, eps) +***** test + expected = [0.2222 0.3926 0.3926 0.3926 0.2222]; + assert (wiener2 (ones (1, 5)), expected, .0001) +***** assert (wiener2 ([]), []) +***** assert (wiener2 (logical ([0 0; 1 1])), true (2, 2)) +***** demo + I = phantom (); + J = imnoise (I, "gaussian", 0, 0.02); + figure, imshow (J); + title ("Image with added Gaussian noise"); + K = wiener2 (J, [5 5]); + figure, imshow (K); + title ("Image with noise reduced by wiener2 filtering"); +27 tests, 27 passed, 0 known failure, 0 skipped [inst/imfindcircles.m] >>>>> /build/octave-image-2.12.0/inst/imfindcircles.m ***** shared im0, rgb0, im1 @@ -11232,368 +10865,231 @@ viscircles (centers, radii) title ("found circles in red") 39 tests, 39 passed, 0 known failure, 0 skipped -[inst/colfilt.m] ->>>>> /build/octave-image-2.12.0/inst/colfilt.m -***** demo - ## Perform moving average filter with a 4x4 window - A = magic (12) - colfilt (A, [4 4], "sliding", @mean) +[inst/lab2xyz.m] +>>>>> /build/octave-image-2.12.0/inst/lab2xyz.m +***** assert (lab2xyz ([0, 0, 0]), [0 0 0], 1e-3) +***** assert (lab2xyz ([53.24, 80.09, 67.20]), [0.4125, 0.2127, 0.0193], 1e-3) +***** assert (lab2xyz ([97.14, -21.55, 94.48]), [0.7700, 0.9278, 0.1385], 1e-3) +***** assert (lab2xyz ([87.74, -86.18, 83.18]), [0.3576, 0.7152, 0.1192], 1e-3) +***** assert (lab2xyz ([91.11, -48.09, -14.13]), [0.5380, 0.7873, 1.0694], 1e-3) +***** assert (lab2xyz ([32.30, 79.19, -107.86]), [0.1804, 0.07217, 0.9502], 1e-3) +***** assert (lab2xyz ([60.32, 98.24, -60.83]), [0.5929, 0.28484, 0.9696], 1e-3) +***** assert (lab2xyz ([100, 0.00, 0.00]), [0.9505, 1.0000, 1.0888], 1e-3) +***** assert (lab2xyz ([53.39, 0.00, 0.00]), [0.2034, 0.2140, 0.2330], 1e-3) +***** assert (lab2xyz ([39.77, 64.51, 54.13]), [0.2155, 0.1111, 0.0101], 1e-3) +***** assert (lab2xyz ([25.42, 47.91, 37.91]), [0.0883, 0.0455, 0.0041], 1e-3) +***** assert (lab2xyz ([9.66, 29.68, 15.24]), [0.02094, 0.0108, 0.00098], 1e-3) +***** assert (lab2xyz ([68.11, 48.39, 22.83]), [0.5276, 0.3812, 0.2482], 1e-3) +***** assert (lab2xyz ([150 130 130]), [4.596, 2.931, 0.519], 1e-3) ***** test - A = reshape (1:36, [6 6]); - assert (colfilt (A, [2 2], [3 3], "sliding", @sum), - conv2 (A, ones (2), "same")); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/im2int16.m] ->>>>> /build/octave-image-2.12.0/inst/im2int16.m -***** assert (im2int16 (int16 ([-2 2 3])), int16 ([-2 2 3])); -***** assert (im2int16 (uint16 ([0 65535])), int16 ([-32768 32767])); -***** assert (im2int16 ([false true]), int16 ([-32768 32767])); -***** assert (im2int16 ([true false]), int16 ([32767 -32768])); -***** assert (im2int16 (uint8 ([0 127 128 255])), int16 ([-32768 -129 128 32767])); -***** assert (im2int16 ([0 1.4/65535 1.5/65535 2/65535 1]), int16 ([-32768 -32767 -32766 -32766 32767])); -***** assert (im2int16 ([0 0.5 1]), int16 ([-32768 0 32767])); -***** assert (im2int16 ([-1 0 1 2]), int16 ([-32768 -32768 32767 32767])); -***** error im2int16 ([1 2], "indexed"); -9 tests, 9 passed, 0 known failure, 0 skipped -[inst/getrangefromclass.m] ->>>>> /build/octave-image-2.12.0/inst/getrangefromclass.m -***** shared img - img = ones (5); -***** assert (getrangefromclass (double (img)), [0 1]); # double returns [0 1] -***** assert (getrangefromclass (single (img)), [0 1]); # single returns [0 1] -***** assert (getrangefromclass (logical (img)), [0 1]); # logical returns [0 1] -***** assert (getrangefromclass (int8 (img)), [-128 127]); # checks int -***** assert (getrangefromclass (uint8 (img)), [0 255]); # checks unit -***** fail ("getrangefromclass ('string')"); # fails with strings -***** fail ("getrangefromclass ({3, 4})"); # fails with cells -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/imopen.m] ->>>>> /build/octave-image-2.12.0/inst/imopen.m -***** shared in, out - in = [ 0 0 0 1 1 1 0 0 1 1 - 0 1 0 1 1 1 0 0 0 1 - 1 1 1 1 1 0 0 0 0 0 - 0 1 1 1 1 0 0 0 0 0 - 0 0 0 1 0 0 0 0 1 0 - 0 0 0 0 0 0 0 1 1 1 - 0 0 0 0 1 0 1 0 1 0 - 0 0 0 1 1 1 1 1 0 0 - 0 0 0 0 1 1 1 0 0 0 - 0 0 0 1 1 1 0 0 0 0]; - - out = [ 0 0 0 1 1 1 0 0 0 0 - 0 0 0 1 1 1 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0]; -***** assert (imopen (logical (in), ones (3)), logical (out)); - - out = [80 80 1 8 15 51 51 51 51 40 - 80 80 7 8 15 54 55 55 55 40 - 4 7 7 8 15 54 55 55 55 40 - 17 17 17 7 3 54 55 55 55 28 - 17 17 17 2 9 54 54 54 52 33 - 17 17 17 29 29 29 29 26 33 33 - 5 5 13 29 29 29 30 32 39 39 - 6 6 13 29 29 29 30 32 39 39 - 10 12 77 77 77 35 35 35 39 39 - 10 12 77 77 77 35 35 35 27 27]; -***** assert (imopen (magic (10), ones (3)), out); -***** assert (imopen (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); - - ## using a se that will be decomposed in 2 pieces - out =[ 1 1 1 8 15 40 40 40 40 40 - 4 4 4 8 15 40 40 40 40 40 - 4 4 4 8 15 40 40 40 40 40 - 5 5 5 3 3 28 28 28 28 28 - 5 5 5 2 9 28 28 28 28 28 - 5 5 13 26 26 26 26 26 26 26 - 5 5 13 29 29 29 29 29 27 27 - 6 6 13 29 29 29 29 29 27 27 - 6 6 13 29 29 29 29 29 27 27 - 6 6 13 29 29 29 29 29 27 27]; -***** assert (imopen (magic (10), ones(5)), out); - - ## using a weird non-symmetric and even-size se - out =[ 7 7 1 8 15 55 51 51 41 40 - 7 7 7 8 16 55 55 55 51 41 - 4 9 7 7 16 54 55 54 55 47 - 25 25 9 9 3 52 54 52 54 28 - 25 24 25 2 9 33 52 34 52 34 - 17 24 29 31 29 30 33 26 33 34 - 17 5 29 31 31 31 30 32 39 33 - 10 6 13 35 35 29 31 32 45 39 - 10 12 77 36 36 35 35 31 45 45 - 11 12 77 77 77 36 36 35 27 45]; -***** assert (imopen (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/imregionalmax.m] ->>>>> /build/octave-image-2.12.0/inst/imregionalmax.m + lab_map = rand (64, 3); + lab_map(:,1) = lab_map(:,1) .* 100; + lab_map(:,2) = lab_map(:,2) .* 254 - 127; + lab_map(:,3) = lab_map(:,3) .* 254 - 127; + assert (xyz2lab (lab2xyz (lab_map)), lab_map, 1e-5); ***** test - a = [ - 7 3 9 3 10 3 - 4 2 3 10 1 3 - 1 4 6 9 4 10 - 8 7 9 3 4 8 - 5 9 3 3 8 9 - 3 6 9 4 1 10]; - - a4 = [ - 1 0 1 0 1 0 - 0 0 0 1 0 0 - 0 0 0 0 0 1 - 1 0 1 0 0 0 - 0 1 0 0 0 0 - 0 0 1 0 0 1]; - assert (imregionalmax (a, 4), logical (a4)) - a8 = [ - 1 0 0 0 1 0 - 0 0 0 1 0 0 - 0 0 0 0 0 1 - 0 0 0 0 0 0 - 0 0 0 0 0 0 - 0 0 0 0 0 1]; - assert (imregionalmax (a, 8), logical (a8)) - assert (imregionalmax (a), logical (a8)) + lab_img = rand (64, 64, 3); + lab_img(:,:,1) = lab_img(:,:,1) .* 100; + lab_img(:,:,2) = lab_img(:,:,2) .* 254 - 127; + lab_img(:,:,3) = lab_img(:,:,3) .* 254 - 127; + assert (xyz2lab (lab2xyz (lab_img)), lab_img, 1e-5); +***** assert (lab2xyz (sparse ([0 0 0])), [0 0 0], 1e-3) +***** assert (lab2xyz (sparse ([100, 0.00, 0.00])), [0.9505, 1.0000, 1.0888], 1e-3) +***** assert (class (lab2xyz (single([50 50 50]))), 'single') +***** error lab2xyz () +***** error lab2xyz (1,2) +***** error lab2xyz ({1}) +***** error lab2xyz (ones (2,2)) ***** test - ## test float input images - im0 = peaks (); - im1 = im0 ./ 100; - max_pos_expected = [1000; 1214; 1691; 2353]; - max0 = imregionalmax (im0); - max0_pos = find (max0); - max1 = imregionalmax (im1); - assert (max1, max0) - assert (max0_pos, max_pos_expected) -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/imtransform.m] ->>>>> /build/octave-image-2.12.0/inst/imtransform.m -***** demo - ## Various linear transforms - figure (); - im = [checkerboard(20, 2, 4); checkerboard(40, 1, 2)]; - %input space corners - incp = [1 1; 160 1; 160 160; 1 160]; - udata = [min(incp(:,1)) max(incp(:,1))]; - vdata = [min(incp(:,2)) max(incp(:,2))]; - subplot (2,3,1); - imshow (im) - hold on - plot (incp(:,1), incp(:,2), 'ob') - axis on - xlabel ('Original') - - % Translation and scaling - outcp = incp * 2; - outcp(:,1) += 200; - outcp(:,2) += 500; - T = maketform ('affine', incp(1:3,:), outcp(1:3,:)); - subplot (2,3,2); - [im2 xdata ydata] = imtransform (im, T, 'udata', udata, - 'vdata', vdata, 'fillvalues', 1); - imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - axis on, hold on, xlabel ('Translation / Scaling'); - plot (outcp(:,1), outcp(:,2), 'or') - - % Shear - outcp = [1 1; 160 1; 140 160; -19 160]; % affine only needs 3 control points - T = maketform ('affine', incp(1:3,:), outcp(1:3,:)); - subplot (2,3,3); - [im2 xdata ydata] = imtransform (im, T, 'udata', udata, - 'vdata', vdata, 'fillvalues', 1); - imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - axis on, hold on, xlabel ('Shear'); - plot (outcp(:,1), outcp(:,2), 'or') - - % Rotation - theta = pi/4; - T = maketform ('affine', [cos(theta) -sin(theta); ... - sin(theta) cos(theta); 0 0]); - outcp = tformfwd (T, incp); - subplot (2,3,4); - [im2 xdata ydata] = imtransform (im, T, 'udata', udata, - 'vdata', vdata, 'fillvalues', 1 ); - imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - axis on, hold on, xlabel ('Rotation'); - plot (outcp(:,1), outcp(:,2), 'or') + lab = rand (16, 16, 3, 5); + lab(:,:,1,:) = lab(:,:,1,:) .* 100; + lab(:,:,2,:) = lab(:,:,2,:) .* 254 - 127; + lab(:,:,3,:) = lab(:,:,3,:) .* 254 - 127; + xyz = zeros (size (lab)); + for i = 1:5 + xyz(:,:,:,i) = lab2xyz (lab(:,:,:,i)); + endfor + assert (lab2xyz (lab), xyz) +24 tests, 24 passed, 0 known failure, 0 skipped +[inst/impixel.m] +>>>>> /build/octave-image-2.12.0/inst/impixel.m +***** shared img2d, img3d + img2d = uint8 (magic (10)); + img3d(:,:,1) = img2d; + img3d(:,:,2) = img2d + 1; + img3d(:,:,3) = img2d + 2; + img3d = uint8 (img3d); - % Reflection around x axis - outcp = incp; - outcp(:,2) *= -1; - T = cp2tform (incp, outcp, 'similarity'); - subplot (2,3,5); - [im2 xdata ydata] = imtransform (im, T, 'udata', udata, - 'vdata', vdata, 'fillvalues', 1 ); - imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - axis on, hold on, xlabel ('Reflection'); - plot (outcp(:,1), outcp(:,2), 'or') +***** assert (impixel (img2d, 2, 2), single ([80 80 80])); +***** assert (impixel (img2d, -2, 2), single ([NA NA NA])); - % Projection - outcp = [1 1; 160 -40; 220 220; 12 140]; - T = maketform ('projective', incp, outcp); - subplot (2,3,6); - [im2 xdata ydata] = imtransform (im, T, 'udata', udata, - 'vdata', vdata, 'fillvalues', 1 ); - imh = imshow (im2); set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - axis on, hold on, xlabel ('Projection'); - plot (outcp(:,1), outcp(:,2), 'or') -***** demo - ## Streched image - rad = 2; % minimum value: 4/pi - [uu vv] = meshgrid ((-2:2)/rad, (-2:2)/rad); - rescfactor = sin ((uu.^2 + vv.^2).^.5); - inpts = [(reshape (uu, numel (uu), 1)), (reshape (vv, numel (uu), 1))]; - xx = rescfactor .* sign(uu); - yy = rescfactor .* sign(vv); - outpts = [reshape(xx, numel (xx), 1) reshape(yy, numel (yy), 1)]; - - T = cp2tform (inpts, outpts, "polynomial", 4); - figure; - subplot (1,2,1) - im = zeros (800, 800, 3); - im(:,:,1) = checkerboard (100) > 0.2; - im(:,:,3) = checkerboard (100) < 0.2; - [im2 xdata ydata] = imtransform (im, T, 'udata', [-2 2], - 'vdata', [-2 2], 'fillvalues', - [0 1 0]); - imh = imshow (im2); - set (imh, 'xdata', xdata, 'ydata', ydata) - set (gca, 'xlim', xdata, 'ylim', ydata) - [im cmap] = imread ('default.img'); - subplot (1,2,2) - [im2 xdata ydata] = imtransform (im, T, 'udata', [-1 1], - 'vdata', [-1 1], 'fillvalues', - round (length (cmap) / 2)); - imh = imshow (im2, cmap); +***** assert (impixel (img2d, [1 10], [1 10]), single ([92 92 92; 59 59 59])); +***** assert (impixel (img3d, [1 10], [1 10]), single ([92 93 94; 59 60 61])); +***** assert (impixel (double (img2d), [1 10], [1 10]), [92 92 92; 59 59 59]); + +***** assert (impixel ([1 10], [1 10], img2d, [1 10], [1 10]), single ([92 92 92; 59 59 59])); +***** assert (impixel ([3 12], [-4 12], img2d, [1 10], [1 10]), single ([NA NA NA; 44 44 44])); +***** assert (impixel ([3 5], [-4 3], img2d, [1 10], [1 10]), single ([NA NA NA; NA NA NA])); + + ## the following returns double because it's an indexed image +***** assert (impixel ([3 12], [-4 12], img2d, gray (100), [1 10], [1 10]), [NA NA NA; 4/9 4/9 4/9]); +9 tests, 9 passed, 0 known failure, 0 skipped +[inst/makelut.m] +>>>>> /build/octave-image-2.12.0/inst/makelut.m +***** demo + makelut(inline('sum(x(:))>=3','x'), 2) + % Returns '1' if one or more values + % in the input matrix are 1 +***** assert(prod(makelut(inline('sum(x(:))==2','x'),2)==makelut(inline('sum(x(:))==a*b*c*d','x','a','b','c','d'),2,2/(3*4*5),3,4,5))); # test multiple params +***** assert(prod(makelut(inline('x(1,1)==1','x'),2)==[zeros(2^3,1);ones(2^3,1)])==1); # test 2-by-2 +***** assert(prod(makelut(inline('x(1,1)==1','x'),3)==[zeros(2^8,1);ones(2^8,1)])==1); # test 3-by-3 +***** assert(prod(makelut(inline('x(1,1)==1','x'),4)==[zeros(2^15,1);ones(2^15,1)])==1); # test 4-by-4 +***** assert(prod(makelut(inline('x(2,1)==1','x'),3)==[zeros(2^7,1);ones(2^7,1);zeros(2^7,1);ones(2^7,1)])==1); # another test for 3-by-3 +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/integralImage.m] +>>>>> /build/octave-image-2.12.0/inst/integralImage.m ***** test - im = checkerboard (); - incp = [0 0; 0 1; 1 1]; - scl = 10; - outcp = scl * incp; - T = maketform ('affine', incp, outcp); - [im2 xdata ydata] = imtransform (im, T, 'udata', [0 1], - 'vdata', [0 1], 'size', [500 500]); - assert (xdata, scl * ([0 1])) - assert (ydata, scl * ([0 1])) - assert (size (im2), [500 500]) + assert (integralImage (10), [0 0; 0 10]); + assert (integralImage (10, "rotated"), [0 0 0; 0 10 0]); ***** test - im = checkerboard (); - incp = [0 0; 0 1; 1 1]; - scl = 10; - outcp = scl * incp; - xyscale = scl; - T = maketform ('affine', incp, outcp); - [im2 xdata ydata] = imtransform (im, T, 'xyscale', xyscale); - assert (size (im2), size (im), 1) + J = integralImage (10); + assert (class(J), "double"); + J = integralImage (uint8(10)); + assert (class(J), "double"); ***** test - im = checkerboard (100, 10, 4); - theta = 2 * pi; - T = maketform ("affine", [cos(theta) -sin(theta); ... - sin(theta) cos(theta); 0 0]); - im2 = imtransform (im, T, "nearest", "xdata", [1 800], "ydata", [1 2000]); - im = im(2:end-1, 2:end-1); %avoid boundaries - im2 = im2(2:end-1, 2:end-1); - assert (im, im2) + I = [1, 2; 3, 4]; + J = integralImage (I); + J1 = [0 0 0; 0 1 3; 0 4 10]; + assert (J, J1) + J = integralImage (I, "rotated"); + J1 = [0 0 0 0; 0 1 2 0; 1 6 7 2]; + assert (J, J1) ***** test - im = checkerboard (20, 10, 4); - theta = pi/6; - T = maketform ('affine', [cos(theta) -sin(theta); ... - sin(theta) cos(theta); 0 0]); - [im2, xdata] = imtransform (im, T); - nu = columns(im); - nv = rows(im); - nx = xdata(2); - diag = sqrt (nu^2 + nv^2); - ang = atan (nv / nu); - assert (nx, diag * abs (cos (theta - ang)), - diag * 1 / size (im2, 2)) + I1 = [1, 2; 3, 4]; + I2 = [5, 6; 7, 8]; + I3 = [9, 10; 11, 12]; + I = cat (3, I1, I2, I3); + J = integralImage (I); + J1 = [0 0 0; 0 1 3; 0 4 10]; + J2 = [0 0 0; 0 5 11; 0 12 26]; + J3 = [0 0 0; 0 9 19; 0 20 42]; + J0 = cat (3, J1, J2, J3); + assert (J, J0) ***** test - im = rand (2); - tmat = [eye(2); 0 0]; - T = maketform ("affine", tmat); - im2 = imtransform (im, T, "xdata", [1 3]); - assert (im2(:,3), zeros (2,1)) + I1 = [1, 2; 3, 4]; + I2 = [5, 6; 7, 8]; + I3 = [9, 10; 11, 12]; + I = cat (3, I1, I2, I3); + J = integralImage (I, "rotated"); + J1 = [0 0 0 0; 0 1 2 0; 1 6 7 2]; + J2 = [0 0 0 0; 0 5 6 0; 5 18 19 6]; + J3 = [0 0 0 0; 0 9 10 0; 9 30 31 10]; + J0 = cat (3, J1, J2, J3); + assert (J, J0) ***** test - im = rand (2); - tmat = [eye(2); 0 0]; - T = maketform ('affine', tmat); - im2 = imtransform (im, T, "xdata", [1 3]); - assert (size (im2), [2 3]) + I = magic (5); + J = integralImage (I); + J_res = [0 0 0 0 0 0; + 0 17 41 42 50 65; + 0 40 69 77 99 130; + 0 44 79 100 142 195; + 0 54 101 141 204 260; + 0 65 130 195 260 325]; + assert (J, J_res) + + J = integralImage (I, "rotated"); + J_res_R = [0 0 0 0 0 0 0; + 0 17 24 1 8 15 0; + 17 64 47 40 38 39 15; + 64 74 91 104 105 76 39; + 74 105 149 188 183 130 76; + 105 170 232 272 236 195 130]; + assert (J, J_res_R) +***** error + integralImage (); +***** error + integralImage (1, "xxx", 2); +***** error + integralImage ("abcd"); +***** error + integralImage ([1 2; 3 4], "xxx"); +10 tests, 10 passed, 0 known failure, 0 skipped +[inst/mean2.m] +>>>>> /build/octave-image-2.12.0/inst/mean2.m ***** test - im = rand (2); - tmat = [eye(2); 0 0]; - T = maketform ('affine', tmat); - im2 = imtransform (im, T, "xyscale", [0.5 0.5]); - assert (size (im2), [3 3]) -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/imextendedmax.m] ->>>>> /build/octave-image-2.12.0/inst/imextendedmax.m -***** shared im0, bw0_h2_out + ## This throws a division by zero warning which Matlab does not, but + ## that's because Matlab does not throw such warnings in the first + ## place. Octave does, so we do not turn the warning off. + warning ("off", "Octave:divide-by-zero", "local"); + assert (mean2 ([]), NaN) +***** assert (mean2 (logical ([1 1; 0 0])), 0.5) +***** assert (mean2 (ones (3, 3, 3)), 1) +***** assert (mean2 (i), i) +***** assert (mean2 ([1 i]), [0.5+0.5i]) +***** assert (mean2 (speye (3)), sparse (1/3)) +6 tests, 6 passed, 0 known failure, 0 skipped +[inst/imhmax.m] +>>>>> /build/octave-image-2.12.0/inst/imhmax.m +***** shared im0, im0_h2_out im0 = uint8 ([0 0 0 0 0; 0 1 2 1 0; 0 2 5 2 0; 0 1 2 1 0; 0 0 0 0 0]); - bw0_h2_out = false (5); - bw0_h2_out(3,3) = true; -***** error imextendedmax () -***** error imextendedmax (im0) -***** error imextendedmax ("hello", 2) -***** error imextendedmax (i.*im0, 2) -***** error imextendedmax (sparse (im0), 2) -***** error imextendedmax (im0, -2) -***** error imextendedmax (im0, 'a') -***** error imextendedmax (im0, ones (2)) -***** error imextendedmax (im0, 2*i) -***** assert (imextendedmax (im0, 2), bw0_h2_out) -***** assert (imextendedmax (double (im0), 2), bw0_h2_out) -***** assert (imextendedmax (im0, 2, 8), bw0_h2_out) -***** assert (imextendedmax (im0, 2, 4), bw0_h2_out) -***** assert (imextendedmax (im0, 2, true (3)), bw0_h2_out) + im0_h2_out = uint8 ([0 0 0 0 0; + 0 1 2 1 0; + 0 2 3 2 0; + 0 1 2 1 0; + 0 0 0 0 0]); +***** error imhmax () +***** error imhmax (im0) +***** error imhmax ("hello", 2) +***** error imhmax (i.*im0, 2) +***** error imhmax (sparse (im0), 2) +***** error imhmax (im0, -2) +***** error imhmax (im0, 'a') +***** error imhmax (im0, ones (2)) +***** error imhmax (im0, 2*i) +***** assert (imhmax (im0, 2), im0_h2_out) +***** assert (imhmax (double (im0), 2), double (im0_h2_out)) +***** assert (imhmax (im0, 2, 8), im0_h2_out) +***** assert (imhmax (im0, 2, 4), im0_h2_out) +***** assert (imhmax (im0, 2, true (3)), im0_h2_out) ***** test - out = imextendedmax (im0, 2); + out = imhmax (double (im0), 2); assert (size (out), size (im0)) - assert (class (out), "logical") + assert (class (out), "double") ***** test - out = imextendedmax (single (im0), 2); + out = imhmax (single (im0), 2); assert (size (out), size (im0)) - assert (class (out), "logical") + assert (class (out), "single") ***** test - out = imextendedmax (uint8 (im0), 2); + out = imhmax (uint8 (im0), 2); assert (size (out), size (im0)) - assert (class (out), "logical") + assert (class (out), "uint8") ***** test - out = imextendedmax (uint16 (im0), 2); + out = imhmax (uint16 (im0), 2); assert (size (out), size (im0)) - assert (class (out), "logical") + assert (class (out), "uint16") ***** test im = cat (3, im0, im0, im0, im0); - out = imextendedmax (im, 2); + out = imhmax (im, 2); assert (size (out), size (im)) ***** test im = zeros (10); im(2:4, 2:4) = 3; im(6:8, 6:8) = 8; - expected_4 = false (10); - expected_4(6:8, 6:8) = true; - expected_2 = expected_4; - expected_2(2:4, 2:4) = true; - out = imextendedmax (im, 4); - assert (out, expected_4, eps) - out = imextendedmax (0.1.*im, 0.4); + expected_4 = zeros (10); + expected_4(6:8, 6:8) = 4; + expected_2 = zeros (10); + expected_2(2:4, 2:4) = 1; + expected_2(6:8, 6:8) = 6; + out = imhmax (im, 4); assert (out, expected_4, eps) - out = imextendedmax (im, 2); + out = imhmax (im, 2); assert (out, expected_2, eps) + out = imhmax (0.1 .* im, 0.4); + assert (out, 0.1 .* expected_4, eps) ***** test im2 = zeros (10); im2(2:4, 2:4) = 3; @@ -11601,248 +11097,129 @@ im2(5, 5)=8; im2(6, 7)=0; im2(7, 8)=0; - expected_8 = false (10); - expected_8(6:9, 6:9) = true; - expected_8(5, 5) = true; - expected_8(6, 7) = false; - expected_8(7, 8) = false; - expected_4 = expected_8; - expected_4(2:4, 2:4) = true; - out2 = imextendedmax (im2, 2); + expected_4 = zeros (10); + expected_4(6:9, 6:9) = 4; + expected_4(5, 5) = 4; + expected_4(6, 7) = 0; + expected_4(7, 8) = 0; + expected_8 = expected_4; + expected_8(2:4, 2:4) = 3; + out2 = imhmax (im2, 4); assert (out2, expected_8, eps) - out2 = imextendedmax (im2, 2, 4); + out2 = imhmax (im2, 4, 4); assert (out2, expected_4, eps) - out2 = imextendedmax (im2, 2, 8); + out2 = imhmax (im2, 4, 8); assert (out2, expected_8, eps) 21 tests, 21 passed, 0 known failure, 0 skipped -[inst/qtgetblk.m] ->>>>> /build/octave-image-2.12.0/inst/qtgetblk.m -***** demo - [vals,r,c]=qtgetblk(eye(4),qtdecomp(eye(4)),2) - % Returns 2 blocks, at [1,3] and [3,1] (2*2 zeros blocks) -***** shared A,S - A=[ 1, 4, 2, 5,54,55,61,62; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 3, 6, 3, 1,58,53,67,65; - 23,42,42,42,99,99,99,99; - 27,42,42,42,99,99,99,99; - 23,22,26,25,99,99,99,99; - 22,22,24,22,99,99,99,99]; - S=qtdecomp(A,10); -***** test - [va]=qtgetblk(A,S,8); - [vb,r,c]=qtgetblk(A,S,8); - [vc,i]=qtgetblk(A,S,8); - assert(va, vb); - assert(va, vc); - assert(i,[]); - assert(r,[]); - assert(c,[]); - R=[]; - assert(va,R); -***** test - [va]=qtgetblk(A,S,4); - [vb,r,c]=qtgetblk(A,S,4); - [vc,i]=qtgetblk(A,S,4); - assert(va, vb); - assert(va, vc); - assert(i, find(full(S)==4)); - assert(r,[1;5]); - assert(c,[1;5]); - R=zeros(4,4,2); - R(:,:,1)=A(1:4,1:4); - R(:,:,2)=A(5:8,5:8); - assert(va,R); -***** test - [va]=qtgetblk(A,S,2); - [vb,r,c]=qtgetblk(A,S,2); - [vc,i]=qtgetblk(A,S,2); - assert(va, vb); - assert(va, vc); - assert(i, find(full(S)==2)); - assert(r,[7;5;7;1;3;1;3]); - assert(c,[1;3;3;5;5;7;7]); - R=zeros(2,2,7); - R(:,:,1)=A(7:8,1:2); - R(:,:,2)=A(5:6,3:4); - R(:,:,3)=A(7:8,3:4); - R(:,:,4)=A(1:2,5:6); - R(:,:,5)=A(3:4,5:6); - R(:,:,6)=A(1:2,7:8); - R(:,:,7)=A(3:4,7:8); - assert(va,R); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/otf2psf.m] ->>>>> /build/octave-image-2.12.0/inst/otf2psf.m -***** function otf = rand_otf (varargin) - otf = complex (rand (varargin{:}), rand (varargin{:})); -***** endfunction -***** test - otf = rand_otf (6, 1); - assert (otf2psf (otf), circshift (ifft (otf), 3), eps); -***** test - otf = rand_otf (6, 6); - assert (otf2psf (otf), circshift (ifft2 (otf), [3 3]), eps); -***** test - otf = rand_otf (6, 6, 6); - assert (otf2psf (otf), circshift (ifftn (otf), [3 3 3]), eps); -***** test - otf = rand_otf (7, 1); - assert (otf2psf (otf), circshift (ifft (otf), 3), eps); -***** test - otf = rand_otf (7, 7); - assert (otf2psf (otf), circshift (ifft2 (otf), [3 3]), eps); -***** test - otf = rand_otf (6, 7, 8); - assert (otf2psf (otf), circshift (ifftn (otf), [3 3 4]), eps); -***** test - otf = rand_otf (7, 1); - ppsf = circshift (ifft (otf), 3); - assert (otf2psf (otf, 6), ppsf(1:6), eps); - assert (otf2psf (otf, [6 1]), ppsf(1:6), eps); -***** test - otf = rand_otf (7, 7); - ppsf = circshift (ifft2 (otf), [3 3]); - assert (otf2psf (otf, [6 1]), ppsf(1:6,4), eps); -***** test - otf = rand_otf (6, 7); - ppsf = circshift (ifft2 (otf), [3 3]); - assert (otf2psf (otf, [6 6]), ppsf(:,1:6), eps); -***** error otf2psf ("not a otf") -***** error otf2psf (rand_otf (16), 18) -***** error otf2psf (rand_otf (16), [14 18]) -***** error otf2psf (rand_otf (16), [18 18]) -***** error otf2psf (rand_otf (16, 1), 18) +[inst/axes2pix.m] +>>>>> /build/octave-image-2.12.0/inst/axes2pix.m +***** error id=Octave:invalid-fun-call axes2pix () +***** error id=Octave:invalid-fun-call axes2pix (42) +***** error id=Octave:invalid-fun-call axes2pix (42, [1, 2]) +***** error id=Octave:invalid-input-arg axes2pix ([42, 43], [1, 2], [1, 2, 3]) +***** error id=Octave:invalid-input-arg axes2pix (42, [1, 2; 3, 4], [1, 2, 3]) +***** assert (axes2pix (42, [1 42], []), []) +***** assert (axes2pix (240, [1, 240], 30), 30) +***** assert (axes2pix (291, [1, 291], 30), 30) +***** assert (axes2pix (240, [400.5, 520], 450), 100) +***** assert (axes2pix (291, [-19, 271], 90), 110) +***** assert (axes2pix (1, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) +***** assert (axes2pix (5, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) +***** assert (axes2pix (0, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) +***** assert (axes2pix (5, [5 1], [1, 2, 3, 4, 5]), [5, 4, 3, 2, 1]) +***** assert (axes2pix (5, [3 -1], [1, 2, 3, 4, 5]), [3, 2, 1, 0, -1]) +***** assert (axes2pix (25, [5 1], [1, 2, 3, 4, 5]), [25, 19, 13, 7, 1]) +***** assert (axes2pix (1, [1 5], [1, 2, 3, 4, 5]), [1, 2, 3, 4, 5]) +***** assert (axes2pix (1, [5 1], [-1, 0, 1, 2.5]), [-5, -4, -3, -1.5]) +***** assert (axes2pix (1, [-10 -15], [-1, 0, 1.5]), [10, 11, 12.5]) +***** assert (axes2pix (5, [5; 1], [1, 2, 3, 4, 5]), [5, 4, 3, 2, 1]) +***** assert (axes2pix (5, [5; 1], [1; 2; 3; 4; 5]), [5; 4; 3; 2; 1]) +21 tests, 21 passed, 0 known failure, 0 skipped +[inst/entropy.m] +>>>>> /build/octave-image-2.12.0/inst/entropy.m +***** assert (entropy ([0 1]), 1) +***** assert (entropy (uint8 ([0 1])), 1) +***** assert (entropy ([0 0]), 0) +***** assert (entropy ([0]), 0) +***** assert (entropy ([1]), 0) +***** assert (entropy ([0 .5; 2 0]), 1.5) +***** assert (entropy (repmat ([0 .5; 2 0], 1, 1, 3)), + entropy ([0 .5; 2 0])) ***** test - psf = fspecial ("gaussian", 16); - otf = psf2otf (psf); - assert (otf2psf (otf), psf, eps); -***** xtest - psf = rand (16); - otf = psf2otf (psf); - assert (otf2psf (otf), psf, 4*eps); + A = zeros (3,3); + B = ones (3,3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3,3); + E(2,2)=2; + F = 3 .* ones (3,3); + F(2,2)=1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + pG = [1 2] ./ 3; + G_out = -sum (pG.*log2 (pG)); + pH = [2 7] ./ 9; + H_out = -sum (pH.*log2 (pH)); + assert (entropy (A), 0, eps); + assert (entropy (B), 0, eps); + assert (entropy (C), 0, eps); + assert (entropy (D), 0, eps); + assert (entropy (E), 0, eps); + assert (entropy (F), 0, eps); + assert (entropy (G), G_out, eps); + assert (entropy (H), H_out, eps); ***** test - psf = rand (8); - otf = psf2otf (psf, [16 16]); - assert (otf2psf (otf, [8 8]), psf, 2*eps); -17 tests, 17 passed, 0 known failure, 0 skipped -[inst/imcomplement.m] ->>>>> /build/octave-image-2.12.0/inst/imcomplement.m -***** assert (imcomplement (10), -9); -***** assert (imcomplement (single (10)), single (-9)); -***** assert (imcomplement (0.2), 0.8); -***** assert (imcomplement (uint8 (0)), uint8 (255)); -***** assert (imcomplement (uint8 (1)), uint8 (254)); -***** assert (imcomplement (uint16 (0)), uint16 (65535)); -***** assert (imcomplement (uint16 (1)), uint16 (65534)); -***** assert (imcomplement (int8 (-128)), int8 ( 127)); -***** assert (imcomplement (int8 ( 127)), int8 (-128)); -***** assert (imcomplement (int16 (-1)), int16 ( 0)); -***** assert (imcomplement (int16 ( 0)), int16 (-1)); -***** assert (imcomplement (int16 ( 1)), int16 (-2)); -***** assert (imcomplement ([true false true]), [false true false]) -***** error imcomplement ("not an image") -14 tests, 14 passed, 0 known failure, 0 skipped -[inst/bwhitmiss.m] ->>>>> /build/octave-image-2.12.0/inst/bwhitmiss.m + A = uint8 (zeros (3,3)); + B = uint8 (ones (3,3)); + C = uint8 ([1 1 1; 2 2 2; 3 3 3]); + D = C'; + E = uint8 (ones (3,3)); + E(2,2)=2; + F = 3 .* uint8 (ones (3,3)); + F(2,2)=1; + G = uint8 ([0 2 7; 0 2 8; 0 3 9]); + H = uint8 ([5 2 8; 1 0 1; 5 1 0]); + pC = [1 1 1] ./ 3; + C_out = -sum (pC.*log2 (pC)); + D_out = C_out; + pE = [8 1] ./ 9; + E_out = -sum (pE.*log2 (pE)); + F_out = E_out; + pG = [3 2 1 1 1 1] ./ 9; + G_out = -sum (pG.*log2 (pG)); + pH = [2 3 1 2 1] ./ 9; + H_out = -sum (pH.*log2 (pH)); + assert (entropy (A), 0); + assert (entropy (B), 0); + assert (entropy (C), C_out, eps); + assert (entropy (D), D_out, eps); + assert (entropy (E), E_out, eps); + assert (entropy (F), F_out, eps); + assert (entropy (G), G_out, eps); + assert (entropy (H), H_out, eps); ***** test - bw1 = repmat ([0 1 0 1 1], [3 1]); - bw2 = repmat ([0 1 0 0 0], [3 1]); - assert (bwhitmiss (bw1, [1; 0; 1], [1 0 1]), logical (bw2)) - assert (bwhitmiss (bw1, [0 1 0; -1 0 -1; 0 1 0]), logical (bw2)) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/isind.m] ->>>>> /build/octave-image-2.12.0/inst/isind.m -***** assert (isind ([]), false); -***** assert (isind (1:10), true); -***** assert (isind (0:10), false); -***** assert (isind (1), true); -***** assert (isind (0), false); -***** assert (isind ([1.3 2.4]), false); -***** assert (isind ([1 2; 3 4]), true); -***** assert (isind (randi (100, 10, 10, 1, 4)), true); -***** assert (isind (randi (100, 10, 10, 3, 4)), false); -***** assert (isind (randi (100, 10, 10, 1, 4, 2)), false); + L1 = false (3,3); + L1(2,2)=true; + L2 = true (3,3); + L2(2,2)=false; + L3 = logical ([0 1 1; 0 1 1; 0 0 1]); + p12 = [1 8] ./ 9; + out12 = -sum (p12.*log2 (p12)); + p3 = [5 4] ./9; + out3 = -sum (p3.*log2 (p3)); + assert (entropy (L1), out12, eps); + assert (entropy (L2), out12, eps); + assert (entropy (L3), out3, eps); 10 tests, 10 passed, 0 known failure, 0 skipped -[inst/imdivide.m] ->>>>> /build/octave-image-2.12.0/inst/imdivide.m -***** assert (imdivide (uint8 ([23 250]), uint8 ([ 2 50])), uint8 ([ 12 5])); # default to first class -***** assert (imdivide (uint8 ([56 255]), uint8 ([ 0 0])), uint8 ([255 255])); # dividing by zero works (tested in matlab) -***** assert (imdivide (uint8 ([23 250]), 2), uint8 ([ 12 125])); # works subtracting a scalar -***** assert (imdivide (uint8 ([23 250]), uint8 ([ 2 50]), "uint16"), uint16 ([ 12 5])); # defining output class works (not in matlab) -***** assert (imdivide (logical ([1 1 0 0]), logical ([1 0 1 0])), double ([1 Inf 0 NaN])); # dividing logical matrix (tested in matlab) -***** fail ("imdivide (uint8 ([23 250]), uint16 ([23 250]))"); # input needs to have same class +[inst/imadd.m] +>>>>> /build/octave-image-2.12.0/inst/imadd.m +***** assert (imadd (uint8 ([23 250]), uint8 ([23 250])), uint8 ([46 255])); # default to first class and truncate +***** assert (imadd (uint8 ([23 250]), 10), uint8 ([33 255])); # works adding a scalar +***** assert (imadd (uint8 ([23 250]), uint8 ([23 250]), "uint16"), uint16 ([46 500])); # defining output class works +***** assert (imadd (logical ([ 1 0]), logical ([ 1 1])), double ([ 2 1])); # return double for two logical images +***** assert (imadd (logical ([ 1 0]), logical ([ 1 1]), "logical"), logical ([ 1 1])); # this is matlab incompatible on purpose +***** fail ("imadd (uint8 ([23 250]), uint16 ([23 250]))"); # input need to have same class 6 tests, 6 passed, 0 known failure, 0 skipped -[inst/ordfiltn.m] ->>>>> /build/octave-image-2.12.0/inst/ordfiltn.m -***** shared b, f, s - b = [ 0 1 2 3 - 1 8 12 12 - 4 20 24 21 - 7 22 25 18]; - - f = [ 8 12 12 12 - 20 24 24 24 - 22 25 25 25 - 22 25 25 25]; -***** assert (ordfiltn (b, 9, true (3)), f); - - f = [ 1 8 12 12 - 8 20 21 21 - 20 24 24 24 - 20 24 24 24]; -***** assert (ordfiltn (b, 8, true (3)), f); - - f = [ 1 2 8 12 - 4 12 20 21 - 8 22 22 21 - 20 24 24 24]; -***** assert (ordfiltn (b, 7, true (3), "symmetric"), f); - - f = [ 1 8 12 12 - 4 20 24 21 - 7 22 25 21 - 7 22 25 21]; -***** assert (ordfiltn (b, 3, true (3, 1)), f); - - f = [ 1 8 12 12 - 4 20 24 18 - 4 20 24 18 - 4 20 24 18]; -***** assert (ordfiltn (b, 3, true (4, 1)), f); - - f = [ 4 20 24 21 - 7 22 25 21 - 7 22 25 21 - 7 22 25 21]; -***** assert (ordfiltn (b, 4, true (4, 1)), f); - - s = [0 0 1 - 0 0 1 - 0 0 1]; - f = [ 2 8 12 12 - 9 20 22 21 - 21 25 24 24 - 21 25 24 24]; -***** assert (ordfiltn (b, 8, true (3), s), f); - - b(:,:,2) = b(:,:,1) - 1; - b(:,:,3) = b(:,:,2) - 1; - f(:,:,1) = [ 1 8 11 11 - 8 20 21 21 - 20 24 24 24 - 20 24 24 24]; - f(:,:,2) = [ 6 10 11 11 - 18 22 22 22 - 20 24 24 24 - 20 24 24 24]; - f(:,:,3) = [ 0 7 10 10 - 7 19 20 20 - 19 23 23 23 - 19 23 23 23]; -***** assert (ordfiltn (b, 25, true (3, 3, 3)), f); -8 tests, 8 passed, 0 known failure, 0 skipped [inst/padarray.m] >>>>> /build/octave-image-2.12.0/inst/padarray.m ***** demo @@ -12009,255 +11386,113 @@ assert (padarray (in, [ite ite], "reflect", "post"), padded(11:(14+ite),11:(14+ite))); endfor 26 tests, 26 passed, 0 known failure, 0 skipped -[inst/imlincomb.m] ->>>>> /build/octave-image-2.12.0/inst/imlincomb.m -***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20])), - uint8 ([153 15])); # default to first class and truncate -***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), "uint16"), - uint16 ([153 15])); # defining output class works -***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 10), - uint8 ([163 25])); # default to first class and truncate -***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 1000, "uint16"), - uint16 ([1153 1015])); # defining output class works -***** assert (imlincomb (0.5, uint8 ([255 10]), 0.5, uint8 ([50 20]), 1000), - uint8 ([255 255])); # defining output class works -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/@imref2d/worldToIntrinsic.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/worldToIntrinsic.m -***** error id=Octave:invalid-fun-call worldToIntrinsic (imref2d) -***** error id=Octave:invalid-fun-call worldToIntrinsic (imref2d, 1, 2, 3) -***** error id=Octave:expected-real worldToIntrinsic (imref2d, 1j, 2) -***** error id=Octave:expected-real worldToIntrinsic (imref2d, 1, 2j) -***** error id=Octave:invalid-input-arg worldToIntrinsic (imref2d, [1, 2], 3) -***** error id=Octave:invalid-input-arg worldToIntrinsic (imref2d, [1], [2, 3]) -***** test - r = imref2d ([512, 512], 0.3125, 0.3125); - xW = [38.44, 39.44, 38.44, -0.2]; - yW = [68.75, 68.75, 75.75, -1]; - [xI, yI] = worldToIntrinsic (r, xW, yW); - assert (xI, [123.008, 126.208, 123.008, -0.64], 1e-6) - assert (yI, [220, 220, 242.4, -3.2], 1e-6) -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/@imref2d/intrinsicToWorld.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/intrinsicToWorld.m -***** error id=Octave:invalid-fun-call intrinsicToWorld (imref2d) -***** error id=Octave:invalid-fun-call intrinsicToWorld (imref2d, 1, 2, 3) -***** error id=Octave:expected-real intrinsicToWorld (imref2d, 1j, 2) -***** error id=Octave:expected-real intrinsicToWorld (imref2d, 1, 2j) -***** error id=Octave:invalid-input-arg intrinsicToWorld (imref2d, [1, 2], 3) -***** error id=Octave:invalid-input-arg intrinsicToWorld (imref2d, [1], [2, 3]) -***** test - r = imref2d ([512, 512], 0.3125, 0.3125); - xIntrinsic = [34, 442]; - yIntrinsic = [172, 172]; - [xWorld, yWorld] = intrinsicToWorld (r, xIntrinsic, yIntrinsic); - assert (xWorld, [10.625, 138.125]) - assert (yWorld, [53.75, 53.75]) -***** test - [xWorld, yWorld] = intrinsicToWorld (imref2d, -5.3, -2.8); - assert (xWorld, -5.3) - assert (yWorld, -2.8) -***** test - [xW, yW] = intrinsicToWorld (imref2d, [1, 2; 3, 4], [2, 3; 5, 9]); - assert (xW, [1, 2; 3, 4]) - assert (yW, [2, 3; 5, 9]) -9 tests, 9 passed, 0 known failure, 0 skipped -[inst/@imref2d/contains.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/contains.m -***** error id=Octave:invalid-fun-call contains (imref2d) -***** error id=Octave:invalid-fun-call contains (imref2d, 1) -***** error id=Octave:invalid-fun-call contains (imref2d, 1, 2, 3) -***** error id=Octave:invalid-input-arg contains (imref2d, 1, [2, 3]) -***** error id=Octave:invalid-input-arg contains (imref2d, [1, 2], 3) -***** error id=Octave:expected-real contains (imref2d, 0, j) -***** error id=Octave:expected-real contains (imref2d, j, 0) -***** assert (contains (imref2d, [], []), logical( zeros (0, 0))) -***** assert (contains (imref2d, [1, 2; 3, 4], [5, -6; 7, 8]), logical (zeros (2, 2))) -***** test - r = imref2d ([256, 256]); - assert (contains(r, [5, 8, 8], [5, 10, 257]), logical([1, 1, 0])) -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/@imref2d/imref2d.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/imref2d.m -***** error id=Octave:invalid-fun-call imref2d (1, 2, 3, 4) -***** error id=Octave:invalid-input-arg imref2d (42) -***** error id=Octave:invalid-input-arg imref2d ([42]) -***** error id=Octave:expected-integer imref2d ([4.2, 42]) -***** error id=Octave:expected-positive imref2d ([0, 0]) -***** error id=Octave:expected-positive imref2d ([-4, 2]) -***** error id=Octave:expected-positive imref2d ([4, 2], 0, 2) -***** error id=Octave:expected-positive imref2d ([4, 2], 2, 0) -***** error id=Octave:expected-real imref2d ([4, 2], j, 2) -***** error id=Octave:expected-real imref2d ([4, 2], 2, j) -***** error id=Octave:expected-real imref2d ([4, 2], [j, 2], [3, 4]) -***** error id=Octave:expected-real imref2d ([4, 2], [1, 2], [j, 4]) -***** error id=Octave:expected-vector imref2d ([4, 2], [], []) -***** error id=Octave:expected-vector imref2d ([4, 2], [], [1]) -***** error id=Octave:expected-scalar imref2d ([4, 2], [1], []) -***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [0]) -***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [1, 2, 3]) -***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2, 3], [1, 2]) -***** error id=Octave:incorrect-size imref2d ([4, 2], [1; 2], [1, 2]) -***** error id=Octave:incorrect-size imref2d ([4, 2], [1, 2], [1; 2]) -***** error id=Octave:invalid-indexing imref2d().InvalidProperty -***** error id=Octave:expected-increasing imref2d ([100 200], [1.5 0.5], [2.5 3.5]) -***** error id=Octave:expected-increasing imref2d ([100 200], [1.5 2.5], [2.5 1.5]) -***** test - r = imref2d; - assert (r.XWorldLimits, [0.5, 2.5]) - assert (r.YWorldLimits, [0.5, 2.5]) - assert (r.ImageSize, [2, 2]) - assert (r.PixelExtentInWorldX, 1) - assert (r.PixelExtentInWorldY, 1) - assert (r.ImageExtentInWorldX, 2) - assert (r.ImageExtentInWorldY, 2) - assert (r.XIntrinsicLimits, [0.5, 2.5]) - assert (r.YIntrinsicLimits, [0.5, 2.5]) -***** test - r = imref2d ([100, 200]); - assert (r.XWorldLimits, [0.5, 200.5]) - assert (r.YWorldLimits, [0.5, 100.5]) - assert (r.ImageSize, [100, 200]) - assert (r.PixelExtentInWorldX, 1) - assert (r.PixelExtentInWorldY, 1) - assert (r.ImageExtentInWorldX, 200) - assert (r.ImageExtentInWorldY, 100) - assert (r.XIntrinsicLimits, [0.5, 200.5]) - assert (r.YIntrinsicLimits, [0.5, 100.5]) -***** test - xWorldLimits = [2, 5]; - yWorldLimits = [3, 6]; - r = imref2d ([291, 240], xWorldLimits, yWorldLimits); - assert (r.XWorldLimits, [2, 5]) - assert (r.YWorldLimits, [3, 6]) - assert (r.ImageSize, [291, 240]) - assert (r.PixelExtentInWorldX, 0.0125) - assert (r.PixelExtentInWorldY, 0.0103, 1e-3) - assert (r.ImageExtentInWorldX, 3) - assert (r.ImageExtentInWorldY, 3) - assert (r.XIntrinsicLimits, [0.5, 240.5]) - assert (r.YIntrinsicLimits, [0.5, 291.5]) -***** test - pixelExtentInWorldX = 0.3125; - pixelExtentInWorldY = 0.3125; - r = imref2d ([512, 512], pixelExtentInWorldX, pixelExtentInWorldY); - assert (r.XWorldLimits, [0.15625, 160.1562], 1e-4) - assert (r.YWorldLimits, [0.15625, 160.1562], 1e-4) - assert (r.ImageSize, [512, 512]) - assert (r.PixelExtentInWorldX, 0.3125) - assert (r.PixelExtentInWorldY, 0.3125) - assert (r.ImageExtentInWorldX, 160) - assert (r.ImageExtentInWorldY, 160) - assert (r.XIntrinsicLimits, [0.5, 512.5]) - assert (r.YIntrinsicLimits, [0.5, 512.5]) -***** test - pixelExtentInWorldX = 0.1; - pixelExtentInWorldY = 0.4; - r = imref2d ([100, 200], pixelExtentInWorldX, pixelExtentInWorldY); - assert (r.XWorldLimits, [0.05, 20.05], 1e-4) - assert (r.YWorldLimits, [0.2, 40.2], 1e-4) - assert (r.ImageSize, [100, 200]) - assert (r.PixelExtentInWorldX, 0.1) - assert (r.PixelExtentInWorldY, 0.4) - assert (r.ImageExtentInWorldX, 20) - assert (r.ImageExtentInWorldY, 40) - assert (r.XIntrinsicLimits, [0.5, 200.5]) - assert (r.YIntrinsicLimits, [0.5, 100.5]) -***** test - r = imref2d; - assert (r.XWorldLimits, [0.5, 2.5]) - assert (r.YWorldLimits, [0.5, 2.5]) - assert (r.ImageSize, [2, 2]) - assert (r.PixelExtentInWorldX, 1) - assert (r.PixelExtentInWorldY, 1) - assert (r.ImageExtentInWorldX, 2) - assert (r.ImageExtentInWorldY, 2) - assert (r.XIntrinsicLimits, [0.5, 2.5]) - assert (r.YIntrinsicLimits, [0.5, 2.5]) - r.ImageSize = [800, 600]; - assert (r.XWorldLimits, [0.5, 2.5]) - assert (r.YWorldLimits, [0.5, 2.5]) - assert (r.ImageSize, [800, 600]) - assert (r.PixelExtentInWorldX, 0.003333, 1e-5) - assert (r.PixelExtentInWorldY, 0.0025) - assert (r.ImageExtentInWorldX, 2) - assert (r.ImageExtentInWorldY, 2) - assert (r.XIntrinsicLimits, [0.5, 600.5]) - assert (r.YIntrinsicLimits, [0.5, 800.5]) -***** test - r = imref2d; - assert (r.XWorldLimits, [0.5, 2.5]) - assert (r.YWorldLimits, [0.5, 2.5]) - assert (r.ImageSize, [2, 2]) - assert (r.PixelExtentInWorldX, 1) - assert (r.PixelExtentInWorldY, 1) - assert (r.ImageExtentInWorldX, 2) - assert (r.ImageExtentInWorldY, 2) - assert (r.XIntrinsicLimits, [0.5, 2.5]) - assert (r.YIntrinsicLimits, [0.5, 2.5]) - r.XWorldLimits = [-60, 13.33]; - r.YWorldLimits = [-900.8, -560.26]; - assert (r.XWorldLimits, [-60, 13.33]) - assert (r.YWorldLimits, [-900.8, -560.26]) - assert (r.PixelExtentInWorldX, 36.6650) - assert (r.PixelExtentInWorldY, 170.27, 1e-5) - assert (r.ImageExtentInWorldX, 73.33, 1e-5) - assert (r.ImageExtentInWorldY, 340.54, 1e-5) - assert (r.XIntrinsicLimits, [0.5, 2.5]) - assert (r.YIntrinsicLimits, [0.5, 2.5]) -***** test - r = imref2d; - fail ("r.XWorldLimits = []", "") - fail ("r.XWorldLimits = [1]", "") - fail ("r.XWorldLimits = [j]", "") - fail ("r.XWorldLimits = [1; 2]", "") - fail ("r.YWorldLimits = []", "") - fail ("r.YWorldLimits = [1]", "") - fail ("r.YWorldLimits = [j]", "") - fail ("r.YWorldLimits = [1; 2]", "") -***** assert (imref2d ([4, 2, 3]).ImageSize, [4, 2]); -32 tests, 32 passed, 0 known failure, 0 skipped -[inst/@imref2d/sizesMatch.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/sizesMatch.m -***** error id=Octave:invalid-fun-call sizesMatch (imref2d) -***** test - I = zeros (256, 256); - r = imref2d ([256, 256]); - assert (sizesMatch (r, I), true) - I2 = zeros (246, 300); - assert (sizesMatch (r, I2), false) -***** test - r = imref2d ([256, 256]); - assert (sizesMatch (r, []), false) -***** test - r = imref2d ([256, 256]); - assert (sizesMatch (r, 42), false) -***** test - r = imref2d ([256, 256]); - assert (sizesMatch (r, zeros (256, 256, 3, 2)), true) -***** test - I = zeros (384, 512, 3); - r = imref2d (size (I)); - assert (sizesMatch (r, I), true) -6 tests, 6 passed, 0 known failure, 0 skipped -[inst/@imref2d/worldToSubscript.m] ->>>>> /build/octave-image-2.12.0/inst/@imref2d/worldToSubscript.m -***** error id=Octave:invalid-fun-call worldToSubscript (imref2d) -***** error id=Octave:invalid-fun-call worldToSubscript (imref2d, 1, 2, 3) -***** error id=Octave:expected-real worldToSubscript (imref2d, 1j, 2) -***** error id=Octave:expected-real worldToSubscript (imref2d, 1, 2j) -***** error id=Octave:invalid-input-arg worldToSubscript (imref2d, [1, 2], 3) -***** error id=Octave:invalid-input-arg worldToSubscript (imref2d, [1], [2, 3]) -***** test - r = imref2d ([512, 512], 0.3125, 0.3125); - xW = [38.44, 39.44, 38.44, -0.2]; - yW = [68.75, 68.75, 75.75, -1]; - [rS, cS] = worldToSubscript (r, xW, yW); - assert (rS, [220, 220, 242, NaN]) - assert (cS, [123, 126, 123, NaN]) -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/im2col.m] ->>>>> /build/octave-image-2.12.0/inst/im2col.m +[inst/integralImage3.m] +>>>>> /build/octave-image-2.12.0/inst/integralImage3.m +***** test + assert (integralImage3 (zeros (4)), zeros (5, 5, 2)); +***** test + J_res = zeros (2, 2, 2); + J_res(2, 2, 2) = 10; + assert (integralImage3 (10), J_res); +***** test + J = integralImage3 (10); + assert (class (J), "double"); + J = integralImage3 (uint8 (10)); + assert (class (J), "double"); +***** test + I = [1, 2; 3, 4]; + J = integralImage3 (I); + J_res = zeros (3, 3, 2); + J_res(2:3, 2:3, 2) = [1 3; 4 10]; + assert (J, J_res) +***** test + I1 = [1, 2; 3, 4]; + I2 = [5, 6; 7, 8]; + I3 = [9, 10; 11, 12]; + I = cat (3, I1, I2, I3); + J = integralImage3 (I); + J2 = [0 0 0; 0 1 3; 0 4 10]; + J3 = [0 0 0; 0 6 14; 0 16 36]; + J4 = [0 0 0; 0 15 33; 0 36 78]; + J_res = cat (3, zeros (3), J2, J3, J4); + assert (J, J_res) +***** test + I = magic (5); + J = integralImage3 (I); + J_res = zeros (6, 6, 2); + J_res(:, :, 2) = [0 0 0 0 0 0; + 0 17 41 42 50 65; + 0 40 69 77 99 130; + 0 44 79 100 142 195; + 0 54 101 141 204 260; + 0 65 130 195 260 325]; + assert (J, J_res) +***** # test of 3d input image: +***** test + K = magic (8); + K = reshape (K, [4 4 4]); + L = integralImage3 (K); + L1_ML = zeros (5); + L2_ML = [0 0 0 0 0; + 0 64 96 98 132; + 0 73 146 203 260; + 0 90 212 316 388; + 0 130 260 390 520]; + L3_ML = [0 0 0 0 0; + 0 67 134 197 260; + 0 130 260 390 520; + 0 193 386 583 780; + 0 260 520 780 1040]; + L4_ML = [0 0 0 0 0; + 0 127 222 291 392; + 0 203 406 593 780; + 0 287 606 903 1168; + 0 390 780 1170 1560]; + L5_ML = [0 0 0 0 0; + 0 134 268 394 520; + 0 260 520 780 1040; + 0 386 772 1166 1560; + 0 520 1040 1560 2080]; + L_ML = cat (3, L1_ML, L2_ML, L3_ML, L4_ML, L5_ML); + assert (L, L_ML) +***** # test of 2d input image: +***** test + X = ones (3); + Y = integralImage3 (X); + Y_ML = zeros (4, 4, 2); + Y_ML(:, :, 2) = [0 0 0 0; 0 1 2 3; 0 2 4 6; 0 3 6 9]; + assert(Y, Y_ML); +***** error + integralImage3 (); +***** error + integralImage3 (zeros (3), zeros (3)); +***** error + integralImage3 ("abcd"); +***** error + integralImage3 (1+i); +***** error + integralImage3 (reshape (1:81, 3, 3, 3, 3)); +13 tests, 13 passed, 0 known failure, 0 skipped +[inst/bestblk.m] +>>>>> /build/octave-image-2.12.0/inst/bestblk.m +***** demo + siz = bestblk ([200; 10], 50); + disp (siz) +***** error bestblk ("string") +***** error bestblk ([100 200], "string") +***** error <2 elements> bestblk ([100], 5) +***** assert (bestblk ([ 10 12], 2), [ 2 2]); +***** assert (bestblk ([ 10 12], 3), [ 2 3]); +***** assert (bestblk ([300 100], 150), [150 100]); +***** assert (bestblk ([256 128], 17), [ 16 16]); +***** assert (bestblk ([ 17 17], 3), [ 3 3]); +***** assert (bestblk ([230 470]), bestblk ([230 470], 100)) +***** assert (bestblk ([10 12 10], 3), [2 3 2]); +***** assert (bestblk ([ 9 12 9], 3), [3 3 3]); +***** assert (bestblk ([10 12 10 11], 5), [5 4 5 4]); +12 tests, 12 passed, 0 known failure, 0 skipped +[inst/col2im.m] +>>>>> /build/octave-image-2.12.0/inst/col2im.m ***** demo ## Divide A using distinct blocks and then reverse the operation A = [ 1:10 @@ -12266,174 +11501,615 @@ 31:40]; B = im2col (A, [2 5], "distinct") C = col2im (B, [2 5], [4 10], "distinct") +***** demo + ## Get sliding blocks of size from A into columns, calculate the + ## mean of each block (mean of each column), and reconstruct A + ## after a median filter. + A = reshape (1:24, [4 6]) + B = im2col (A, [2 3], "sliding") + C = mean (B); + col2im (C, [1 1], [3 4], "sliding") +***** error col2im (ones (10), [5 5], [10 10], "wrong_block_type"); +***** error col2im (ones (10), [1 1], [ 7 7], "sliding"); +***** error col2im (ones (10), [3 3], [10 10], "distinct") +***** error col2im (ones (10), [5 5], [10 11], "distinct"); +***** assert (col2im (sum (im2col (magic (10), [3 3], "sliding")), [1 1], [8 8]), + convn (magic (10), ones (3, 3), "valid")); ***** test - a = rand (10); - assert (im2col (a, [5 5]), im2col (a, [5 5], "sliding")) + B = ones (1, (10-2+1)*(7-3+1)); + A = ones ((10-2+1), (7-3+1)); + assert (col2im (B, [2 3], [10 7]), A); + + ## same but different classes + assert (col2im (int16 (B), [2 3], [10 7]), int16 (A)); + assert (col2im (single (B), [2 3], [10 7]), single (A)); + assert (col2im (logical (B), [2 3], [10 7]), logical (A)); ***** test - a = rand (10); - assert (im2col (a, [5 5]), im2col (a, "indexed", [5 5])) -***** error im2col (rand (20), [2 5], 10) -***** error im2col (rand (20), [2 5], "wrong_block_type") -***** error im2col (rand (10), [5 5], "sliding", 5) -***** error im2col (rand (10), "indexed", [5 5], "sliding", 5) -***** shared B, A, Bs, As, Ap, Bp0, Bp1, Bp0_3s - v = [1:10]'; - r = reshape (v, 2, 5); - B = [v v+20 v+40 v+10 v+30 v+50]; - A = [r r+10; r+20 r+30; r+40 r+50]; - As = [ 1 2 3 4 5 - 6 7 8 9 10 - 11 12 13 14 15]; - b1 = As(1:2, 1:4)(:); - b2 = As(2:3, 1:4)(:); - b3 = As(1:2, 2:5)(:); - b4 = As(2:3, 2:5)(:); - Bs = [b1, b2, b3, b4]; - Ap = A(:, 1:9); - Bp1 = Bp0 = B; - Bp0(9:10, 4:6) = 0; - Bp1(9:10, 4:6) = 1; - Bp0_3s = Bp0; - Bp0_3s(11:30, :) = 0; -***** assert (im2col (A, [2 5], "distinct"), B); -***** assert (im2col (Ap, [2 5], "distinct"), Bp0); -***** assert (im2col (Ap, [2 5 3], "distinct"), Bp0_3s); -***** assert (im2col (Ap, "indexed", [2 5], "distinct"), Bp1); -***** assert (im2col (uint8 (Ap), "indexed", [2 5], "distinct"), uint8 (Bp0)); -***** assert (im2col (uint16 (Ap), "indexed", [2 5], "distinct"), uint16 (Bp0)); -***** assert (im2col (int16 (Ap), "indexed", [2 5], "distinct"), int16 (Bp1)); -***** assert (im2col (uint32 (Ap), "indexed", [2 5], "distinct"), uint32 (Bp1)); -***** assert (im2col (uint8 (A), [2 5], "distinct"), uint8 (B)); -***** assert (im2col (single (A), [2 5], "distinct"), single (B)); -***** assert (im2col (logical (A), [2 5], "distinct"), logical (B)); -***** assert (im2col (uint8 (As), [2 4], "sliding"), uint8 (Bs)); -***** assert (im2col (single (As), [2 4], "sliding"), single (Bs)); -***** assert (im2col (logical (As), [2 4], "sliding"), logical (Bs)); -***** assert (im2col (As, [2 4], "sliding"), Bs); -***** assert (im2col (As, [3 5], "sliding"), As(:)); + a = rand (10)(:); + assert (col2im (a, [1 1], [10 10]), col2im (a, [1 1], [10 10], "sliding")) +***** shared A, B + v = [1:10]'; + r = reshape (1:10, [2 5]); + B = [v v+10 v+20 v+30 v+40 v+50]; + A = [r r+30 + r+10 r+40 + r+20 r+50]; + assert (col2im (B, [2 5], [6 10], "distinct"), A); +***** assert (col2im (int16 (B), [2 5], [6 10], "distinct"), int16 (A)); +***** assert (col2im (logical (B), [2 5], [6 10], "distinct"), logical (A)); +***** assert (col2im (single (B), [2 5], [6 10], "distinct"), single (A)); ***** test - A = randi (9, 10, 9, 5); -***** assert (convn (A, ones (3, 3, 3), "valid"), - reshape (sum (im2col (A, [3 3 3])), [8 7 3])); + a = rand (10, 8); + b = im2col (a, [5 5], "distinct"); + assert (col2im (b, [5 5], [10 8], "distinct"), a); - A = randi (9, 10, 9, 5, 7); -***** assert (convn (A, ones (3, 3, 3), "valid"), - reshape (sum (im2col (A, [3 3 3])), [8 7 3 7])); -***** assert (convn (A, ones (3, 4, 3), "valid"), - reshape (sum (im2col (A, [3 4 3])), [8 6 3 7])); -***** assert (convn (A, ones (3, 5, 3, 2), "valid"), - reshape (sum (im2col (A, [3 5 3 2])), [8 5 3 6])); -***** assert (im2col (1:8, [2 1]), zeros (2, 0)) -28 tests, 28 passed, 0 known failure, 0 skipped -[inst/makelut.m] ->>>>> /build/octave-image-2.12.0/inst/makelut.m -***** demo - makelut(inline('sum(x(:))>=3','x'), 2) - % Returns '1' if one or more values - % in the input matrix are 1 -***** assert(prod(makelut(inline('sum(x(:))==2','x'),2)==makelut(inline('sum(x(:))==a*b*c*d','x','a','b','c','d'),2,2/(3*4*5),3,4,5))); # test multiple params -***** assert(prod(makelut(inline('x(1,1)==1','x'),2)==[zeros(2^3,1);ones(2^3,1)])==1); # test 2-by-2 -***** assert(prod(makelut(inline('x(1,1)==1','x'),3)==[zeros(2^8,1);ones(2^8,1)])==1); # test 3-by-3 -***** assert(prod(makelut(inline('x(1,1)==1','x'),4)==[zeros(2^15,1);ones(2^15,1)])==1); # test 4-by-4 -***** assert(prod(makelut(inline('x(2,1)==1','x'),3)==[zeros(2^7,1);ones(2^7,1);zeros(2^7,1);ones(2^7,1)])==1); # another test for 3-by-3 -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/roicolor.m] ->>>>> /build/octave-image-2.12.0/inst/roicolor.m + a = rand (8); + b = im2col (a, [5 5], "distinct"); + assert (col2im (b, [5 5], [8 8], "distinct"), a); +***** shared a, b + ## Same number of multiple dimensions + a = rand (10, 10, 10); + b = im2col (a, [5 5 5], "distinct"); +***** assert (col2im (b, [5 5 5], [10 10 10], "distinct"), a); + + ## Different number of dimensions + a = rand (10, 10, 10); + b = im2col (a, [5 5], "distinct"); +***** assert (col2im (b, [5 5], [10 10 10], "distinct"), a); + + ## Removing padding from multiple dimensions + a = rand (10, 10, 7); + b = im2col (a, [5 5 3], "distinct"); +***** assert (col2im (b, [5 5 3], [10 10 7], "distinct"), a); + + a = rand (10, 10, 7); + b = im2col (a, [5 5 5 2], "distinct"); +***** assert (col2im (b, [5 5 5 2], [10 10 7], "distinct"), a); +15 tests, 15 passed, 0 known failure, 0 skipped +[inst/bweuler.m] +>>>>> /build/octave-image-2.12.0/inst/bweuler.m ***** demo - roicolor([1:10],2,4); - % Returns '1' where input values are between 2 and 4 (both included). -***** assert(roicolor([1:10],2,4),logical([0,1,1,1,zeros(1,6)])); -***** assert(roicolor([1,2;3,4],3,3),logical([0,0;1,0])); -***** assert(roicolor([1,2;3,4],[1,4]),logical([1,0;0,1])); + A=zeros(9,10); + A([2,5,8],2:9)=1; + A(2:8,[2,9])=1 + bweuler(A) + # Euler number (objects minus holes) is 1-2=-1 in an 8-like object +***** test + A=zeros(10,10); + A(2:9,3:8)=1; + A(4,4)=0; + A(8,8)=0; # not a hole + A(6,6)=0; + assert(bweuler(A),-1); +***** test + A=zeros(10,10); + A(2:4,2:4)=1; + A(5:8,5:8)=1; + assert(bweuler(A,4),2); + assert(bweuler(A,8),1); + assert(bweuler(A),1); +***** error <2 dimensions> bweuler (true (5, 5, 1, 5)) 3 tests, 3 passed, 0 known failure, 0 skipped -[inst/rangefilt.m] ->>>>> /build/octave-image-2.12.0/inst/rangefilt.m +[inst/imimposemin.m] +>>>>> /build/octave-image-2.12.0/inst/imimposemin.m +***** shared im0, bw0, out0, out0_4 + im0 = uint8 ([5 5 5 5 5; + 5 4 3 4 5; + 5 3 0 3 5; + 5 4 3 4 5; + 5 5 5 5 5]); + bw0 = false (5); + bw0(4, 4) = true; + out0 = im0 + 1; + out0(4, 4) = 0; + out0_4 = out0; + out0_4(3, 3) = 4; +***** error imimposemin () +***** error imimposemin (im0) +***** error imimposemin ("hello", bw0) +***** error imimposemin (i.*im0, bw0) +***** error imimposemin (sparse (im0), bw0) +***** error imimposemin (im0, ones (2)) +***** error imimposemin (im0, 'hello') +***** error imimposemin (im0, i .* double (bw0)) +***** error imimposemin (im0, sparse (bw0)) +***** error imimposemin (im0, bw0, 'hello') +***** error imimposemin (im0, bw0, 3) +***** assert (imimposemin (im0, bw0), out0) +***** assert (imimposemin (im0, bw0, 8), out0) +***** assert (imimposemin (im0, bw0, 4), out0_4) +***** assert (imimposemin (im0, bw0, true (3)), out0) ***** test - im = rangefilt (ones (5)); - assert (im, zeros (5)); + out = imimposemin (im0, bw0); + assert (size (out), size (im0)) + assert (class (out), "uint8") ***** test - A = zeros (3,3); - B = ones (3,3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3,3); - E(2,2) = 2; - F = 3 .* ones (3,3); - F(2,2) = 1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - A_out = [0 0 0; 0 0 0; 0 0 0]; - B_out = [0 0 0; 0 0 0; 0 0 0]; - C_out = [1 1 1; 2 2 2; 1 1 1]; - D_out = [1 2 1; 1 2 1; 1 2 1]; - E_out = [1 1 1; 1 1 1; 1 1 1]; - F_out = [2 2 2; 2 2 2; 2 2 2]; - G_out = [7 13 6; 7+pi 16 7; 7+pi 16 7]; - H_out = [8 11 11; 8 11 11; 8 8 4]; - assert (rangefilt (A), A_out) - assert (rangefilt (B), B_out) - assert (rangefilt (C), C_out) - assert (rangefilt (D), D_out) - assert (rangefilt (E), E_out) - assert (rangefilt (F), F_out) - assert (rangefilt (G), G_out, eps) - assert (rangefilt (H), H_out) -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/axes2pix.m] ->>>>> /build/octave-image-2.12.0/inst/axes2pix.m -***** error id=Octave:invalid-fun-call axes2pix () -***** error id=Octave:invalid-fun-call axes2pix (42) -***** error id=Octave:invalid-fun-call axes2pix (42, [1, 2]) -***** error id=Octave:invalid-input-arg axes2pix ([42, 43], [1, 2], [1, 2, 3]) -***** error id=Octave:invalid-input-arg axes2pix (42, [1, 2; 3, 4], [1, 2, 3]) -***** assert (axes2pix (42, [1 42], []), []) -***** assert (axes2pix (240, [1, 240], 30), 30) -***** assert (axes2pix (291, [1, 291], 30), 30) -***** assert (axes2pix (240, [400.5, 520], 450), 100) -***** assert (axes2pix (291, [-19, 271], 90), 110) -***** assert (axes2pix (1, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) -***** assert (axes2pix (5, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) -***** assert (axes2pix (0, [1 1], [0, 1, 2, 3, 4]), [0, 1, 2, 3, 4]) -***** assert (axes2pix (5, [5 1], [1, 2, 3, 4, 5]), [5, 4, 3, 2, 1]) -***** assert (axes2pix (5, [3 -1], [1, 2, 3, 4, 5]), [3, 2, 1, 0, -1]) -***** assert (axes2pix (25, [5 1], [1, 2, 3, 4, 5]), [25, 19, 13, 7, 1]) -***** assert (axes2pix (1, [1 5], [1, 2, 3, 4, 5]), [1, 2, 3, 4, 5]) -***** assert (axes2pix (1, [5 1], [-1, 0, 1, 2.5]), [-5, -4, -3, -1.5]) -***** assert (axes2pix (1, [-10 -15], [-1, 0, 1.5]), [10, 11, 12.5]) -***** assert (axes2pix (5, [5; 1], [1, 2, 3, 4, 5]), [5, 4, 3, 2, 1]) -***** assert (axes2pix (5, [5; 1], [1; 2; 3; 4; 5]), [5; 4; 3; 2; 1]) -21 tests, 21 passed, 0 known failure, 0 skipped -[inst/graythresh.m] ->>>>> /build/octave-image-2.12.0/inst/graythresh.m -***** shared img, histo - ## this is the old default.img that came with GNU Octave. While the current - ## is very very similar, is off just enough for us to get precision errors - img = uint8 (reshape ([138 138 138 142 142 138 142 138 138 117 105 81 69 61 53 40 49 45 40 36 40 45 53 49 65 73 121 166 210 243 247 247 247 239 235 178 154 170 150 150 162 174 190 190 194 186 178 170 154 182 198 174 117 138 138 142 138 142 142 146 142 138 138 130 109 97 81 73 69 57 53 53 57 61 61 69 73 77 105 121 158 219 243 243 247 243 243 243 206 150 158 158 158 150 158 182 186 190 194 186 174 190 206 198 162 138 142 138 142 146 138 142 142 138 146 142 134 142 130 121 101 97 85 85 81 81 81 85 93 85 73 57 61 93 150 194 215 239 243 243 243 223 166 138 158 158 154 142 162 178 190 190 198 186 182 186 174 162 182 146 142 138 142 142 146 142 146 146 146 146 142 142 142 134 125 101 85 73 65 69 73 73 57 40 53 49 57 69 85 125 166 182 178 178 174 150 130 121 146 146 150 142 166 182 190 182 174 166 162 170 194 198 138 138 146 146 138 146 146 146 146 142 150 146 146 142 130 93 65 45 45 49 45 40 49 40 49 49 49 49 61 81 113 142 150 154 154 146 142 134 125 125 138 134 125 146 162 178 178 178 166 186 202 206 186 142 142 142 134 142 146 142 150 142 146 142 146 146 130 81 53 49 49 45 49 40 36 36 32 36 36 36 53 73 89 125 150 146 134 138 146 138 146 138 142 117 117 113 117 146 166 174 178 182 178 178 170 146 142 142 138 142 146 142 142 146 150 138 146 142 130 73 49 40 49 57 65 69 73 61 61 53 57 53 61 77 77 97 113 138 134 130 138 142 150 146 150 134 138 121 121 101 121 150 158 154 142 150 162 166 178 138 138 146 142 142 142 142 146 146 142 142 130 73 57 49 36 49 65 77 85 89 85 81 81 81 85 93 93 97 105 117 125 150 158 154 162 162 166 154 134 150 130 125 113 138 182 174 154 130 178 227 239 239 134 138 142 138 142 142 146 146 138 150 125 61 49 32 32 45 49 57 65 85 101 105 101 101 109 125 117 113 109 138 134 125 166 178 170 162 150 170 162 170 150 146 150 138 125 162 186 182 142 206 247 247 243 138 138 138 138 142 142 146 146 146 130 85 45 45 36 40 53 45 57 69 97 125 130 130 134 138 146 142 134 142 158 138 117 146 174 170 174 178 170 174 170 166 154 162 158 130 134 170 178 158 190 243 247 247 142 142 142 142 142 146 146 142 138 89 53 45 40 45 45 49 57 77 93 125 138 150 154 158 158 162 154 150 166 174 142 73 125 174 178 174 182 182 178 178 174 166 174 174 162 125 154 170 174 170 227 247 251 142 138 142 142 142 142 142 138 105 61 40 40 32 40 40 49 61 89 117 146 154 158 162 170 170 174 162 166 174 182 150 65 146 166 174 186 198 198 198 190 178 178 174 174 158 134 154 198 194 174 202 251 251 146 142 142 142 146 150 138 134 69 40 40 36 32 40 45 45 65 101 134 150 158 166 174 178 174 174 174 170 170 174 142 73 150 162 178 194 202 202 194 194 178 178 154 134 125 138 154 198 194 186 190 243 251 150 146 146 146 146 150 130 109 53 45 28 40 40 36 32 49 73 101 130 154 162 170 170 170 178 182 178 178 174 158 142 121 146 158 178 174 186 190 186 186 174 146 105 109 113 130 150 178 202 190 186 243 251 146 146 146 146 150 142 109 73 49 40 32 40 40 45 40 53 69 93 130 154 162 170 174 178 182 182 186 182 178 154 146 130 138 142 150 170 182 178 174 166 150 117 97 105 113 130 150 150 174 182 190 243 251 146 146 154 146 150 134 105 53 40 45 45 40 40 36 36 40 69 105 134 162 170 174 178 182 182 182 186 190 186 178 170 158 154 150 162 182 182 174 174 174 150 113 109 113 113 130 150 162 186 186 190 239 251 154 150 146 150 146 125 77 49 36 40 36 40 36 28 40 36 77 113 138 150 170 170 174 186 190 190 190 194 190 186 194 190 170 162 174 194 174 182 170 170 158 121 113 113 113 146 158 170 210 215 215 206 243 150 146 150 150 150 113 57 49 40 45 45 49 49 40 32 45 85 113 142 170 178 174 182 194 190 194 194 198 198 198 210 210 182 162 170 190 182 186 170 170 162 130 121 113 121 146 154 150 198 215 206 210 215 150 150 150 150 150 105 49 45 40 49 49 57 40 49 49 53 85 121 158 182 178 174 182 198 194 194 194 194 202 202 194 186 174 154 162 166 178 174 170 170 170 158 117 113 130 150 154 121 182 194 206 215 206 158 150 150 150 146 97 45 36 49 49 49 40 40 49 49 65 97 130 154 174 174 174 186 194 194 194 194 198 198 186 170 158 154 158 138 158 162 170 190 182 174 170 138 138 142 154 134 142 146 170 206 219 215 150 150 158 158 150 85 36 40 40 40 40 45 45 49 49 65 97 130 146 166 166 174 182 190 194 194 194 194 190 182 162 158 150 158 182 186 178 198 206 198 190 174 154 174 174 142 142 170 170 166 202 223 219 158 150 150 150 146 85 40 45 40 40 36 45 53 45 49 53 93 117 130 154 162 174 190 186 194 194 194 190 186 178 162 162 170 174 182 198 210 206 210 198 198 182 170 178 174 158 154 194 194 174 198 210 215 150 154 158 150 150 85 49 45 40 40 32 36 53 40 45 53 81 109 142 158 158 174 178 182 190 190 194 190 190 178 170 174 178 186 190 190 206 215 202 206 194 186 178 182 174 154 170 198 210 186 186 202 215 150 154 150 154 150 97 45 40 40 40 36 36 45 40 45 73 89 113 142 158 158 174 174 182 186 186 194 186 182 178 174 170 105 166 206 186 190 202 198 194 190 182 182 174 166 154 162 198 215 202 182 202 219 154 150 154 150 146 117 61 45 45 45 36 53 53 49 53 77 93 101 125 158 162 174 174 178 174 186 190 182 182 186 182 182 77 125 198 194 186 190 190 178 178 178 162 162 162 154 186 210 227 210 190 206 223 154 150 154 150 154 138 65 45 45 45 40 49 49 40 53 65 77 89 113 150 158 166 166 170 178 182 186 182 170 170 170 162 81 117 186 190 186 182 178 186 174 166 162 150 130 154 194 227 227 219 202 202 219 154 154 150 154 146 146 89 45 40 45 40 49 49 36 40 57 65 89 109 138 146 158 158 170 170 178 182 178 162 150 158 154 113 146 186 182 178 182 178 170 170 162 146 138 138 146 202 223 231 219 210 190 215 130 130 130 130 130 130 109 45 53 40 32 36 40 45 53 61 65 81 97 117 130 138 150 158 158 178 170 162 158 138 142 150 146 166 178 174 174 170 170 170 162 158 138 117 117 142 202 223 239 223 215 186 206 61 61 65 69 69 65 57 36 40 36 32 40 40 53 57 53 57 69 93 105 109 130 138 142 154 162 150 138 142 125 121 150 162 170 170 166 170 170 170 166 162 138 121 113 130 170 202 223 227 231 202 178 182 45 49 45 40 40 40 45 45 45 45 36 40 32 49 61 61 57 65 73 81 101 109 121 130 142 146 121 89 93 117 113 134 154 174 166 162 166 170 170 162 154 150 142 150 223 186 194 215 231 227 206 182 174 49 40 45 45 49 49 45 49 49 49 49 40 36 45 57 69 65 61 65 69 85 93 109 109 117 109 89 57 57 81 97 113 154 162 166 162 170 158 158 162 154 162 174 231 239 178 186 210 231 239 210 194 178 49 36 49 45 49 49 49 45 45 49 49 36 40 40 45 36 53 53 53 57 57 69 69 73 69 61 57 45 45 65 89 105 125 142 146 150 150 154 162 170 174 223 235 247 231 178 178 206 227 227 223 198 190 40 53 36 45 40 40 40 40 45 40 40 45 45 45 45 40 53 49 49 45 53 45 32 36 36 36 36 40 49 45 61 73 89 93 97 113 125 142 186 202 239 239 243 251 239 198 166 194 215 235 227 215 202 40 45 36 32 36 40 40 45 40 40 45 49 45 49 45 49 40 40 45 49 40 45 45 45 49 49 32 40 49 40 49 57 69 81 101 134 170 206 235 243 243 239 247 251 247 210 170 186 202 231 231 227 210 49 45 49 40 40 40 49 45 40 40 45 45 45 40 45 45 45 49 40 49 40 49 45 45 36 40 40 45 45 45 45 65 121 150 210 239 243 243 247 243 243 247 251 251 239 223 178 174 194 219 239 231 219 36 45 45 40 40 49 40 45 49 49 40 40 45 49 40 40 45 49 45 40 49 45 40 40 40 49 40 45 40 49 49 121 162 215 247 247 247 247 247 243 247 251 251 251 247 239 223 194 186 202 215 210 210 36 45 45 40 40 49 40 45 32 36 49 36 45 49 40 40 45 40 36 40 45 45 40 40 40 36 45 32 40 49 57 121 142 215 243 247 243 247 243 247 251 251 251 251 247 247 247 227 186 194 190 190 182 40 32 45 32 45 40 45 45 49 45 40 45 49 36 40 45 32 40 45 45 49 45 45 45 45 53 49 53 45 45 40 69 97 186 239 243 247 247 247 251 251 251 251 251 243 243 231 202 202 206 206 186 170 53 40 40 40 40 40 36 32 32 36 45 53 49 32 36 32 36 32 40 49 40 40 45 40 40 53 45 49 49 40 32 40 49 138 219 235 247 247 251 251 251 251 251 247 243 235 198 206 210 198 190 186 186 73 69 61 57 61 49 53 40 49 45 40 49 49 49 57 57 53 49 53 53 45 40 45 40 45 49 45 49 45 40 32 53 69 101 215 231 247 247 247 247 251 251 251 243 235 219 194 202 202 186 186 190 194], [53 40])); -***** assert (graythresh (img, "percentile"), 142/255); -***** assert (graythresh (img, "percentile", 0.5), 142/255); -***** assert (graythresh (img, "moments"), 142/255); -***** assert (graythresh (img, "minimum"), 93/255); -***** assert (graythresh (img, "maxentropy"), 150/255); -***** assert (graythresh (img, "intermodes"), 99/255); -***** assert (graythresh (img, "otsu"), 114.5/255); - histo = hist (img(:), 0:255); -***** assert (graythresh (histo, "otsu"), 114.5/255); -***** assert (graythresh (img, "mean"), 0.51445615982, 0.000000001); # here our results differ from ImageJ + out = imimposemin (double (im0), bw0); + assert (size (out), size (im0)) + assert (class (out), "double") ***** test - im = repmat (0.5, 100, 100); - [t, g] = graythresh (im); - assert (t, 0) - assert (g, 0) + out = imimposemin (single (im0), bw0); + assert (size (out), size (im0)) + assert (class (out), "single") ***** test - im = [-2 1 0; 43 .5 .2]; - clip_im = [ 0 1 0; 1 .5 .2]; - t = graythresh (clip_im); - assert (graythresh (im), t) - assert (graythresh (single (im)), t) + out = imimposemin (uint16 (im0), bw0); + assert (size (out), size (im0)) + assert (class (out), "uint16") ***** test - H(1) = 100; - assert (graythresh (H), 0) + im = cat (3, im0, im0, im0, im0); + bw = cat (3, bw0, bw0, bw0, bw0); + out = imimposemin (im, bw); + assert (size (out), size (im)) +***** test + expected_double = double (im0); + expected_double += 0.005; + expected_double(4, 4) = -inf; + out = imimposemin (double (im0), bw0); + assert (out, expected_double, eps) +***** test + im = uint8 (10 .* ones (10)); + im(6:8, 6:8) = 2; + im(2:4, 2:4) = 7; + im(3, 3) = 5; + im(2, 9) = 9; + im(3, 8) = 9; + im(9, 2) = 9; + im(8, 3) = 9; + bw = false (10); + bw(3, 3) = true; + bw(6:8, 6:8) = true; + expected = uint8 (11 .* ones(10)); + expected(2:4, 2:4) = 8; + expected(3, 3) = 0; + expected(6:8, 6:8) = 0; + expected_double = double (expected); + expected_double -= 0.992; + expected_double (expected_double < 0) = -inf; + out = imimposemin (im, bw); + assert (out, expected, eps) + out = imimposemin (double (im), bw); + assert (out, expected_double, eps) +22 tests, 22 passed, 0 known failure, 0 skipped +[inst/imadjust.m] +>>>>> /build/octave-image-2.12.0/inst/imadjust.m +***** error imadjust ("bad argument"); +***** error imadjust ([1:100], "bad argument", [], 1); +***** error <2 row column per plane> imadjust ([1:100], [0 1 1], [], 1); +***** error <2 row column per plane> imadjust ([1:100], [], [0 1 1], 1); +***** error imadjust ([1:100], [], [], [0; 1]); +***** error imadjust (rand (5, 5, 3), [], [], [0 1]); +***** error imadjust ([1:100], [0; 1], [], -1); +***** error imadjust ([1:100], [0; 5], []); +***** error imadjust ([1:100], [-2; 1], []); +***** error imadjust ([1:100], [], [0; 4]); +***** error imadjust ([1:100], [], [-2; 1]); +***** error imadjust (rand (5) > .5); +***** test + im = [0.01:0.01:1]; + assert (imadjust (im), [0 linspace(0, 1, 98) 1], eps) + assert (imadjust (im), imadjust (im, stretchlim (im, 0.01), [0; 1], 1)) + assert (imadjust (im, []), imadjust (im, [0; 1], [0; 1], 1)) + assert (imadjust (im, [], []), imadjust (im, [0; 1], [0; 1], 1)) + assert (imadjust (im, [], [.25 .75]), imadjust (im, [0; 1], [.25; .75], 1)) + assert (imadjust (im, [.25; .75], []), imadjust (im, [.25; .75], [0; 1], 1)) +***** assert (imadjust (linspace (0, 1), [], [.25 .75]), linspace (.25, .75, 100), eps) +***** assert (imadjust (linspace (0, 1, 100),[1/99; 98/99]), + [0 linspace(0, 1, 98) 1], eps) +***** shared cm + cm = [[0:8]' [1:9]' [2:10]'] / 10; +***** assert (imadjust (cm, [0; 1], [0.5; 1]), (cm /2) + .5) +***** assert (imadjust (cm, [0 1], [0.5 1]), (cm /2) + .5) +***** assert (imadjust (cm, [0; 1], [.1 .2 .3; .7 .8 .9]), + (cm*.6) .+ [.1 .2 .3], eps) +***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0; 1]), + [[0 0 linspace(0, 1, 6) 1]' ... + [0 0 0 linspace(0, 1, 5) 1]' ... + [0 0 0 0 linspace(0, 1, 4) 1]'], eps) +***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0 .1 .2; .8 .9 1]), + [[0 0 linspace(0, .8, 6) .8]' ... + [.1 .1 .1 linspace(.1, .9, 5) .9]' ... + [.2 .2 .2 .2 linspace(.2, 1, 4) 1]'], eps) +***** assert (imadjust (cm, [.2 .4 .6; .7 .8 .9], [0 .1 .2; .8 .9 1], [0.5 1 2]), + [[0 0 0 (((([.3 .4 .5 .6]-.2)/.5).^.5)*.8) .8 .8]' ... + [.1 .1 .1 linspace(.1, .9, 5) .9]' ... + [.2 .2 .2 .2 .2 ((((([.7 .8]-.6)/.3).^2).*.8)+.2) 1 1]'], eps*10) +***** test + im = [-0.4:.1:0.8 + 0.0:.1:1.2 + 0.1:.1:1.3 + -0.4:.2:2.0]; + + ## just clipping + assert (imadjust (im, [0; 1], [0; 1]), + [0 0 0 0 (0:.1:.8) + (0:.1:1) 1 1 + (.1:.1:1) 1 1 1 + 0 0 (0:.2:1) 1 1 1 1 1], eps) + + ## clipping and invert + assert (imadjust (im, [0; 1], [1; 0]), + [1 1 1 1 (1:-.1:.2) + (1:-.1:0) 0 0 + (.9:-.1:0) 0 0 0 + 1 1 (1:-.2:0) 0 0 0 0 0], eps) + + ## rescale + assert (imadjust (im, [.2; .7], [.1; .9]), + [1 1 1 1 1 1 1 2.6 4.2 5.8 7.4 9 9 + 1 1 1 2.6 4.2 5.8 7.4 9 9 9 9 9 9 + 1 1 2.6 4.2 5.8 7.4 9 9 9 9 9 9 9 + 1 1 1 1 4.2 7.4 9 9 9 9 9 9 9]/10, eps) + + ## rescale and invert + assert (imadjust (im, [.2; .7], [.9; .1]), + [9 9 9 9 9 9 9 7.4 5.8 4.2 2.6 1 1 + 9 9 9 7.4 5.8 4.2 2.6 1 1 1 1 1 1 + 9 9 7.4 5.8 4.2 2.6 1 1 1 1 1 1 1 + 9 9 9 9 5.8 2.6 1 1 1 1 1 1 1]/10, eps) +***** assert (imadjust (linspace (0, 1), [], [], 2), linspace (0, 1) .^ 2) +***** shared oRGB + oRGB = zeros (10, 1, 3); + oRGB(:,:,1) = [0 linspace(0,1,6) 1 1 1]'; + oRGB(:,:,2) = [0 0 linspace(0,1,6) 1 1]'; + oRGB(:,:,3) = [0 0 0 linspace(0,1,6) 1]'; +***** assert (imadjust (oRGB, [0; 1], [0; 1]), oRGB) +***** assert (imadjust (oRGB, [.2; .8], [0; 1]), + reshape ([[0 0 0 1/3 2/3 1 1 1 1 1]' + [0 0 0 0 1/3 2/3 1 1 1 1]' + [0 0 0 0 0 1/3 2/3 1 1 1]'], [10 1 3]), eps) +***** assert (imadjust (oRGB, [.2; .8], [.1; .9]), + reshape ([[.1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9 .9 .9]' + [.1 .1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9 .9]' + [.1 .1 .1 .1 .1 (1/3)+(.1/3) (2/3)-(.1/3) .9 .9 .9]'], + [10 1 3]), eps) +***** assert (imadjust (oRGB, [.2; .8], [.2; .8]), + reshape ([[2 2 2 4 6 8 8 8 8 8]' + [2 2 2 2 4 6 8 8 8 8]' + [2 2 2 2 2 4 6 8 8 8]']/10, [10 1 3]), eps) +***** assert (imadjust (oRGB, [0; 1], [.1 .2 .3; .9 .8 .7]), + reshape ([[1 1 2.6 4.2 5.8 7.4 9 9 9 9]' + [2 2 2 3.2 4.4 5.6 6.8 8 8 8]' + [3 3 3 3 3.8 4.6 5.4 6.2 7 7]']/10, [10 1 3]), eps) +***** assert (imadjust (oRGB, [.1 .2 .3; .9 .8 .7], [0; 1]), + reshape ([[0 0 .125 .375 .625 .875 1 1 1 1]' + [0 0 0 0 1/3 2/3 1 1 1 1]' + [0 0 0 0 0 .25 .75 1 1 1]'], [10 1 3]), eps*10) +***** assert (imadjust (oRGB, [.1 .2 .3; .9 .8 .7], [.2 0 .4; .5 1 .7 ]), + reshape ([[.2 .2 .2375 .3125 .3875 .4625 .5 .5 .5 .5]' + [0 0 0 0 1/3 2/3 1 1 1 1]' + [.4 .4 .4 .4 .4 .475 .625 .7 .7 .7]'], [10 1 3]), eps) +***** test + img = rand (4, 4, 2, 3, 4); + adj = zeros (4, 4, 2, 3, 4); + for p = 1:2 + for q = 1:3 + for r = 1:4 + adj(:,:,p,q,r) = imadjust (img(:,:,p,q,r)); + endfor + endfor + endfor + assert (imadjust (img), adj) +***** test + img = rand (4, 4, 2, 3, 2); + adj = zeros (4, 4, 2, 3, 2); + in = reshape ([ 3 5 7 9 11 13 15 17 19 21 23 25; + 97 95 93 91 89 87 85 83 81 79 77 75] / 100, [2 2 3 2]); + out = reshape ([ 5 7 9 11 14 15 17 19 21 23 25 27; + 95 93 91 89 87 85 83 81 79 77 75 73] / 100, [2 2 3 2]); + gamma = reshape (0.6:.1:1.7, [1 2 3 2]); + for p = 1:2 + for q = 1:3 + for r = 1:2 + adj(:,:,p,q,r) = imadjust (img(:,:,p,q,r), in(:,p,q,r), + out(:,p,q,r), gamma(1,p,q,r)); + endfor + endfor + endfor + assert (imadjust (img, in, out, gamma), adj) +***** test + in = int16 (1:6); + assert (imadjust (in), int16 ([-32768 -19661 -6554 6553 19660 32767])) + assert (imadjust (in, []), in) +***** test + in = uint8([ + 35 1 6 26 19 24 + 3 32 7 21 23 25 + 31 9 2 22 27 20 + 8 28 33 17 10 15 + 30 5 34 12 14 16 + 4 36 29 13 18 11]); + out = uint8([ + 12 0 0 1 0 0 + 0 8 0 0 0 0 + 7 0 0 0 2 0 + 0 3 9 0 0 0 + 6 0 11 0 0 0 + 0 13 4 0 0 0]); + assert (imadjust (in, [.1 .9], [0 1]), out); +***** test + in = uint8([ + 140 4 24 104 76 96 + 12 128 28 84 92 100 + 124 36 8 88 108 80 + 32 112 132 68 40 60 + 120 20 136 48 56 64 + 16 144 116 52 72 44]); + out = uint8([ + 143 0 0 98 63 88 + 0 128 3 73 83 93 + 123 13 0 78 103 68 + 8 108 133 53 18 43 + 118 0 138 28 38 48 + 0 148 113 33 58 23]); + assert (imadjust (in, [.1 .9], [0 1]), out); +***** xtest + in_u8 = randi ([0 255], 5, 5, 2, 3, "uint8"); + in_u16 = randi ([0 65535], 5, 5, 2, 3, "uint16"); + in_i16 = randi ([-32768 32767], 5, 5, 2, 3, "int16"); + in_u8_d = im2double (in_u8); + in_u16_d = im2double (in_u16); + in_i16_d = im2double (in_i16); + + ## default values + assert (imadjust (in_u8), im2uint8 (imadjust (in_u8_d))) + assert (imadjust (in_u16), im2uint16 (imadjust (in_u16_d))) + assert (imadjust (in_i16), im2int16 (imadjust (in_i16_d))) + + ## single adjustment for all planes + args = {[.3; .7], [.1; .9], [1.5]}; + assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) + assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) + assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) + + ## single adjustment for all planes (mixed with some complement) + args = {reshape([.2 .3 .25 .1 0 .1; .9 .7 .85 .9 1 .8], [2 2 3]), + reshape([.1 .2 .05 .9 1 .3; .9 .85 .7 .1 0 .9], [2 2 3]), + reshape([1 .75 1 1.2 1.5 2], [1 2 3])}; + assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) + assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) + assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) + + ## test use of [] as limit and negative + args = {[], [.95; 0], 1.25}; + assert (imadjust (in_u8, args{:}), im2uint8 (imadjust (in_u8_d, args{:}))) + assert (imadjust (in_u16, args{:}), im2uint16 (imadjust (in_u16_d, args{:}))) + assert (imadjust (in_i16, args{:}), im2int16 (imadjust (in_i16_d, args{:}))) +36 tests, 36 passed, 0 known failure, 0 skipped +[inst/qtdecomp.m] +>>>>> /build/octave-image-2.12.0/inst/qtdecomp.m +***** demo + full(qtdecomp(eye(8))) + %It finds 2 big blocks of 0 and it decomposes further where 0 and 1 are mixed. +***** # Test if odd-sized limits split +***** assert(full(qtdecomp(eye(5))), reshape([5,zeros(1,24)],5,5)); +***** assert(full(qtdecomp(eye(6))), repmat(reshape([3,zeros(1,8)],3,3),2,2)); +***** # Test 'equal' method +***** test + a=ones(2,2); + b=[2,0;0,0]; + assert(full(qtdecomp(eye(4))), [a,b;b,a]); +***** shared A, B2, B4 + A=[ 1, 4, 2, 5,54,55,61,62; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 3, 6, 3, 1,58,53,67,65; + 23,42,42,42,99,99,99,99; + 27,42,42,42,99,99,99,99; + 23,22,26,25,99,99,99,99; + 22,22,24,22,99,99,99,99]; + B2=[2,0;0,0]; + B4=zeros(4); B4(1,1)=4; +***** test + R=[ones(4,8); [ones(2),B2;ones(2,4)], B4]; + assert(full(qtdecomp(A)), R); + assert(full(qtdecomp(A,0)), R); +***** # Test 'threshold' method +***** test + R=[ones(4,8); [ones(2),B2;B2,ones(2)],B4]; + assert(full(qtdecomp(A,1)), R); +***** test + R=[[B4,[B2,B2;B2,B2]]; [[ones(2),B2;B2,B2],B4]]; + assert(full(qtdecomp(A,10)), R); +***** test + R=[[B4,[B2,B2;B2,B2]]; [[B2,B2;B2,B2],B4]]; + assert(full(qtdecomp(A,10,2)), R); + + assert(full(qtdecomp(A,100,[2, 4])), [B4,B4;B4,B4]); +***** test + f = @(A, c1 = 54, c2 = 0, c3 = 0) (A (1, 1, :) != ((c1+c2+c3) * ones (1, 1, size (A, 3))))(:); + + assert(full(qtdecomp(A,f)),[ones(4),B4;ones(4,8)]); + assert(full(qtdecomp(A,f,54)),[ones(4),B4;ones(4,8)]); + assert(full(qtdecomp(A,f,4,40,10)),[ones(4),B4;ones(4,8)]); +***** test +***** # no params + first_eq=inline("(A(1,1,:)!=(54*ones(1,1,size(A,3))))(:)","A"); + assert(full(qtdecomp(A,first_eq)),[ones(4),B4;ones(4,8)]); +***** test +***** # 1 param + first_eq=inline("(A(1,1,:)!=(c*ones(1,1,size(A,3))))(:)","A","c"); + assert(full(qtdecomp(A,first_eq,54)),[ones(4),B4;ones(4,8)]); +***** test +***** # 3 params + first_eq=inline("(A(1,1,:)!=((c1+c2+c3)*ones(1,1,size(A,3))))(:)","A","c1","c2","c3"); + assert(full(qtdecomp(A,first_eq,4,40,10)),[ones(4),B4;ones(4,8)]); +11 tests, 11 passed, 0 known failure, 0 skipped +[inst/xyz2lab.m] +>>>>> /build/octave-image-2.12.0/inst/xyz2lab.m +***** assert (xyz2lab ([0, 0, 0]), [0 0 0], 5e-2) +***** assert (xyz2lab ([0.4125, 0.2127, 0.0193]), [53.24, 80.09, 67.20], 5e-2) +***** assert (xyz2lab ([0.7700, 0.9278, 0.1385]), [97.14, -21.55, 94.48], 5e-2) +***** assert (xyz2lab ([0.3576, 0.7152, 0.1192]), [87.74, -86.18, 83.18], 5e-2) +***** assert (xyz2lab ([0.5380, 0.7873, 1.0694]), [91.11, -48.09, -14.13], 5e-2) +***** assert (xyz2lab ([0.1804, 0.07217, 0.9502]), [32.30, 79.19, -107.86], 5e-2) +***** assert (xyz2lab ([0.5929, 0.28484, 0.9696]), [60.32, 98.24, -60.83], 5e-2) +***** assert (xyz2lab ([0.9505, 1.0000, 1.0888]), [100, 0.00, 0.00], 5e-2) +***** assert (xyz2lab ([0.2034, 0.2140, 0.2330]), [53.39, 0.00, 0.00], 5e-2) +***** assert (xyz2lab ([0.2155, 0.1111, 0.0101]), [39.77, 64.51, 54.13], 5e-2) +***** assert (xyz2lab ([0.0883, 0.0455, 0.0041]), [25.42, 47.91, 37.91], 5e-2) +***** assert (xyz2lab ([0.02094, 0.0108, 0.00098]), [9.66, 29.68, 15.24], 5e-2) +***** assert (xyz2lab ([0.5276, 0.3812, 0.2482]), [68.11, 48.39, 22.83], 5e-2) +***** assert (xyz2lab ([1.5 1 1]), [100, 82.15, 5.60], 5e-2) + xyz_map = rand (64, 3); + assert (lab2xyz (xyz2lab (xyz_map)), xyz_map, 1e-5); +***** test + xyz_img = rand (64, 64, 3); + assert (lab2xyz (xyz2lab (xyz_img)), xyz_img, 1e-5); +***** assert (xyz2lab (sparse ([0 0 0])), [0 0 0], 5e-2) +***** assert (class (xyz2lab (single([0.5 0.5 0.5]))), 'single') +***** error xyz2lab () +***** error xyz2lab (1,2) +***** error xyz2lab ({1}) +***** error xyz2lab (ones (2,2)) +***** test + xyz = rand (16, 16, 3, 5); + lab = zeros (size (xyz)); + for i = 1:5 + lab(:,:,:,i) = xyz2lab (xyz(:,:,:,i)); + endfor + assert (xyz2lab (xyz), lab) +22 tests, 22 passed, 0 known failure, 0 skipped +[inst/labelmatrix.m] +>>>>> /build/octave-image-2.12.0/inst/labelmatrix.m +***** test + cc = struct (); + cc.Connectivity = 8; + cc.ImageSize = [7 7]; + cc.NumObjects = 4; + cc.PixelIdxList = {[1;2], [5;7;12;13;14], [22;23], [26;32;33;36;37;38]}; + + l = uint8 ([ + 1 0 0 3 0 4 0 + 1 0 0 3 0 4 0 + 0 0 0 0 0 4 0 + 0 0 0 0 4 0 0 + 2 2 0 4 4 0 0 + 0 2 0 0 0 0 0 + 2 2 0 0 0 0 0 + ]); + assert (labelmatrix (cc), l) +1 test, 1 passed, 0 known failure, 0 skipped +[inst/imclearborder.m] +>>>>> /build/octave-image-2.12.0/inst/imclearborder.m +***** test + a = logical ([ + 0 1 0 0 1 0 0 0 0 1 + 1 0 0 0 0 1 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 1 0 1 0 1 0 1 0 0 1 + 0 0 0 0 0 0 0 1 1 0 + 0 0 1 0 0 1 0 1 0 0 + 0 1 0 1 0 1 1 0 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 1 0 1 1 0 0 0 + 0 0 0 1 1 0 0 0 1 0]); + + a4 = logical ([ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 1 0 0 0 0 + 0 1 0 0 0 0 0 0 0 0 + 0 0 1 0 1 0 1 0 0 0 + 0 0 0 0 0 0 0 1 1 0 + 0 0 1 0 0 1 0 1 0 0 + 0 1 0 0 0 1 1 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 1 1 0 0 0 + 0 0 0 0 0 0 0 0 0 0]); + + a8 = logical ([ + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0]); + + assert (imclearborder (a, 4), a4) + assert (imclearborder (a, [0 1 0; 1 1 1; 0 1 0]), a4) + assert (imclearborder (a), a8) + assert (imclearborder (a, 8), a8) + assert (imclearborder (a, ones (3)), a8) +***** test + a = false (5, 5, 3); + a(2:4,2:4,:) = true; + assert (imclearborder (a, 4), a) + + a(1,2) = true; + a4 = a; + a4(:,:,1) = false; + assert (imclearborder (a, 4), a4) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/colfilt.m] +>>>>> /build/octave-image-2.12.0/inst/colfilt.m +***** demo + ## Perform moving average filter with a 4x4 window + A = magic (12) + colfilt (A, [4 4], "sliding", @mean) +***** test + A = reshape (1:36, [6 6]); + assert (colfilt (A, [2 2], [3 3], "sliding", @sum), + conv2 (A, ones (2), "same")); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/im2single.m] +>>>>> /build/octave-image-2.12.0/inst/im2single.m +***** assert (im2single (single ([1 2 3])), single ([1 2 3])); +***** assert (im2single ([1 2 3]), single ([1 2 3])); +***** assert (im2single (uint8 ([0 127 128 255])), single ([0 127/255 128/255 1])); +***** assert (im2single (uint16 ([0 127 128 65535])), single ([0 127/65535 128/65535 1])); +***** assert (im2single (int16 ([-32768 -32767 -32766 32767])), single ([0 1/65535 2/65535 1])); +***** assert (im2single (uint8 ([0 1 255]), "indexed"), single ([1 2 256])); +***** assert (im2single (uint16 ([0 1 2557]), "indexed"), single ([1 2 2558])); +***** assert (im2single ([3 25], "indexed"), single ([3 25])); +***** error im2single ([0 1 2], "indexed"); +***** error im2single (int16 ([17 8]), "indexed"); +***** error im2single (int16 ([-7 8]), "indexed"); +***** error im2single ([false true], "indexed"); 12 tests, 12 passed, 0 known failure, 0 skipped +[inst/montage.m] +>>>>> /build/octave-image-2.12.0/inst/montage.m +***** function cdata = montage_cdata (varargin) + h = figure (); + set (h, "visible", "off"); + mh = montage (varargin{:}); + cdata = get (mh, "cdata"); + close (h); +***** endfunction +***** test + im = uint8 (ones (2, 2, 1, 5)) .* reshape ([1 2 3 4 5], [1 1 1 5]); + cdata = montage_cdata (im); + expected = uint8 ([ + 1 1 2 2 3 3 + 1 1 2 2 3 3 + 4 4 5 5 0 0 + 4 4 5 5 0 0 + ]); + assert (cdata, expected) +***** test + im = uint8 (ones (2, 4, 1, 6)) .* reshape ([1 2 3 4 5 6], [1 1 1 6]); + cdata = montage_cdata (im); + expected = uint8 ([ + 1 1 1 1 2 2 2 2 + 1 1 1 1 2 2 2 2 + 3 3 3 3 4 4 4 4 + 3 3 3 3 4 4 4 4 + 5 5 5 5 6 6 6 6 + 5 5 5 5 6 6 6 6 + ]); + assert (cdata, expected) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/imabsdiff.m] +>>>>> /build/octave-image-2.12.0/inst/imabsdiff.m +***** assert (imabsdiff (uint8 ([23 250]), uint8 ([26 50])), uint8 ([ 3 200])); # default to first class and abs works +***** assert (imabsdiff (uint8 ([23 250]), uint8 ([24 50]), "uint16"), uint16 ([ 1 200])); # defining output class works (not in matlab) +***** assert (imabsdiff (uint8 ([23 250]), uint8 ([24 255]), "int8"), int8 ([ 1 5])); # signed integers kinda work (not in matlab) +***** assert (imabsdiff (logical ([ 1 0]), logical ([ 1 1])), double ([ 0 1])); # return double for two logical images +***** fail ("imabsdiff (uint8 ([23 250]), 30"); # fails subtracting a scalar +***** fail ("imabsdiff (uint8 ([23 250]), uint16 ([23 250]))"); # input need to have same class +6 tests, 6 passed, 0 known failure, 0 skipped [inst/nlfilter.m] >>>>> /build/octave-image-2.12.0/inst/nlfilter.m ***** demo @@ -12520,6 +12196,677 @@ assert (nlfilter (a, [3 7 3 1 5], @(x) sort (x(:))(3)), ord) assert (nlfilter (a, [3 7 3 1 5], @(x, y) sort (x(:))(y), 3), ord) 11 tests, 11 passed, 0 known failure, 0 skipped +[inst/stdfilt.m] +>>>>> /build/octave-image-2.12.0/inst/stdfilt.m +***** test + im = stdfilt (ones (5)); + assert (im, zeros (5)) +***** test + A = zeros (3,3); + B = ones (3,3); + C = [1 1 1; 2 2 2; 3 3 3]; + D = C'; + E = ones (3,3); + E(2,2) = 2; + F = 3 .* ones (3,3); + F(2,2) = 1; + G = [-1 2 7; -5 2 8; -7 pi 9]; + H = [5 2 8; 1 -3 1; 5 1 0]; + A_out = [0 0 0; 0 0 0; 0 0 0]; + B_out = [0 0 0; 0 0 0; 0 0 0]; + C_out = repmat ([std([1 1 1 1 1 1 2 2 2]) + std([1 1 1 2 2 2 3 3 3]) + std([2 2 2 3 3 3 3 3 3])], [1 3]); + D_out = C_out'; + E_out = (1/3) .* ones (3,3); + F_out = (2/3) .* ones (3,3); + G_out = [std([-1 -1 2 -1 -1 2 -5 -5 2]), std([-1 2 7 -1 2 7 -5 2 8]), std([2 7 7 2 7 7 2 8 8]); + std([-1 -1 2 -5 -5 2 -7 -7 pi]), std([-1 2 7 -5 2 8 -7 pi 9]), std([2 7 7 2 8 8 pi 9 9]); + std([-5 -5 2 -7 -7 pi -7 -7 pi]), std([-5 2 8 -7 pi 9 -7 pi 9]), std([2 8 8 pi 9 9 pi 9 9])]; + H_out = [std([5 5 2 5 5 2 1 1 -3]), std([5 2 8 5 2 8 1 -3 1]), std([2 8 8 2 8 8 -3 1 1]); + std([5 5 2 1 1 -3 5 5 1]), std([5 2 8 1 -3 1 5 1 0]), std([2 8 8 -3 1 1 1 0 0]); + std([1 1 -3 5 5 1 5 5 1]), std([1 -3 1 5 1 0 5 1 0]), std([-3 1 1 1 0 0 1 0 0])]; + assert (stdfilt (A), A_out) + assert (stdfilt (B), B_out) + assert (stdfilt (C), C_out, 4*eps) + assert (stdfilt (D), D_out, 4*eps) + assert (stdfilt (E), E_out, 4*eps) + assert (stdfilt (F), F_out, 4*eps) + assert (stdfilt (G), G_out, 4*eps) + assert (stdfilt (H), H_out, 4*eps) + im = stdfilt (ones (5, 'logical')); + assert (im, zeros (5)) + im = stdfilt (ones (5, 'uint8')); + assert (im, zeros (5)) + assert (stdfilt (int8(H), H_out, 4*eps)) + assert (stdfilt (uint8(H), H_out, 4*eps)) + assert (stdfilt (int16(H), H_out, 4*eps)) + assert (stdfilt (uint16(H), H_out, 4*eps)) + assert (stdfilt (int32(H), H_out, 4*eps)) + assert (stdfilt (uint32(H), H_out, 4*eps)) + assert (stdfilt (int64(H), H_out, 4*eps)) + assert (stdfilt (uint64(H), H_out, 4*eps)) + assert (stdfilt (single(H), H_out, 4*eps)) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/houghpeaks.m] +>>>>> /build/octave-image-2.12.0/inst/houghpeaks.m +***** shared im1 + im1 = magic (5); +***** error houghpeaks () +***** error houghpeaks (1, 2, 3, 4, 5, 6, 7) +***** assert (houghpeaks (im1)) +***** assert (houghpeaks (im1, 2)) +***** assert (houghpeaks (im1, "Threshold", 10)) +***** assert (houghpeaks (im1, 2, "Threshold", 10)) +***** assert (houghpeaks (im1, "NHoodSize", [3 3])) +***** assert (houghpeaks (im1, 2, "NHoodSize", [3 3])) +***** assert (houghpeaks (im1, "Threshold", 10, "NHoodSize", [3 3])) +***** assert (houghpeaks (im1, "NHoodSize", [3 3], "Threshold", 10)) +***** assert (houghpeaks (im1, 2, "Threshold", 10, "NHoodSize", [3 3])) +***** assert (houghpeaks (im1, 2, "NHoodSize", [3 3], "Threshold", 10)) +***** error houghpeaks (ones (5, 5, 5)) +***** error houghpeaks ("hello") +***** error houghpeaks (im1, 1.5) +***** error houghpeaks (im1, -2) +***** error houghpeaks (im1, [1 1]) +***** error houghpeaks (im1, "Threshold", "hello") +***** error houghpeaks (im1, "Threshold", -2) +***** error houghpeaks (im1, "Threshold", [1 1]) +***** error houghpeaks (im1, "NHoodSize", [3 3 3]) +***** error houghpeaks (im1, "NHoodSize", "hello") +***** error houghpeaks (im1, "NHoodSize", [-3 -3]) +***** error houghpeaks (im1, "NHoodSize", [4 4]) +***** test + out = houghpeaks (im1); + assert (size (out), [1 2]) + assert (class (out), "double") +***** test + out = houghpeaks (im1, 3); + assert (size (out), [3 2]) +***** test + expected = [5 3; 1 2; 3 5; 1 5]; + assert (houghpeaks (im1, 4), expected) # this checks for undocumented nhood >=3 + assert (houghpeaks (im1, 4, "nhoodsize", [3,3]), expected) + assert (houghpeaks (im1, 4, "threshold", 10), expected) + assert (houghpeaks (im1, 4, "threshold", 24), expected(1:2,:)) +***** test + im2 = magic (7); + expected_a = [7 4; 1 3; 3 1; 5 6]; + expected_b = [7 4; 1 3; 4 7; 1 7]; + assert (houghpeaks (im2, 4), expected_a) + assert (houghpeaks (im2, 4, "nhoodsize", [5,5]), expected_b) + assert (houghpeaks (im2, 4, "threshold", 24), expected_a) + assert (houghpeaks (im2, 4, "threshold", 47), expected_a(1:2,:)) +***** test + im3 = magic (99); + expected_a = [99 50; 1 49; 3 47; 5 45; 7 43; 9 41; 11 39]; + expected_b = [99 50; 1 49; 7 43; 13 37; 19 31; 25 25; 31 19]; + expected_c = [99 50; 1 49; 2 48; 3 47; 4 46; 5 45; 6 44]; + assert (houghpeaks (im3, 7), expected_a) + assert (houghpeaks (im3, 7, "nhoodsize", [11 11]), expected_b) + assert (houghpeaks (im3, 7, "nhoodsize", [11 1]), expected_c) + assert (houghpeaks (im3, 7, "nhoodsize", [11 1]), expected_c) +***** test + im4 = double (im2uint16 (peaks ())); + expected_a = [37 15; 39 15; 41 15; 15 16; 17 16]; + expected_b = [37 15; 15 16; 26 21; 37 26; 20 32]; + expected_c = [37 15; 15 16; 35 16; 15 17; 35 17]; + expected_d = [37 15; 38 15; 39 15; 40 15; 41 15]; + assert (houghpeaks (im4, 5), expected_a) + assert (houghpeaks (im4, 5, "nhoodsize", [21 21]), expected_b) + assert (houghpeaks (im4, 5, "nhoodsize", [21 1]), expected_c) + assert (houghpeaks (im4, 5, "nhoodsize", [1 21]), expected_d) +***** test # tests use of anti-symmetry in H + im5 = zeros (6,4); im5(2,1) = 1; im5(5,4) = 2; + expected = [5 4; 2 1]; + assert (houghpeaks (im5, 2, "nhoodsize", [1 1]), expected); + assert (houghpeaks (im5, 2, "nhoodsize", [3 3]), expected(1,:)); +***** test #test use of anti-symmetry in the other direction + im6 = magic (100); + expected_a = [1 1; 100 99; 1 4; 100 95; 1 8; 100 91; 1 12]; + expected_b = [1 1; 100 95; 1 8; 100 87; 1 16; 100 79; 1 24]; + expected_c = [1 1; 100 99; 100 98; 1 4; 1 5; 100 95; 100 94]; + expected_d = expected_b; + assert (houghpeaks (im6, 7), expected_a) + assert (houghpeaks (im6, 7, "nhoodsize", [11 11]), expected_b) + assert (houghpeaks (im6, 7, "nhoodsize", [11 1]), expected_c) + assert (houghpeaks (im6, 7, "nhoodsize", [1 11]), expected_d) +***** test # test undocumented Matlab default value for nhoodsize + im = zeros (723, 180); + im(585,136) = 8; + im(593,135) = 7; + im(310,46) = 6; + expected = [585, 136; 310, 46]; + assert (houghpeaks (im, 2), expected) +***** test + I = max (0, phantom ()); + H = hough (I); + P0 = [585, 136; 310, 46; 595, 136; 522, 104; 373, 46]; + assert (houghpeaks (H, 5), P0) +***** demo + I = checkerboard (30, 1, 1); + I = imnoise(I, "salt & pepper", 0.2); + figure, imshow (I); + title ("noisy image with some lines"); + BW = edge (I, "canny"); + figure, imshow(BW); + title ("edge image"); + [H, theta, rho] = hough (BW); + figure, imshow (mat2gray (H), [],"XData",theta,"YData",rho); + title ("Hough transform of edge image \n 2 peaks marked"); + axis on; xlabel("theta [degrees]"); ylabel("rho [pixels]"); + peaks = houghpeaks (H, 2); + peaks_rho = rho(peaks(:,1)) + peaks_theta = theta(peaks(:,2)) + hold on; + plot(peaks_theta,peaks_rho,"sr"); + hold off; +34 tests, 34 passed, 0 known failure, 0 skipped +[inst/rgb2xyz.m] +>>>>> /build/octave-image-2.12.0/inst/rgb2xyz.m +***** assert (rgb2xyz ([0 0 0]), [0, 0, 0], 1e-3) +***** assert (rgb2xyz ([1 0 0]), [0.4125, 0.2127, 0.0193], 1e-3) +***** assert (rgb2xyz ([1 1 0]), [0.7700, 0.9278, 0.1385], 1e-3) +***** assert (rgb2xyz ([0 1 0]), [0.3576, 0.7152, 0.1192], 1e-3) +***** assert (rgb2xyz ([0 1 1]), [0.5380, 0.7873, 1.0694], 1e-3) +***** assert (rgb2xyz ([0 0 1]), [0.1804, 0.0722, 0.9502], 1e-3) +***** assert (rgb2xyz ([1 0 1]), [0.5929, 0.2848, 0.9696], 1e-3) +***** assert (rgb2xyz ([1 1 1]), [0.9505, 1.0000, 1.0888], 1e-3) +***** assert (rgb2xyz ([0.5 0.5 0.5]), [0.2034, 0.2140, 0.2330], 1e-3) +***** assert (rgb2xyz ([0.75 0 0]), [0.2155, 0.1111, 0.0101], 1e-3) +***** assert (rgb2xyz ([0.5 0 0]), [0.0883, 0.0455, 0.0041], 1e-3) +***** assert (rgb2xyz ([0.25 0 0]), [0.0210, 0.0108, 0.0010], 1e-3) +***** assert (rgb2xyz ([1 0.5 0.5]), [0.5276, 0.3812, 0.2482], 1e-3) +***** assert (rgb2xyz ([1.5 1 1]), [1.5845, 1.3269, 1.1185], 1e-3) +***** test + rgb_map = rand (64, 3); + assert (xyz2rgb (rgb2xyz (rgb_map)), rgb_map, 2e-5); +***** test + rgb_img = rand (64, 64, 3); + assert (xyz2rgb (rgb2xyz (rgb_img)), rgb_img, 2e-5); +***** assert (rgb2xyz (sparse ([0 0 0])), [0 0 0], 1e-3) +***** assert (rgb2xyz (sparse ([0 0 1])), [0.1804, 0.0722, 0.9502], 1e-3) +***** assert (rgb2xyz (uint8([255 255 255])), [0.9505, 1.0000, 1.0888], 1e-3) +***** assert (class (rgb2xyz (single([1 1 1]))), 'single') +***** error rgb2xyz () +***** error rgb2xyz (1,2) +***** error rgb2xyz ({1}) +***** error rgb2xyz (ones (2,2)) +***** test + rgb = rand (16, 16, 3, 5); + xyz = zeros (size (rgb)); + for i = 1:5 + xyz(:,:,:,i) = rgb2xyz (rgb(:,:,:,i)); + endfor + assert (rgb2xyz (rgb), xyz) +25 tests, 25 passed, 0 known failure, 0 skipped +[inst/normxcorr2.m] +>>>>> /build/octave-image-2.12.0/inst/normxcorr2.m +***** function offsets = get_max_offsets (c) + l = find (c == max (c(:))); + offsets = nthargout (1:ndims (c), @ind2sub, size (c), l); +***** endfunction +***** test + row_shift = 18; + col_shift = 20; + a = randi (255, 30, 30); + b = a(row_shift-10:row_shift, col_shift-7:col_shift); + c = normxcorr2 (b, a); + ## should return exact coordinates + assert (get_max_offsets (c), {row_shift col_shift}); + + ## Even with some small noise, should return exact coordinates + b = imnoise (b, "gaussian"); + c = normxcorr2 (b, a); + assert (get_max_offsets (c), {row_shift col_shift}); +***** xtest + a = rand (10, 10); + c = normxcorr2 (a(5:7, 6:9), a); + assert (c(7, 9), 1, eps*100); +***** test + a = 10 * randn (100, 100); + auto = normxcorr2 (a, a); + add_in = normxcorr2 (a, -a); + assert (auto, -add_in); +***** test + a = 10 * randn (50, 50); + b = 10 * randn (100, 100); + do + scale = 100 * rand (); + until (scale != 0) + + assert (max ((normxcorr2 (scale*a,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); + assert (max ((normxcorr2 (a,scale*b) .- normxcorr2 (a,b))(:)), 0, 1e-10); + + a_shift1 = a .+ scale * ones (size (a)); + b_shift1 = b .+ scale * ones (size (b)); + a_shift2 = a .- scale * ones (size (a)); + b_shift2 = b .- scale * ones (size (b)); + assert (max ((normxcorr2 (a_shift1,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); + assert (max ((normxcorr2 (a,b_shift1) .- normxcorr2 (a,b))(:)), 0, 1e-10); + assert (max ((normxcorr2 (a_shift2,b) .- normxcorr2 (a,b))(:)), 0, 1e-10); + assert (max ((normxcorr2 (a,b_shift2) .- normxcorr2 (a,b))(:)), 0, 1e-10); +***** test + a = randi (100, 15, 15, 15); + c = normxcorr2 (a(5:10, 2:6, 3:7), a); + assert (get_max_offsets (c), {10 6 7}); + + a = randi (100, 15, 15, 15); + c = normxcorr2 (a(5:10, 2:6, 1:1), a); + assert (get_max_offsets (c), {10 6 1}); +***** warning normxcorr2 (rand (20), rand (5)); +***** error normxcorr2 (rand (5)); +***** error normxcorr2 (rand (5), rand (20), 2); +***** test + a = [ 252 168 50 1 59; + 114 0 0 0 0] ./ 255; + b = [ 1 171 255 255 255 255 240 71 131 254 255 255 255; + 0 109 254 255 255 233 59 0 131 254 255 255 255; + 76 13 195 253 194 34 0 19 217 255 255 255 255; + 110 0 0 0 0 0 3 181 255 255 255 255 255; + 153 0 0 0 0 2 154 254 255 255 255 255 255]./255; + c = normxcorr2 (a, b); + assert (max (imag (c(:))), 0); +***** test + img = [1 1 1 0]; + t = [1 1 0]; + c = normxcorr2 (t, img); + assert (c(3), 0) +10 tests, 10 passed, 0 known failure, 0 skipped +[inst/otsuthresh.m] +>>>>> /build/octave-image-2.12.0/inst/otsuthresh.m +***** test + histo = zeros (1, 256); + histo([ 29 33 37 41 46 50 54 58 62 66 70 74 78 82 ... + 86 90 94 98 102 106 110 114 118 122 126 131 135 139 ... + 143 147 151 155 159 163 167 171 175 179 183 187 191 195 ... + 199 203 207 211 216 220 224 228 232 236 240 244 248 252]) = ... + [2 27 51 144 132 108 43 29 22 21 22 20 10 16 17 12 13 14 12 13 ... + 15 25 19 20 23 37 23 65 92 84 87 54 50 54 33 73 76 64 57 58 47 ... + 48 30 27 22 20 20 11 12 12 11 7 17 31 37 31]; + assert (otsuthresh (histo), 114.5/255) +***** test + I = max (phantom (), 0); + H = imhist (I); + assert (otsuthresh (H), 178/255) + assert (otsuthresh (H'), 178/255) + H = imhist (I, 10); + assert (otsuthresh (H), 170/255) +***** assert (otsuthresh (100), 0) +***** assert (otsuthresh (zeros (256, 1)), 0) +***** assert (otsuthresh (zeros (5, 1)), 0) +***** assert (otsuthresh (uint8 ([10 20 30])), 0.5) +***** assert (otsuthresh (int32 ([100 200 300])), 0.5) +***** assert (otsuthresh (int32 ([100 200])), 0) +***** assert (otsuthresh (single ([10 20 30 40])), 1/3); +***** assert (otsuthresh (uint16 ([10 20 30 40 50 60 70 80 90 100])), 5/9) +***** assert (otsuthresh (int16 ([10 20 30 40 50 60 70 80 90 100])), 5/9) +***** assert (otsuthresh (int16 (1:255)), 156/254) +***** assert (otsuthresh (int16 (1:1023)), 631/1022) +***** assert (otsuthresh (int8 (1:1023)), 541/1022) +***** test + warning ("off", "Octave:data-file-in-path", "local"); + S = load ("penny.mat"); + h = imhist (uint8 (S.P)); + assert (otsuthresh (h), 94/255); +***** test + I = max (phantom (), 0); + h = imhist (I, 5); + assert (otsuthresh (h), 0.625); +***** error id=Octave:invalid-fun-call otsuthresh () +***** error id=Octave:invalid-fun-call otsuthresh (ones (10), 5) +***** error otsuthresh ([]) +***** error otsuthresh ([Inf 10]) +***** error otsuthresh ([10 NA]) +***** error otsuthresh ([10 NaN]) +***** error otsuthresh (zeros (5)) +***** error otsuthresh ([10 -10]) +***** error otsuthresh ("foo") +***** demo + I = max (phantom (), 0); + figure; imshow (I); + title ("Original image"); + h = imhist (I); + t = otsuthresh (h); + J = im2bw (I); + figure; imshow (J); + title_line = sprintf ("Black and white image after thresholding, t=%g", + t*255); + title (title_line); +***** demo + warning ("off", "Octave:data-file-in-path", "local"); + S = load ("penny.mat"); + I = uint8 (S.P); + figure; imshow (I); + title ("Original penny image"); + h = imhist (I); + t = otsuthresh (h); + J = im2bw (I); + figure; imshow (J); + title_line = sprintf ("Black and white penny image after thresholding, t=%g", + t*255); + title (title_line); + I = 255 - I; + figure; imshow(I); + title ("Negative penny image"); + h = imhist (I); + t = otsuthresh (h); + J = im2bw (I); + figure; imshow (J); + title_line = sprintf ("Black and white negative penny image after thresholding, t=%g", + t*255); + title (title_line); +25 tests, 25 passed, 0 known failure, 0 skipped +[inst/xyz2rgb.m] +>>>>> /build/octave-image-2.12.0/inst/xyz2rgb.m +***** assert (xyz2rgb ([0, 0, 0]), [0 0 0], 1e-3) +***** assert (xyz2rgb ([0.4125, 0.2127, 0.0193]), [1 0 0], 1e-3) +***** assert (xyz2rgb ([0.7700, 0.9278, 0.1385]), [1 1 0], 1e-3) +***** assert (xyz2rgb ([0.3576, 0.7152, 0.1192]), [0 1 0], 1e-3) +***** assert (xyz2rgb ([0.5380, 0.7873, 1.0694]), [0 1 1], 1e-3) +***** assert (xyz2rgb ([0.1804, 0.07217, 0.9502]), [0 0 1], 1e-3) +***** assert (xyz2rgb ([0.5929, 0.28484, 0.9696]), [1 0 1], 1e-3) +***** assert (xyz2rgb ([0.9505, 1.0000, 1.0888]), [1 1 1], 1e-3) +***** assert (xyz2rgb ([0.2034, 0.2140, 0.2330]), [0.5 0.5 0.5], 1e-3) +***** assert (xyz2rgb ([0.2155, 0.1111, 0.0101]), [0.75 0 0], 1e-3) +***** assert (xyz2rgb ([0.0883, 0.0455, 0.0041]), [0.5 0 0], 1e-3) +***** assert (xyz2rgb ([0.0210, 0.0108, 0.0010]), [0.25 0 0], 1e-3) +***** assert (xyz2rgb ([0.5276, 0.3812, 0.2482]), [1 0.5 0.5], 1e-3) +***** assert (xyz2rgb ([1.5 1 1]), [1.5712, 0.7109 0.9717], 1e-3) +***** test + xyz_map = rand (64, 3); + assert (rgb2xyz (xyz2rgb (xyz_map)), xyz_map, 3e-4); +***** test + xyz_img = rand (64, 64, 3); + assert (rgb2xyz (xyz2rgb (xyz_img)), xyz_img, 3e-4); +***** assert (xyz2rgb (sparse ([0 0 0])), [0 0 0], 1e-3) +***** assert (class (xyz2rgb (single([0.5 0.5 0.5]))), 'single') +***** error xyz2rgb () +***** error xyz2rgb (1,2) +***** error xyz2rgb ({1}) +***** error xyz2rgb (ones (2,2)) +***** test + xyz = rand (16, 16, 3, 5); + rgb = zeros (size (xyz)); + for i = 1:5 + rgb(:,:,:,i) = xyz2rgb (xyz(:,:,:,i)); + endfor + assert (xyz2rgb (xyz), rgb) +23 tests, 23 passed, 0 known failure, 0 skipped +[inst/imtophat.m] +>>>>> /build/octave-image-2.12.0/inst/imtophat.m +***** assert (imtophat (ones (3), [1 1; 0 1]), zeros (3)); +***** assert (imtophat (true (3), [1 1; 0 1]), false (3)); +***** shared in, out, se + in = [ 0 0 0 1 1 1 0 0 1 1 + 0 1 0 1 1 1 0 0 0 1 + 1 1 1 1 1 0 0 0 0 0 + 0 1 1 1 1 0 0 0 0 0 + 0 0 0 1 0 0 0 0 1 0 + 0 0 0 0 0 0 0 1 1 1 + 0 0 0 0 1 0 1 0 1 0 + 0 0 0 1 1 1 1 1 0 0 + 0 0 0 0 1 1 1 0 0 0 + 0 0 0 1 1 1 0 0 0 0]; + + out = [ 0 0 0 0 0 0 0 0 1 1 + 0 1 0 0 0 0 0 0 0 1 + 1 1 1 1 1 0 0 0 0 0 + 0 1 1 1 1 0 0 0 0 0 + 0 0 0 1 0 0 0 0 1 0 + 0 0 0 0 0 0 0 1 1 1 + 0 0 0 0 1 0 1 0 1 0 + 0 0 0 1 1 1 1 1 0 0 + 0 0 0 0 1 1 1 0 0 0 + 0 0 0 1 1 1 0 0 0 0]; +***** assert (imtophat (logical (in), ones (3)), logical (out)); + + out = [12 19 0 0 0 16 23 0 7 0 + 18 0 0 6 1 19 0 2 9 1 + 0 74 81 12 7 0 1 8 15 7 + 68 70 2 14 0 6 7 14 16 0 + 69 76 8 0 0 7 14 21 0 1 + 0 7 59 54 61 13 20 0 0 32 + 18 0 69 60 62 19 0 0 0 27 + 73 0 0 66 68 0 1 6 6 33 + 0 0 17 19 1 0 2 9 7 14 + 1 6 23 0 7 1 8 15 0 32]; +***** assert (imtophat (magic (10), ones (3)), out); +***** assert (imtophat (uint8 (magic (10)), strel ("square", 3)), uint8 (out)); + + ## using a se that will be decomposed in 2 pieces + out =[91 98 0 0 0 27 34 11 18 0 + 94 76 3 6 1 33 15 17 24 1 + 0 77 84 12 7 14 16 23 30 7 + 80 82 14 18 0 32 34 41 43 0 + 81 88 20 0 0 33 40 47 24 6 + 12 19 63 57 64 16 23 0 7 39 + 18 0 69 60 62 19 1 3 12 39 + 73 0 0 66 68 0 2 9 18 45 + 4 6 81 67 49 6 8 15 19 26 + 5 12 87 48 55 7 14 21 0 32]; +***** assert (imtophat (magic (10), ones(5)), out); + + ## using a weird non-symmetric and even-size se + out =[85 92 0 0 0 12 23 0 17 0 + 91 73 0 6 0 18 0 2 13 0 + 0 72 81 13 6 0 1 9 15 0 + 60 62 10 12 0 8 8 17 17 0 + 61 69 0 0 0 28 16 41 0 0 + 0 0 47 52 61 12 16 0 0 31 + 6 0 53 58 60 17 0 0 0 33 + 69 0 0 60 62 0 0 6 0 33 + 0 0 17 60 42 0 2 13 1 8 + 0 6 23 0 7 0 7 15 0 14]; +***** assert (imtophat (magic (10), [1 0 0 0; 1 1 1 0; 0 1 0 1]), out); + + ## N dimensional and weird se + in = reshape (magic(16), [4 8 4 2]); + se = ones (3, 3, 3); + se(:,:,1) = [1 0 1; 0 1 1; 0 0 0]; + se(:,:,3) = [1 0 1; 0 1 1; 0 0 1]; + out = zeros (size (in)); + out(:,:,1,1) = [ + 239 146 82 18 0 19 83 133 + 0 35 99 163 219 128 64 0 + 0 46 128 195 187 123 59 0 + 157 93 47 0 14 78 142 211]; + out(:,:,2,1) = [ + 0 21 85 149 233 146 64 0 + 205 128 64 0 0 41 87 151 + 171 107 57 0 0 64 121 185 + 0 64 142 213 169 105 41 0]; + out(:,:,3,1) = [ + 231 146 78 14 0 27 77 137 + 0 43 107 167 211 128 64 0 + 0 46 128 199 179 119 51 0 + 149 85 39 0 18 78 142 219]; + out(:,:,4,1) = [ + 0 29 93 157 225 128 64 0 + 197 128 64 0 0 31 95 159 + 163 99 53 0 0 61 125 189 + 0 64 146 221 161 97 33 0]; + out(:,:,1,2) = [ + 223 146 82 18 0 35 99 149 + 0 48 115 179 203 128 64 0 + 0 46 128 211 171 107 43 0 + 141 77 31 0 14 78 142 227]; + out(:,:,2,2) = [ + 0 37 101 165 217 146 64 0 + 189 125 64 0 0 57 103 167 + 155 91 41 0 0 64 128 201 + 0 64 142 229 153 89 25 0]; + out(:,:,3,2) = [ + 215 146 78 14 0 43 93 153 + 0 48 123 183 195 128 64 0 + 0 46 128 215 163 103 35 0 + 133 69 23 0 18 78 142 235]; + out(:,:,4,2) = [ + 0 45 109 173 209 128 64 0 + 181 117 64 0 0 47 111 175 + 147 83 37 0 0 64 128 205 + 0 64 146 237 145 81 17 0]; +***** assert (imtophat (in, se), out); +8 tests, 8 passed, 0 known failure, 0 skipped +[inst/stretchlim.m] +>>>>> /build/octave-image-2.12.0/inst/stretchlim.m +***** error (stretchlim ()); +***** error (stretchlim ("bad parameter")); +***** error (stretchlim (zeros (10, 10), "bad parameter")); +***** error (stretchlim (zeros (10, 10), 0.01, 2)); +***** assert (stretchlim (0.01:.01:1), [0.02; 0.99]) +***** assert (stretchlim (0.01:.01:1), stretchlim (0.01:.01:1, [0.01 0.99])) +***** assert (stretchlim (0.01:.01:1, 0.15), stretchlim (0.01:.01:1, [0.15 0.85])) +***** assert (stretchlim (0.01:.01:1, [0.01,0.95]), [0.02; 0.95], eps) +***** assert (stretchlim (0.01:.01:1, 0), [0.01; 1]) +***** test + im = rand (5); + assert (stretchlim (im, 0), [min(im(:)); max(im(:))]) +***** test + im = rand (5, 5, 3); + assert (stretchlim (im, 0), + [min(im(:,:,1)(:)) min(im(:,:,2)(:)) min(im(:,:,3)(:)); + max(im(:,:,1)(:)) max(im(:,:,2)(:)) max(im(:,:,3)(:))]) +***** test + im = rand (5); + assert (stretchlim (im, 0.03), [min(im(:)); max(im(:))]) + assert (stretchlim (im, 0.0399), [min(im(:)); max(im(:))]) +***** assert (stretchlim (uint8 (1:100)), im2double (uint8 ([2; 99]))) +***** assert (stretchlim (uint8 (1:100), .25), im2double (uint8 ([26; 75]))) +***** assert (stretchlim (uint16 (1:1000)), im2double (uint16 ([11; 990]))) +***** assert (stretchlim (int16 (-100:100)), im2double (int16 ([-98; 98]))) +***** assert (stretchlim (single (0.01:.01:1)), + double (single (0.01:.01:1)([2; 99])).') +***** assert (stretchlim (uint8 ([1 repmat(2, [1, 90]) 92:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 4]) 6:100]), 0.05), + im2double (uint8 ([6; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) 7:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 6]) 8:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 7]) 9:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 8]) 10:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.04), + im2double (uint8 ([2; 96]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.05), + im2double (uint8 ([2; 95]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.06), + im2double (uint8 ([3; 94]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.07), + im2double (uint8 ([3; 93]))) +***** assert (stretchlim (uint8 ([1 repmat(2, [1 5]) repmat(3, [1 5]) 9:100]), 0.08), + im2double (uint8 ([3; 92]))) +***** test + RGB = zeros (100, 1, 3, "uint16"); + RGB(:,:,1) = [1:1:100]; + RGB(:,:,2) = [2:2:200]; + RGB(:,:,3) = [4:4:400]; + assert (stretchlim (RGB) , im2double (uint16 ([2 4 8; 99 198 396]))) +***** test + im6c = zeros (100, 1, 6, "uint16"); + im6c(:,:,1) = [1:1:100]; + im6c(:,:,2) = [2:2:200]; + im6c(:,:,3) = [4:4:400]; + im6c(:,:,4) = [8:8:800]; + im6c(:,:,5) = [16:16:1600]; + im6c(:,:,6) = [32:32:3200]; + assert (stretchlim (im6c) , + im2double (uint16 ([2 4 8 16 32 64; 99 198 396 792 1584 3168]))) +***** test + im = [0 0 .1 .1 .1 .1 .2 .2 .2 .4 .4 .6 .6 .7 .7 .9 .9 .9 1 1]; + + assert (stretchlim (im), [0; 1]) + + ## Consider the returned lower limit in this test. A lower limit + ## of 0.1 will saturate two elements (10%), while 0.2 will saturate + ## 6 elements (30%). Both have the same distance to 20% but returning + ## 0.1 is Matlab compatible. + ## Now looking at the higher limit. A limit of .9 will saturate + ## 2 elements (10%), while a limit of 0.7 will saturate 5 elements (25%). + ## However, for Matlab compatibility we must return .9 even though + ## 25% would be closer to 20%. + ## Basically, it's not just rounded. + assert (stretchlim (im, .2), [0.1; 0.9]) + + assert (stretchlim (im, .15), [0.1; 0.9]) + assert (stretchlim (im, .1), [0.1; 0.9]) + assert (stretchlim (im, .25), [0.1; 0.7]) + + ## Reorder the vector of values (real images don't have the values + ## already sorted), just to be sure it all works. + im([6 3 16 11 7 17 14 8 5 19 15 1 2 4 18 13 9 20 10 12]) = im; + assert (stretchlim (im, .2), [0.1; 0.9]) + assert (stretchlim (im, .15), [0.1; 0.9]) + assert (stretchlim (im, .1), [0.1; 0.9]) + assert (stretchlim (im, .25), [0.1; 0.7]) +***** assert (stretchlim (0.01:.001:1), [0.019; 0.991], eps) +***** assert (stretchlim (0.01:.001:1, [0.01,0.95]), [0.019; 0.951], eps) +***** assert (stretchlim (0.01:.001:1, 0), [0.01; 1]) +***** assert (stretchlim (single (0.01:.001:1)), + double (single (0.01:.001:1)([10; 982])).') +***** xtest + assert (stretchlim ([(.05:.05:1) (2:4)], 0.2), [0.25; 0.95], eps) + assert (stretchlim ([(.05:.05:1) (2:5)], 0.2), [0.25; 1]) + assert (stretchlim ([(.05:.05:1) (2:6)], 0.2), [0.3; 1]) + assert (stretchlim ([(.05:.05:1) (2:7)], 0.2), [0.3; 1]) +!!!!! known failure +ASSERT errors for: assert (stretchlim ([(.05:.05:1), (2:6)], 0.2),[0.3; 1]) + + Location | Observed | Expected | Reason + (1) 0.3 0.3 Abs err 5.5511e-17 exceeds tol 0 by 6e-17 +***** test + assert (stretchlim ([(-6:0) (.05:.05:1)], 0.2), [0; 0.75], eps) + assert (stretchlim ([(-5:0) (.05:.05:1)], 0.2), [0; 0.75], eps) +***** test + im = rand (4, 4, 2, 3, 2); + rv = zeros (2, 2, 3, 2); + for p = 1:2 + for q = 1:3 + for r = 1:2 + rv(:,p,q,r) = stretchlim (im(:,:,p,q,r), 0.25); + endfor + endfor + endfor + assert (stretchlim (im, 0.25), rv) +***** test + im = rand (4, 4, 2, 3, 2); + rv = zeros (2, 2, 3, 2); + for p = 1:2 + for q = 1:3 + for r = 1:2 + rv(:,p,q,r) = stretchlim (im(:,:,p,q,r), 0); + endfor + endfor + endfor + assert (stretchlim (im, 0), rv) +***** assert (stretchlim (zeros (5)), [0; 1]) +***** assert (stretchlim (ones (5)), [0; 1]) +***** assert (stretchlim (.6 * ones (5)), [0; 1]) +***** assert (stretchlim (zeros (3, 3, 3, 3)), repmat ([0; 1], [1 3 3])) +***** assert (stretchlim ([0 .5 .5 .5 .5 1], .2), [0; 1]) +***** test + im = repmat ((magic (5) -1) / 24, [1 1 3 3]); + im(:,:,1,1) = 0; + im(:,:,2,2) = .5; + im(:,:,3,3) = 1; + lims = stretchlim (im, 0.2); + assert (size (lims), [2 3 3]) + assert (lims(:, [2 3 4 6 7 8]), + repmat ([(1/24)*round(24*.2); 1-((1/24)*round(24*.2))], [1 6]), eps) + assert (lims(:, [1 5 9]), repmat ([0; 1], [1 3])) +45 tests, 44 passed, 1 known failure, 0 skipped +[inst/imdivide.m] +>>>>> /build/octave-image-2.12.0/inst/imdivide.m +***** assert (imdivide (uint8 ([23 250]), uint8 ([ 2 50])), uint8 ([ 12 5])); # default to first class +***** assert (imdivide (uint8 ([56 255]), uint8 ([ 0 0])), uint8 ([255 255])); # dividing by zero works (tested in matlab) +***** assert (imdivide (uint8 ([23 250]), 2), uint8 ([ 12 125])); # works subtracting a scalar +***** assert (imdivide (uint8 ([23 250]), uint8 ([ 2 50]), "uint16"), uint16 ([ 12 5])); # defining output class works (not in matlab) +***** assert (imdivide (logical ([1 1 0 0]), logical ([1 0 1 0])), double ([1 Inf 0 NaN])); # dividing logical matrix (tested in matlab) +***** fail ("imdivide (uint8 ([23 250]), uint16 ([23 250]))"); # input needs to have same class +6 tests, 6 passed, 0 known failure, 0 skipped [inst/imfill.m] >>>>> /build/octave-image-2.12.0/inst/imfill.m ***** test @@ -12741,570 +13088,114 @@ assert (imfill (cat (3, im, im, im), [3 3 2; 3 5 2]), cat (3, fi, fi, fi)) assert (imfill (cat (3, emp, im, emp), [3 3 2]), true (5, 6, 3)) 21 tests, 21 passed, 0 known failure, 0 skipped -[inst/lab2uint16.m] ->>>>> /build/octave-image-2.12.0/inst/lab2uint16.m -***** test - cm_uint16 = uint16 ([0 127 128 383 384 65151 65152 65279 65280 65281 65534 65535]); - cm_uint16 = repmat (cm_uint16(:), [1 3]); - im2d_uint16 = reshape (cm_uint16, [4 3 3]); - imnd_uint16 = permute (im2d_uint16, [1 4 3 2]); - - cm_uint8 = uint8 ([0 0 1 1 2 254 255 255 255 255 255 255]); - cm_uint8 = repmat (cm_uint8(:), [1 3]); - assert (lab2uint8 (cm_uint16), cm_uint8) - im2d_uint8 = reshape (cm_uint8, [4 3 3]); - assert (lab2uint8 (im2d_uint16), im2d_uint8) - assert (lab2uint8 (imnd_uint16), permute (im2d_uint8, [1 4 3 2])) - - l1 = 100/65280; - ab1 = 255/65280; - cm = [ - 0 -128 - 127*l1 -128+(ab1*127) - 128*l1 -128+(ab1*128) - 383*l1 -128+(ab1*383) - 384*l1 -128+(ab1*384) - 65151*l1 -128+(ab1*65151) - 65152*l1 -128+(ab1*65152) - 65279*l1 -128+(ab1*65279) - 100 127 - 65281*l1 -128+(ab1*65281) - 65534*l1 -128+(ab1*65534) - 65535*l1 -128+(ab1*65535)]; - cm(:,3) = cm(:,2); - im2d = reshape (cm, [4 3 3]); - imnd = permute (im2d, [1 4 3 2]); - - assert (lab2double (cm_uint16), cm) - assert (lab2double (im2d_uint16), im2d) - assert (lab2double (imnd_uint16), imnd) - - assert (lab2single (cm_uint16), single (cm)) - assert (lab2single (im2d_uint16), single (im2d)) - assert (lab2single (imnd_uint16), single (imnd)) -1 test, 1 passed, 0 known failure, 0 skipped -[inst/psf2otf.m] ->>>>> /build/octave-image-2.12.0/inst/psf2otf.m -***** test - psf = rand (6, 1); - assert (psf2otf (psf), fft (circshift (psf, [-3])), eps); -***** test - psf = rand (6, 6); - assert (psf2otf (psf), fft2 (circshift (psf, [-3 -3])), eps); -***** test - psf = rand (6, 6, 6); - assert (psf2otf (psf), fftn (circshift (psf, [-3 -3 -3])), eps); -***** test - psf = rand (7, 1); - assert (psf2otf (psf), fft (circshift (psf, [-3])), eps); -***** test - psf = rand (7, 7); - assert (psf2otf (psf), fft2 (circshift (psf, [-3 -3])), eps); -***** test - psf = rand (6, 7, 8); - assert (psf2otf (psf), fftn (circshift (psf, [-3 -3 -4])), eps); -***** test - psf = rand (6, 1); - ppsf = [psf; 0]; - assert (psf2otf (psf, 7), fft (circshift (ppsf, [-3])), eps); -***** test - psf = rand (6, 1); - ppsf = [[psf; 0] zeros(7, 6)]; - assert (psf2otf (psf, [7 7]), fft2 (circshift (ppsf, [-3 0])), eps); -***** test - psf = rand (6, 6); - ppsf = [psf zeros(6, 1)]; - assert (psf2otf (psf, [6 7]), fft2 (circshift (ppsf, [-3 -3])), eps); -***** error psf2otf (complex (rand (16), rand (16))) -***** error psf2otf (rand (16), 14) -***** error psf2otf (rand (16), [14 14]) -***** error psf2otf (rand (16), [18]) -***** error psf2otf (rand (16), [18 14]) -14 tests, 14 passed, 0 known failure, 0 skipped -[inst/rgb2xyz.m] ->>>>> /build/octave-image-2.12.0/inst/rgb2xyz.m -***** assert (rgb2xyz ([0 0 0]), [0, 0, 0], 1e-3) -***** assert (rgb2xyz ([1 0 0]), [0.4125, 0.2127, 0.0193], 1e-3) -***** assert (rgb2xyz ([1 1 0]), [0.7700, 0.9278, 0.1385], 1e-3) -***** assert (rgb2xyz ([0 1 0]), [0.3576, 0.7152, 0.1192], 1e-3) -***** assert (rgb2xyz ([0 1 1]), [0.5380, 0.7873, 1.0694], 1e-3) -***** assert (rgb2xyz ([0 0 1]), [0.1804, 0.0722, 0.9502], 1e-3) -***** assert (rgb2xyz ([1 0 1]), [0.5929, 0.2848, 0.9696], 1e-3) -***** assert (rgb2xyz ([1 1 1]), [0.9505, 1.0000, 1.0888], 1e-3) -***** assert (rgb2xyz ([0.5 0.5 0.5]), [0.2034, 0.2140, 0.2330], 1e-3) -***** assert (rgb2xyz ([0.75 0 0]), [0.2155, 0.1111, 0.0101], 1e-3) -***** assert (rgb2xyz ([0.5 0 0]), [0.0883, 0.0455, 0.0041], 1e-3) -***** assert (rgb2xyz ([0.25 0 0]), [0.0210, 0.0108, 0.0010], 1e-3) -***** assert (rgb2xyz ([1 0.5 0.5]), [0.5276, 0.3812, 0.2482], 1e-3) -***** assert (rgb2xyz ([1.5 1 1]), [1.5845, 1.3269, 1.1185], 1e-3) -***** test - rgb_map = rand (64, 3); - assert (xyz2rgb (rgb2xyz (rgb_map)), rgb_map, 2e-5); -***** test - rgb_img = rand (64, 64, 3); - assert (xyz2rgb (rgb2xyz (rgb_img)), rgb_img, 2e-5); -***** assert (rgb2xyz (sparse ([0 0 0])), [0 0 0], 1e-3) -***** assert (rgb2xyz (sparse ([0 0 1])), [0.1804, 0.0722, 0.9502], 1e-3) -***** assert (rgb2xyz (uint8([255 255 255])), [0.9505, 1.0000, 1.0888], 1e-3) -***** assert (class (rgb2xyz (single([1 1 1]))), 'single') -***** error rgb2xyz () -***** error rgb2xyz (1,2) -***** error rgb2xyz ({1}) -***** error rgb2xyz (ones (2,2)) -***** test - rgb = rand (16, 16, 3, 5); - xyz = zeros (size (rgb)); - for i = 1:5 - xyz(:,:,:,i) = rgb2xyz (rgb(:,:,:,i)); - endfor - assert (rgb2xyz (rgb), xyz) -25 tests, 25 passed, 0 known failure, 0 skipped -[inst/imhmax.m] ->>>>> /build/octave-image-2.12.0/inst/imhmax.m -***** shared im0, im0_h2_out - im0 = uint8 ([0 0 0 0 0; - 0 1 2 1 0; - 0 2 5 2 0; - 0 1 2 1 0; - 0 0 0 0 0]); - im0_h2_out = uint8 ([0 0 0 0 0; - 0 1 2 1 0; - 0 2 3 2 0; - 0 1 2 1 0; - 0 0 0 0 0]); -***** error imhmax () -***** error imhmax (im0) -***** error imhmax ("hello", 2) -***** error imhmax (i.*im0, 2) -***** error imhmax (sparse (im0), 2) -***** error imhmax (im0, -2) -***** error imhmax (im0, 'a') -***** error imhmax (im0, ones (2)) -***** error imhmax (im0, 2*i) -***** assert (imhmax (im0, 2), im0_h2_out) -***** assert (imhmax (double (im0), 2), double (im0_h2_out)) -***** assert (imhmax (im0, 2, 8), im0_h2_out) -***** assert (imhmax (im0, 2, 4), im0_h2_out) -***** assert (imhmax (im0, 2, true (3)), im0_h2_out) -***** test - out = imhmax (double (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "double") -***** test - out = imhmax (single (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "single") -***** test - out = imhmax (uint8 (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "uint8") -***** test - out = imhmax (uint16 (im0), 2); - assert (size (out), size (im0)) - assert (class (out), "uint16") -***** test - im = cat (3, im0, im0, im0, im0); - out = imhmax (im, 2); - assert (size (out), size (im)) -***** test - im = zeros (10); - im(2:4, 2:4) = 3; - im(6:8, 6:8) = 8; - expected_4 = zeros (10); - expected_4(6:8, 6:8) = 4; - expected_2 = zeros (10); - expected_2(2:4, 2:4) = 1; - expected_2(6:8, 6:8) = 6; - out = imhmax (im, 4); - assert (out, expected_4, eps) - out = imhmax (im, 2); - assert (out, expected_2, eps) - out = imhmax (0.1 .* im, 0.4); - assert (out, 0.1 .* expected_4, eps) -***** test - im2 = zeros (10); - im2(2:4, 2:4) = 3; - im2(6:9, 6:9)=8; - im2(5, 5)=8; - im2(6, 7)=0; - im2(7, 8)=0; - expected_4 = zeros (10); - expected_4(6:9, 6:9) = 4; - expected_4(5, 5) = 4; - expected_4(6, 7) = 0; - expected_4(7, 8) = 0; - expected_8 = expected_4; - expected_8(2:4, 2:4) = 3; - out2 = imhmax (im2, 4); - assert (out2, expected_8, eps) - out2 = imhmax (im2, 4, 4); - assert (out2, expected_4, eps) - out2 = imhmax (im2, 4, 8); - assert (out2, expected_8, eps) -21 tests, 21 passed, 0 known failure, 0 skipped -[inst/ycbcr2rgb.m] ->>>>> /build/octave-image-2.12.0/inst/ycbcr2rgb.m -***** assert (ycbcr2rgb (rgb2ycbcr (jet (10))), jet (10), 0.00001); -***** assert (class (ycbcr2rgb (single (rand (5, 5, 3)))), "single") -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/iptcheckmap.m] ->>>>> /build/octave-image-2.12.0/inst/iptcheckmap.m -***** test ("iptcheckmap (jet(64), 'func', 'var', 2)"); # simple must work -***** fail ("iptcheckmap (3, 'func', 'var', 2)"); # not a colormap -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/entropy.m] ->>>>> /build/octave-image-2.12.0/inst/entropy.m -***** assert (entropy ([0 1]), 1) -***** assert (entropy (uint8 ([0 1])), 1) -***** assert (entropy ([0 0]), 0) -***** assert (entropy ([0]), 0) -***** assert (entropy ([1]), 0) -***** assert (entropy ([0 .5; 2 0]), 1.5) -***** assert (entropy (repmat ([0 .5; 2 0], 1, 1, 3)), - entropy ([0 .5; 2 0])) -***** test - A = zeros (3,3); - B = ones (3,3); - C = [1 1 1; 2 2 2; 3 3 3]; - D = C'; - E = ones (3,3); - E(2,2)=2; - F = 3 .* ones (3,3); - F(2,2)=1; - G = [-1 2 7; -5 2 8; -7 pi 9]; - H = [5 2 8; 1 -3 1; 5 1 0]; - pG = [1 2] ./ 3; - G_out = -sum (pG.*log2 (pG)); - pH = [2 7] ./ 9; - H_out = -sum (pH.*log2 (pH)); - assert (entropy (A), 0, eps); - assert (entropy (B), 0, eps); - assert (entropy (C), 0, eps); - assert (entropy (D), 0, eps); - assert (entropy (E), 0, eps); - assert (entropy (F), 0, eps); - assert (entropy (G), G_out, eps); - assert (entropy (H), H_out, eps); -***** test - A = uint8 (zeros (3,3)); - B = uint8 (ones (3,3)); - C = uint8 ([1 1 1; 2 2 2; 3 3 3]); - D = C'; - E = uint8 (ones (3,3)); - E(2,2)=2; - F = 3 .* uint8 (ones (3,3)); - F(2,2)=1; - G = uint8 ([0 2 7; 0 2 8; 0 3 9]); - H = uint8 ([5 2 8; 1 0 1; 5 1 0]); - pC = [1 1 1] ./ 3; - C_out = -sum (pC.*log2 (pC)); - D_out = C_out; - pE = [8 1] ./ 9; - E_out = -sum (pE.*log2 (pE)); - F_out = E_out; - pG = [3 2 1 1 1 1] ./ 9; - G_out = -sum (pG.*log2 (pG)); - pH = [2 3 1 2 1] ./ 9; - H_out = -sum (pH.*log2 (pH)); - assert (entropy (A), 0); - assert (entropy (B), 0); - assert (entropy (C), C_out, eps); - assert (entropy (D), D_out, eps); - assert (entropy (E), E_out, eps); - assert (entropy (F), F_out, eps); - assert (entropy (G), G_out, eps); - assert (entropy (H), H_out, eps); -***** test - L1 = false (3,3); - L1(2,2)=true; - L2 = true (3,3); - L2(2,2)=false; - L3 = logical ([0 1 1; 0 1 1; 0 0 1]); - p12 = [1 8] ./ 9; - out12 = -sum (p12.*log2 (p12)); - p3 = [5 4] ./9; - out3 = -sum (p3.*log2 (p3)); - assert (entropy (L1), out12, eps); - assert (entropy (L2), out12, eps); - assert (entropy (L3), out3, eps); -10 tests, 10 passed, 0 known failure, 0 skipped -[inst/colorangle.m] ->>>>> /build/octave-image-2.12.0/inst/colorangle.m -***** error id=Octave:invalid-fun-call colorangle () -***** error id=Octave:invalid-fun-call colorangle (1, 2, 3) -***** error colorangle (2, 3) -***** error colorangle ([1, 2], [3, 4]) -***** error id=Octave:expected-real colorangle ([1, 2, 3j], [4, 5, 6]) -***** error id=Octave:expected-real colorangle ([1, 2, 3], [4j, 5, 6]) -***** error id=Octave:invalid-type colorangle ("abc", "def") +[inst/graythresh.m] +>>>>> /build/octave-image-2.12.0/inst/graythresh.m +***** shared img, histo + ## this is the old default.img that came with GNU Octave. While the current + ## is very very similar, is off just enough for us to get precision errors + img = uint8 (reshape ([138 138 138 142 142 138 142 138 138 117 105 81 69 61 53 40 49 45 40 36 40 45 53 49 65 73 121 166 210 243 247 247 247 239 235 178 154 170 150 150 162 174 190 190 194 186 178 170 154 182 198 174 117 138 138 142 138 142 142 146 142 138 138 130 109 97 81 73 69 57 53 53 57 61 61 69 73 77 105 121 158 219 243 243 247 243 243 243 206 150 158 158 158 150 158 182 186 190 194 186 174 190 206 198 162 138 142 138 142 146 138 142 142 138 146 142 134 142 130 121 101 97 85 85 81 81 81 85 93 85 73 57 61 93 150 194 215 239 243 243 243 223 166 138 158 158 154 142 162 178 190 190 198 186 182 186 174 162 182 146 142 138 142 142 146 142 146 146 146 146 142 142 142 134 125 101 85 73 65 69 73 73 57 40 53 49 57 69 85 125 166 182 178 178 174 150 130 121 146 146 150 142 166 182 190 182 174 166 162 170 194 198 138 138 146 146 138 146 146 146 146 142 150 146 146 142 130 93 65 45 45 49 45 40 49 40 49 49 49 49 61 81 113 142 150 154 154 146 142 134 125 125 138 134 125 146 162 178 178 178 166 186 202 206 186 142 142 142 134 142 146 142 150 142 146 142 146 146 130 81 53 49 49 45 49 40 36 36 32 36 36 36 53 73 89 125 150 146 134 138 146 138 146 138 142 117 117 113 117 146 166 174 178 182 178 178 170 146 142 142 138 142 146 142 142 146 150 138 146 142 130 73 49 40 49 57 65 69 73 61 61 53 57 53 61 77 77 97 113 138 134 130 138 142 150 146 150 134 138 121 121 101 121 150 158 154 142 150 162 166 178 138 138 146 142 142 142 142 146 146 142 142 130 73 57 49 36 49 65 77 85 89 85 81 81 81 85 93 93 97 105 117 125 150 158 154 162 162 166 154 134 150 130 125 113 138 182 174 154 130 178 227 239 239 134 138 142 138 142 142 146 146 138 150 125 61 49 32 32 45 49 57 65 85 101 105 101 101 109 125 117 113 109 138 134 125 166 178 170 162 150 170 162 170 150 146 150 138 125 162 186 182 142 206 247 247 243 138 138 138 138 142 142 146 146 146 130 85 45 45 36 40 53 45 57 69 97 125 130 130 134 138 146 142 134 142 158 138 117 146 174 170 174 178 170 174 170 166 154 162 158 130 134 170 178 158 190 243 247 247 142 142 142 142 142 146 146 142 138 89 53 45 40 45 45 49 57 77 93 125 138 150 154 158 158 162 154 150 166 174 142 73 125 174 178 174 182 182 178 178 174 166 174 174 162 125 154 170 174 170 227 247 251 142 138 142 142 142 142 142 138 105 61 40 40 32 40 40 49 61 89 117 146 154 158 162 170 170 174 162 166 174 182 150 65 146 166 174 186 198 198 198 190 178 178 174 174 158 134 154 198 194 174 202 251 251 146 142 142 142 146 150 138 134 69 40 40 36 32 40 45 45 65 101 134 150 158 166 174 178 174 174 174 170 170 174 142 73 150 162 178 194 202 202 194 194 178 178 154 134 125 138 154 198 194 186 190 243 251 150 146 146 146 146 150 130 109 53 45 28 40 40 36 32 49 73 101 130 154 162 170 170 170 178 182 178 178 174 158 142 121 146 158 178 174 186 190 186 186 174 146 105 109 113 130 150 178 202 190 186 243 251 146 146 146 146 150 142 109 73 49 40 32 40 40 45 40 53 69 93 130 154 162 170 174 178 182 182 186 182 178 154 146 130 138 142 150 170 182 178 174 166 150 117 97 105 113 130 150 150 174 182 190 243 251 146 146 154 146 150 134 105 53 40 45 45 40 40 36 36 40 69 105 134 162 170 174 178 182 182 182 186 190 186 178 170 158 154 150 162 182 182 174 174 174 150 113 109 113 113 130 150 162 186 186 190 239 251 154 150 146 150 146 125 77 49 36 40 36 40 36 28 40 36 77 113 138 150 170 170 174 186 190 190 190 194 190 186 194 190 170 162 174 194 174 182 170 170 158 121 113 113 113 146 158 170 210 215 215 206 243 150 146 150 150 150 113 57 49 40 45 45 49 49 40 32 45 85 113 142 170 178 174 182 194 190 194 194 198 198 198 210 210 182 162 170 190 182 186 170 170 162 130 121 113 121 146 154 150 198 215 206 210 215 150 150 150 150 150 105 49 45 40 49 49 57 40 49 49 53 85 121 158 182 178 174 182 198 194 194 194 194 202 202 194 186 174 154 162 166 178 174 170 170 170 158 117 113 130 150 154 121 182 194 206 215 206 158 150 150 150 146 97 45 36 49 49 49 40 40 49 49 65 97 130 154 174 174 174 186 194 194 194 194 198 198 186 170 158 154 158 138 158 162 170 190 182 174 170 138 138 142 154 134 142 146 170 206 219 215 150 150 158 158 150 85 36 40 40 40 40 45 45 49 49 65 97 130 146 166 166 174 182 190 194 194 194 194 190 182 162 158 150 158 182 186 178 198 206 198 190 174 154 174 174 142 142 170 170 166 202 223 219 158 150 150 150 146 85 40 45 40 40 36 45 53 45 49 53 93 117 130 154 162 174 190 186 194 194 194 190 186 178 162 162 170 174 182 198 210 206 210 198 198 182 170 178 174 158 154 194 194 174 198 210 215 150 154 158 150 150 85 49 45 40 40 32 36 53 40 45 53 81 109 142 158 158 174 178 182 190 190 194 190 190 178 170 174 178 186 190 190 206 215 202 206 194 186 178 182 174 154 170 198 210 186 186 202 215 150 154 150 154 150 97 45 40 40 40 36 36 45 40 45 73 89 113 142 158 158 174 174 182 186 186 194 186 182 178 174 170 105 166 206 186 190 202 198 194 190 182 182 174 166 154 162 198 215 202 182 202 219 154 150 154 150 146 117 61 45 45 45 36 53 53 49 53 77 93 101 125 158 162 174 174 178 174 186 190 182 182 186 182 182 77 125 198 194 186 190 190 178 178 178 162 162 162 154 186 210 227 210 190 206 223 154 150 154 150 154 138 65 45 45 45 40 49 49 40 53 65 77 89 113 150 158 166 166 170 178 182 186 182 170 170 170 162 81 117 186 190 186 182 178 186 174 166 162 150 130 154 194 227 227 219 202 202 219 154 154 150 154 146 146 89 45 40 45 40 49 49 36 40 57 65 89 109 138 146 158 158 170 170 178 182 178 162 150 158 154 113 146 186 182 178 182 178 170 170 162 146 138 138 146 202 223 231 219 210 190 215 130 130 130 130 130 130 109 45 53 40 32 36 40 45 53 61 65 81 97 117 130 138 150 158 158 178 170 162 158 138 142 150 146 166 178 174 174 170 170 170 162 158 138 117 117 142 202 223 239 223 215 186 206 61 61 65 69 69 65 57 36 40 36 32 40 40 53 57 53 57 69 93 105 109 130 138 142 154 162 150 138 142 125 121 150 162 170 170 166 170 170 170 166 162 138 121 113 130 170 202 223 227 231 202 178 182 45 49 45 40 40 40 45 45 45 45 36 40 32 49 61 61 57 65 73 81 101 109 121 130 142 146 121 89 93 117 113 134 154 174 166 162 166 170 170 162 154 150 142 150 223 186 194 215 231 227 206 182 174 49 40 45 45 49 49 45 49 49 49 49 40 36 45 57 69 65 61 65 69 85 93 109 109 117 109 89 57 57 81 97 113 154 162 166 162 170 158 158 162 154 162 174 231 239 178 186 210 231 239 210 194 178 49 36 49 45 49 49 49 45 45 49 49 36 40 40 45 36 53 53 53 57 57 69 69 73 69 61 57 45 45 65 89 105 125 142 146 150 150 154 162 170 174 223 235 247 231 178 178 206 227 227 223 198 190 40 53 36 45 40 40 40 40 45 40 40 45 45 45 45 40 53 49 49 45 53 45 32 36 36 36 36 40 49 45 61 73 89 93 97 113 125 142 186 202 239 239 243 251 239 198 166 194 215 235 227 215 202 40 45 36 32 36 40 40 45 40 40 45 49 45 49 45 49 40 40 45 49 40 45 45 45 49 49 32 40 49 40 49 57 69 81 101 134 170 206 235 243 243 239 247 251 247 210 170 186 202 231 231 227 210 49 45 49 40 40 40 49 45 40 40 45 45 45 40 45 45 45 49 40 49 40 49 45 45 36 40 40 45 45 45 45 65 121 150 210 239 243 243 247 243 243 247 251 251 239 223 178 174 194 219 239 231 219 36 45 45 40 40 49 40 45 49 49 40 40 45 49 40 40 45 49 45 40 49 45 40 40 40 49 40 45 40 49 49 121 162 215 247 247 247 247 247 243 247 251 251 251 247 239 223 194 186 202 215 210 210 36 45 45 40 40 49 40 45 32 36 49 36 45 49 40 40 45 40 36 40 45 45 40 40 40 36 45 32 40 49 57 121 142 215 243 247 243 247 243 247 251 251 251 251 247 247 247 227 186 194 190 190 182 40 32 45 32 45 40 45 45 49 45 40 45 49 36 40 45 32 40 45 45 49 45 45 45 45 53 49 53 45 45 40 69 97 186 239 243 247 247 247 251 251 251 251 251 243 243 231 202 202 206 206 186 170 53 40 40 40 40 40 36 32 32 36 45 53 49 32 36 32 36 32 40 49 40 40 45 40 40 53 45 49 49 40 32 40 49 138 219 235 247 247 251 251 251 251 251 247 243 235 198 206 210 198 190 186 186 73 69 61 57 61 49 53 40 49 45 40 49 49 49 57 57 53 49 53 53 45 40 45 40 45 49 45 49 45 40 32 53 69 101 215 231 247 247 247 247 251 251 251 243 235 219 194 202 202 186 186 190 194], [53 40])); +***** assert (graythresh (img, "percentile"), 142/255); +***** assert (graythresh (img, "percentile", 0.5), 142/255); +***** assert (graythresh (img, "moments"), 142/255); +***** assert (graythresh (img, "minimum"), 93/255); +***** assert (graythresh (img, "maxentropy"), 150/255); +***** assert (graythresh (img, "intermodes"), 99/255); +***** assert (graythresh (img, "otsu"), 114.5/255); + histo = hist (img(:), 0:255); +***** assert (graythresh (histo, "otsu"), 114.5/255); +***** assert (graythresh (img, "mean"), 0.51445615982, 0.000000001); # here our results differ from ImageJ ***** test - assert (colorangle ([0 0 0], [0 1 0]), NaN) - assert (colorangle ([0 0 0], [0 1 1]), NaN) - assert (colorangle ([0 1 0], [0 0 0]), NaN) - assert (colorangle ([1 1 0], [0 0 0]), NaN) - assert (colorangle ([1 1 1], [1 1 1]), 0) -***** assert (colorangle ([0 0 0], [0 0 0]), 0) -***** assert (colorangle ([1 0 0], [-1 0 0]), 180) -***** assert (colorangle ([0 0 1], [1 0 0]), 90) -***** assert (colorangle ([0; 0; 1], [1 0 0]), 90) -***** assert (colorangle ([0, 0, 1], [1; 0; 0]), 90) -***** assert (colorangle ([0.5 0.61237 -0.61237], [0.86603 0.35355 -0.35355]), 30.000270917, 1e-4) -***** assert (colorangle ([0.1582055390, 0.2722362096, 0.1620813305], [0.0717 0.1472 0.0975]), 5.09209927, 1e-6) -***** assert (colorangle ([0.0659838500, 0.1261619536, 0.0690643667], [0.0717 0.1472 0.0975]), 5.10358588, 1e-6) -***** assert (colorangle ([0.436871170, 0.7794672250, 0.4489702582], [0.0717 0.1472 0.0975]), 5.01339769, 1e-6) + im = repmat (0.5, 100, 100); + [t, g] = graythresh (im); + assert (t, 0) + assert (g, 0) ***** test - a = [1 0 0]; - b = [1 1 0]; - expected = colorangle (a, b); - assert (colorangle (a.', b.'), expected) - assert (colorangle (a, b.'), expected) - assert (colorangle (a.', b), expected) - assert (colorangle (vec (a, 3), b.'), expected) -***** assert (colorangle ([1 0 0; 0 1 1], [1 1 1; 2 3 4]), - [colorangle([1 0 0], [1 1 1]); colorangle([0 1 1], [2 3 4])]) + im = [-2 1 0; 43 .5 .2]; + clip_im = [ 0 1 0; 1 .5 .2]; + t = graythresh (clip_im); + assert (graythresh (im), t) + assert (graythresh (single (im)), t) ***** test - a = [1 0 0; 0.5 1 0; 0 1 1; 1 1 1]; - b = [0 1 0]; - expected = zeros (4, 1); - for i = 1:4 - expected(i) = colorangle (a(i,:), b); - endfor - assert (colorangle (a, b), expected) - assert (colorangle (b, a), expected) -***** xtest - a = [1 2 3]; - b = [2 3 4]; - c = [5 6 7]; - d = [3 1 1]; - - ac = colorangle (c, a); - bc = colorangle (b, c); - ad = colorangle (a, d); - bd = colorangle (b, d); - - assert (colorangle (a, cat (3, c, d)), - cat (3, [ac ad])) - - assert (colorangle (cat (3, a, b), cat (3, c, d)), - cat (3, [ac cd])) - - assert (colorangle (cat (1, a, b), cat (3, c, d)), - reshape ([ac bc ad bd], [2 2])) -!!!!! known failure -dot: sizes of X and Y must match -21 tests, 20 passed, 1 known failure, 0 skipped + H(1) = 100; + assert (graythresh (H), 0) +12 tests, 12 passed, 0 known failure, 0 skipped Checking C++ files ... -[src/bwdist.cc] ->>>>> /build/octave-image-2.12.0/src/bwdist.cc -***** shared bw - - bw = [0 1 0 1 0 1 1 0 - 0 0 0 1 1 0 0 0 - 0 0 0 1 1 0 0 0 - 0 0 0 1 1 0 0 0 - 0 0 1 1 1 1 1 1 - 1 1 1 1 0 0 0 1 - 1 1 1 0 0 0 1 0 - 0 0 1 0 0 0 1 1]; -***** test - out = [ 1.00000 0.00000 1.00000 0.00000 1.00000 0.00000 0.00000 1.00000 - 1.41421 1.00000 1.00000 0.00000 0.00000 1.00000 1.00000 1.41421 - 2.23607 2.00000 1.00000 0.00000 0.00000 1.00000 2.00000 2.00000 - 2.00000 1.41421 1.00000 0.00000 0.00000 1.00000 1.00000 1.00000 - 1.00000 1.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 - 0.00000 0.00000 0.00000 0.00000 1.00000 1.00000 1.00000 0.00000 - 0.00000 0.00000 0.00000 1.00000 1.41421 1.00000 0.00000 1.00000 - 1.00000 1.00000 0.00000 1.00000 2.00000 1.00000 0.00000 0.00000]; - out = single (out); - - assert (bwdist (bw), out, 0.0001); # default is euclidean - assert (bwdist (bw, "euclidean"), out, 0.0001); - assert (bwdist (logical (bw), "euclidean"), out, 0.0001); -***** test - out = [ 1 0 1 0 1 0 0 1 - 1 1 1 0 0 1 1 1 - 2 2 1 0 0 1 2 2 - 2 1 1 0 0 1 1 1 - 1 1 0 0 0 0 0 0 - 0 0 0 0 1 1 1 0 - 0 0 0 1 1 1 0 1 - 1 1 0 1 2 1 0 0]; - out = single (out); - - assert (bwdist (bw, "chessboard"), out); -***** test - out = [ 1 0 1 0 1 0 0 1 - 2 1 1 0 0 1 1 2 - 3 2 1 0 0 1 2 2 - 2 2 1 0 0 1 1 1 - 1 1 0 0 0 0 0 0 - 0 0 0 0 1 1 1 0 - 0 0 0 1 2 1 0 1 - 1 1 0 1 2 1 0 0]; - out = single (out); - - assert (bwdist (bw, "cityblock"), out); -***** test - out = [ 1.00000 0.00000 1.00000 0.00000 1.00000 0.00000 0.00000 1.00000 - 1.41421 1.00000 1.00000 0.00000 0.00000 1.00000 1.00000 1.41421 - 2.41421 2.00000 1.00000 0.00000 0.00000 1.00000 2.00000 2.00000 - 2.00000 1.41421 1.00000 0.00000 0.00000 1.00000 1.00000 1.00000 - 1.00000 1.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 - 0.00000 0.00000 0.00000 0.00000 1.00000 1.00000 1.00000 0.00000 - 0.00000 0.00000 0.00000 1.00000 1.41421 1.00000 0.00000 1.00000 - 1.00000 1.00000 0.00000 1.00000 2.00000 1.00000 0.00000 0.00000]; - out = single (out); - - assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); - - bw(logical (bw)) = 3; # there is no actual check if matrix is binary or 0 and 1 - assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); - - bw(logical (bw)) = -2; # anything non-zero is considered object - assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); -***** test - bw = [ 1 1 1 1 0 1 1 1 1 - 1 1 1 1 0 1 1 1 1 - 1 1 0 1 1 1 1 1 1 - 0 1 1 1 1 1 1 1 1]; - - dist = [ 0 0 0 0 1 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0]; - dist = single (dist); - - c = [ 1 5 9 13 13 21 25 29 33 - 2 6 10 14 14 22 26 30 34 - 3 7 10 15 19 23 27 31 35 - 8 8 12 16 20 24 28 32 36]; - c = uint32 (c); - - [dout, cout] = bwdist (bw, "euclidean"); - assert (dout, dist) - assert (cout, c) -***** test - bw = [ 0 1 1 0 0 0 1 0 - 0 0 0 0 0 0 0 0 - 1 1 0 0 0 0 0 0 - 0 0 0 0 0 0 1 0 - 0 0 0 0 1 0 0 1 - 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 - 0 0 1 0 0 1 1 0]; - out = single ([ - 1.00000 0.00000 0.00000 1.00000 2.00000 1.00000 0.00000 1.00000 - 1.00000 1.00000 1.00000 sqrt(2) sqrt(2)+1 sqrt(2) 1.00000 sqrt(2) - 0.00000 0.00000 1.00000 2.00000 2.00000 sqrt(2) 1.00000 sqrt(2) - 1.00000 1.00000 sqrt(2) sqrt(2) 1.00000 1.00000 0.00000 1.00000 - 2.00000 2.00000 2.00000 1.00000 0.00000 1.00000 1.00000 0.00000 - 1.00000 sqrt(2) 2.00000 sqrt(2) 1.00000 sqrt(2) sqrt(2) 1.00000 - 0.00000 1.00000 1.00000 sqrt(2) sqrt(2) 1.00000 1.00000 sqrt(2) - 1.00000 1.00000 0.00000 1.00000 1.00000 0.00000 0.00000 1.00000 - ]); - assert (bwdist (bw, "quasi-euclidean"), out); -***** error bwdist (bw, "not a valid method"); -***** test - ## Special case of there being no foreground element (bug #50874) - expected_dist = single (Inf (2, 2)); - expected_idx = uint32 ([0 0; 0 0]); - - [dist, idx] = bwdist (false (2, 2)); - assert (dist, expected_dist) - assert (idx, expected_idx) - - [dist, idx] = bwdist (zeros (2, 2)); - assert (dist, expected_dist) - assert (idx, expected_idx) -***** test - ## Special case of 1D input (bug #50874) - assert (bwdist ([1 0]), single ([0 1])) - assert (bwdist ([1 0]'), single ([0 1]')) - assert (bwdist ([0 1 0 0 0 0 1 1]), single ([1 0 1 2 2 1 0 0])) - assert (bwdist ([1 1 0 0 0 0 1 1]'), single ([0 0 1 2 2 1 0 0])') - assert (bwdist ([1 0], "euclidean"), single ([0 1])) - assert (bwdist ([1 0], "chessboard"), single ([0 1])) - assert (bwdist ([1 0], "cityblock"), single ([0 1])) - assert (bwdist ([1 0], "quasi-euclidean"), single ([0 1])) -***** test - ## test 1D input with 2nd output argument (indices) (bug #50874) - expected_dist = single ([1 0 1]); - expected_idx = uint32 ([2 2 2]); - - [dist, idx] = bwdist ([0 1 0]); - assert (dist, expected_dist) - assert (idx, expected_idx) - - [dist, idx] = bwdist ([0 1 0]'); - assert (dist, expected_dist') - assert (idx, expected_idx') - - expected_dist = single ([0 0 1 0 0]); - expected_idx = uint32 ([1 2 2 4 5]); - [dist, idx] = bwdist ([1 1 0 1 1]); - assert (dist, expected_dist) - assert (idx, expected_idx) - - expected_dist = single ([1 0 1 2 1 0 0 0 1 1 0 0 0 0 1 2 3 4]); - expected_idx = uint32 ([2 2 2 2 6 6 7 8 8 11 11 12 13 14 14 14 14 14]); - [dist, idx] = bwdist ([0 1 0 0 0 1 1 1 0 0 1 1 1 1 0 0 0 0]); - assert (dist, expected_dist) - assert (idx, expected_idx) - - expected_dist = single ([0 0 1 2 1 0 0 0 1 1 0 0 0 0 1 2 1 0]); - expected_idx = uint32 ([1 2 2 2 6 6 7 8 8 11 11 12 13 14 14 14 18 18]); - [dist, idx] = bwdist ([1 1 0 0 0 1 1 1 0 0 1 1 1 1 0 0 0 1]); - assert (dist, expected_dist) - assert (idx, expected_idx) +[src/conndef.cc] +>>>>> /build/octave-image-2.12.0/src/conndef.cc +***** assert (conndef (1, "minimal"), [1; 1; 1]); +***** assert (conndef (2, "minimal"), [0 1 0; 1 1 1; 0 1 0]); ***** test - assert (bwdist ([0 0]), single ([Inf, Inf])) - assert (bwdist ([0 0]'), single ([Inf, Inf]')) -***** xtest - ## This is Matlab incompatible because the bottom right corners is - ## equally distant to the top right and bottom left corners. However, - ## both are correct answers, and the returned value is just - ## implementation dependent. - bw = logical ([ - 0 0 1 - 0 0 0 - 1 0 0 - ]); - expected_dist = single ([ - 2.0 1.0 0.0 - 1.0 sqrt(2) 1.0 - 0.0 1.0 2.0 - ]); - expected_idx = uint32 ([ - 3 7 7 - 3 3 7 - 3 3 3 - ]); - [dist, idx] = bwdist (bw); - assert (dist, expected_dist) - assert (idx, expected_idx) -!!!!! known failure -ASSERT errors for: assert (idx,expected_idx) - - Location | Observed | Expected | Reason - (3,3) 7 3 Abs err 4 exceeds tol 0 by 4 -12 tests, 11 passed, 1 known failure, 0 skipped -[src/hough_line.cc] ->>>>> /build/octave-image-2.12.0/src/hough_line.cc + C = zeros (3, 3, 3); + C(:,2,2) = 1; + C(2,:,2) = 1; + C(2,2,:) = 1; + assert (conndef (3, "minimal"), C); ***** test - I = zeros(100, 100); - I(1,1) = 1; I(100,100) = 1; I(1,100) = 1; I(100, 1) = 1; I(50,50) = 1; - [J, R] = houghtf(I); J = J / max(J(:)); - assert(size(J) == [length(R) 181]); - -***** demo - I = zeros(100, 150); - I(30,:) = 1; I(:, 65) = 1; I(35:45, 35:50) = 1; - for i = 1:90, I(i,i) = 1;endfor - I = imnoise(I, 'salt & pepper'); - imshow(I); - J = houghtf(I); J = J / max(J(:)); - imshow(J, bone(128), 'truesize'); -1 test, 1 passed, 0 known failure, 0 skipped + C = zeros (3, 3, 3, 3); + C(:,:,2,1) = [0 0 0 + 0 1 0 + 0 0 0]; + C(:,:,1,2) = [0 0 0 + 0 1 0 + 0 0 0]; + C(:,:,2,2) = [0 1 0 + 1 1 1 + 0 1 0]; + C(:,:,3,2) = [0 0 0 + 0 1 0 + 0 0 0]; + C(:,:,2,3) = [0 0 0 + 0 1 0 + 0 0 0]; + assert (conndef (4, "minimal"), C); +***** assert (conndef (1, "maximal"), ones (3, 1)); +***** assert (conndef (2, "maximal"), ones (3, 3)); +***** assert (conndef (3, "maximal"), ones (3, 3, 3)); +***** assert (conndef (4, "maximal"), ones (3, 3, 3, 3)); +***** assert (nnz (conndef (3, "minimal")), 7) +***** assert (nnz (conndef (4, "minimal")), 9) +***** assert (nnz (conndef (5, "minimal")), 11) +***** assert (nnz (conndef (6, "minimal")), 13) +***** assert (find (conndef (3, "minimal")), [5 11 13 14 15 17 23](:)) +***** assert (find (conndef (4, "minimal")), [14 32 38 40 41 42 44 50 68](:)) +***** assert (find (conndef (5, "minimal")), + [ 41 95 113 119 121 122 123 125 131 149 203](:)) +***** assert (find (conndef (6, "minimal")), + [ 122 284 338 356 362 364 365 366 368 374 392 446 608](:)) +***** error conndef () +***** error conndef (-2, "minimal") +***** error conndef (char (2), "minimal") +***** error conndef ("minimal", 3) +***** error conndef (3, "invalid") +***** error conndef (10) +***** assert (conndef (2, "minimal"), conndef (4)) +***** assert (conndef (2, "maximal"), conndef (8)) +***** assert (conndef (3, "minimal"), conndef (6)) +***** assert (conndef (3, "maximal"), conndef (26)) +***** assert (conndef (18), reshape ([0 1 0 1 1 1 0 1 0 + 1 1 1 1 1 1 1 1 1 + 0 1 0 1 1 1 0 1 0], [3 3 3])) +***** test iptcheckconn ( 4, "func", "var") +***** test iptcheckconn ( 6, "func", "var") +***** test iptcheckconn ( 8, "func", "var") +***** test iptcheckconn (18, "func", "var") +***** test iptcheckconn (26, "func", "var") +***** test iptcheckconn (1, "func", "var") +***** test iptcheckconn (ones (3, 1), "func", "var") +***** test iptcheckconn (ones (3, 3), "func", "var") +***** test iptcheckconn (ones (3, 3, 3), "func", "var") +***** test iptcheckconn (ones (3, 3, 3, 3), "func", "var") +***** error + iptcheckconn (3, "func", "VAR"); +***** error + iptcheckconn ([1 1 1; 1 0 1; 1 1 1], "func", "VAR"); +***** error + iptcheckconn ([1 2 1; 1 1 1; 1 1 1], "func", "VAR"); +***** error + iptcheckconn ([0 1 1; 1 1 1; 1 1 1], "func", "VAR"); +***** error + iptcheckconn (ones (3, 3, 3, 4), "func", "VAR"); +42 tests, 42 passed, 0 known failure, 0 skipped [src/watershed.cc] >>>>> /build/octave-image-2.12.0/src/watershed.cc ***** test @@ -13546,34 +13437,6 @@ (3,4) 2 0 Abs err 2 exceeds tol 0 by 2 (3,5) 0 4 Abs err 4 exceeds tol 0 by 4 9 tests, 7 passed, 2 known failures, 0 skipped -[src/graycomatrix.cc] ->>>>> /build/octave-image-2.12.0/src/graycomatrix.cc -***** shared a -***** test - a = [0 0 0 1 2; - 1 1 0 1 1; - 2 2 1 0 0; - 1 1 0 2 0; - 0 0 1 0 1]; - squeeze(graycomatrix(a, 3, 1, -pi/4)) == [4 2 0; - 2 3 2; - 1 2 0]; - -***** assert(size(graycomatrix(a, 3, 1:5, [0:3]*-pi/4)), [3, 3, 5, 4]) -***** demo - - # Pattern Recognition Engineering (Nadler & Smith) - # Digital Image Processing (Gonzales & Woods), p. 668 - - a = [0 0 0 1 2; - 1 1 0 1 1; - 2 2 1 0 0; - 1 1 0 2 0; - 0 0 1 0 1]; - - graycomatrix(a, 3, 1, [0 1]*-pi/4) - -2 tests, 2 passed, 0 known failure, 0 skipped [src/bwlabeln.cc] >>>>> /build/octave-image-2.12.0/src/bwlabeln.cc ***** shared a2d, a3d @@ -13880,6 +13743,381 @@ ***** error bwlabel (rand (10) > 0.8, "text") ***** error bwlabel ("text", 6) 23 tests, 23 passed, 0 known failure, 0 skipped +[src/hough_line.cc] +>>>>> /build/octave-image-2.12.0/src/hough_line.cc +***** test + I = zeros(100, 100); + I(1,1) = 1; I(100,100) = 1; I(1,100) = 1; I(100, 1) = 1; I(50,50) = 1; + [J, R] = houghtf(I); J = J / max(J(:)); + assert(size(J) == [length(R) 181]); + +***** demo + I = zeros(100, 150); + I(30,:) = 1; I(:, 65) = 1; I(35:45, 35:50) = 1; + for i = 1:90, I(i,i) = 1;endfor + I = imnoise(I, 'salt & pepper'); + imshow(I); + J = houghtf(I); J = J / max(J(:)); + imshow(J, bone(128), 'truesize'); +1 test, 1 passed, 0 known failure, 0 skipped +[src/imreconstruct.cc] +>>>>> /build/octave-image-2.12.0/src/imreconstruct.cc +***** function recon = parallel_reconstruction (marker, mask, + conn = conndef (ndims (marker), "maximal")) + do + previous = marker; + marker = imdilate (marker, conn); + ## FIXME https://savannah.gnu.org/bugs/index.php?43712 + if (strcmp (class (marker), "logical")) + marker = marker & mask; + else + marker = min (marker, mask); + endif + until (all ((marker == previous)(:))) + recon = marker; +***** endfunction +***** test + for cl = {"int8", "uint8", "int16", "uint16", "int32", "uint32"} + cl = cl{1}; + a = randi ([intmin(cl) intmax(cl)-30], 100, 100, cl); + b = a + randi (20, 100, 100, cl); + assert (imreconstruct (a, b), parallel_reconstruction (a, b)) + endfor + for cl = {"double", "single"} + cl = cl{1}; + a = (rand (100, 100, cl) - 0.5) .* 1000; + b = a + rand (100, 100, cl) * 100; + assert (imreconstruct (a, b), parallel_reconstruction (a, b)) + endfor +***** test + for cl = {"int8", "uint8", "int16", "uint16", "int32", "uint32"} + cl = cl{1}; + a = randi ([intmin(cl) intmax(cl)-30], 100, 100, cl); + b = a + randi (20, 100, 100, cl); + c = [0 1 0; 1 1 1; 0 1 0]; + assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) + endfor +***** test + a = randi (210, 100, 100); + b = a + randi (20, 100, 100); + c = ones (3, 1); + assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) +***** test + a = randi (210, 500, 500, 10, 4); + b = a + randi (20, 500, 500, 10, 4); + c = ones (3, 3, 3); + assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) +***** test + a = randi (210, 500, 500, 10, 4); + b = a + randi (20, 500, 500, 10, 4); + c = conndef (4, "minimal"); + assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) +***** test + a = [ 0 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 0 + 1 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 1 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 0 + 0 0 0 0 0 0 0 1 0 0]; + + b = [ 0 1 0 0 0 0 0 1 1 0 + 1 1 0 0 0 1 0 1 1 0 + 1 1 0 0 1 0 0 0 0 0 + 1 1 0 0 0 1 1 0 0 0 + 1 0 0 0 0 0 1 1 0 0 + 0 1 0 0 0 0 1 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 1 1 0 0 0 0 + 0 0 0 1 1 0 0 0 0 0 + 1 0 0 0 1 0 0 1 0 1]; + + c = [ 0 1 0 0 0 0 0 1 1 0 + 1 1 0 0 0 1 0 1 1 0 + 1 1 0 0 1 0 0 0 0 0 + 1 1 0 0 0 1 1 0 0 0 + 1 0 0 0 0 0 1 1 0 0 + 0 1 0 0 0 0 1 1 0 0 + 0 0 0 1 0 0 0 0 0 0 + 0 0 0 0 1 1 0 0 0 0 + 0 0 0 1 1 0 0 0 0 0 + 0 0 0 0 1 0 0 1 0 0]; + assert (imreconstruct (logical (a), logical (b)), logical (c)); + + c = [ 0 1 0 0 0 0 0 1 1 0 + 1 1 0 0 0 0 0 1 1 0 + 1 1 0 0 0 0 0 0 0 0 + 1 1 0 0 0 1 1 0 0 0 + 1 0 0 0 0 0 1 1 0 0 + 0 0 0 0 0 0 1 1 0 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 1 1 0 0 0 0 + 0 0 0 1 1 0 0 0 0 0 + 0 0 0 0 1 0 0 1 0 0]; + assert (imreconstruct (logical (a), logical (b), [0 1 0; 1 1 1; 0 1 0]), + logical (c)); +***** test + do + b = rand (100, 100, 100) > 0.98; + until (nnz (b) > 4) + b = imdilate (b, ones (5, 5, 5)); + a = false (size (b)); + f = find (b); + a(f(randi (numel (f), 6, 1))) = true; + assert (imreconstruct (a, b), parallel_reconstruction (a, b)) +***** test + a = randi (200, 100,100, 10, 10); + b = a + randi (20, 100,100, 10, 10); + c1 = ones (3, 3, 3); + c2 = zeros (3, 3, 3, 3); + c2(:,:,:,2) = c1; + assert (imreconstruct (a, b, c1), imreconstruct (a, b, c2)) +***** test + ## Values in MARKER above MASK should be clipped (bug #48794) + ## (well, treated internally as if they were clipped) + mask = logical ([1 1 1; 1 0 1; 1 1 1]); + assert (imreconstruct (true (3, 3), mask), mask) + + mask = ones (5, 5); + mask(2:4,2:4) = 0; + assert (imreconstruct (ones (5, 5), mask), mask) + + mask = ones (5, 5); + mask(2:4,2:4) = 0; + assert (imreconstruct (repmat (2, [5, 5]), mask), mask) + + mask = ones (5, 5); + mask(2:4,2:4) = 0; + assert (imreconstruct (repmat (2, [5, 5]), mask), mask) + + marker = ones (3, 3, 3, 3); + mask = marker; + mask(2, 2, 2, 2) = 0; + assert (imreconstruct (marker, mask), mask) + + marker = randi (210, 100, 100); + assert (imreconstruct (marker +1, marker), marker) + assert (imreconstruct (marker +1, marker), imreconstruct (marker, marker)) +9 tests, 9 passed, 0 known failure, 0 skipped +[src/__spatial_filtering__.cc] +>>>>> /build/octave-image-2.12.0/src/__spatial_filtering__.cc +***** error + __spatial_filtering__ (ones (10), ones (3), "std", ones (10), 0) +***** error + __spatial_filtering__ (ones (10), ones (3), "std", ones (3, 3, 3), 0) +***** error + __spatial_filtering__ (ones (10), ones (3), "std", ones (1, 9), 0) +***** shared a, domain, s, out + a = [ 82 2 97 43 79 43 41 65 51 11 + 60 65 21 56 94 77 36 38 75 39 + 32 68 78 1 16 75 76 90 81 56 + 43 90 82 41 36 1 87 19 18 63 + 63 64 2 48 18 43 38 25 22 99 + 12 46 90 79 3 92 39 79 10 22 + 38 98 11 10 40 90 88 38 4 76 + 54 37 9 4 33 98 36 47 53 57 + 38 76 82 50 14 74 64 99 7 33 + 88 96 41 62 84 89 97 23 41 3]; + + domain = ones (3); + s = zeros (3); + + out = [ 2 1 1 1 16 36 36 11 + 21 1 1 1 1 1 18 18 + 2 1 1 1 1 1 18 18 + 2 2 2 1 1 1 10 10 + 2 2 2 3 3 25 4 4 + 9 4 3 3 3 36 4 4 + 9 4 4 4 14 36 4 4 + 9 4 4 4 14 23 7 3]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); + + out = [ 97 97 97 94 94 90 90 90 + 90 90 94 94 94 90 90 90 + 90 90 82 75 87 90 90 99 + 90 90 90 92 92 92 87 99 + 98 98 90 92 92 92 88 99 + 98 98 90 98 98 98 88 79 + 98 98 82 98 98 99 99 99 + 96 96 84 98 98 99 99 99]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); + + out = [ 60 43 43 43 43 43 51 51 + 60 56 36 36 36 38 38 39 + 63 48 18 18 36 38 25 25 + 46 48 36 36 36 38 22 22 + 38 46 11 40 39 39 25 22 + 37 11 10 33 39 47 38 38 + 38 11 11 33 40 64 38 38 + 41 41 33 50 64 64 41 33]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); + + out = [ 31.223 33.788 35.561 31.011 26.096 20.630 20.403 24.712 + 23.428 29.613 32.376 34.002 33.593 32.470 29.605 26.333 + 27.834 32.890 29.903 24.207 30.083 32.497 31.898 32.600 + 32.027 28.995 33.530 31.002 32.241 32.004 27.501 32.070 + 34.682 36.030 33.046 33.745 32.509 27.352 28.607 34.180 + 32.709 37.690 32.992 40.036 34.456 26.656 27.685 26.863 + 30.971 36.227 25.775 34.873 29.917 25.269 32.292 30.410 + 29.135 31.626 30.056 33.594 30.814 28.853 30.917 29.120]; +***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); + + out = [ 95 96 96 93 78 54 54 79 + 69 89 93 93 93 89 72 72 + 88 89 81 74 86 89 72 81 + 88 88 88 91 91 91 77 89 + 96 96 88 89 89 67 84 95 + 89 94 87 95 95 62 84 75 + 89 94 78 94 84 63 95 95 + 87 92 80 94 84 76 92 96]; +***** assert (__spatial_filtering__ (a, domain, "range", s), out); + + domain = [ 1 1 0 + 0 1 1 + 0 1 0]; + + out = [ 2 2 1 16 36 36 38 39 + 60 1 1 16 1 36 19 18 + 32 2 1 1 1 19 18 18 + 2 2 18 3 1 1 19 10 + 46 2 2 3 18 38 10 4 + 11 9 4 3 3 36 4 4 + 9 4 4 10 36 36 38 4 + 37 9 4 4 33 36 7 7]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); + + out = [ 82 97 97 94 79 76 90 81 + 90 82 56 94 94 90 90 81 + 90 82 78 36 87 87 90 90 + 90 90 82 43 92 87 87 99 + 98 90 79 92 92 88 79 25 + 98 90 90 90 98 92 79 79 + 98 98 50 98 98 90 99 57 + 96 82 62 84 98 99 99 53]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); + + out = [ 68 78 94 79 77 43 75 75 + 78 78 41 75 77 87 81 75 + 82 78 48 18 75 76 76 81 + 64 90 79 41 43 39 79 22 + 90 79 48 48 90 79 38 22 + 46 46 79 79 92 88 47 76 + 76 82 33 40 90 88 88 53 + 82 50 50 74 89 98 47 47]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); + + out = [ 34.2389 39.2772 39.6699 31.6812 20.7364 16.5439 22.2419 17.2395 + 11.9248 36.3084 21.6217 30.8350 36.4047 21.6726 30.9144 26.1017 + 22.2980 33.2746 27.5808 14.5017 36.8890 29.0259 34.6020 33.2521 + 32.2490 37.9579 26.9685 17.1959 32.5346 31.3847 33.5976 36.8280 + 21.3354 40.1833 34.0044 33.9882 32.9894 24.1102 25.6613 9.0995 + 35.4641 35.3794 39.0871 35.4753 39.9775 28.7193 26.7451 35.6553 + 35.2179 45.3398 19.3210 35.2987 28.4042 24.0832 26.8421 25.0539 + 23.4307 26.2812 26.3287 35.6959 25.2646 28.1016 34.9829 17.9221]; +***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); + + out = [ 80 95 96 78 43 40 52 42 + 30 81 55 78 93 54 71 63 + 58 80 77 35 86 68 72 72 + 88 88 64 40 91 86 68 89 + 52 88 77 89 74 50 69 21 + 87 81 86 87 95 56 75 75 + 89 94 46 88 62 54 61 53 + 59 73 58 80 65 63 92 46]; +***** assert (__spatial_filtering__ (a, domain, "range", s), out); + + s = [ 1 -3 4 + 6 -7 2 + -1 3 -5]; + + out = [ -1 3 4 19 38 29 31 41 + 61 3 -6 9 4 33 22 21 + 33 5 -2 2 -6 21 12 11 + 4 -5 20 6 -2 2 16 13 + 39 -1 3 -4 19 32 12 3 + 13 4 3 0 4 36 6 -3 + 11 2 -3 11 38 29 35 1 + 34 6 1 5 34 33 9 0]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); + + out = [ 83 94 98 87 80 79 93 84 + 93 85 53 91 95 92 83 74 + 84 75 79 29 89 80 87 91 + 87 93 83 45 95 84 88 101 + 101 83 72 94 93 91 72 26 + 91 87 91 92 101 93 76 80 + 95 99 53 100 91 91 102 59 + 99 75 65 87 95 101 92 50]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); + + out = [ 71 81 96 79 78 44 77 68 + 80 71 44 77 78 90 83 72 + 83 75 51 21 72 76 77 78 + 57 91 82 42 40 42 82 20 + 92 81 45 49 85 81 41 24 + 43 47 76 80 90 81 50 78 + 79 85 35 37 87 85 89 46 + 84 52 43 76 92 100 44 48]; +***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); + + out = [ 34.903 40.206 39.885 28.627 20.620 19.248 25.209 17.111 + 14.536 35.865 23.221 32.230 34.903 23.923 28.879 22.621 + 20.635 30.113 29.351 11.610 38.863 25.936 34.608 34.482 + 29.811 40.998 28.279 17.897 34.666 29.978 36.150 38.213 + 25.066 39.240 30.013 37.300 31.856 27.428 22.884 10.281 + 31.890 34.761 39.645 37.526 39.336 27.031 25.648 39.285 + 35.017 47.776 22.764 35.912 25.460 25.636 29.861 24.566 + 25.213 25.000 26.391 38.451 24.631 31.305 31.118 20.611]; +***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); + + out = [ 84 91 94 68 42 50 62 43 + 32 82 59 82 91 59 61 53 + 51 70 81 27 95 59 75 80 + 83 98 63 39 97 82 72 88 + 62 84 69 98 74 59 60 23 + 78 83 88 92 97 57 70 83 + 84 97 56 89 53 62 67 58 + 65 69 64 82 61 68 83 50]; +***** assert (__spatial_filtering__ (a, domain, "range", s), out); +18 tests, 18 passed, 0 known failure, 0 skipped +[src/bwfill.cc] +>>>>> /build/octave-image-2.12.0/src/bwfill.cc +***** test + A = [0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]; + R4 = logical(ones(5)); + R8 = logical([1 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); + assert (bwfill (A,1,1,4), R4) + assert (bwfill (A,1,1,8), R8) + assert (bwfill (A,1,1), R8) + B = logical([0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); + assert (bwfill (A,3,3,4), B) + assert (bwfill (A,3,3,8), B) + assert (bwfill (A,3,3), B) + C = logical ([0 1 1 1 1; 1 0 1 1 1; 1 0 1 1 1; 1 1 1 1 1; 1 0 0 1 1]); + assert (bwfill (A,3,1,8), C) + assert (bwfill (A,3,1,4), R4) + assert (bwfill (A, [3 1], [1 3], 4), R4); + D = logical([0 1 1 1 1; 1 0 1 1 1; 1 0 1 1 1; 1 1 1 1 1; 1 0 0 1 1]); + assert (bwfill (A, [3 1], [1 3], 8), D); + assert (bwfill (A, [3 1], [1 3]), D); + E = logical ([0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); + assert (bwfill (A, "holes", 4), E); + F = logical ([1 1 0 0 1; 1 1 1 0 0; 1 1 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); + assert (bwfill (A, "holes", 8), F); + assert (bwfill (A, "holes"), F); +***** error id=Octave:invalid-fun-call bwfill () +***** error id=Octave:invalid-fun-call bwfill ("aaa") +***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5) +***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, 2) +***** error bwfill (rand (5) > 0.5, "holes", 1) +***** error bwfill (rand (5) > 0.5, 2, 2, 5) +***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, "xxx") +***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, 2, 2, 4, 5) +***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, "holes", 4, 2) +10 tests, 10 passed, 0 known failure, 0 skipped [src/imerode.cc] >>>>> /build/octave-image-2.12.0/src/imerode.cc ***** assert (imerode (eye (3), [1]), eye (3)); @@ -14296,456 +14534,6 @@ assert (imdilate (false (3, 3), se), false (3, 3)) assert (imdilate (zeros (3, 3), se), [-Inf 0 0; 0 0 0; 0 0 0]) 19 tests, 19 passed, 0 known failure, 0 skipped -[src/imreconstruct.cc] ->>>>> /build/octave-image-2.12.0/src/imreconstruct.cc -***** function recon = parallel_reconstruction (marker, mask, - conn = conndef (ndims (marker), "maximal")) - do - previous = marker; - marker = imdilate (marker, conn); - ## FIXME https://savannah.gnu.org/bugs/index.php?43712 - if (strcmp (class (marker), "logical")) - marker = marker & mask; - else - marker = min (marker, mask); - endif - until (all ((marker == previous)(:))) - recon = marker; -***** endfunction -***** test - for cl = {"int8", "uint8", "int16", "uint16", "int32", "uint32"} - cl = cl{1}; - a = randi ([intmin(cl) intmax(cl)-30], 100, 100, cl); - b = a + randi (20, 100, 100, cl); - assert (imreconstruct (a, b), parallel_reconstruction (a, b)) - endfor - for cl = {"double", "single"} - cl = cl{1}; - a = (rand (100, 100, cl) - 0.5) .* 1000; - b = a + rand (100, 100, cl) * 100; - assert (imreconstruct (a, b), parallel_reconstruction (a, b)) - endfor -***** test - for cl = {"int8", "uint8", "int16", "uint16", "int32", "uint32"} - cl = cl{1}; - a = randi ([intmin(cl) intmax(cl)-30], 100, 100, cl); - b = a + randi (20, 100, 100, cl); - c = [0 1 0; 1 1 1; 0 1 0]; - assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) - endfor -***** test - a = randi (210, 100, 100); - b = a + randi (20, 100, 100); - c = ones (3, 1); - assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) -***** test - a = randi (210, 500, 500, 10, 4); - b = a + randi (20, 500, 500, 10, 4); - c = ones (3, 3, 3); - assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) -***** test - a = randi (210, 500, 500, 10, 4); - b = a + randi (20, 500, 500, 10, 4); - c = conndef (4, "minimal"); - assert (imreconstruct (a, b, c), parallel_reconstruction (a, b, c)) -***** test - a = [ 0 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 0 - 1 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 1 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 0 - 0 0 0 0 0 0 0 1 0 0]; - - b = [ 0 1 0 0 0 0 0 1 1 0 - 1 1 0 0 0 1 0 1 1 0 - 1 1 0 0 1 0 0 0 0 0 - 1 1 0 0 0 1 1 0 0 0 - 1 0 0 0 0 0 1 1 0 0 - 0 1 0 0 0 0 1 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 1 1 0 0 0 0 - 0 0 0 1 1 0 0 0 0 0 - 1 0 0 0 1 0 0 1 0 1]; - - c = [ 0 1 0 0 0 0 0 1 1 0 - 1 1 0 0 0 1 0 1 1 0 - 1 1 0 0 1 0 0 0 0 0 - 1 1 0 0 0 1 1 0 0 0 - 1 0 0 0 0 0 1 1 0 0 - 0 1 0 0 0 0 1 1 0 0 - 0 0 0 1 0 0 0 0 0 0 - 0 0 0 0 1 1 0 0 0 0 - 0 0 0 1 1 0 0 0 0 0 - 0 0 0 0 1 0 0 1 0 0]; - assert (imreconstruct (logical (a), logical (b)), logical (c)); - - c = [ 0 1 0 0 0 0 0 1 1 0 - 1 1 0 0 0 0 0 1 1 0 - 1 1 0 0 0 0 0 0 0 0 - 1 1 0 0 0 1 1 0 0 0 - 1 0 0 0 0 0 1 1 0 0 - 0 0 0 0 0 0 1 1 0 0 - 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 1 1 0 0 0 0 - 0 0 0 1 1 0 0 0 0 0 - 0 0 0 0 1 0 0 1 0 0]; - assert (imreconstruct (logical (a), logical (b), [0 1 0; 1 1 1; 0 1 0]), - logical (c)); -***** test - do - b = rand (100, 100, 100) > 0.98; - until (nnz (b) > 4) - b = imdilate (b, ones (5, 5, 5)); - a = false (size (b)); - f = find (b); - a(f(randi (numel (f), 6, 1))) = true; - assert (imreconstruct (a, b), parallel_reconstruction (a, b)) -***** test - a = randi (200, 100,100, 10, 10); - b = a + randi (20, 100,100, 10, 10); - c1 = ones (3, 3, 3); - c2 = zeros (3, 3, 3, 3); - c2(:,:,:,2) = c1; - assert (imreconstruct (a, b, c1), imreconstruct (a, b, c2)) -***** test - ## Values in MARKER above MASK should be clipped (bug #48794) - ## (well, treated internally as if they were clipped) - mask = logical ([1 1 1; 1 0 1; 1 1 1]); - assert (imreconstruct (true (3, 3), mask), mask) - - mask = ones (5, 5); - mask(2:4,2:4) = 0; - assert (imreconstruct (ones (5, 5), mask), mask) - - mask = ones (5, 5); - mask(2:4,2:4) = 0; - assert (imreconstruct (repmat (2, [5, 5]), mask), mask) - - mask = ones (5, 5); - mask(2:4,2:4) = 0; - assert (imreconstruct (repmat (2, [5, 5]), mask), mask) - - marker = ones (3, 3, 3, 3); - mask = marker; - mask(2, 2, 2, 2) = 0; - assert (imreconstruct (marker, mask), mask) - - marker = randi (210, 100, 100); - assert (imreconstruct (marker +1, marker), marker) - assert (imreconstruct (marker +1, marker), imreconstruct (marker, marker)) -9 tests, 9 passed, 0 known failure, 0 skipped -[src/conndef.cc] ->>>>> /build/octave-image-2.12.0/src/conndef.cc -***** assert (conndef (1, "minimal"), [1; 1; 1]); -***** assert (conndef (2, "minimal"), [0 1 0; 1 1 1; 0 1 0]); -***** test - C = zeros (3, 3, 3); - C(:,2,2) = 1; - C(2,:,2) = 1; - C(2,2,:) = 1; - assert (conndef (3, "minimal"), C); -***** test - C = zeros (3, 3, 3, 3); - C(:,:,2,1) = [0 0 0 - 0 1 0 - 0 0 0]; - C(:,:,1,2) = [0 0 0 - 0 1 0 - 0 0 0]; - C(:,:,2,2) = [0 1 0 - 1 1 1 - 0 1 0]; - C(:,:,3,2) = [0 0 0 - 0 1 0 - 0 0 0]; - C(:,:,2,3) = [0 0 0 - 0 1 0 - 0 0 0]; - assert (conndef (4, "minimal"), C); -***** assert (conndef (1, "maximal"), ones (3, 1)); -***** assert (conndef (2, "maximal"), ones (3, 3)); -***** assert (conndef (3, "maximal"), ones (3, 3, 3)); -***** assert (conndef (4, "maximal"), ones (3, 3, 3, 3)); -***** assert (nnz (conndef (3, "minimal")), 7) -***** assert (nnz (conndef (4, "minimal")), 9) -***** assert (nnz (conndef (5, "minimal")), 11) -***** assert (nnz (conndef (6, "minimal")), 13) -***** assert (find (conndef (3, "minimal")), [5 11 13 14 15 17 23](:)) -***** assert (find (conndef (4, "minimal")), [14 32 38 40 41 42 44 50 68](:)) -***** assert (find (conndef (5, "minimal")), - [ 41 95 113 119 121 122 123 125 131 149 203](:)) -***** assert (find (conndef (6, "minimal")), - [ 122 284 338 356 362 364 365 366 368 374 392 446 608](:)) -***** error conndef () -***** error conndef (-2, "minimal") -***** error conndef (char (2), "minimal") -***** error conndef ("minimal", 3) -***** error conndef (3, "invalid") -***** error conndef (10) -***** assert (conndef (2, "minimal"), conndef (4)) -***** assert (conndef (2, "maximal"), conndef (8)) -***** assert (conndef (3, "minimal"), conndef (6)) -***** assert (conndef (3, "maximal"), conndef (26)) -***** assert (conndef (18), reshape ([0 1 0 1 1 1 0 1 0 - 1 1 1 1 1 1 1 1 1 - 0 1 0 1 1 1 0 1 0], [3 3 3])) -***** test iptcheckconn ( 4, "func", "var") -***** test iptcheckconn ( 6, "func", "var") -***** test iptcheckconn ( 8, "func", "var") -***** test iptcheckconn (18, "func", "var") -***** test iptcheckconn (26, "func", "var") -***** test iptcheckconn (1, "func", "var") -***** test iptcheckconn (ones (3, 1), "func", "var") -***** test iptcheckconn (ones (3, 3), "func", "var") -***** test iptcheckconn (ones (3, 3, 3), "func", "var") -***** test iptcheckconn (ones (3, 3, 3, 3), "func", "var") -***** error - iptcheckconn (3, "func", "VAR"); -***** error - iptcheckconn ([1 1 1; 1 0 1; 1 1 1], "func", "VAR"); -***** error - iptcheckconn ([1 2 1; 1 1 1; 1 1 1], "func", "VAR"); -***** error - iptcheckconn ([0 1 1; 1 1 1; 1 1 1], "func", "VAR"); -***** error - iptcheckconn (ones (3, 3, 3, 4), "func", "VAR"); -42 tests, 42 passed, 0 known failure, 0 skipped -[src/intlut.cc] ->>>>> /build/octave-image-2.12.0/src/intlut.cc -***** assert (intlut (uint8 (1:4), uint8 ( 255:-1:0)), uint8 (254:-1:251)); -***** assert (intlut (uint16 (1:4), uint16 (65535:-1:0)), uint16 (65534:-1:65531)); -***** assert (intlut (int16 (1:4), int16 (32767:-1:-32768)), int16 (-2:-1:-5)); -***** assert (intlut (uint8 (255), uint8 (0:255)), uint8 (255)); -***** assert (intlut (uint16 (65535), uint16 (0:65535)), uint16 (65535)); -***** assert (intlut (int16 (32767), int16 (-32768:32767)), int16 (32767)); -***** error intlut () -***** error intlut ("text") -***** error intlut (1:20, uint8 (0:255)); -***** error intlut (uint16 (1:20), uint8 (0:255)); -***** error intlut (uint8 (1:20), uint8 (0:200)); -***** error intlut (uint16 (1:20), uint16 (0:500)); -***** error intlut (uint8 (56), uint8 (magic (16) -1)) -13 tests, 13 passed, 0 known failure, 0 skipped -[src/__spatial_filtering__.cc] ->>>>> /build/octave-image-2.12.0/src/__spatial_filtering__.cc -***** error - __spatial_filtering__ (ones (10), ones (3), "std", ones (10), 0) -***** error - __spatial_filtering__ (ones (10), ones (3), "std", ones (3, 3, 3), 0) -***** error - __spatial_filtering__ (ones (10), ones (3), "std", ones (1, 9), 0) -***** shared a, domain, s, out - a = [ 82 2 97 43 79 43 41 65 51 11 - 60 65 21 56 94 77 36 38 75 39 - 32 68 78 1 16 75 76 90 81 56 - 43 90 82 41 36 1 87 19 18 63 - 63 64 2 48 18 43 38 25 22 99 - 12 46 90 79 3 92 39 79 10 22 - 38 98 11 10 40 90 88 38 4 76 - 54 37 9 4 33 98 36 47 53 57 - 38 76 82 50 14 74 64 99 7 33 - 88 96 41 62 84 89 97 23 41 3]; - - domain = ones (3); - s = zeros (3); - - out = [ 2 1 1 1 16 36 36 11 - 21 1 1 1 1 1 18 18 - 2 1 1 1 1 1 18 18 - 2 2 2 1 1 1 10 10 - 2 2 2 3 3 25 4 4 - 9 4 3 3 3 36 4 4 - 9 4 4 4 14 36 4 4 - 9 4 4 4 14 23 7 3]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); - - out = [ 97 97 97 94 94 90 90 90 - 90 90 94 94 94 90 90 90 - 90 90 82 75 87 90 90 99 - 90 90 90 92 92 92 87 99 - 98 98 90 92 92 92 88 99 - 98 98 90 98 98 98 88 79 - 98 98 82 98 98 99 99 99 - 96 96 84 98 98 99 99 99]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); - - out = [ 60 43 43 43 43 43 51 51 - 60 56 36 36 36 38 38 39 - 63 48 18 18 36 38 25 25 - 46 48 36 36 36 38 22 22 - 38 46 11 40 39 39 25 22 - 37 11 10 33 39 47 38 38 - 38 11 11 33 40 64 38 38 - 41 41 33 50 64 64 41 33]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); - - out = [ 31.223 33.788 35.561 31.011 26.096 20.630 20.403 24.712 - 23.428 29.613 32.376 34.002 33.593 32.470 29.605 26.333 - 27.834 32.890 29.903 24.207 30.083 32.497 31.898 32.600 - 32.027 28.995 33.530 31.002 32.241 32.004 27.501 32.070 - 34.682 36.030 33.046 33.745 32.509 27.352 28.607 34.180 - 32.709 37.690 32.992 40.036 34.456 26.656 27.685 26.863 - 30.971 36.227 25.775 34.873 29.917 25.269 32.292 30.410 - 29.135 31.626 30.056 33.594 30.814 28.853 30.917 29.120]; -***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); - - out = [ 95 96 96 93 78 54 54 79 - 69 89 93 93 93 89 72 72 - 88 89 81 74 86 89 72 81 - 88 88 88 91 91 91 77 89 - 96 96 88 89 89 67 84 95 - 89 94 87 95 95 62 84 75 - 89 94 78 94 84 63 95 95 - 87 92 80 94 84 76 92 96]; -***** assert (__spatial_filtering__ (a, domain, "range", s), out); - - domain = [ 1 1 0 - 0 1 1 - 0 1 0]; - - out = [ 2 2 1 16 36 36 38 39 - 60 1 1 16 1 36 19 18 - 32 2 1 1 1 19 18 18 - 2 2 18 3 1 1 19 10 - 46 2 2 3 18 38 10 4 - 11 9 4 3 3 36 4 4 - 9 4 4 10 36 36 38 4 - 37 9 4 4 33 36 7 7]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); - - out = [ 82 97 97 94 79 76 90 81 - 90 82 56 94 94 90 90 81 - 90 82 78 36 87 87 90 90 - 90 90 82 43 92 87 87 99 - 98 90 79 92 92 88 79 25 - 98 90 90 90 98 92 79 79 - 98 98 50 98 98 90 99 57 - 96 82 62 84 98 99 99 53]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); - - out = [ 68 78 94 79 77 43 75 75 - 78 78 41 75 77 87 81 75 - 82 78 48 18 75 76 76 81 - 64 90 79 41 43 39 79 22 - 90 79 48 48 90 79 38 22 - 46 46 79 79 92 88 47 76 - 76 82 33 40 90 88 88 53 - 82 50 50 74 89 98 47 47]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); - - out = [ 34.2389 39.2772 39.6699 31.6812 20.7364 16.5439 22.2419 17.2395 - 11.9248 36.3084 21.6217 30.8350 36.4047 21.6726 30.9144 26.1017 - 22.2980 33.2746 27.5808 14.5017 36.8890 29.0259 34.6020 33.2521 - 32.2490 37.9579 26.9685 17.1959 32.5346 31.3847 33.5976 36.8280 - 21.3354 40.1833 34.0044 33.9882 32.9894 24.1102 25.6613 9.0995 - 35.4641 35.3794 39.0871 35.4753 39.9775 28.7193 26.7451 35.6553 - 35.2179 45.3398 19.3210 35.2987 28.4042 24.0832 26.8421 25.0539 - 23.4307 26.2812 26.3287 35.6959 25.2646 28.1016 34.9829 17.9221]; -***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); - - out = [ 80 95 96 78 43 40 52 42 - 30 81 55 78 93 54 71 63 - 58 80 77 35 86 68 72 72 - 88 88 64 40 91 86 68 89 - 52 88 77 89 74 50 69 21 - 87 81 86 87 95 56 75 75 - 89 94 46 88 62 54 61 53 - 59 73 58 80 65 63 92 46]; -***** assert (__spatial_filtering__ (a, domain, "range", s), out); - - s = [ 1 -3 4 - 6 -7 2 - -1 3 -5]; - - out = [ -1 3 4 19 38 29 31 41 - 61 3 -6 9 4 33 22 21 - 33 5 -2 2 -6 21 12 11 - 4 -5 20 6 -2 2 16 13 - 39 -1 3 -4 19 32 12 3 - 13 4 3 0 4 36 6 -3 - 11 2 -3 11 38 29 35 1 - 34 6 1 5 34 33 9 0]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 1), out); - - out = [ 83 94 98 87 80 79 93 84 - 93 85 53 91 95 92 83 74 - 84 75 79 29 89 80 87 91 - 87 93 83 45 95 84 88 101 - 101 83 72 94 93 91 72 26 - 91 87 91 92 101 93 76 80 - 95 99 53 100 91 91 102 59 - 99 75 65 87 95 101 92 50]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, nnz (domain)), out); - - out = [ 71 81 96 79 78 44 77 68 - 80 71 44 77 78 90 83 72 - 83 75 51 21 72 76 77 78 - 57 91 82 42 40 42 82 20 - 92 81 45 49 85 81 41 24 - 43 47 76 80 90 81 50 78 - 79 85 35 37 87 85 89 46 - 84 52 43 76 92 100 44 48]; -***** assert (__spatial_filtering__ (a, domain, "ordered", s, 4), out); - - out = [ 34.903 40.206 39.885 28.627 20.620 19.248 25.209 17.111 - 14.536 35.865 23.221 32.230 34.903 23.923 28.879 22.621 - 20.635 30.113 29.351 11.610 38.863 25.936 34.608 34.482 - 29.811 40.998 28.279 17.897 34.666 29.978 36.150 38.213 - 25.066 39.240 30.013 37.300 31.856 27.428 22.884 10.281 - 31.890 34.761 39.645 37.526 39.336 27.031 25.648 39.285 - 35.017 47.776 22.764 35.912 25.460 25.636 29.861 24.566 - 25.213 25.000 26.391 38.451 24.631 31.305 31.118 20.611]; -***** assert (__spatial_filtering__ (a, domain, "std", s), out, 0.001); - - out = [ 84 91 94 68 42 50 62 43 - 32 82 59 82 91 59 61 53 - 51 70 81 27 95 59 75 80 - 83 98 63 39 97 82 72 88 - 62 84 69 98 74 59 60 23 - 78 83 88 92 97 57 70 83 - 84 97 56 89 53 62 67 58 - 65 69 64 82 61 68 83 50]; -***** assert (__spatial_filtering__ (a, domain, "range", s), out); -18 tests, 18 passed, 0 known failure, 0 skipped -[src/bwfill.cc] ->>>>> /build/octave-image-2.12.0/src/bwfill.cc -***** test - A = [0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]; - R4 = logical(ones(5)); - R8 = logical([1 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); - assert (bwfill (A,1,1,4), R4) - assert (bwfill (A,1,1,8), R8) - assert (bwfill (A,1,1), R8) - B = logical([0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); - assert (bwfill (A,3,3,4), B) - assert (bwfill (A,3,3,8), B) - assert (bwfill (A,3,3), B) - C = logical ([0 1 1 1 1; 1 0 1 1 1; 1 0 1 1 1; 1 1 1 1 1; 1 0 0 1 1]); - assert (bwfill (A,3,1,8), C) - assert (bwfill (A,3,1,4), R4) - assert (bwfill (A, [3 1], [1 3], 4), R4); - D = logical([0 1 1 1 1; 1 0 1 1 1; 1 0 1 1 1; 1 1 1 1 1; 1 0 0 1 1]); - assert (bwfill (A, [3 1], [1 3], 8), D); - assert (bwfill (A, [3 1], [1 3]), D); - E = logical ([0 1 0 0 1; 1 0 1 0 0; 1 0 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); - assert (bwfill (A, "holes", 4), E); - F = logical ([1 1 0 0 1; 1 1 1 0 0; 1 1 1 1 0; 1 1 1 0 0; 1 0 0 1 0]); - assert (bwfill (A, "holes", 8), F); - assert (bwfill (A, "holes"), F); -***** error id=Octave:invalid-fun-call bwfill () -***** error id=Octave:invalid-fun-call bwfill ("aaa") -***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5) -***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, 2) -***** error bwfill (rand (5) > 0.5, "holes", 1) -***** error bwfill (rand (5) > 0.5, 2, 2, 5) -***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, "xxx") -***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, 2, 2, 4, 5) -***** error id=Octave:invalid-fun-call bwfill (rand (5) > 0.5, "holes", 4, 2) -10 tests, 10 passed, 0 known failure, 0 skipped [src/bwconncomp.cc] >>>>> /build/octave-image-2.12.0/src/bwconncomp.cc ***** test @@ -14864,6 +14652,244 @@ ***** error bwareaopen (rand (10) > 0.5, 10, "maximal") ***** error bwareaopen (rand (10) > 0.5, 10, [1 1 1; 0 1 1; 0 1 0]) 11 tests, 11 passed, 0 known failure, 0 skipped +[src/intlut.cc] +>>>>> /build/octave-image-2.12.0/src/intlut.cc +***** assert (intlut (uint8 (1:4), uint8 ( 255:-1:0)), uint8 (254:-1:251)); +***** assert (intlut (uint16 (1:4), uint16 (65535:-1:0)), uint16 (65534:-1:65531)); +***** assert (intlut (int16 (1:4), int16 (32767:-1:-32768)), int16 (-2:-1:-5)); +***** assert (intlut (uint8 (255), uint8 (0:255)), uint8 (255)); +***** assert (intlut (uint16 (65535), uint16 (0:65535)), uint16 (65535)); +***** assert (intlut (int16 (32767), int16 (-32768:32767)), int16 (32767)); +***** error intlut () +***** error intlut ("text") +***** error intlut (1:20, uint8 (0:255)); +***** error intlut (uint16 (1:20), uint8 (0:255)); +***** error intlut (uint8 (1:20), uint8 (0:200)); +***** error intlut (uint16 (1:20), uint16 (0:500)); +***** error intlut (uint8 (56), uint8 (magic (16) -1)) +13 tests, 13 passed, 0 known failure, 0 skipped +[src/bwdist.cc] +>>>>> /build/octave-image-2.12.0/src/bwdist.cc +***** shared bw + + bw = [0 1 0 1 0 1 1 0 + 0 0 0 1 1 0 0 0 + 0 0 0 1 1 0 0 0 + 0 0 0 1 1 0 0 0 + 0 0 1 1 1 1 1 1 + 1 1 1 1 0 0 0 1 + 1 1 1 0 0 0 1 0 + 0 0 1 0 0 0 1 1]; +***** test + out = [ 1.00000 0.00000 1.00000 0.00000 1.00000 0.00000 0.00000 1.00000 + 1.41421 1.00000 1.00000 0.00000 0.00000 1.00000 1.00000 1.41421 + 2.23607 2.00000 1.00000 0.00000 0.00000 1.00000 2.00000 2.00000 + 2.00000 1.41421 1.00000 0.00000 0.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 + 0.00000 0.00000 0.00000 0.00000 1.00000 1.00000 1.00000 0.00000 + 0.00000 0.00000 0.00000 1.00000 1.41421 1.00000 0.00000 1.00000 + 1.00000 1.00000 0.00000 1.00000 2.00000 1.00000 0.00000 0.00000]; + out = single (out); + + assert (bwdist (bw), out, 0.0001); # default is euclidean + assert (bwdist (bw, "euclidean"), out, 0.0001); + assert (bwdist (logical (bw), "euclidean"), out, 0.0001); +***** test + out = [ 1 0 1 0 1 0 0 1 + 1 1 1 0 0 1 1 1 + 2 2 1 0 0 1 2 2 + 2 1 1 0 0 1 1 1 + 1 1 0 0 0 0 0 0 + 0 0 0 0 1 1 1 0 + 0 0 0 1 1 1 0 1 + 1 1 0 1 2 1 0 0]; + out = single (out); + + assert (bwdist (bw, "chessboard"), out); +***** test + out = [ 1 0 1 0 1 0 0 1 + 2 1 1 0 0 1 1 2 + 3 2 1 0 0 1 2 2 + 2 2 1 0 0 1 1 1 + 1 1 0 0 0 0 0 0 + 0 0 0 0 1 1 1 0 + 0 0 0 1 2 1 0 1 + 1 1 0 1 2 1 0 0]; + out = single (out); + + assert (bwdist (bw, "cityblock"), out); +***** test + out = [ 1.00000 0.00000 1.00000 0.00000 1.00000 0.00000 0.00000 1.00000 + 1.41421 1.00000 1.00000 0.00000 0.00000 1.00000 1.00000 1.41421 + 2.41421 2.00000 1.00000 0.00000 0.00000 1.00000 2.00000 2.00000 + 2.00000 1.41421 1.00000 0.00000 0.00000 1.00000 1.00000 1.00000 + 1.00000 1.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 + 0.00000 0.00000 0.00000 0.00000 1.00000 1.00000 1.00000 0.00000 + 0.00000 0.00000 0.00000 1.00000 1.41421 1.00000 0.00000 1.00000 + 1.00000 1.00000 0.00000 1.00000 2.00000 1.00000 0.00000 0.00000]; + out = single (out); + + assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); + + bw(logical (bw)) = 3; # there is no actual check if matrix is binary or 0 and 1 + assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); + + bw(logical (bw)) = -2; # anything non-zero is considered object + assert (bwdist (bw, "quasi-euclidean"), out, 0.0001); +***** test + bw = [ 1 1 1 1 0 1 1 1 1 + 1 1 1 1 0 1 1 1 1 + 1 1 0 1 1 1 1 1 1 + 0 1 1 1 1 1 1 1 1]; + + dist = [ 0 0 0 0 1 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0]; + dist = single (dist); + + c = [ 1 5 9 13 13 21 25 29 33 + 2 6 10 14 14 22 26 30 34 + 3 7 10 15 19 23 27 31 35 + 8 8 12 16 20 24 28 32 36]; + c = uint32 (c); + + [dout, cout] = bwdist (bw, "euclidean"); + assert (dout, dist) + assert (cout, c) +***** test + bw = [ 0 1 1 0 0 0 1 0 + 0 0 0 0 0 0 0 0 + 1 1 0 0 0 0 0 0 + 0 0 0 0 0 0 1 0 + 0 0 0 0 1 0 0 1 + 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 + 0 0 1 0 0 1 1 0]; + out = single ([ + 1.00000 0.00000 0.00000 1.00000 2.00000 1.00000 0.00000 1.00000 + 1.00000 1.00000 1.00000 sqrt(2) sqrt(2)+1 sqrt(2) 1.00000 sqrt(2) + 0.00000 0.00000 1.00000 2.00000 2.00000 sqrt(2) 1.00000 sqrt(2) + 1.00000 1.00000 sqrt(2) sqrt(2) 1.00000 1.00000 0.00000 1.00000 + 2.00000 2.00000 2.00000 1.00000 0.00000 1.00000 1.00000 0.00000 + 1.00000 sqrt(2) 2.00000 sqrt(2) 1.00000 sqrt(2) sqrt(2) 1.00000 + 0.00000 1.00000 1.00000 sqrt(2) sqrt(2) 1.00000 1.00000 sqrt(2) + 1.00000 1.00000 0.00000 1.00000 1.00000 0.00000 0.00000 1.00000 + ]); + assert (bwdist (bw, "quasi-euclidean"), out); +***** error bwdist (bw, "not a valid method"); +***** test + ## Special case of there being no foreground element (bug #50874) + expected_dist = single (Inf (2, 2)); + expected_idx = uint32 ([0 0; 0 0]); + + [dist, idx] = bwdist (false (2, 2)); + assert (dist, expected_dist) + assert (idx, expected_idx) + + [dist, idx] = bwdist (zeros (2, 2)); + assert (dist, expected_dist) + assert (idx, expected_idx) +***** test + ## Special case of 1D input (bug #50874) + assert (bwdist ([1 0]), single ([0 1])) + assert (bwdist ([1 0]'), single ([0 1]')) + assert (bwdist ([0 1 0 0 0 0 1 1]), single ([1 0 1 2 2 1 0 0])) + assert (bwdist ([1 1 0 0 0 0 1 1]'), single ([0 0 1 2 2 1 0 0])') + assert (bwdist ([1 0], "euclidean"), single ([0 1])) + assert (bwdist ([1 0], "chessboard"), single ([0 1])) + assert (bwdist ([1 0], "cityblock"), single ([0 1])) + assert (bwdist ([1 0], "quasi-euclidean"), single ([0 1])) +***** test + ## test 1D input with 2nd output argument (indices) (bug #50874) + expected_dist = single ([1 0 1]); + expected_idx = uint32 ([2 2 2]); + + [dist, idx] = bwdist ([0 1 0]); + assert (dist, expected_dist) + assert (idx, expected_idx) + + [dist, idx] = bwdist ([0 1 0]'); + assert (dist, expected_dist') + assert (idx, expected_idx') + + expected_dist = single ([0 0 1 0 0]); + expected_idx = uint32 ([1 2 2 4 5]); + [dist, idx] = bwdist ([1 1 0 1 1]); + assert (dist, expected_dist) + assert (idx, expected_idx) + + expected_dist = single ([1 0 1 2 1 0 0 0 1 1 0 0 0 0 1 2 3 4]); + expected_idx = uint32 ([2 2 2 2 6 6 7 8 8 11 11 12 13 14 14 14 14 14]); + [dist, idx] = bwdist ([0 1 0 0 0 1 1 1 0 0 1 1 1 1 0 0 0 0]); + assert (dist, expected_dist) + assert (idx, expected_idx) + + expected_dist = single ([0 0 1 2 1 0 0 0 1 1 0 0 0 0 1 2 1 0]); + expected_idx = uint32 ([1 2 2 2 6 6 7 8 8 11 11 12 13 14 14 14 18 18]); + [dist, idx] = bwdist ([1 1 0 0 0 1 1 1 0 0 1 1 1 1 0 0 0 1]); + assert (dist, expected_dist) + assert (idx, expected_idx) +***** test + assert (bwdist ([0 0]), single ([Inf, Inf])) + assert (bwdist ([0 0]'), single ([Inf, Inf]')) +***** xtest + ## This is Matlab incompatible because the bottom right corners is + ## equally distant to the top right and bottom left corners. However, + ## both are correct answers, and the returned value is just + ## implementation dependent. + bw = logical ([ + 0 0 1 + 0 0 0 + 1 0 0 + ]); + expected_dist = single ([ + 2.0 1.0 0.0 + 1.0 sqrt(2) 1.0 + 0.0 1.0 2.0 + ]); + expected_idx = uint32 ([ + 3 7 7 + 3 3 7 + 3 3 3 + ]); + [dist, idx] = bwdist (bw); + assert (dist, expected_dist) + assert (idx, expected_idx) +!!!!! known failure +ASSERT errors for: assert (idx,expected_idx) + + Location | Observed | Expected | Reason + (3,3) 7 3 Abs err 4 exceeds tol 0 by 4 +12 tests, 11 passed, 1 known failure, 0 skipped +[src/graycomatrix.cc] +>>>>> /build/octave-image-2.12.0/src/graycomatrix.cc +***** shared a +***** test + a = [0 0 0 1 2; + 1 1 0 1 1; + 2 2 1 0 0; + 1 1 0 2 0; + 0 0 1 0 1]; + squeeze(graycomatrix(a, 3, 1, -pi/4)) == [4 2 0; + 2 3 2; + 1 2 0]; + +***** assert(size(graycomatrix(a, 3, 1:5, [0:3]*-pi/4)), [3, 3, 5, 4]) +***** demo + + # Pattern Recognition Engineering (Nadler & Smith) + # Digital Image Processing (Gonzales & Woods), p. 668 + + a = [0 0 0 1 2; + 1 1 0 1 1; + 2 2 1 0 0; + 1 1 0 2 0; + 0 0 1 0 1]; + + graycomatrix(a, 3, 1, [0 1]*-pi/4) + +2 tests, 2 passed, 0 known failure, 0 skipped Summary: 1890 tests, 1852 passed, 38 known failures, 0 skipped dh_installdocs -O--buildsystem=octave dh_installchangelogs -O--buildsystem=octave @@ -14880,7 +14906,7 @@ dh_strip -a -O--buildsystem=octave dh_makeshlibs -a -O--buildsystem=octave dh_shlibdeps -a -O--buildsystem=octave -dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__bilateral__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/rotate_scale.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__eps__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/nonmax_suppress.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/imreconstruct.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__custom_gaussian_smoothing__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/intlut.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwdist.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwlabeln.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/watershed.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwfill.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__boundary__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/conndef.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/hough_line.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/graycomatrix.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__spatial_filtering__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwconncomp.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/imerode.oct were not linked against libpthread.so.0 (they use none of the library's symbols) +dpkg-shlibdeps: warning: package could avoid a useless dependency if debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/nonmax_suppress.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__boundary__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/watershed.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__custom_gaussian_smoothing__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwconncomp.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/rotate_scale.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/intlut.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwdist.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/graycomatrix.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/hough_line.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__spatial_filtering__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__eps__.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwfill.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/imreconstruct.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/imerode.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/bwlabeln.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/conndef.oct debian/octave-image/usr/lib/i386-linux-gnu/octave/packages/image-2.12.0/i686-pc-linux-gnu-api-v55/__bilateral__.oct were not linked against libpthread.so.0 (they use none of the library's symbols) dh_octave_substvar -O--buildsystem=octave dh_installdeb -O--buildsystem=octave dh_gencontrol -O--buildsystem=octave @@ -14897,12 +14923,14 @@ dpkg-source: info: using options from octave-image-2.12.0/debian/source/options: --extend-diff-ignore=inst/im2double\.m|src/Makefile|src/config\.h|src/config\.log|src/config\.status|src/confdefs\.h|src/conftest\.cpp|src/ntsc2rgb\.m|src/rgb2ntsc\.m|inst/ntsc2rgb\.m|inst/rgb2ntsc\.m dpkg-buildpackage: info: binary-only upload (no source included) I: copying local configuration +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/17577/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/8141 and its subdirectories -I: Current time: Tue Jul 6 02:10:24 -12 2021 -I: pbuilder-time-stamp: 1625580624 +I: removing directory /srv/workspace/pbuilder/17577 and its subdirectories +I: Current time: Tue Aug 9 10:39:41 +14 2022 +I: pbuilder-time-stamp: 1659991181