Форум программистов [Powered by Invision Power Board]

Код

unit GLAux;

interface

uses OpenGl;

const
   opengl32 = 'opengl32.dll';

type
 TPoint = Record
            x, y, z : Single
          end;

 TVector = Record
             x,y,z :  Single
           end;

 AUX_RGBImageRec = Record
    sizeX, sizeY : GLint;
    data : array of Byte;
 end;


procedure glTexSubImage2D (target: GLEnum; level, xoffset, yoffset: GLint; width, height: GLsizei; format,
    atype: GLEnum; pixels: Pointer); stdcall; external opengl32;

procedure glGenTextures (n : GLsizei; textures : pGLuint); stdcall; external opengl32;
procedure glBindTexture (target : GLenum; texture : GLuint); stdcall; external opengl32;

Function MakeV(var p1, p2 : TPoint) : TVector;
Function VMultVector(v1, v2 : TVector) : TVector;
Function Normal(var p1, p2, p3 : TPoint) : TVector;

implementation

Function MakeV(var p1, p2 : TPoint) : TVector;
Begin
  Result.x := p2.x - p1.x;
  Result.y := p2.y - p1.y;
  Result.z := p2.z - p1.z;
end;

Function VMultVector(v1, v2 : TVector) : TVector;
Begin
  Result.x := v1.y * v2.z - v2.y * v1.z;
  Result.y := v2.x * v1.z - v1.x * v2.z;
  Result.z := v1.x * v2.y - v2.x * v1.y
end;

Function Normal(var p1, p2, p3 : TPoint) : TVector;
var
  t : Extended;
Begin
  Result := VMultVector(MakeV(P2, P1), MakeV(P3, P1));
  t := 1 / Sqrt(Sqr(Result.x) + Sqr(Result.y) + Sqr(Result.z));
  Result.x := Result.x * t;
  Result.y := Result.y * t;
  Result.z := Result.z * t;
end;

end.