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 } |