mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 20:39:34 +02:00
ac8add7cf9
or that are accessible outside the current block (mantis #17413) git-svn-id: trunk@15990 -
49 lines
889 B
ObjectPascal
49 lines
889 B
ObjectPascal
{$mode objfpc}
|
|
{$H+}
|
|
|
|
uses SysUtils;
|
|
|
|
type
|
|
TVector3Single = array [0..2] of Single;
|
|
|
|
function Vector3Single(const X, Y, Z: Single): TVector3Single;
|
|
begin
|
|
Result[0] := X;
|
|
Result[1] := Y;
|
|
Result[2] := Z;
|
|
end;
|
|
|
|
var
|
|
res1, res2, res3: single;
|
|
|
|
procedure RenderFromViewEverything;
|
|
var
|
|
Normal: TVector3Single;
|
|
|
|
procedure DoTexCoordVertex(const Vertex: TVector3Single);
|
|
begin
|
|
Writeln('Normal: ', Normal[0]:1:1, ' ', Normal[1]:1:1, ' ', Normal[2]:1:1);
|
|
if (normal[0]<>res1) or
|
|
(normal[1]<>res2) or
|
|
(normal[2]<>res3) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
res1:=123;
|
|
res2:=456;
|
|
res3:=789;
|
|
Normal := Vector3Single(123, 456, 789);
|
|
DoTexCoordVertex(Vector3Single(111, 222, 333));
|
|
|
|
res1:=987;
|
|
res2:=654;
|
|
res3:=321;
|
|
Normal := Vector3Single(987, 654, 321);
|
|
DoTexCoordVertex(Vector3Single(444, 555, 666));
|
|
end;
|
|
|
|
begin
|
|
RenderFromViewEverything;
|
|
end.
|