Mercurial > hg > orthanc-stone
annotate Framework/Scene2D/Internals/OpenGLTextureProgram.cpp @ 1221:e2435a524029
merge
| author | Alain Mazy <alain@mazy.be> |
|---|---|
| date | Sat, 07 Dec 2019 17:47:35 +0100 |
| parents | 1091b2adeb5a |
| children | 2d8ab34c8c91 |
| rev | line source |
|---|---|
| 591 | 1 /** |
| 2 * Stone of Orthanc | |
| 3 * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics | |
| 4 * Department, University Hospital of Liege, Belgium | |
| 5 * Copyright (C) 2017-2019 Osimis S.A., Belgium | |
| 6 * | |
| 7 * This program is free software: you can redistribute it and/or | |
| 8 * modify it under the terms of the GNU Affero General Public License | |
| 9 * as published by the Free Software Foundation, either version 3 of | |
| 10 * the License, or (at your option) any later version. | |
| 11 * | |
| 12 * This program is distributed in the hope that it will be useful, but | |
| 13 * WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 15 * Affero General Public License for more details. | |
| 16 * | |
| 17 * You should have received a copy of the GNU Affero General Public License | |
| 18 * along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 19 **/ | |
| 20 | |
| 21 | |
| 22 #include "OpenGLTextureProgram.h" | |
|
611
e3f21a265be5
Added version directive to GLSL shader code + glew init function in sample code
Benjamin Golinvaux <bgo@osimis.io>
parents:
591
diff
changeset
|
23 #include "OpenGLShaderVersionDirective.h" |
| 591 | 24 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
25 #include <Core/OrthancException.h> |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
26 |
| 591 | 27 static const unsigned int COMPONENTS = 2; |
| 28 static const unsigned int COUNT = 6; // 2 triangles in 2D | |
| 29 | |
| 30 static const char* VERTEX_SHADER = | |
|
611
e3f21a265be5
Added version directive to GLSL shader code + glew init function in sample code
Benjamin Golinvaux <bgo@osimis.io>
parents:
591
diff
changeset
|
31 ORTHANC_STONE_OPENGL_SHADER_VERSION_DIRECTIVE |
| 591 | 32 "attribute vec2 a_texcoord; \n" |
| 33 "attribute vec4 a_position; \n" | |
| 34 "uniform mat4 u_matrix; \n" | |
| 35 "varying vec2 v_texcoord; \n" | |
| 36 "void main() \n" | |
| 37 "{ \n" | |
| 38 " gl_Position = u_matrix * a_position; \n" | |
| 39 " v_texcoord = a_texcoord; \n" | |
| 40 "}"; | |
| 41 | |
| 42 | |
| 43 namespace OrthancStone | |
| 44 { | |
| 45 namespace Internals | |
| 46 { | |
| 47 void OpenGLTextureProgram::InitializeExecution(OpenGL::OpenGLTexture& texture, | |
| 48 const AffineTransform2D& transform) | |
| 49 { | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
50 if (!context_.IsContextLost()) |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
51 { |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
52 context_.MakeCurrent(); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
53 program_->Use(); |
| 591 | 54 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
55 AffineTransform2D scale = AffineTransform2D::CreateScaling |
| 591 | 56 (texture.GetWidth(), texture.GetHeight()); |
| 57 | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
58 AffineTransform2D t = AffineTransform2D::Combine(transform, scale); |
| 591 | 59 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
60 float m[16]; |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
61 t.ConvertToOpenGLMatrix(m, context_.GetCanvasWidth(), context_.GetCanvasHeight()); |
| 591 | 62 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
63 texture.Bind(program_->GetUniformLocation("u_texture")); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
64 glUniformMatrix4fv(program_->GetUniformLocation("u_matrix"), 1, GL_FALSE, m); |
| 591 | 65 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
66 glBindBuffer(GL_ARRAY_BUFFER, buffers_[0]); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
67 glEnableVertexAttribArray(positionLocation_); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
68 glVertexAttribPointer(positionLocation_, COMPONENTS, GL_FLOAT, GL_FALSE, 0, 0); |
| 591 | 69 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
70 glBindBuffer(GL_ARRAY_BUFFER, buffers_[1]); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
71 glEnableVertexAttribArray(textureLocation_); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
72 glVertexAttribPointer(textureLocation_, COMPONENTS, GL_FLOAT, GL_FALSE, 0, 0); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
73 } |
| 591 | 74 } |
| 75 | |
| 76 void OpenGLTextureProgram::FinalizeExecution() | |
| 77 { | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
78 if (!context_.IsContextLost()) |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
79 { |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
80 glDisableVertexAttribArray(positionLocation_); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
81 glDisableVertexAttribArray(textureLocation_); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
82 } |
| 591 | 83 } |
| 84 | |
| 85 OpenGLTextureProgram::OpenGLTextureProgram(OpenGL::IOpenGLContext& context, | |
| 86 const char* fragmentShader) : | |
| 87 context_(context) | |
| 88 { | |
| 89 static const float POSITIONS[COMPONENTS * COUNT] = { | |
| 90 0, 0, | |
| 91 0, 1, | |
| 92 1, 0, | |
| 93 1, 0, | |
| 94 0, 1, | |
| 95 1, 1 | |
| 96 }; | |
| 97 | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
98 if (!context_.IsContextLost()) |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
99 { |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
100 context_.MakeCurrent(); |
| 591 | 101 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
102 program_.reset(new OpenGL::OpenGLProgram(context_)); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
103 program_->CompileShaders(VERTEX_SHADER, fragmentShader); |
| 591 | 104 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
105 positionLocation_ = program_->GetAttributeLocation("a_position"); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
106 textureLocation_ = program_->GetAttributeLocation("a_texcoord"); |
| 591 | 107 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
108 glGenBuffers(2, buffers_); |
| 591 | 109 |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
110 glBindBuffer(GL_ARRAY_BUFFER, buffers_[0]); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
111 glBufferData(GL_ARRAY_BUFFER, sizeof(float) * COMPONENTS * COUNT, POSITIONS, GL_STATIC_DRAW); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
112 |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
113 glBindBuffer(GL_ARRAY_BUFFER, buffers_[1]); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
114 glBufferData(GL_ARRAY_BUFFER, sizeof(float) * COMPONENTS * COUNT, POSITIONS, GL_STATIC_DRAW); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
115 } |
| 591 | 116 } |
| 117 | |
| 118 OpenGLTextureProgram::~OpenGLTextureProgram() | |
| 119 { | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
120 if (!context_.IsContextLost()) |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
121 { |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
122 ORTHANC_OPENGL_TRACE_CURRENT_CONTEXT("OpenGLTextureProgram::~OpenGLTextureProgram() | About to call glDeleteBuffers"); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
123 context_.MakeCurrent(); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
124 glDeleteBuffers(2, buffers_); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
125 } |
| 591 | 126 } |
| 127 | |
| 128 | |
| 129 void OpenGLTextureProgram::Execution::DrawTriangles() | |
| 130 { | |
|
947
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
131 if (!that_.context_.IsContextLost()) |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
132 { |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
133 glDrawArrays(GL_TRIANGLES, 0, COUNT); |
|
1091b2adeb5a
Fixed animation frame stopping when returning false + big work on the OpenGL
Benjamin Golinvaux <bgo@osimis.io>
parents:
611
diff
changeset
|
134 } |
| 591 | 135 } |
| 136 } | |
| 137 } |