Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Hallo,

ich habe mal mit meinem neuen Schriftartensystem eine neue Demo gebastelt, die einen Text darstellt, der ähnlich wie im Vorspan der "Krieg der Sterne" Filme nach hinten scrollt.

Relevanter Code:

Delphi-Quellcode:

//Init
AdFontFactory := TAdFontFactory.Create(AdDraw1.AdAppl);
AdFont := AdFontFactory.GenerateFont('Arial', 40, []);
AdFontFactory.Free;

AdDraw1.AdAppl.Setup3DScene(
  ClientWidth, ClientHeight, AdVector3(ClientWidth div 2, ClientHeight div 2, -1000),
  AdVector3(ClientWidth div 2, ClientHeight, 0), AdVector3(0,-1,0));

StrList := TStringList.Create;
StrList.LoadFromFile(dir+'engine-wars.txt');
s := strlist.GetText;
StrList.Free;

//Rendering
with TAdSimpleTypeSetter(AdFont.TypeSetter) do
begin
  DrawMode := [dtWordWrap, dtTop, dtCenter, dtDoLineFeeds];
end;

c := c + AdPerCounter.TimeGap * 0.05;

mat1 := AdMatrix_Translate(0, ClientHeight, c);
mat2 := AdMatrix_RotationX(-Pi/2);
mat1 := AdMatrix_Multiply(mat2,mat1);
AdFont.Color := Ad_ARGB(255,230,200,0);
AdFont.TransformationMatrix := mat1;
AdFont.TextOut(AdRect(ClientWidth div 2 - 400, 0, ClientWidth div 2 + 400, ClientHeight), s);