ad-graphing.tcl