* fixed typo

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 q: TgluQuaternion; const s: Sigle): TgluQuaternion;
+  operator *(const q: TgluQuaternion; const s: Single): TgluQuaternion;
 
 const
   quW = 0;
@@ -92,7 +92,7 @@ begin
   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;