TSmokeEvolution::AddForceFunction