|
|
@@ -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; |
|
|
|