wish < tcl/TCLBowedBar.tcl | syntmono BowedBar -or -ip