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
FMX.UITypes,
Gorilla.Viewport,
Gorilla.Context.Texturing;
// in our form (TForm1) we added a field named "FGorilla"
// in our form (TForm1) we added a field named "FSkyBox"
procedure TForm1.FormCreate(Sender: TObject);
var LBmp : TBitmap;
LCMPath : String;
begin
FGorilla := TGorillaViewport.Create(Self);
FGorilla.Parent := Form1;
FGorilla.Color := TAlphaColorRec.Black;
FSkyBox := TGorillaSkyBox.Create(FGorilla);
FSkyBox.Parent := FGorilla;
FSkyBox.Size := Point3D(100, 100, 100);
LCMPath := ExtractFilePath(ParamStr(0)) + 'cubemap\';
LBmp := TBitmap.CreateFromFile(LCMPath + 'negz.jpg');
try
FSkyBox.Textures[TGorillaCubeMapFace.NegativeZ] := LBmp;
LBmp.LoadFromFile(LCMPath + 'posz.jpg');
FSkyBox.Textures[TGorillaCubeMapFace.PositiveZ] := LBmp;
LBmp.LoadFromFile(LCMPath + 'negy.jpg');
FSkyBox.Textures[TGorillaCubeMapFace.NegativeY] := LBmp;
LBmp.LoadFromFile(LCMPath + 'posy.jpg');
FSkyBox.Textures[TGorillaCubeMapFace.PositiveY] := LBmp;
LBmp.LoadFromFile(LCMPath + 'negx.jpg');
FSkyBox.Textures[TGorillaCubeMapFace.NegativeX] := LBmp;
LBmp.LoadFromFile(LCMPath + 'posx.jpg');
FSkyBox.Textures[TGorillaCubeMapFace.PositiveX] := LBmp;
finally
FreeAndNil(LBmp);
end;
end;