mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
39 lines
721 B
ObjectPascal
39 lines
721 B
ObjectPascal
unit tw39012;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch advancedrecords}
|
|
|
|
interface
|
|
|
|
type
|
|
TPoint3D = record
|
|
x,y,z: single;
|
|
// procedure Offset(const point3D: TPoint3D);
|
|
// procedure Scale(AScale: single);
|
|
end;
|
|
|
|
{** Scalar product: multiplies components and returns the sum }
|
|
operator * (const v1,v2: TPoint3D): single; inline;
|
|
|
|
procedure Normalize3D(var v: TPoint3D); inline;
|
|
|
|
implementation
|
|
|
|
operator * (const v1,v2: TPoint3D): single; inline;
|
|
begin
|
|
result := v1.x*v2.x + v1.y*v2.y + v1.z*v2.z;
|
|
end;
|
|
|
|
procedure Normalize3D(var v: TPoint3D); inline;
|
|
var len: double;
|
|
begin
|
|
len := v*v;
|
|
// if len = 0 then exit;
|
|
// len := sqrt(len);
|
|
// v.x := v.x / len;
|
|
// v.y := v.y / len;
|
|
// v.z := v.z / len;
|
|
end;
|
|
|
|
end.
|