Warning: Undefined array key "translationlc" in /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php on line 237
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 33
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 34
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 35
procedure TForm1.FormCreate(Sender: TObject);
var LParticles := TGorillaFireParticleEmitter;
LParticleMat : TParticleMaterialSource;
begin
LParticles := TGorillaFireParticleEmitter.Create(FGorilla);
LParticles.Parent := FGorilla;
LParticles.Camera := FCamera;
// a fire effect contains multiple parts: a front and back flame and smoke
LParticleMat := LParticles.Back.MaterialSource as TParticleMaterialSource;
LParticleMat.Texture.LoadFromFile('fire2.png');
LParticles.LoadTexture('fire.png');
LParticles.Smoke.LoadTexture('smoke.png');
LParticles.Scale.Point := Point3D(5, 5, 5);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// on some constellations you will need an interval to update the viewport
FGorilla.Invalidate();
end;