Artifact ac7a6724d7449129d634ae6d56b680e927919576:

• File demos/decimate4.tcl — part of check-in [97dd176de7] at 2010-07-27 05:23:24 on branch ak-experimental — Added resampling primitives. Up- and downsampling, interpolation and decimation. The latter two are done at the Tcl level for the moment. That is inefficient and future work should replace them with C level primitives which integrate the up/down sampling with the proper filtering. Added associated demos. (user: andreask size: 289)

def op_decimate4 {
    label Decimate\u21934
    setup {
	set K [crimp kernel make {{1 2 1}}]
    }
    setup_image {
	set n [crimp decimate \
		   [crimp decimate [base] 2 $K] \
		   2 $K]
	set m [crimp blank grey8 {*}[crimp dimensions $n] 255]
	show_image [crimp setalpha $n $m]
    }
}