- For i := 0 to 178 - EffectContainer.ParticleCount do
- begin
- sinus := sin(i);
- cosinus := cos(i);
- Color := MakeVector3f(1,0.4,0);
- Velocity := MakeVector3f(sinus*0.05*random,cosinus*0.05*random,0);
- EffectContainer.AddParticle(MakeVector3f(sinus*0.03+0.05*random, cosinus*0.03+0.05*random,
- 0), MakeVector3f(0.1*random, 0.1*random, 0), Color, 5, 2);
- New := EffectContainer.ParticleCount - 1;
- EffectContainer.SetVelocity(Velocity, New);
- EffectContainer.SetEnlargement(MakeVector3f(0.1, 0.1, 0), New);
- end;