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] } }