We have been exploring shader programming in Delphi FireMonkey. In the first post, we have learned the fundamentals of computer graphics and prepared the development environment. And created a simple demo application that just renders every pixel using a blue color.
So, in the second tutorial, we have applied a custom color to the GPU shader. And made several additions to the main TCustomMaterialClass.
Now, it is time to apply a texture to the 3D object instead of using a single color. What is a texture? A texture is a bitmap that lives on the GPU.
To make it happen, we need to do some additional modifications to the Vertex and Pixel shaders. Moreover, on the Delphi side, the material is updated to reflect the new shaders
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
{$R *.fmx} {$R '..TexturesTextures.res'} procedure TFormMain.Form3DCreate(Sender: TObject); begin LabelBackend.Text := 'Backend: ' + Context.ClassName; FMaterialSource := TImageMaterialSource.Create(Self); var Image := LoadImage('LENA'); try FMaterialSource.Image := Image; finally Image.Free; end; Plane.MaterialSource := FMaterialSource; end; procedure TFormMain.Form3DRender(Sender: TObject; Context: TContext3D); begin {$IF Defined(MACOS) and not Defined(IOS)} { Workaround for https://quality.embarcadero.com/browse/RSP-32121 } if (GlobalUseMetal) then Context.FillRect(Point3D(-Width, -Height, 100), Point3D(Width, Height, 100), 1, Color); {$ENDIF} end; class function TFormMain.LoadImage(const AResource: String): TBitmap; begin Result := TBitmap.Create; var Stream := TResourceStream.Create(HInstance, AResource, RT_RCDATA); try Result.LoadFromStream(Stream); finally Stream.Free; end; end; |
The material source controls the image bitmap. This bitmap is of type TTextureBitmap, which is a special kind of bitmap that is backed by a texture on the GPU. We connect an OnChange event handler to it so we can update the underlying material when the bitmap changes.
And the result is here:
Be sure to head over and check out the full blog post by Erik van Bilsen to learn more about Shader programming in Delphi FireMonkey!
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
