Mercurial > hg > orthanc-stone
annotate Applications/Platforms/Sdl/SdlWindow.cpp @ 1873:e0966648ebd0
unit tests of SegmentTree
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Tue, 11 Jan 2022 15:36:04 +0100 |
parents | 7053b8a0aaec |
children |
rev | line source |
---|---|
0 | 1 /** |
2 * Stone of Orthanc | |
3 * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics | |
4 * Department, University Hospital of Liege, Belgium | |
1871
7053b8a0aaec
upgrade to year 2022
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1870
diff
changeset
|
5 * Copyright (C) 2017-2022 Osimis S.A., Belgium |
7053b8a0aaec
upgrade to year 2022
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1870
diff
changeset
|
6 * Copyright (C) 2021-2022 Sebastien Jodogne, ICTEAM UCLouvain, Belgium |
0 | 7 * |
8 * This program is free software: you can redistribute it and/or | |
47 | 9 * modify it under the terms of the GNU Affero General Public License |
10 * as published by the Free Software Foundation, either version 3 of | |
11 * the License, or (at your option) any later version. | |
0 | 12 * |
13 * This program is distributed in the hope that it will be useful, but | |
14 * WITHOUT ANY WARRANTY; without even the implied warranty of | |
47 | 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
16 * Affero General Public License for more details. | |
1596
4fb8fdf03314
removed annoying whitespace
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1591
diff
changeset
|
17 * |
47 | 18 * You should have received a copy of the GNU Affero General Public License |
0 | 19 * along with this program. If not, see <http://www.gnu.org/licenses/>. |
20 **/ | |
21 | |
22 | |
23 #include "SdlWindow.h" | |
24 | |
25 #if ORTHANC_ENABLE_SDL == 1 | |
26 | |
1455
30deba7bc8e2
simplifying include_directories
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1279
diff
changeset
|
27 #include <Logging.h> |
30deba7bc8e2
simplifying include_directories
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1279
diff
changeset
|
28 #include <OrthancException.h> |
0 | 29 |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
30 #ifdef WIN32 |
662 | 31 #include <windows.h> // for SetProcessDpiAware |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
32 #endif |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
33 // WIN32 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
34 |
1198
4cc997207d8a
fix compatibility between SDL and DCMTK
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1047
diff
changeset
|
35 #include <SDL_render.h> |
4cc997207d8a
fix compatibility between SDL and DCMTK
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1047
diff
changeset
|
36 #include <SDL_video.h> |
214 | 37 #include <SDL.h> |
38 | |
0 | 39 namespace OrthancStone |
40 { | |
1804 | 41 SdlWindow::SdlWindow(const std::string& title, |
0 | 42 unsigned int width, |
43 unsigned int height, | |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
44 bool enableOpenGl, |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
45 bool allowDpiScaling) : |
0 | 46 maximized_(false) |
47 { | |
48 // TODO Understand why, with SDL_WINDOW_OPENGL + MinGW32 + Release | |
49 // build mode, the application crashes whenever the SDL window is | |
50 // resized or maximized | |
51 | |
52 uint32_t windowFlags, rendererFlags; | |
53 if (enableOpenGl) | |
54 { | |
55 windowFlags = SDL_WINDOW_OPENGL | SDL_WINDOW_RESIZABLE; | |
56 rendererFlags = SDL_RENDERER_ACCELERATED; | |
57 } | |
58 else | |
59 { | |
60 windowFlags = SDL_WINDOW_RESIZABLE; | |
61 rendererFlags = SDL_RENDERER_SOFTWARE; | |
62 } | |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
63 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
64 // TODO: probably required on MacOS X, too |
662 | 65 #if defined(WIN32) && (_WIN32_WINNT >= 0x0600) |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
66 if (!allowDpiScaling) |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
67 { |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
68 // if we do NOT allow DPI scaling, it means an SDL pixel will be a real |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
69 // monitor pixel. This is needed for high-DPI applications |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
70 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
71 // Enable high-DPI support on Windows |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
72 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
73 // THE FOLLOWING HAS BEEN COMMENTED OUT BECAUSE IT WILL CRASH UNDER |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
74 // OLD WINDOWS VERSIONS |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
75 // ADD THIS AT THE TOP TO ENABLE IT: |
662 | 76 // |
77 //#pragma comment(lib, "Shcore.lib") THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness | |
78 //#include <windows.h> | |
79 //#include <ShellScalingAPI.h> THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness | |
656
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
80 //#include <comdef.h> THIS IS ONLY REQUIRED FOR SetProcessDpiAwareness |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
81 // SetProcessDpiAwareness(PROCESS_PER_MONITOR_DPI_AWARE); |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
82 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
83 // This is supported on Vista+ |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
84 SetProcessDPIAware(); |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
85 |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
86 windowFlags |= SDL_WINDOW_ALLOW_HIGHDPI; |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
87 } |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
88 #endif |
002d9562c8f5
Added support to DISABLE legacy scaling in SDL Windows (only in WIN32... this
Benjamin Golinvaux <bgo@osimis.io>
parents:
439
diff
changeset
|
89 // WIN32 |
0 | 90 |
1804 | 91 window_ = SDL_CreateWindow(title.c_str(), |
0 | 92 SDL_WINDOWPOS_UNDEFINED, |
93 SDL_WINDOWPOS_UNDEFINED, | |
94 width, height, windowFlags); | |
95 | |
96 if (window_ == NULL) | |
97 { | |
98 LOG(ERROR) << "Cannot create the SDL window: " << SDL_GetError(); | |
99 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
100 } | |
101 | |
102 renderer_ = SDL_CreateRenderer(window_, -1, rendererFlags); | |
103 if (!renderer_) | |
104 { | |
105 LOG(ERROR) << "Cannot create the SDL renderer: " << SDL_GetError(); | |
106 SDL_DestroyWindow(window_); | |
107 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
108 } | |
109 } | |
110 | |
111 | |
112 SdlWindow::~SdlWindow() | |
113 { | |
114 if (renderer_ != NULL) | |
115 { | |
116 SDL_DestroyRenderer(renderer_); | |
117 } | |
118 | |
119 if (window_ != NULL) | |
120 { | |
121 SDL_DestroyWindow(window_); | |
122 } | |
123 } | |
124 | |
125 | |
126 unsigned int SdlWindow::GetWidth() const | |
127 { | |
128 int w = -1; | |
129 SDL_GetWindowSize(window_, &w, NULL); | |
130 | |
131 if (w < 0) | |
132 { | |
133 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
134 } | |
135 else | |
136 { | |
137 return static_cast<unsigned int>(w); | |
138 } | |
139 } | |
140 | |
141 | |
142 unsigned int SdlWindow::GetHeight() const | |
143 { | |
144 int h = -1; | |
145 SDL_GetWindowSize(window_, NULL, &h); | |
146 | |
147 if (h < 0) | |
148 { | |
149 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
150 } | |
151 else | |
152 { | |
153 return static_cast<unsigned int>(h); | |
154 } | |
155 } | |
156 | |
157 | |
158 void SdlWindow::Render(SDL_Surface* surface) | |
159 { | |
1205 | 160 /** |
161 * "You are strongly encouraged to call SDL_RenderClear() to | |
162 * initialize the backbuffer before starting each new frame's | |
163 * drawing, even if you plan to overwrite every pixel." | |
164 * https://wiki.libsdl.org/SDL_RenderPresent | |
165 **/ | |
166 SDL_SetRenderDrawColor(renderer_, 0, 0, 0, 255); | |
167 SDL_RenderClear(renderer_); // Clear the entire screen to our selected color | |
0 | 168 |
169 SDL_Texture *texture = SDL_CreateTextureFromSurface(renderer_, surface); | |
170 if (texture != NULL) | |
171 { | |
172 SDL_RenderCopy(renderer_, texture, NULL, NULL); | |
173 SDL_DestroyTexture(texture); | |
174 } | |
175 | |
176 SDL_RenderPresent(renderer_); | |
177 } | |
178 | |
179 | |
180 void SdlWindow::ToggleMaximize() | |
181 { | |
182 if (maximized_) | |
183 { | |
184 SDL_RestoreWindow(window_); | |
185 maximized_ = false; | |
186 } | |
187 else | |
188 { | |
189 SDL_MaximizeWindow(window_); | |
190 maximized_ = true; | |
191 } | |
192 } | |
214 | 193 |
194 | |
195 void SdlWindow::GlobalInitialize() | |
196 { | |
197 if (SDL_Init(SDL_INIT_VIDEO) != 0) | |
198 { | |
199 LOG(ERROR) << "Cannot initialize SDL"; | |
200 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
201 } | |
202 } | |
203 | |
204 | |
205 void SdlWindow::GlobalFinalize() | |
206 { | |
207 SDL_Quit(); | |
208 } | |
0 | 209 } |
210 | |
211 #endif |