0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / src / OpenGl / OpenGl_Matrix.cxx
1 // Created on: 2011-07-13
2 // Created by: Sergey ZERCHANINOV
3 // Copyright (c) 2011-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 #include <OpenGl_Matrix.hxx>
17
18 /*----------------------------------------------------------------------*/
19
20 void OpenGl_Multiplymat3 (OpenGl_Matrix *c, const OpenGl_Matrix *a, const OpenGl_Matrix *b)
21 {
22   int row, col, i;
23   for (row = 0; row < 4; row++) {
24     for (col = 0; col < 4; col++) {
25       float sum = 0.F;
26       for (i = 0; i < 4; i++)
27         sum += a->mat[row][i] * b->mat[i][col];
28       c->mat[row][col] = sum;
29     }
30   }
31 }
32
33 /*----------------------------------------------------------------------*/
34
35 void OpenGl_Transposemat3 (OpenGl_Matrix *c, const OpenGl_Matrix *a)
36 {
37   Tint row, col;
38   for (row = 0; row < 4; row++)
39     for (col = 0; col < 4; col++)
40       c->mat[row][col] = a->mat[col][row];
41 }