Athena is a simulation application written in TCL/TK; it models the actions of political, economic, and military actors in a war-torn region, and the effects of those actions on the local civilians. It was developed at the Jet Propulsion Laboratory by WHD (among others) and has now been open sourced under a BSD license. [L1 ]
In addition to the simulation code proper, the project includes a considerable amount of infrastructure code, much of which has been presented by WHD at the Tcl Conference over the years. See especially the "marsutil" and "marsgui" packages in the mars repository.