blob: 760e6302b807743c26f384dc713c7a08a06a4243 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %opt=-Sc }
{ Source provided for Free Pascal Bug Report 3366 }
{ Submitted by "Sergey Kosarevsky" on 2004-10-22 }
{ e-mail: netsurfer@au.ru }
Type tVector3=Array[1..3] Of Single;
Operator * (A:tVector3;B:Single) R:tVector3;
Var I:Longint;
Begin
For I:=1 To 3 Do R[I]:=A[I]*B;
Exit(R);
End;
Var A:tVector3;
Begin
A[1]:=1;
A[2]:=1;
A[3]:=1;
A*=2;
End.
|
