BGRABitmap图像操作9：用 phong 阴影制作纹理

最新推荐文章于 2022-10-26 15:03:00 发布

老狼8848

最新推荐文章于 2022-10-26 15:03:00 发布

阅读量405

点赞数

分类专栏： Lazarus 文章标签： TBGRABitmap 纹理

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

http://wiki.lazarus.freepascal.org/BGRABitmap_tutorial_9

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  BGRABitmap, BGRABitmapTypes, BGRAGradients;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
    phong: TPhongShading;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  phong := TPhongShading.Create;
  phong.LightPositionZ := 150;
  phong.SpecularIndex := 20;
  phong.AmbientFactor := 0.4;
  phong.LightSourceIntensity := 250;
  phong.LightSourceDistanceTerm := 200;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  phong.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  image: TBGRABitmap;
begin
  image := TBGRABitmap.Create(ClientWidth,ClientHeight,ColorToBGRA(ColorToRGB(clBtnFace)));

  phong.DrawSphere(image,rect(20,20,120,120),50,BGRA(255,0,0));

  image.Draw(Canvas,0,0,True);
  image.free;
end;

end.