new file:   pngen.tcl