* fixed typo

diff --git a/ugluQuaternion.pas b/ugluQuaternion.pas
index adcb117..b806282 100644 (file)
--- a/ugluQuaternion.pas
+++ b/ugluQuaternion.pas
@@ -63,7 +63,7 @@ type
   operator +(const a, b: TgluQuaternion): TgluQuaternion;
   operator -(const l, r: TgluQuaternion): TgluQuaternion;
   operator *(const l, r: TgluQuaternion): TgluQuaternion;
   operator +(const a, b: TgluQuaternion): TgluQuaternion;
   operator -(const l, r: TgluQuaternion): TgluQuaternion;
   operator *(const l, r: TgluQuaternion): TgluQuaternion;

-  operator *(const q: TgluQuaternion; const s: Sigle): TgluQuaternion;
+  operator *(const q: TgluQuaternion; const s: Single): TgluQuaternion;

 
 const
   quW = 0;
 
 const
   quW = 0;


@@ -92,7 +92,7 @@ begin
   result := gluQuaternionMultiply(l, r);
 end;
 
   result := gluQuaternionMultiply(l, r);
 end;
 

-operator *(const q: TgluQuaternion; const s: Sigle): TgluQuaternion;
+operator *(const q: TgluQuaternion; const s: Single): TgluQuaternion;

 begin
   result := gluQuaternionScale(q, s);
 end;
 begin
   result := gluQuaternionScale(q, s);
 end;