# File:FreeFieldEffective.tcl