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
uses Gorilla.Audio.FMOD, Gorilla.Audio.FMOD.Sound, Gorilla.Audio.FMOD.Channel, Gorilla.Audio.FMOD.System; var FFMOD : TGorillaFMODAudioManager; FListenerPos : TFMOD_Vector; FListenerInc : Single; procedure TForm1.FormShow(Sender: TObject); begin {...} F3DListener := TGorillaFMOD3DListenerAttr.Create(FListenerPos); end; procedure TForm1.Timer1Timer(Sender: TObject); begin {...} // update 3d listener position : listener rotating around // soundsource = (0, 0, 0) FListenerInc := FListenerInc + 0.1; FListenerPos.X := Sin(FListenerInc) + 3; FListenerPos.Z := Cos(FListenerInc) + 3; F3DListener.Pos := FListenerPos; FFMOD.Set3DListener(F3DListener); end;