Mercurial > hg > orthanc-stone
annotate Samples/Sdl/SingleFrameViewer/SdlSimpleViewer.cpp @ 1392:ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Segregation ongoing between sdl wasm
Both samples ok SDL msvc v141 x64
author | Benjamin Golinvaux <bgo@osimis.io> |
---|---|
date | Tue, 28 Apr 2020 13:52:21 +0200 |
parents | 4ebf246f3919 |
children | 62dc0d737e7b |
rev | line source |
---|---|
1368 | 1 |
2 #include "SdlSimpleViewerApplication.h" | |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
3 #include "../SdlHelpers.h" |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
4 #include "../../Common/SampleHelpers.h" |
1368 | 5 |
6 #include <Framework/Loaders/GenericLoadersContext.h> | |
7 #include <Framework/StoneException.h> | |
8 #include <Framework/StoneEnumerations.h> | |
9 #include <Framework/StoneInitialization.h> | |
10 #include <Framework/Viewport/SdlViewport.h> | |
11 | |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
12 #include <Core/OrthancException.h> |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
13 |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
14 #include <boost/program_options.hpp> |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
15 #include <SDL.h> |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
16 |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
17 #include <string> |
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
18 |
1368 | 19 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
20 std::string orthancUrl; |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
21 std::string instanceId; |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
22 int frameIndex = 0; |
1368 | 23 |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
24 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
25 static void ProcessOptions(int argc, char* argv[]) |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
26 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
27 namespace po = boost::program_options; |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
28 po::options_description desc("Usage:"); |
1368 | 29 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
30 desc.add_options() |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
31 ("loglevel", po::value<std::string>()->default_value("WARNING"), |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
32 "You can choose WARNING, INFO or TRACE for the logging level: Errors and warnings will always be displayed. (default: WARNING)") |
1368 | 33 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
34 ("orthanc", po::value<std::string>()->default_value("http://localhost:8042"), |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
35 "Base URL of the Orthanc instance") |
1368 | 36 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
37 ("instance", po::value<std::string>()->default_value("285dece8-e1956b38-cdc7d084-6ce3371e-536a9ffc"), |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
38 "Orthanc ID of the instance to display") |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
39 |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
40 ("frame_index", po::value<int>()->default_value(0), |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
41 "The zero-based index of the frame (for multi-frame instances)") |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
42 ; |
1368 | 43 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
44 po::variables_map vm; |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
45 try |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
46 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
47 po::store(po::parse_command_line(argc, argv, desc), vm); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
48 po::notify(vm); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
49 } |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
50 catch (std::exception& e) |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
51 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
52 std::cerr << "Please check your command line options! (\"" << e.what() << "\")" << std::endl; |
1368 | 53 } |
54 | |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
55 if (vm.count("loglevel") > 0) |
1368 | 56 { |
1387
4ebf246f3919
Fixed big mistake (factoring the option parsing, which only adds noise to the people reading the code)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1383
diff
changeset
|
57 std::string logLevel = vm["loglevel"].as<std::string>(); |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
58 OrthancStoneHelpers::SetLogLevel(logLevel); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
59 } |
1368 | 60 |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
61 if (vm.count("orthanc") > 0) |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
62 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
63 // maybe check URL validity here |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
64 orthancUrl = vm["orthanc"].as<std::string>(); |
1368 | 65 } |
66 | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
67 if (vm.count("instance") > 0) |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
68 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
69 instanceId = vm["instance"].as<std::string>(); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
70 } |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
71 |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
72 if (vm.count("frame_index") > 0) |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
73 { |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
74 frameIndex = vm["frame_index"].as<int>(); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
75 } |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
76 |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
77 } |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
78 |
1368 | 79 /** |
80 * IMPORTANT: The full arguments to "main()" are needed for SDL on | |
81 * Windows. Otherwise, one gets the linking error "undefined reference | |
82 * to `SDL_main'". https://wiki.libsdl.org/FAQWindows | |
83 **/ | |
84 int main(int argc, char* argv[]) | |
85 { | |
86 try | |
87 { | |
88 OrthancStone::StoneInitialize(); | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
89 |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
90 ProcessOptions(argc, argv); |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
91 |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
92 //Orthanc::Logging::EnableInfoLevel(true); |
1368 | 93 //Orthanc::Logging::EnableTraceLevel(true); |
94 | |
95 { | |
96 | |
97 #if 1 | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
98 boost::shared_ptr<OrthancStone::SdlViewport> viewport = |
1368 | 99 OrthancStone::SdlOpenGLViewport::Create("Stone of Orthanc", 800, 600); |
100 #else | |
101 boost::shared_ptr<OrthancStone::SdlViewport> viewport = | |
102 OrthancStone::SdlCairoViewport::Create("Stone of Orthanc", 800, 600); | |
103 #endif | |
104 | |
105 OrthancStone::GenericLoadersContext context(1, 4, 1); | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
106 |
1368 | 107 context.StartOracle(); |
108 | |
109 { | |
110 | |
111 boost::shared_ptr<SdlSimpleViewerApplication> application( | |
112 SdlSimpleViewerApplication::Create(context, viewport)); | |
113 | |
114 OrthancStone::DicomSource source; | |
115 | |
116 application->LoadOrthancFrame(source, instanceId, frameIndex); | |
117 | |
118 OrthancStone::DefaultViewportInteractor interactor; | |
119 | |
1392
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
120 #if 1 |
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
121 OrthancStoneHelpers::SdlRunLoop(viewport, interactor); |
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
122 |
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
123 #else |
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
124 |
1368 | 125 { |
126 int scancodeCount = 0; | |
127 const uint8_t* keyboardState = SDL_GetKeyboardState(&scancodeCount); | |
128 | |
129 bool stop = false; | |
130 while (!stop) | |
131 { | |
132 bool paint = false; | |
133 SDL_Event event; | |
134 while (SDL_PollEvent(&event)) | |
135 { | |
136 if (event.type == SDL_QUIT) | |
137 { | |
138 stop = true; | |
139 break; | |
140 } | |
141 else if (viewport->IsRefreshEvent(event)) | |
142 { | |
143 paint = true; | |
144 } | |
145 else if (event.type == SDL_WINDOWEVENT && | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
146 (event.window.event == SDL_WINDOWEVENT_RESIZED || |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
147 event.window.event == SDL_WINDOWEVENT_SIZE_CHANGED)) |
1368 | 148 { |
149 viewport->UpdateSize(event.window.data1, event.window.data2); | |
150 } | |
151 else if (event.type == SDL_WINDOWEVENT && | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
152 (event.window.event == SDL_WINDOWEVENT_SHOWN || |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
153 event.window.event == SDL_WINDOWEVENT_EXPOSED)) |
1368 | 154 { |
155 paint = true; | |
156 } | |
157 else if (event.type == SDL_KEYDOWN && | |
158 event.key.repeat == 0 /* Ignore key bounce */) | |
159 { | |
160 switch (event.key.keysym.sym) | |
161 { | |
162 case SDLK_f: | |
163 viewport->ToggleMaximize(); | |
164 break; | |
165 | |
166 case SDLK_s: | |
167 application->FitContent(); | |
168 break; | |
169 | |
170 case SDLK_q: | |
171 stop = true; | |
172 break; | |
173 | |
174 default: | |
175 break; | |
176 } | |
177 } | |
178 else if (event.type == SDL_MOUSEBUTTONDOWN || | |
179 event.type == SDL_MOUSEMOTION || | |
180 event.type == SDL_MOUSEBUTTONUP) | |
181 { | |
182 std::auto_ptr<OrthancStone::IViewport::ILock> lock(viewport->Lock()); | |
183 if (lock->HasCompositor()) | |
184 { | |
185 OrthancStone::PointerEvent p; | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
186 OrthancStoneHelpers::GetPointerEvent(p, lock->GetCompositor(), |
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
187 event, keyboardState, scancodeCount); |
1368 | 188 |
189 switch (event.type) | |
190 { | |
191 case SDL_MOUSEBUTTONDOWN: | |
192 lock->GetController().HandleMousePress(interactor, p, | |
193 lock->GetCompositor().GetCanvasWidth(), | |
194 lock->GetCompositor().GetCanvasHeight()); | |
195 lock->Invalidate(); | |
196 break; | |
197 | |
198 case SDL_MOUSEMOTION: | |
199 if (lock->GetController().HandleMouseMove(p)) | |
200 { | |
201 lock->Invalidate(); | |
202 } | |
203 break; | |
204 | |
205 case SDL_MOUSEBUTTONUP: | |
206 lock->GetController().HandleMouseRelease(p); | |
207 lock->Invalidate(); | |
208 break; | |
209 | |
210 default: | |
211 throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError); | |
212 } | |
213 } | |
214 } | |
215 } | |
216 | |
217 if (paint) | |
218 { | |
219 viewport->Paint(); | |
220 } | |
221 | |
222 // Small delay to avoid using 100% of CPU | |
223 SDL_Delay(1); | |
224 } | |
225 } | |
1392
ffdb82850e98
Sdl run loop in /Common (might revert if need to customize)
Benjamin Golinvaux <bgo@osimis.io>
parents:
1387
diff
changeset
|
226 #endif |
1368 | 227 context.StopOracle(); |
228 } | |
229 } | |
230 | |
231 OrthancStone::StoneFinalize(); | |
232 return 0; | |
233 } | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
234 catch (Orthanc::OrthancException& e) |
1368 | 235 { |
236 auto test = e.What(); | |
237 fprintf(stdout, test); | |
238 LOG(ERROR) << "OrthancException: " << e.What(); | |
239 return -1; | |
240 } | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
241 catch (OrthancStone::StoneException& e) |
1368 | 242 { |
243 LOG(ERROR) << "StoneException: " << e.What(); | |
244 return -1; | |
245 } | |
1382
9d138883be66
Proper command-line parameter management for SDL sample
Benjamin Golinvaux <bgo@osimis.io>
parents:
1368
diff
changeset
|
246 catch (std::runtime_error& e) |
1368 | 247 { |
248 LOG(ERROR) << "Runtime error: " << e.what(); | |
249 return -1; | |
250 } | |
251 catch (...) | |
252 { | |
253 LOG(ERROR) << "Native exception"; | |
254 return -1; | |
255 } | |
256 } |