Scale tcl images with C packed as a TEA extension