- function GetNormal(Triangle : TTriangle) : TVector;
- var
- VectorA, VectorB, Normal : TVector;
- begin
- VectorA := SubVectors(Triangle[0],Triangle[1]);
- VectorB := SubVectors(Triangle[1],Triangle[2]);
- Normal := CrossProduct(VectorA,VectorB);
- Normalize(Normal);
- result := Normal;
- end;