Artifact
6cbaabf45453d5d27ef5be98ec2aa7c6b1fa63006094de6c30164a67df28ef3c
File
tests/sample-fill.test
— part of check-in
[49928cdba7]
at
2024-02-08 17:31:07
on branch trunk
— chore: tcl 9 compatibility work, runtime
note: mostly Tcl_Size work, marking places, headers, data formatting, enable in tests
note: bytearray writer redone. changed signatures, define special values, write
note: to C-managed byte buffer, conversion to bytearray Tcl_Obj only at end
feat: low-level macros providing linear and bilinear interpolation
chore: copyright bumps
(user:
aku
size: 4858)
0000: 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 20 74 63 # -*- tcl -*- tc
0010: 6c 2e 74 6b 2f 2f 44 53 4c 20 74 63 6c 74 65 73 l.tk//DSL tcltes
0020: 74 2f 2f 45 4e 2f 2f 32 2e 30 20 74 63 6c 2e 74 t//EN//2.0 tcl.t
0030: 6b 2f 2f 44 53 4c 20 74 63 6c 74 65 73 74 2f 2f k//DSL tcltest//
0040: 45 4e 2f 2f 32 2e 30 0a 23 23 20 28 63 29 20 32 EN//2.0.## (c) 2
0050: 30 32 33 2c 32 30 32 34 20 41 6e 64 72 65 61 73 023,2024 Andreas
0060: 20 4b 75 70 72 69 65 73 0a 23 20 23 20 23 23 20 Kupries.# # ##
0070: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
0080: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0090: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
00a0: 23 23 23 23 23 23 0a 23 23 20 41 4b 54 49 56 45 ######.## AKTIVE
00b0: 2e 20 55 70 73 61 6d 70 6c 69 6e 67 20 72 6f 77 . Upsampling row
00c0: 73 2c 20 63 6f 6c 75 6d 6e 73 2c 20 62 61 6e 64 s, columns, band
00d0: 73 20 62 79 20 7a 65 72 6f 2d 73 74 75 66 66 69 s by zero-stuffi
00e0: 6e 67 0a 23 23 20 20 20 20 20 20 20 20 20 28 41 ng.## (A
00f0: 63 74 75 61 6c 6c 79 20 61 6e 79 20 64 65 73 69 ctually any desi
0100: 72 65 64 20 66 69 6c 6c 20 76 61 6c 75 65 2c 20 red fill value,
0110: 30 20 69 73 20 64 65 66 61 75 6c 74 29 2e 0a 0a 0 is default)...
0120: 6b 74 20 63 68 65 63 6b 20 54 63 6c 20 20 20 20 kt check Tcl
0130: 20 38 2e 36 20 39 0a 6b 74 20 63 68 65 63 6b 20 8.6 9.kt check
0140: 74 63 6c 74 65 73 74 20 32 0a 0a 23 20 23 20 23 tcltest 2..# # #
0150: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0160: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0170: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0180: 23 23 23 23 23 23 23 23 0a 0a 6b 74 20 6c 6f 63 ########..kt loc
0190: 61 6c 20 74 65 73 74 69 6e 67 20 61 6b 74 69 76 al testing aktiv
01a0: 65 0a 0a 6b 74 20 73 6f 75 72 63 65 20 73 75 70 e..kt source sup
01b0: 70 6f 72 74 2f 75 74 69 6c 2e 74 63 6c 0a 0a 23 port/util.tcl..#
01c0: 20 54 4f 44 4f 20 3a 3a 20 41 63 63 65 73 73 20 TODO :: Access
01d0: 75 6e 61 6c 69 67 6e 65 64 20 74 6f 20 67 72 69 unaligned to gri
01e0: 64 20 2d 2d 20 2f 73 65 6c 65 63 74 0a 0a 23 20 d -- /select..#
01f0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
0200: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0210: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0220: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 53 ###########.## S
0230: 79 6e 74 61 78 0a 0a 73 79 6e 74 61 78 20 7b 0a yntax..syntax {.
0240: 20 20 20 20 78 20 20 7b 73 72 63 20 61 72 67 73 x {src args
0250: 7d 0a 20 20 20 20 78 79 20 7b 73 72 63 20 61 72 }. xy {src ar
0260: 67 73 7d 0a 20 20 20 20 79 20 20 7b 73 72 63 20 gs}. y {src
0270: 61 72 67 73 7d 0a 20 20 20 20 7a 20 20 7b 73 72 args}. z {sr
0280: 63 20 61 72 67 73 7d 0a 7d 20 7b 61 6b 74 69 76 c args}.} {aktiv
0290: 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 69 6c 6c e op sample fill
02a0: 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 }..# # ## ### ##
02b0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
02c0: 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 ########## #####
02d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02e0: 0a 23 23 0a 23 20 69 6e 70 75 74 2f 67 72 61 64 .##.# input/grad
02f0: 69 65 6e 74 20 33 78 34 78 32 0a 23 23 0a 23 23 ient 3x4x2.##.##
0300: 20 20 20 20 20 20 20 30 20 2e 2e 2e 2e 20 20 20 0 ....
0310: 31 2e 2e 2e 2e 2e 2e 20 20 20 32 2e 2e 2e 2e 2e 1...... 2.....
0320: 2e 20 2d 20 33 20 63 6f 6c 75 6d 6e 73 0a 23 23 . - 3 columns.##
0330: 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d -------- -
0340: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d ------- -------
0350: 2d 0a 23 09 20 31 20 20 31 2e 35 20 20 20 20 32 -.#. 1 1.5 2
0360: 20 20 32 2e 35 20 20 20 20 33 20 20 33 2e 35 20 2.5 3 3.5
0370: 20 30 0a 23 09 20 34 20 20 34 2e 35 20 20 20 20 0.#. 4 4.5
0380: 35 20 20 35 2e 35 20 20 20 20 36 20 20 36 2e 35 5 5.5 6 6.5
0390: 20 20 31 0a 23 09 20 37 20 20 37 2e 35 20 20 20 1.#. 7 7.5
03a0: 20 38 20 20 38 2e 35 20 20 20 20 39 20 20 39 2e 8 8.5 9 9.
03b0: 35 20 20 32 0a 23 09 31 30 20 31 30 2e 35 20 20 5 2.#.10 10.5
03c0: 20 31 31 20 31 31 2e 35 20 20 20 31 32 20 31 32 11 11.5 12 12
03d0: 2e 35 20 20 33 0a 23 23 20 20 20 20 20 2d 2d 2d .5 3.## ---
03e0: 20 2d 2d 2d 2d 20 20 2d 2d 2d 20 2d 2d 2d 2d 20 ---- --- ----
03f0: 20 2d 2d 2d 20 2d 2d 2d 2d 20 20 5c 20 34 20 72 --- ---- \ 4 r
0400: 6f 77 73 0a 23 23 20 20 20 20 20 20 30 2e 20 31 ows.## 0. 1
0410: 2e 2e 2e 20 20 20 30 2e 20 31 2e 2e 2e 20 20 20 ... 0. 1...
0420: 30 2e 20 31 2e 2e 2e 20 2d 20 32 20 62 61 6e 64 0. 1... - 2 band
0430: 73 0a 23 0a 23 20 55 70 73 61 6d 70 6c 69 6e 67 s.#.# Upsampling
0440: 20 63 6f 6c 75 6d 6e 73 2c 20 72 6f 77 73 2c 20 columns, rows,
0450: 6f 72 20 62 61 6e 64 73 0a 0a 66 6f 72 65 61 63 or bands..foreac
0460: 68 20 7b 6f 70 20 64 6f 6d 61 69 6e 20 65 78 70 h {op domain exp
0470: 65 63 74 65 64 7d 20 7b 0a 20 20 20 20 78 20 7b ected} {. x {
0480: 36 20 34 20 32 7d 20 7b 0a 09 3d 20 20 31 20 20 6 4 2} {..= 1
0490: 31 2e 35 20 3d 20 30 20 30 20 3d 20 20 32 20 20 1.5 = 0 0 = 2
04a0: 32 2e 35 20 3d 20 30 20 30 20 3d 20 20 33 20 20 2.5 = 0 0 = 3
04b0: 33 2e 35 20 3d 20 30 20 30 20 3d 0a 09 3d 20 20 3.5 = 0 0 =..=
04c0: 34 20 20 34 2e 35 20 3d 20 30 20 30 20 3d 20 20 4 4.5 = 0 0 =
04d0: 35 20 20 35 2e 35 20 3d 20 30 20 30 20 3d 20 20 5 5.5 = 0 0 =
04e0: 36 20 20 36 2e 35 20 3d 20 30 20 30 20 3d 0a 09 6 6.5 = 0 0 =..
04f0: 3d 20 20 37 20 20 37 2e 35 20 3d 20 30 20 30 20 = 7 7.5 = 0 0
0500: 3d 20 20 38 20 20 38 2e 35 20 3d 20 30 20 30 20 = 8 8.5 = 0 0
0510: 3d 20 20 39 20 20 39 2e 35 20 3d 20 30 20 30 20 = 9 9.5 = 0 0
0520: 3d 0a 09 3d 20 31 30 20 31 30 2e 35 20 3d 20 30 =..= 10 10.5 = 0
0530: 20 30 20 3d 20 31 31 20 31 31 2e 35 20 3d 20 30 0 = 11 11.5 = 0
0540: 20 30 20 3d 20 31 32 20 31 32 2e 35 20 3d 20 30 0 = 12 12.5 = 0
0550: 20 30 20 3d 0a 20 20 20 20 7d 0a 20 20 20 20 79 0 =. }. y
0560: 20 7b 33 20 38 20 32 7d 20 7b 0a 09 3d 20 20 31 {3 8 2} {..= 1
0570: 20 20 31 2e 35 20 3d 20 20 32 20 20 32 2e 35 20 1.5 = 2 2.5
0580: 3d 20 20 33 20 20 33 2e 35 20 3d 0a 09 3d 20 20 = 3 3.5 =..=
0590: 30 20 20 30 20 20 20 3d 20 20 30 20 20 30 20 20 0 0 = 0 0
05a0: 20 3d 20 20 30 20 20 30 20 20 20 3d 0a 09 3d 20 = 0 0 =..=
05b0: 20 34 20 20 34 2e 35 20 3d 20 20 35 20 20 35 2e 4 4.5 = 5 5.
05c0: 35 20 3d 20 20 36 20 20 36 2e 35 20 3d 0a 09 3d 5 = 6 6.5 =..=
05d0: 20 20 30 20 20 30 20 20 20 3d 20 20 30 20 20 30 0 0 = 0 0
05e0: 20 20 20 3d 20 20 30 20 20 30 20 20 20 3d 0a 09 = 0 0 =..
05f0: 3d 20 20 37 20 20 37 2e 35 20 3d 20 20 38 20 20 = 7 7.5 = 8
0600: 38 2e 35 20 3d 20 20 39 20 20 39 2e 35 20 3d 0a 8.5 = 9 9.5 =.
0610: 09 3d 20 20 30 20 20 30 20 20 20 3d 20 20 30 20 .= 0 0 = 0
0620: 20 30 20 20 20 3d 20 20 30 20 20 30 20 20 20 3d 0 = 0 0 =
0630: 0a 09 3d 20 31 30 20 31 30 2e 35 20 3d 20 31 31 ..= 10 10.5 = 11
0640: 20 31 31 2e 35 20 3d 20 31 32 20 31 32 2e 35 20 11.5 = 12 12.5
0650: 3d 0a 09 3d 20 20 30 20 20 30 20 20 20 3d 20 20 =..= 0 0 =
0660: 30 20 20 30 20 20 20 3d 20 20 30 20 20 30 20 20 0 0 = 0 0
0670: 20 3d 0a 20 20 20 20 7d 0a 20 20 20 20 7a 20 7b =. }. z {
0680: 33 20 34 20 34 7d 20 7b 0a 09 3d 20 20 31 20 30 3 4 4} {..= 1 0
0690: 20 20 31 2e 35 20 30 20 3d 20 20 32 20 30 20 20 1.5 0 = 2 0
06a0: 32 2e 35 20 30 20 3d 20 20 33 20 30 20 20 33 2e 2.5 0 = 3 0 3.
06b0: 35 20 30 20 3d 0a 09 3d 20 20 34 20 30 20 20 34 5 0 =..= 4 0 4
06c0: 2e 35 20 30 20 3d 20 20 35 20 30 20 20 35 2e 35 .5 0 = 5 0 5.5
06d0: 20 30 20 3d 20 20 36 20 30 20 20 36 2e 35 20 30 0 = 6 0 6.5 0
06e0: 20 3d 0a 09 3d 20 20 37 20 30 20 20 37 2e 35 20 =..= 7 0 7.5
06f0: 30 20 3d 20 20 38 20 30 20 20 38 2e 35 20 30 20 0 = 8 0 8.5 0
0700: 3d 20 20 39 20 30 20 20 39 2e 35 20 30 20 3d 0a = 9 0 9.5 0 =.
0710: 09 3d 20 31 30 20 30 20 31 30 2e 35 20 30 20 3d .= 10 0 10.5 0 =
0720: 20 31 31 20 30 20 31 31 2e 35 20 30 20 3d 20 31 11 0 11.5 0 = 1
0730: 32 20 30 20 31 32 2e 35 20 30 20 3d 0a 20 20 20 2 0 12.5 0 =.
0740: 20 7d 0a 20 20 20 20 78 79 20 7b 36 20 38 20 32 }. xy {6 8 2
0750: 7d 20 7b 0a 09 3d 20 20 31 20 20 31 2e 35 20 3d } {..= 1 1.5 =
0760: 20 30 20 30 20 3d 20 20 32 20 20 32 2e 35 20 3d 0 0 = 2 2.5 =
0770: 20 30 20 30 20 3d 20 20 33 20 20 33 2e 35 20 3d 0 0 = 3 3.5 =
0780: 20 30 20 30 20 3d 0a 09 3d 20 20 30 20 20 30 20 0 0 =..= 0 0
0790: 20 20 3d 20 30 20 30 20 3d 20 20 30 20 20 30 20 = 0 0 = 0 0
07a0: 20 20 3d 20 30 20 30 20 3d 20 20 30 20 20 30 20 = 0 0 = 0 0
07b0: 20 20 3d 20 30 20 30 20 20 3d 0a 09 3d 20 20 34 = 0 0 =..= 4
07c0: 20 20 34 2e 35 20 3d 20 30 20 30 20 3d 20 20 35 4.5 = 0 0 = 5
07d0: 20 20 35 2e 35 20 3d 20 30 20 30 20 3d 20 20 36 5.5 = 0 0 = 6
07e0: 20 20 36 2e 35 20 3d 20 30 20 30 20 3d 0a 09 3d 6.5 = 0 0 =..=
07f0: 20 20 30 20 20 30 20 20 20 3d 20 30 20 30 20 3d 0 0 = 0 0 =
0800: 20 20 30 20 20 30 20 20 20 3d 20 30 20 30 20 3d 0 0 = 0 0 =
0810: 20 20 30 20 20 30 20 20 20 3d 20 30 20 30 20 20 0 0 = 0 0
0820: 3d 0a 09 3d 20 20 37 20 20 37 2e 35 20 3d 20 30 =..= 7 7.5 = 0
0830: 20 30 20 3d 20 20 38 20 20 38 2e 35 20 3d 20 30 0 = 8 8.5 = 0
0840: 20 30 20 3d 20 20 39 20 20 39 2e 35 20 3d 20 30 0 = 9 9.5 = 0
0850: 20 30 20 3d 0a 09 3d 20 20 30 20 20 30 20 20 20 0 =..= 0 0
0860: 3d 20 30 20 30 20 3d 20 20 30 20 20 30 20 20 20 = 0 0 = 0 0
0870: 3d 20 30 20 30 20 3d 20 20 30 20 20 30 20 20 20 = 0 0 = 0 0
0880: 3d 20 30 20 30 20 20 3d 0a 09 3d 20 31 30 20 31 = 0 0 =..= 10 1
0890: 30 2e 35 20 3d 20 30 20 30 20 3d 20 31 31 20 31 0.5 = 0 0 = 11 1
08a0: 31 2e 35 20 3d 20 30 20 30 20 3d 20 31 32 20 31 1.5 = 0 0 = 12 1
08b0: 32 2e 35 20 3d 20 30 20 30 20 3d 0a 09 3d 20 20 2.5 = 0 0 =..=
08c0: 30 20 20 30 20 20 20 3d 20 30 20 30 20 3d 20 20 0 0 = 0 0 =
08d0: 30 20 20 30 20 20 20 3d 20 30 20 30 20 3d 20 20 0 0 = 0 0 =
08e0: 30 20 20 30 20 20 20 3d 20 30 20 30 20 20 3d 0a 0 0 = 0 0 =.
08f0: 20 20 20 20 7d 0a 7d 20 7b 0a 20 20 20 20 73 65 }.} {. se
0900: 74 20 6f 70 64 20 24 6f 70 20 3b 20 69 66 20 7b t opd $op ; if {
0910: 24 6f 70 20 65 71 20 22 78 79 22 7d 20 7b 20 73 $op eq "xy"} { s
0920: 65 74 20 6f 70 64 20 79 20 7d 0a 0a 20 20 20 20 et opd y }..
0930: 74 65 73 74 20 61 6b 74 69 76 65 2d 6f 70 2d 73 test aktive-op-s
0940: 61 6d 70 6c 65 2d 66 69 6c 6c 2d 24 7b 6f 70 7d ample-fill-${op}
0950: 2d 32 2e 30 20 22 61 6b 74 69 76 65 20 6f 70 20 -2.0 "aktive op
0960: 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f 70 20 sample fill $op
0970: 32 78 22 20 2d 62 6f 64 79 20 7b 0a 09 61 73 74 2x" -body {..ast
0980: 63 6c 20 61 6b 74 69 76 65 20 6f 70 20 73 61 6d cl aktive op sam
0990: 70 6c 65 20 66 69 6c 6c 20 24 6f 70 20 5b 67 72 ple fill $op [gr
09a0: 61 64 5d 20 62 79 20 32 20 66 69 6c 6c 20 30 0a ad] by 2 fill 0.
09b0: 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 69 6d 61 } -match ima
09c0: 67 65 20 2d 72 65 73 75 6c 74 20 5b 6d 61 6b 65 ge -result [make
09d0: 69 20 6f 70 3a 3a 73 61 6d 70 6c 65 3a 3a 66 69 i op::sample::fi
09e0: 6c 6c 3a 3a 24 6f 70 64 20 30 20 30 20 7b 2a 7d ll::$opd 0 0 {*}
09f0: 24 64 6f 6d 61 69 6e 20 7b 62 79 20 32 20 66 69 $domain {by 2 fi
0a00: 6c 6c 20 30 2e 30 7d 20 24 65 78 70 65 63 74 65 ll 0.0} $expecte
0a10: 64 5d 0a 0a 20 20 20 20 74 65 73 74 20 61 6b 74 d].. test akt
0a20: 69 76 65 2d 6f 70 2d 73 61 6d 70 6c 65 2d 66 69 ive-op-sample-fi
0a30: 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e 31 20 22 61 6b ll-${op}-2.1 "ak
0a40: 74 69 76 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 tive op sample f
0a50: 69 6c 6c 20 24 6f 70 2c 20 64 61 67 22 20 2d 62 ill $op, dag" -b
0a60: 6f 64 79 20 7b 0a 09 64 61 67 20 61 6b 74 69 76 ody {..dag aktiv
0a70: 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 69 6c 6c e op sample fill
0a80: 20 24 6f 70 20 5b 67 72 61 64 5d 20 62 79 20 32 $op [grad] by 2
0a90: 20 66 69 6c 6c 20 30 0a 20 20 20 20 7d 20 2d 6d fill 0. } -m
0aa0: 61 74 63 68 20 67 6c 6f 62 20 2d 72 65 73 75 6c atch glob -resul
0ab0: 74 20 22 6f 70 3a 3a 73 61 6d 70 6c 65 3a 3a 66 t "op::sample::f
0ac0: 69 6c 6c 3a 3a 24 6f 70 64 20 2a 20 7b 62 79 20 ill::$opd * {by
0ad0: 32 20 66 69 6c 6c 20 30 2e 30 7d 20 7b 69 6d 61 2 fill 0.0} {ima
0ae0: 67 65 3a 3a 67 72 61 64 69 65 6e 74 20 2a 7d 22 ge::gradient *}"
0af0: 0a 0a 20 20 20 20 73 65 74 20 69 6e 20 5b 67 72 .. set in [gr
0b00: 61 64 5d 0a 20 20 20 20 73 65 74 20 69 64 20 5b ad]. set id [
0b10: 61 6b 74 69 76 65 20 71 75 65 72 79 20 69 64 20 aktive query id
0b20: 24 69 6e 5d 0a 0a 20 20 20 20 74 65 73 74 20 61 $in].. test a
0b30: 6b 74 69 76 65 2d 6f 70 2d 73 61 6d 70 6c 65 2d ktive-op-sample-
0b40: 66 69 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e 32 20 22 fill-${op}-2.2 "
0b50: 61 6b 74 69 76 65 20 6f 70 20 73 61 6d 70 6c 65 aktive op sample
0b60: 20 66 69 6c 6c 20 24 6f 70 2c 20 31 78 20 69 73 fill $op, 1x is
0b70: 20 69 64 65 6e 74 69 74 79 22 20 2d 62 6f 64 79 identity" -body
0b80: 20 7b 0a 09 64 61 67 20 61 6b 74 69 76 65 20 6f {..dag aktive o
0b90: 70 20 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f p sample fill $o
0ba0: 70 20 24 69 6e 20 62 79 20 31 20 66 69 6c 6c 20 p $in by 1 fill
0bb0: 30 0a 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 67 0. } -match g
0bc0: 6c 6f 62 20 2d 72 65 73 75 6c 74 20 22 69 6d 61 lob -result "ima
0bd0: 67 65 3a 3a 67 72 61 64 69 65 6e 74 20 24 69 64 ge::gradient $id
0be0: 20 2a 22 0a 0a 20 20 20 20 75 6e 73 65 74 20 69 *".. unset i
0bf0: 6e 20 69 64 0a 0a 20 20 20 20 23 20 6e 6f 20 72 n id.. # no r
0c00: 65 64 75 63 74 69 6f 6e 73 20 66 6f 72 20 78 79 eductions for xy
0c10: 20 79 65 74 0a 20 20 20 20 69 66 20 7b 24 6f 70 yet. if {$op
0c20: 20 6e 65 20 22 78 79 22 7d 20 7b 0a 09 74 65 73 ne "xy"} {..tes
0c30: 74 20 61 6b 74 69 76 65 2d 6f 70 2d 73 61 6d 70 t aktive-op-samp
0c40: 6c 65 2d 66 69 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e le-fill-${op}-2.
0c50: 33 20 22 61 6b 74 69 76 65 20 6f 70 20 73 61 6d 3 "aktive op sam
0c60: 70 6c 65 20 66 69 6c 6c 20 24 6f 70 2c 20 63 68 ple fill $op, ch
0c70: 61 69 6e 20 72 65 64 75 63 74 69 6f 6e 2c 20 66 ain reduction, f
0c80: 61 63 74 6f 72 73 20 6d 75 6c 74 69 70 6c 79 2c actors multiply,
0c90: 20 66 6f 72 20 73 61 6d 65 20 66 69 6c 6c 22 20 for same fill"
0ca0: 2d 62 6f 64 79 20 7b 0a 09 20 20 20 20 64 61 67 -body {.. dag
0cb0: 20 61 6b 74 69 76 65 20 6f 70 20 73 61 6d 70 6c aktive op sampl
0cc0: 65 20 66 69 6c 6c 20 24 6f 70 20 5b 61 6b 74 69 e fill $op [akti
0cd0: 76 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 69 6c ve op sample fil
0ce0: 6c 20 24 6f 70 20 5b 67 72 61 64 5d 20 62 79 20 l $op [grad] by
0cf0: 32 20 66 69 6c 6c 20 30 5d 20 62 79 20 33 20 66 2 fill 0] by 3 f
0d00: 69 6c 6c 20 30 0a 09 7d 20 2d 6d 61 74 63 68 20 ill 0..} -match
0d10: 67 6c 6f 62 20 2d 72 65 73 75 6c 74 20 22 6f 70 glob -result "op
0d20: 3a 3a 73 61 6d 70 6c 65 3a 3a 66 69 6c 6c 3a 3a ::sample::fill::
0d30: 24 6f 70 20 2a 20 7b 62 79 20 36 20 66 69 6c 6c $op * {by 6 fill
0d40: 20 30 2e 30 7d 20 7b 69 6d 61 67 65 3a 3a 67 72 0.0} {image::gr
0d50: 61 64 69 65 6e 74 20 2a 7d 22 0a 0a 09 74 65 73 adient *}"...tes
0d60: 74 20 61 6b 74 69 76 65 2d 6f 70 2d 73 61 6d 70 t aktive-op-samp
0d70: 6c 65 2d 66 69 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e le-fill-${op}-2.
0d80: 34 20 22 61 6b 74 69 76 65 20 6f 70 20 73 61 6d 4 "aktive op sam
0d90: 70 6c 65 20 66 69 6c 6c 20 24 6f 70 2c 20 70 61 ple fill $op, pa
0da0: 72 74 69 61 6c 20 76 69 65 77 22 20 2d 62 6f 64 rtial view" -bod
0db0: 79 20 7b 0a 09 20 20 20 70 69 78 65 6c 73 20 61 y {.. pixels a
0dc0: 6b 74 69 76 65 20 6f 70 20 73 65 6c 65 63 74 20 ktive op select
0dd0: 24 6f 70 20 5b 61 6b 74 69 76 65 20 6f 70 20 73 $op [aktive op s
0de0: 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f 70 20 5b ample fill $op [
0df0: 67 72 61 64 24 6f 70 5d 20 62 79 20 33 20 66 69 grad$op] by 3 fi
0e00: 6c 6c 20 30 5d 20 66 72 6f 6d 20 35 20 74 6f 20 ll 0] from 5 to
0e10: 31 30 0a 09 7d 20 2d 6d 61 74 63 68 20 70 69 78 10..} -match pix
0e20: 65 6c 73 20 2d 72 65 73 75 6c 74 20 7b 30 20 32 els -result {0 2
0e30: 20 30 20 30 20 33 20 30 7d 0a 20 20 20 20 7d 0a 0 0 3 0}. }.
0e40: 0a 20 20 20 20 23 23 0a 20 20 20 20 23 20 2d 20 . ##. # -
0e50: 2d 2d 20 2d 2d 2d 20 2d 2d 2d 2d 2d 20 2d 2d 2d -- --- ----- ---
0e60: 2d 2d 2d 2d 2d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----- ----------
0e70: 2d 2d 2d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --- ------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 23 23 ---------. ##
0e90: 20 53 6c 69 63 65 20 61 6e 64 20 63 68 65 63 6b Slice and check
0ea0: 20 69 6e 20 61 6c 6c 20 64 69 72 65 63 74 69 6f in all directio
0eb0: 6e 73 0a 0a 20 20 20 20 6c 61 73 73 69 67 6e 20 ns.. lassign
0ec0: 24 64 6f 6d 61 69 6e 20 77 20 68 20 64 0a 0a 20 $domain w h d..
0ed0: 20 20 20 66 6f 72 20 7b 73 65 74 20 72 6f 77 20 for {set row
0ee0: 30 7d 20 7b 24 72 6f 77 20 3c 20 24 68 7d 20 7b 0} {$row < $h} {
0ef0: 69 6e 63 72 20 72 6f 77 7d 20 7b 0a 09 74 65 73 incr row} {..tes
0f00: 74 20 61 6b 74 69 76 65 2d 6f 70 2d 73 61 6d 70 t aktive-op-samp
0f10: 6c 65 2d 66 69 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e le-fill-${op}-2.
0f20: 35 2e 72 24 72 6f 77 20 22 61 6b 74 69 76 65 20 5.r$row "aktive
0f30: 6f 70 20 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 op sample fill $
0f40: 6f 70 2c 20 72 6f 77 20 73 6c 69 63 65 22 20 2d op, row slice" -
0f50: 62 6f 64 79 20 7b 0a 09 20 20 20 20 70 69 78 65 body {.. pixe
0f60: 6c 73 20 61 6b 74 69 76 65 20 6f 70 20 73 65 6c ls aktive op sel
0f70: 65 63 74 20 79 20 5b 61 6b 74 69 76 65 20 6f 70 ect y [aktive op
0f80: 20 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f 70 sample fill $op
0f90: 20 5b 67 72 61 64 5d 20 62 79 20 32 20 66 69 6c [grad] by 2 fil
0fa0: 6c 20 30 5d 20 66 72 6f 6d 20 24 72 6f 77 0a 09 l 0] from $row..
0fb0: 7d 20 2d 6d 61 74 63 68 20 70 69 78 65 6c 73 20 } -match pixels
0fc0: 2d 72 65 73 75 6c 74 20 5b 73 6c 69 63 65 2d 72 -result [slice-r
0fd0: 6f 77 20 24 72 6f 77 20 24 77 20 24 68 20 24 64 ow $row $w $h $d
0fe0: 20 24 65 78 70 65 63 74 65 64 5d 0a 20 20 20 20 $expected].
0ff0: 7d 0a 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20 }.. for {set
1000: 63 6f 6c 20 30 7d 20 7b 24 63 6f 6c 20 3c 20 24 col 0} {$col < $
1010: 77 7d 20 7b 69 6e 63 72 20 63 6f 6c 7d 20 7b 0a w} {incr col} {.
1020: 09 74 65 73 74 20 61 6b 74 69 76 65 2d 6f 70 2d .test aktive-op-
1030: 73 61 6d 70 6c 65 2d 66 69 6c 6c 2d 24 7b 6f 70 sample-fill-${op
1040: 7d 2d 32 2e 35 2e 63 24 63 6f 6c 20 22 61 6b 74 }-2.5.c$col "akt
1050: 69 76 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 69 ive op sample fi
1060: 6c 6c 20 24 6f 70 2c 20 63 6f 6c 75 6d 6e 20 73 ll $op, column s
1070: 6c 69 63 65 22 20 2d 62 6f 64 79 20 7b 0a 09 20 lice" -body {..
1080: 20 20 20 70 69 78 65 6c 73 20 61 6b 74 69 76 65 pixels aktive
1090: 20 6f 70 20 73 65 6c 65 63 74 20 78 20 5b 61 6b op select x [ak
10a0: 74 69 76 65 20 6f 70 20 73 61 6d 70 6c 65 20 66 tive op sample f
10b0: 69 6c 6c 20 24 6f 70 20 5b 67 72 61 64 5d 20 62 ill $op [grad] b
10c0: 79 20 32 20 66 69 6c 6c 20 30 5d 20 66 72 6f 6d y 2 fill 0] from
10d0: 20 24 63 6f 6c 0a 09 7d 20 2d 6d 61 74 63 68 20 $col..} -match
10e0: 70 69 78 65 6c 73 20 2d 72 65 73 75 6c 74 20 5b pixels -result [
10f0: 73 6c 69 63 65 2d 63 6f 6c 20 24 63 6f 6c 20 24 slice-col $col $
1100: 77 20 24 68 20 24 64 20 24 65 78 70 65 63 74 65 w $h $d $expecte
1110: 64 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f d]. }.. fo
1120: 72 20 7b 73 65 74 20 62 61 6e 64 20 30 7d 20 7b r {set band 0} {
1130: 24 62 61 6e 64 20 3c 20 24 64 7d 20 7b 69 6e 63 $band < $d} {inc
1140: 72 20 62 61 6e 64 7d 20 7b 0a 09 74 65 73 74 20 r band} {..test
1150: 61 6b 74 69 76 65 2d 6f 70 2d 73 61 6d 70 6c 65 aktive-op-sample
1160: 2d 66 69 6c 6c 2d 24 7b 6f 70 7d 2d 32 2e 35 2e -fill-${op}-2.5.
1170: 62 24 62 61 6e 64 20 22 61 6b 74 69 76 65 20 6f b$band "aktive o
1180: 70 20 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f p sample fill $o
1190: 70 2c 20 62 61 6e 64 20 73 6c 69 63 65 22 20 2d p, band slice" -
11a0: 62 6f 64 79 20 7b 0a 09 20 20 20 20 70 69 78 65 body {.. pixe
11b0: 6c 73 20 61 6b 74 69 76 65 20 6f 70 20 73 65 6c ls aktive op sel
11c0: 65 63 74 20 7a 20 5b 61 6b 74 69 76 65 20 6f 70 ect z [aktive op
11d0: 20 73 61 6d 70 6c 65 20 66 69 6c 6c 20 24 6f 70 sample fill $op
11e0: 20 5b 67 72 61 64 5d 20 62 79 20 32 20 66 69 6c [grad] by 2 fil
11f0: 6c 20 30 5d 20 66 72 6f 6d 20 24 62 61 6e 64 0a l 0] from $band.
1200: 09 7d 20 2d 6d 61 74 63 68 20 70 69 78 65 6c 73 .} -match pixels
1210: 20 2d 72 65 73 75 6c 74 20 5b 73 6c 69 63 65 2d -result [slice-
1220: 62 61 6e 64 20 24 62 61 6e 64 20 24 77 20 24 68 band $band $w $h
1230: 20 24 64 20 24 65 78 70 65 63 74 65 64 5d 0a 20 $d $expected].
1240: 20 20 20 7d 0a 0a 20 20 20 20 23 20 2d 20 2d 2d }.. # - --
1250: 20 2d 2d 2d 20 2d 2d 2d 2d 2d 20 2d 2d 2d 2d 2d --- ----- -----
1260: 2d 2d 2d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --- ------------
1270: 2d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d - --------------
1280: 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 75 6e 73 65 -------. unse
1290: 74 20 77 20 68 20 64 20 72 6f 77 20 63 6f 6c 20 t w h d row col
12a0: 62 61 6e 64 0a 7d 0a 0a 23 20 23 20 23 23 20 23 band.}..# # ## #
12b0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
12c0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 # #############
12d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
12e0: 23 23 23 23 23 0a 63 6c 65 61 6e 75 70 54 65 73 #####.cleanupTes
12f0: 74 73 0a 72 65 74 75 72 6e 0a ts.return.